Mercurial > emacs
changeset 3029:2bf7bd92bd43
(shell-command): Don't activate mark even momentarily.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 24 May 1993 18:46:13 +0000 |
| parents | cf9379f91ea1 |
| children | 2c5ea1c98256 |
| files | lisp/simple.el |
| diffstat | 1 files changed, 6 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/simple.el Mon May 24 18:05:21 1993 +0000 +++ b/lisp/simple.el Mon May 24 18:46:13 1993 +0000 @@ -648,7 +648,12 @@ ;; aliases for shell commands then they can still have them. (call-process shell-file-name nil t nil "-c" command) - (exchange-point-and-mark)) + ;; This is like exchange-point-and-mark, but doesn't activate the mark. + ;; It is cleaner to avoid activation, even though the command + ;; loop would deactivate the mark because we inserted text. + (goto-char (prog1 (mark t) + (set-marker (mark-marker) (point) + (current-buffer))))) ;; Preserve the match data in case called from a program. (let ((data (match-data))) (unwind-protect