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

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cd1700f91cd53ebed205d4c4f284fbfef3076a04..c87c977d7feda3cc3ce4765e98b09b3c2db5c6c7 100644 (file)
--- 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 676264dc31a1f2549180d2bb1f1d288f54bf6f0f..d0a5033d01ba09b2d12990661e950e45ef4b375c 100644 (file)
--- 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