(shell-command-on-region): Call push-mark with

non-nil second arg, to suppress the "Mark set" message.

2 files changed, 6 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cd1700f91cd..c87c977d7fe 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-03-09  Eli Zaretskii  <eliz@is.elta.co.il>
+
+        * simple.el (shell-command-on-region): Call push-mark with
+        non-nil second arg, to suppress the "Mark set" message.
+
 2002-03-08  Andreas Schwab  <schwab@suse.de>
 
         * textmodes/texinfo.el: Change Maintainer to FSF, as requested by
diff --git a/lisp/simple.el b/lisp/simple.el
index 676264dc31a..d0a5033d01b 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -1424,7 +1424,7 @@ specifies the value of ERROR-BUFFER."
         (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