Mercurial > emacs

changeset 43794:8acd1399d389

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(shell-command-on-region): Call push-mark with non-nil second arg, to suppress the "Mark set" message.
author Eli Zaretskii <eliz@gnu.org>
date Sat, 09 Mar 2002 09:05:08 +0000
parents 40e640208d87
children 80a1749ae4e3
files lisp/simple.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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