diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-07-26 07:31:11 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-07-26 07:31:11 +0000 |
| commit | fcadf1c77d05374e6a8f0dc46cca077086e8a939 (patch) | |
| tree | 8244da975c814bb7f5d20ebed7c85436a39cdf8a | |
| parent | 3bbf636395b25f35d1c2e9b7a4bc57bc798a1cfd (diff) | |
| download | emacs-fcadf1c77d05374e6a8f0dc46cca077086e8a939.tar.gz | |
(kill-ring-save): Delete spurious `message' call.
(set-mark): If POS is nil, call deactivate-mark.
| -rw-r--r-- | lisp/simple.el | 15 |
1 files changed, 9 insertions, 6 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index 1739c393945..1a4dfb5a9a7 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -1095,9 +1095,7 @@ system cut and paste." ;; If user quit, deactivate the mark ;; as C-g would as a command. (and quit-flag mark-active - (progn - (message "foo") ;XXX what is this here for? --roland - (deactivate-mark)))) + (deactivate-mark))) (let* ((killed-text (current-kill 0)) (message-len (min (length killed-text) 40))) (if (= (point) beg) @@ -1262,6 +1260,7 @@ a mistake; see the documentation of `set-mark'." ;; run deactivate-mark-hook. This shorthand should simplify. (defsubst deactivate-mark () "Deactivate the mark by setting `mark-active' to nil. +\(That makes a difference only in Transient Mark mode.) Also runs the hook `deactivate-mark-hook'." (setq mark-active nil) (run-hooks 'deactivate-mark-hook)) @@ -1283,9 +1282,13 @@ store it in a Lisp variable. Example: (let ((beg (point))) (forward-line 1) (delete-region beg (point)))." - (setq mark-active t) - (run-hooks 'activate-mark-hook) - (set-marker (mark-marker) pos (current-buffer))) + (if pos + (progn + (setq mark-active t) + (run-hooks 'activate-mark-hook) + (set-marker (mark-marker) pos (current-buffer))) + (deactivate-mark) + (set-marker (mark-marker) pos (current-buffer)))) (defvar mark-ring nil "The list of saved former marks of the current buffer, |