# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1015664708 0
# Node ID 8acd1399d38925c5baaac25acb9bcb54450b852c
# Parent  40e640208d87b972ae2345d32dfe15d865dd12c4
(shell-command-on-region): Call push-mark with
non-nil second arg, to suppress the "Mark set" message.

diff -r 40e640208d87 -r 8acd1399d389 lisp/simple.el
--- a/lisp/simple.el	Sat Mar 09 00:38:54 2002 +0000
+++ b/lisp/simple.el	Sat Mar 09 09:05:08 2002 +0000
@@ -1424,7 +1424,7 @@
 	(let ((swap (and replace (< start end))))
 	  ;; Don't muck with mark unless REPLACE says we should.
 	  (goto-char start)
-	  (and replace (push-mark))
+	  (and replace (push-mark (point) 'nomsg))
 	  (setq exit-status
 		(call-process-region start end shell-file-name t
 				     (if error-file