Mercurial > emacs

comparison lisp/mouse.el @ 10782:806b3e3fd93c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mouse-buffer-menu): Don't clear selection when we kill it.
author Richard M. Stallman <rms@gnu.org>
date Sat, 18 Feb 1995 23:56:09 +0000
parents 4526bdcc806e
children 7d1a9faaf158
comparison
equal deleted inserted replaced
10781:e47bb69af803 10782:806b3e3fd93c
1003 (move-overlay mouse-secondary-overlay start click-posn) 1003 (move-overlay mouse-secondary-overlay start click-posn)
1004 (setq mouse-secondary-overlay (make-overlay start click-posn))) 1004 (setq mouse-secondary-overlay (make-overlay start click-posn)))
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)))))))
1013 1013
1014 (defun mouse-buffer-menu (event) 1014 (defun mouse-buffer-menu (event)