From 30883773558ec1ed38ec830232b8454370089faa Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 9 Mar 2002 09:06:04 +0000 Subject: [PATCH] (shell-command-on-region): Call push-mark with non-nil second arg, to suppress the "Mark set" message. --- lisp/ChangeLog | 5 +++++ lisp/simple.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) 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 + + * 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 * 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 -- 2.39.2