diff options
| author | Richard M. Stallman | 1995-02-18 23:56:09 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1995-02-18 23:56:09 +0000 |
| commit | fb28fd5b76443212e7fd0826ed83a7ff1d645853 (patch) | |
| tree | 89bd4888d40631fd13e96de64f3d0a9efbb5addc | |
| parent | bfda6e4f1c190e38625711089bd7f2a9946cc7d6 (diff) | |
| download | emacs-fb28fd5b76443212e7fd0826ed83a7ff1d645853.tar.gz emacs-fb28fd5b76443212e7fd0826ed83a7ff1d645853.zip | |
(mouse-buffer-menu): Don't clear selection when we kill it.
| -rw-r--r-- | lisp/mouse.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/mouse.el b/lisp/mouse.el index 04cdeafea70..8db2cafbfa6 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el | |||
| @@ -1005,8 +1005,8 @@ again. If you do this twice in the same position, it kills the selection." | |||
| 1005 | (overlay-put mouse-secondary-overlay 'face 'secondary-selection)))) | 1005 | (overlay-put mouse-secondary-overlay 'face 'secondary-selection)))) |
| 1006 | (setq mouse-save-then-kill-posn | 1006 | (setq mouse-save-then-kill-posn |
| 1007 | (list (car kill-ring) (point) click-posn)))) | 1007 | (list (car kill-ring) (point) click-posn)))) |
| 1008 | (x-set-selection 'SECONDARY | 1008 | (if (overlay-buffer mouse-secondary-overlay) |
| 1009 | (if (overlay-buffer mouse-secondary-overlay) | 1009 | (x-set-selection 'SECONDARY |
| 1010 | (buffer-substring | 1010 | (buffer-substring |
| 1011 | (overlay-start mouse-secondary-overlay) | 1011 | (overlay-start mouse-secondary-overlay) |
| 1012 | (overlay-end mouse-secondary-overlay))))))) | 1012 | (overlay-end mouse-secondary-overlay))))))) |