Mercurial > hg > xemacs-beta

comparison lisp/x-mouse.el @ 444:576fb035e263 r21-2-37

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-37
author cvs
date Mon, 13 Aug 2007 11:36:19 +0200
parents abe6d1db359e
children 1ccc32a20af4
comparison
equal deleted inserted replaced
443:a8296e22da4e 444:576fb035e263
38 38
39 (define-obsolete-function-alias 'x-insert-selection 'insert-selection) 39 (define-obsolete-function-alias 'x-insert-selection 'insert-selection)
40 40
41 (defun x-mouse-kill (event) 41 (defun x-mouse-kill (event)
42 "Kill the text between the point and mouse and copy it to the clipboard and 42 "Kill the text between the point and mouse and copy it to the clipboard and
43 to the cut buffer" 43 to the cut buffer."
44 (interactive "@e") 44 (interactive "@e")
45 (let ((old-point (point))) 45 (let ((old-point (point)))
46 (mouse-set-point event) 46 (mouse-set-point event)
47 (let ((s (buffer-substring old-point (point)))) 47 (let ((s (buffer-substring old-point (point))))
48 (own-clipboard s) 48 (own-clipboard s)