Mercurial > hg > xemacs-beta

comparison lisp/x-mouse.el @ 294:4b85ae5eabfb r21-0b45

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b45
author cvs
date Mon, 13 Aug 2007 10:38:01 +0200
parents 558f606b08ae
children 8626e4521993
comparison
equal deleted inserted replaced
293:403535bfea94 294:4b85ae5eabfb
103 ;; to insert the selection and set point first, or the selection may 103 ;; to insert the selection and set point first, or the selection may
104 ;; get inserted at the wrong place.) 104 ;; get inserted at the wrong place.)
105 (and (x-selection-owner-p) 105 (and (x-selection-owner-p)
106 primary-selection-extent 106 primary-selection-extent
107 (x-insert-selection t event)) 107 (x-insert-selection t event))
108 (x-kill-primary-selection)) 108 (kill-primary-selection))
109 109
110 (defun mouse-track-and-copy-to-cutbuffer (event) 110 (defun mouse-track-and-copy-to-cutbuffer (event)
111 "Make a selection like `mouse-track', but also copy it to the cutbuffer." 111 "Make a selection like `mouse-track', but also copy it to the cutbuffer."
112 (interactive "e") 112 (interactive "e")
113 (mouse-track event) 113 (mouse-track event)