Mercurial > hg > xemacs-beta

comparison lisp/x11/x-mouse.el @ 153:25f70ba0133c r20-3b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b3
author cvs
date Mon, 13 Aug 2007 09:38:25 +0200
parents c7528f8e288d
children
comparison
equal deleted inserted replaced
152:4c132ee2d62b 153:25f70ba0133c
21 21
22 ;;(define-key global-map 'button2 'x-set-point-and-insert-selection) 22 ;;(define-key global-map 'button2 'x-set-point-and-insert-selection)
23 ;; This is reserved for use by Hyperbole. 23 ;; This is reserved for use by Hyperbole.
24 ;;(define-key global-map '(shift button2) 'x-mouse-kill) 24 ;;(define-key global-map '(shift button2) 'x-mouse-kill)
25 (define-key global-map '(control button2) 'x-set-point-and-move-selection) 25 (define-key global-map '(control button2) 'x-set-point-and-move-selection)
26
27 (setq mouse-yank-function 'x-yank-function)
28 26
29 (defun x-mouse-kill (event) 27 (defun x-mouse-kill (event)
30 "Kill the text between the point and mouse and copy it to the clipboard and 28 "Kill the text between the point and mouse and copy it to the clipboard and
31 to the cut buffer" 29 to the cut buffer"
32 (interactive "@e") 30 (interactive "@e")