From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 15 Nov 1994 16:57:24 +0000 (+0000)
Subject: (mouse-save-then-kill): Call mouse-show-mark
X-Git-Tag: emacs-19.34~5919
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cefaf3b60c551e7a262c7fec7dfd5145a51b6f67;p=emacs.git

(mouse-save-then-kill): Call mouse-show-mark
when we adjust an existing region.
---

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))))))