(mouse-buffer-menu): Don't clear selection when we kill it.

fb28fd5b · Richard M. Stallman · bfda6e4f · fb28fd5b
Commit fb28fd5b authored Feb 18, 1995 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 2 deletions

lisp/mouse.el lisp/mouse.el +2 -2

No files found.
--- 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)))))))