Commit c3e46f0c authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(shell-command): Don't activate mark even momentarily.

parent a706b808
......@@ -648,7 +648,12 @@ This cannot be done asynchronously."
;; aliases for shell commands then they can still have them.
(call-process shell-file-name nil t nil
"-c" command)
(exchange-point-and-mark))
;; This is like exchange-point-and-mark, but doesn't activate the mark.
;; It is cleaner to avoid activation, even though the command
;; loop would deactivate the mark because we inserted text.
(goto-char (prog1 (mark t)
(set-marker (mark-marker) (point)
(current-buffer)))))
;; Preserve the match data in case called from a program.
(let ((data (match-data)))
(unwind-protect
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment