From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 9 Mar 2002 09:17:58 +0000 (+0000)
Subject: (shell-command-on-region): Call push-mark with non-nil second arg,
X-Git-Tag: emacs-21.2~25
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1df61b38165a698f9a443d9f71275a45f19e8814;p=emacs.git

(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 5db750d76ed..a584cd570b5 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-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 112d9566d71..a202951b422 100644
--- 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