# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 804464353 0
# Node ID ffd777dc7d29f825be4f603821bcec989824eb22
# Parent  44ef5c322c2424fddc16de58ce5489395a1d24b4
(mouse-selection-click-count-buffer): New variable.
(mouse-drag-region): Set it.
(mouse-save-then-kill): Test it.

diff -r 44ef5c322c24 -r ffd777dc7d29 lisp/mouse.el
--- a/lisp/mouse.el	Thu Jun 29 21:51:12 1995 +0000
+++ b/lisp/mouse.el	Thu Jun 29 22:19:13 1995 +0000
@@ -380,6 +380,8 @@
 
 (defvar mouse-selection-click-count 0)
 
+(defvar mouse-selection-click-count-buffer nil)
+
 (defun mouse-drag-region (start-event)
   "Set the region to the text that the mouse is dragged over.
 Highlight the drag area as you move the mouse.
@@ -400,6 +402,7 @@
 		   (1- (nth 3 bounds))))
 	 (click-count (1- (event-click-count start-event))))
     (setq mouse-selection-click-count click-count)
+    (setq mouse-selection-click-count-buffer (current-buffer))
     (mouse-set-point start-event)
     (let ((range (mouse-start-end start-point start-point click-count)))
       (move-overlay mouse-drag-overlay (car range) (nth 1 range)
@@ -655,7 +658,12 @@
 	  ;; Don't let a subsequent kill command append to this one:
 	  ;; prevent setting this-command to kill-region.
 	  (this-command this-command))
-      (if (and (mark t) (> (mod mouse-selection-click-count 3) 0))
+      (if (and (save-excursion
+		 (set-buffer (window-buffer (posn-window (event-start click))))
+		 (and (mark t) (> (mod mouse-selection-click-count 3) 0)
+		      ;; Don't be fooled by a recent click in some other buffer.
+		      (eq mouse-selection-click-count-buffer 
+			  (current-buffer)))))
 	  (if (not (and (eq last-command 'mouse-save-then-kill)
 			(equal click-posn
 			       (car (cdr-safe (cdr-safe mouse-save-then-kill-posn))))))