(mouse-save-then-kill): When making a new region

and not adjusting an old one, always make new kill-ring entry
and don't call mouse-show-mark.

diff --git a/lisp/mouse.el b/lisp/mouse.el
index a889706f3f71933bf64bc668ed7853523d5d8075..562d139a64c63247dc41c0469459f5c290f32d34 100644 (file)
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -677,7 +677,7 @@ If you do this twice in the same position, the selection is killed."
                (mouse-show-mark))
            ;; If we click this button again without moving it,
            ;; that time kill.
-           (mouse-save-then-kill-delete-region (point) (mark))
+           (mouse-save-then-kill-delete-region (mark) (point))
            (setq mouse-selection-click-count 0)
            (setq mouse-save-then-kill-posn nil))
        (if (and (eq last-command 'mouse-save-then-kill)
@@ -709,14 +709,14 @@ If you do this twice in the same position, the selection is killed."
                          (goto-char new)
                        (set-mark new))
                      (setq deactivate-mark nil)))
-               (kill-new (buffer-substring (point) (mark t)) t))
+               (kill-new (buffer-substring (point) (mark t)) t)
+               (mouse-show-mark))
            ;; Set the mark where point is, then move where clicked.
            (mouse-set-mark-fast click)
            (if before-scroll
                (goto-char before-scroll))
            (exchange-point-and-mark)
-           (kill-ring-save (point) (mark t)))
-         (mouse-show-mark)
+           (kill-new (buffer-substring (point) (mark t)) t))
          (mouse-set-region-1)
          (setq mouse-save-then-kill-posn
                (list (car kill-ring) (point) click-posn)))))))