Mercurial > hg > xemacs-beta

diff lisp/vm/vm-minibuf.el @ 126:1370575f1259 xemacs-20-1p1

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