(mouse-drag-region): Bind deactivate-mark

around call to copy-region-as-kill.
(mouse-set-region): Likewise.
(mouse-secondary-save-then-kill): Likewise.

1 files changed, 7 insertions, 4 deletions

diff --git a/lisp/mouse.el b/lisp/mouse.el
index 2241578cffc..e1b7e51e6a1 100644
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -431,7 +431,7 @@ 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.
     ;; Ignore last-command so we don't append to a preceding kill.
-    (let (this-command last-command)
+    (let (this-command last-command deactivate-mark)
       (copy-region-as-kill (mark) (point)))
     (mouse-set-region-1)))
 
@@ -608,7 +608,9 @@ remains active.  Otherwise, it remains until the next input event."
 		       last-command this-command)
 		  (push-mark region-commencement t t)
 		  (goto-char region-termination)
-		  (copy-region-as-kill (point) (mark t))
+		  ;; Don't let copy-region-as-kill set deactivate-mark.
+		  (let (deactivate-mark)
+		    (copy-region-as-kill (point) (mark t)))
 		  (let ((buffer (current-buffer)))
 		    (mouse-show-mark)
 		    ;; mouse-show-mark can call read-event,
@@ -1279,8 +1281,9 @@ again.  If you do this twice in the same position, it kills the selection."
 		    (kill-new (buffer-substring
 			       (overlay-start mouse-secondary-overlay)
 			       (overlay-end mouse-secondary-overlay)) t)
-		  (copy-region-as-kill (overlay-start mouse-secondary-overlay)
-				       (overlay-end mouse-secondary-overlay))))
+		  (let (deactivate-mark)
+		    (copy-region-as-kill (overlay-start mouse-secondary-overlay)
+					 (overlay-end mouse-secondary-overlay)))))
 	    (if mouse-secondary-start
 		;; All we have is one end of a selection,
 		;; so put the other end here.