Mercurial > hg > xemacs-beta

diff 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
line wrap: on
line diff
--- a/lisp/prim/mouse.el	Mon Aug 13 09:37:21 2007 +0200
+++ b/lisp/prim/mouse.el	Mon Aug 13 09:38:25 2007 +0200
@@ -47,9 +47,16 @@
   :type 'boolean
   :group 'mouse)
 
-(defvar mouse-yank-function 'yank	; x11/x-mouse changes this...
+(defvar mouse-yank-function 'mouse-consolidated-yank
   "Function that is called upon by `mouse-yank' to actually insert text.")
 
+(defun mouse-consolidated-yank ()
+  (interactive)
+  (case (device-type)
+    (x (x-yank-function))
+    (tty (yank))
+    (otherwise (yank))))
+
 
 (defun mouse-select ()
   "Select Emacs window the mouse is on."