Mercurial > hg > xemacs-beta

diff lisp/vm/vm-minibuf.el @ 155:43dd3413c7c7 r20-3b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b4
author cvs
date Mon, 13 Aug 2007 09:39:39 +0200
parents 1370575f1259
children
line wrap: on
line diff
--- a/lisp/vm/vm-minibuf.el	Mon Aug 13 09:38:27 2007 +0200
+++ b/lisp/vm/vm-minibuf.el	Mon Aug 13 09:39:39 2007 +0200
@@ -272,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)
@@ -380,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)