(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 5db750d76ed58667a57df0898a7a7e261811aa09..a584cd570b50d26cf7f8035e27cd50254d3a086d 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-07  Gerd Moellmann  <gerd@gnu.org>
 
        * progmodes/ebrowse.el (ebrowse-view/find-file-and-search-pattern): 

diff --git a/lisp/simple.el b/lisp/simple.el
index 112d9566d718b70098a53252e3e867c914990fa8..a202951b4223603ba445ad20d0b83b0b625ea11b 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -1440,7 +1440,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