Mercurial > hg > xemacs-beta

comparison lisp/prim/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 cca96a509cfe
children 43dd3413c7c7
comparison
equal deleted inserted replaced
152:4c132ee2d62b 153:25f70ba0133c
45 Otherwise, the cursor will be moved to the location of the pointer click before 45 Otherwise, the cursor will be moved to the location of the pointer click before
46 text is inserted." 46 text is inserted."
47 :type 'boolean 47 :type 'boolean
48 :group 'mouse) 48 :group 'mouse)
49 49
50 (defvar mouse-yank-function 'yank ; x11/x-mouse changes this... 50 (defvar mouse-yank-function 'mouse-consolidated-yank
51 "Function that is called upon by `mouse-yank' to actually insert text.") 51 "Function that is called upon by `mouse-yank' to actually insert text.")
52
53 (defun mouse-consolidated-yank ()
54 (interactive)
55 (case (device-type)
56 (x (x-yank-function))
57 (tty (yank))
58 (otherwise (yank))))
52 59
53 60
54 (defun mouse-select () 61 (defun mouse-select ()
55 "Select Emacs window the mouse is on." 62 "Select Emacs window the mouse is on."
56 (interactive "@")) 63 (interactive "@"))