diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2002-03-09 09:17:58 +0000 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2002-03-09 09:17:58 +0000 |
| commit | 1df61b38165a698f9a443d9f71275a45f19e8814 (patch) | |
| tree | a258a73ddedb9abb0a8740f1107398040e6c4c25 | |
| parent | 1cb508e56f961cd073d6ca33eddf60bd1bcddc3c (diff) | |
| download | emacs-1df61b38165a698f9a443d9f71275a45f19e8814.tar.gz | |
(shell-command-on-region): Call push-mark with non-nil second arg,
to suppress the "Mark set" message.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/simple.el | 2 |
2 files changed, 6 insertions, 1 deletions
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 |