(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 96aa3db85bda890d3dc16b4d23284e7a616b76d3..6ee1cfb0fbce5ff27167d21c525e80f1acc77938 100644 (file)
--- 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))))))
 \f