summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorRichard M. Stallman <rms@gnu.org>1995-02-26 04:17:42 +0000
committerRichard M. Stallman <rms@gnu.org>1995-02-26 04:17:42 +0000
commit9dfab550e65080dfbea91da014ff7a78ceea22df (patch)
tree8d6bd9db9231a1da90c8c87074872abac8af9cba /lisp
parent63c1d3f28cba461d98a0e584840e557426022c5a (diff)
downloademacs-9dfab550e65080dfbea91da014ff7a78ceea22df.tar.gz
emacs-9dfab550e65080dfbea91da014ff7a78ceea22df.tar.bz2
emacs-9dfab550e65080dfbea91da014ff7a78ceea22df.zip
(mouse-kill-secondary): Avoid changing this-command.
Don't clear the secondary selection.
Diffstat (limited to 'lisp')
-rw-r--r--lisp/mouse.el11
1 files changed, 6 insertions, 5 deletions
diff --git a/lisp/mouse.el b/lisp/mouse.el
index 9e4c4827aaf..917cdca28a3 100644
--- 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)