(mouse-kill-secondary): Avoid changing this-command.

Don't clear the secondary selection.

diff --git a/lisp/mouse.el b/lisp/mouse.el
index 9e4c4827aaf9a382729ed019e7081c7a1edce2ec..917cdca28a3d7c4ab8943c6db0b5d3cb9eb31c7a 100644 (file)
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -886,12 +886,13 @@ is to prevent accidents."
                (window-buffer (posn-window (event-start click)))
              (current-buffer)))
        (error "Select or click on the buffer where the secondary selection is")))
-  (save-excursion
-    (set-buffer (overlay-buffer mouse-secondary-overlay))
-    (kill-region (overlay-start mouse-secondary-overlay)
-                (overlay-end mouse-secondary-overlay)))
+  (let (this-command)
+    (save-excursion
+      (set-buffer (overlay-buffer mouse-secondary-overlay))
+      (kill-region (overlay-start mouse-secondary-overlay)
+                  (overlay-end mouse-secondary-overlay))))
   (delete-overlay mouse-secondary-overlay)
-  (x-set-selection 'SECONDARY nil)
+;;;  (x-set-selection 'SECONDARY nil)
   (setq mouse-secondary-overlay nil))
 
 (defun mouse-secondary-save-then-kill (click)