From fcadf1c77d05374e6a8f0dc46cca077086e8a939 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 26 Jul 1993 07:31:11 +0000 Subject: [PATCH] (kill-ring-save): Delete spurious `message' call. (set-mark): If POS is nil, call deactivate-mark. --- lisp/simple.el | 15 +++++++++------ 1 file 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, -- 2.39.5