Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
154:94141801dd7e 155:43dd3413c7c7
270 270
271 (defun vm-read-string (prompt completion-list &optional multi-word) 271 (defun vm-read-string (prompt completion-list &optional multi-word)
272 ;; handle alist 272 ;; handle alist
273 (if (consp (car completion-list)) 273 (if (consp (car completion-list))
274 (setq completion-list (nreverse (mapcar 'car completion-list)))) 274 (setq completion-list (nreverse (mapcar 'car completion-list))))
275 (if (and completion-list (vm-mouse-support-possible-p)) 275 (if (and completion-list (vm-mouse-support-possible-here-p))
276 (cond ((and (vm-mouse-xemacs-mouse-p) 276 (cond ((and (vm-mouse-xemacs-mouse-p)
277 (or (button-press-event-p last-command-event) 277 (or (button-press-event-p last-command-event)
278 (button-release-event-p last-command-event) 278 (button-release-event-p last-command-event)
279 (menu-event-p last-command-event))) 279 (menu-event-p last-command-event)))
280 (vm-mouse-read-string prompt completion-list multi-word)) 280 (vm-mouse-read-string prompt completion-list multi-word))
378 378
379 (defun vm-read-file-name (prompt &optional dir default 379 (defun vm-read-file-name (prompt &optional dir default
380 must-match initial history) 380 must-match initial history)
381 "Like read-file-name, except a mouse interface is used if a mouse 381 "Like read-file-name, except a mouse interface is used if a mouse
382 click mouse triggered the current command." 382 click mouse triggered the current command."
383 (if (vm-mouse-support-possible-p) 383 (if (vm-mouse-support-possible-here-p)
384 (cond ((and (vm-mouse-xemacs-mouse-p) 384 (cond ((and (vm-mouse-xemacs-mouse-p)
385 (or (button-press-event-p last-command-event) 385 (or (button-press-event-p last-command-event)
386 (button-release-event-p last-command-event) 386 (button-release-event-p last-command-event)
387 (menu-event-p last-command-event))) 387 (menu-event-p last-command-event)))
388 (vm-mouse-read-file-name prompt dir default 388 (vm-mouse-read-file-name prompt dir default