Mercurial > hg > xemacs-beta

diff lisp/vm/vm-minibuf.el @ 36:c53a95d3c46d r19-15b101

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b101
author cvs
date Mon, 13 Aug 2007 08:53:38 +0200
parents 441bb1e64a06
children 05472e90ae02
line wrap: on
line diff
--- a/lisp/vm/vm-minibuf.el	Mon Aug 13 08:53:21 2007 +0200
+++ b/lisp/vm/vm-minibuf.el	Mon Aug 13 08:53:38 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)