Mercurial > emacs

changeset 10838:6c0dc7a8a07a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mouse-kill-secondary): Avoid changing this-command. Don't clear the secondary selection.
author Richard M. Stallman <rms@gnu.org>
date Sun, 26 Feb 1995 04:17:42 +0000
parents 0e8db919d6bd
children 2e3eae2280eb
files lisp/mouse.el
diffstat 1 files changed, 6 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mouse.el	Sun Feb 26 03:43:05 1995 +0000
+++ b/lisp/mouse.el	Sun Feb 26 04:17:42 1995 +0000
@@ -886,12 +886,13 @@
 		(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)