Mercurial > hg > xemacs-beta
diff lisp/vm/vm-minibuf.el @ 54:05472e90ae02 r19-16-pre2
Import from CVS: tag r19-16-pre2
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 08:57:55 +0200 |
| parents | c53a95d3c46d |
| children | 131b0175ea99 |
line wrap: on
line diff
--- a/lisp/vm/vm-minibuf.el Mon Aug 13 08:57:25 2007 +0200 +++ b/lisp/vm/vm-minibuf.el Mon Aug 13 08:57:55 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) @@ -274,7 +272,7 @@ ;; handle alist (if (consp (car completion-list)) (setq completion-list (nreverse (mapcar 'car completion-list)))) - (if (and completion-list (vm-mouse-support-possible-p)) + (if (and completion-list (vm-mouse-support-possible-here-p)) (cond ((and (vm-mouse-xemacs-mouse-p) (or (button-press-event-p last-command-event) (button-release-event-p last-command-event) @@ -382,7 +380,7 @@ must-match initial history) "Like read-file-name, except a mouse interface is used if a mouse click mouse triggered the current command." - (if (vm-mouse-support-possible-p) + (if (vm-mouse-support-possible-here-p) (cond ((and (vm-mouse-xemacs-mouse-p) (or (button-press-event-p last-command-event) (button-release-event-p last-command-event)