Mercurial > hg > xemacs-beta

diff lisp/vm/vm-minibuf.el @ 114:8619ce7e4c50 r20-1b9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b9
author cvs
date Mon, 13 Aug 2007 09:21:54 +0200
parents a145efe76779
children 1370575f1259
line wrap: on
line diff
--- a/lisp/vm/vm-minibuf.el	Mon Aug 13 09:20:50 2007 +0200
+++ b/lisp/vm/vm-minibuf.el	Mon Aug 13 09:21:54 2007 +0200
@@ -181,8 +181,10 @@
 	     (while keymaps
 	       (setq keymap (car keymaps))
 	       (cond ((vm-mouse-xemacs-mouse-p)
-		      (define-key keymap 'button1 command)
-		      (define-key keymap 'button2 command))
+		      (define-key keymap 'button1 'ignore)
+		      (define-key keymap 'button2 'ignore)
+		      (define-key keymap 'button1up command)
+		      (define-key keymap 'button2up command))
 		     ((vm-mouse-fsfemacs-mouse-p)
 		      (define-key keymap [down-mouse-1] 'ignore)
 		      (define-key keymap [drag-mouse-1] 'ignore)