From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 15 May 1995 23:00:16 +0000 (+0000)
Subject: (mouse-save-then-kill): When making a new region
X-Git-Tag: emacs-19.34~4040
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bcde3748c6627f312397907fc87f6666fe695ddb;p=emacs.git

(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 a889706f3f7..562d139a64c 100644
--- 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)))))))