# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 738269173 0
# Node ID 2bf7bd92bd431530d42f50734230b00640304346
# Parent  cf9379f91ea1e1e63f5c33e18836f3a2dc2f85c7
(shell-command): Don't activate mark even momentarily.

diff -r cf9379f91ea1 -r 2bf7bd92bd43 lisp/simple.el
--- a/lisp/simple.el	Mon May 24 18:05:21 1993 +0000
+++ b/lisp/simple.el	Mon May 24 18:46:13 1993 +0000
@@ -648,7 +648,12 @@
 	     ;; 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