From cefaf3b60c551e7a262c7fec7dfd5145a51b6f67 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 15 Nov 1994 16:57:24 +0000 Subject: [PATCH] (mouse-save-then-kill): Call mouse-show-mark when we adjust an existing region. --- lisp/mouse.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/mouse.el b/lisp/mouse.el index 96aa3db85bd..6ee1cfb0fbc 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el @@ -675,8 +675,8 @@ If you do this twice in the same position, the selection is killed." (kill-new (buffer-substring (point) (mark t)) t)) ;; We just have point, so set mark here. (mouse-set-mark-fast click) - (kill-ring-save (point) (mark t)) - (mouse-show-mark)) + (kill-ring-save (point) (mark t))) + (mouse-show-mark) (setq mouse-save-then-kill-posn (list (car kill-ring) (point) click-posn)))))) -- 2.39.5