From fb28fd5b76443212e7fd0826ed83a7ff1d645853 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 18 Feb 1995 23:56:09 +0000 Subject: [PATCH] (mouse-buffer-menu): Don't clear selection when we kill it. --- lisp/mouse.el | 4 ++-- 1 file 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." (overlay-put mouse-secondary-overlay 'face 'secondary-selection)))) (setq mouse-save-then-kill-posn (list (car kill-ring) (point) click-posn)))) - (x-set-selection 'SECONDARY - (if (overlay-buffer mouse-secondary-overlay) + (if (overlay-buffer mouse-secondary-overlay) + (x-set-selection 'SECONDARY (buffer-substring (overlay-start mouse-secondary-overlay) (overlay-end mouse-secondary-overlay))))))) -- 2.11.4.GIT