From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 12 Feb 1995 04:51:42 +0000 (+0000)
Subject: (mouse-drag-region): Delete the overlay before
X-Git-Tag: emacs-19.34~5138
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e6c2f5d4b9ccae65782af0042fef3b14f6bbac8b;p=emacs.git

(mouse-drag-region): Delete the overlay before
calling the terminating event's command binding or making a region.
(mouse-set-region-1): New function.
(mouse-drag-region, mouse-set-region, mouse-save-then-kill): Call it.
(mouse-region-match): New function.
---

diff --git a/lisp/mouse.el b/lisp/mouse.el
index 276d67da286..04cdeafea70 100644
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -292,6 +292,17 @@ This should be bound to a mouse click event type."
     (if (numberp (posn-point posn))
 	(goto-char (posn-point posn)))))
 
+(defvar mouse-last-region-beg nil)
+(defvar mouse-last-region-end nil)
+(defvar mouse-last-region-tick nil)
+
+(defun mouse-region-match ()
+  "Return non-nil if there's an active region that was set with the mouse."
+  (and (mark t) mark-active
+       (eq mouse-last-region-beg (region-beginning))
+       (eq mouse-last-region-end (region-end))
+       (eq mouse-last-region-tick (buffer-modified-tick))))
+
 (defun mouse-set-region (click)
   "Set the region to the text dragged over, and copy to kill ring.
 This should be bound to a mouse drag event."
@@ -313,7 +324,13 @@ This should be bound to a mouse drag event."
     ;; Don't set this-command to kill-region, so that a following
     ;; C-w will not double the text in the kill ring.
     (let (this-command)
-      (copy-region-as-kill (mark) (point)))))
+      (copy-region-as-kill (mark) (point)))
+    (mouse-set-region-1)))
+
+(defun mouse-set-region-1 ()
+  (setq mouse-last-region-beg (region-beginning))
+  (setq mouse-last-region-end (region-end))
+  (setq mouse-last-region-tick (buffer-modified-tick)))
 
 (defvar mouse-scroll-delay 0.25
   "*The pause between scroll steps caused by mouse drags, in seconds.
@@ -420,16 +437,22 @@ release the mouse button.  Otherwise, it does not."
 	    (if (and (= (mod mouse-selection-click-count 3) 0) (fboundp fun))
 		(progn
 		  (setq this-command fun)
+		  ;; Delete the overlay before calling the function,
+		  ;; because delete-overlay increases buffer-modified-tick.
+		  (delete-overlay mouse-drag-overlay)
 		  (funcall fun event))
 	      (if (not (= (overlay-start mouse-drag-overlay)
 			  (overlay-end mouse-drag-overlay)))
 		  (let (last-command this-command)
 		    (push-mark (overlay-start mouse-drag-overlay) t t)
 		    (goto-char (overlay-end mouse-drag-overlay))
-		    (copy-region-as-kill (point) (mark t)))
+		    (delete-overlay mouse-drag-overlay)
+		    (copy-region-as-kill (point) (mark t))
+		    (mouse-set-region-1))
 		(goto-char (overlay-end mouse-drag-overlay))
-		(setq this-command 'mouse-set-point)))))
-      (delete-overlay mouse-drag-overlay))))
+		(setq this-command 'mouse-set-point)
+		(delete-overlay mouse-drag-overlay))))
+	(delete-overlay mouse-drag-overlay)))))
 
 ;; Commands to handle xterm-style multiple clicks.
 
@@ -644,6 +667,7 @@ If you do this twice in the same position, the selection is killed."
 		;; Replace it with the extended region.
 		;; (It would be annoying to make a separate entry.)
 		(kill-new (buffer-substring (point) (mark t)) t)
+		(mouse-set-region-1)
 		;; Arrange for a repeated mouse-3 to kill this region.
 		(setq mouse-save-then-kill-posn
 		      (list (car kill-ring) (point) click-posn))
@@ -690,6 +714,7 @@ If you do this twice in the same position, the selection is killed."
 	    (exchange-point-and-mark)
 	    (kill-ring-save (point) (mark t)))
 	  (mouse-show-mark)
+	  (mouse-set-region-1)
 	  (setq mouse-save-then-kill-posn
 		(list (car kill-ring) (point) click-posn)))))))