Mercurial > hg > xemacs-beta

comparison lisp/minibuf.el @ 290:c9fe270a4101 r21-0b43

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b43
author cvs
date Mon, 13 Aug 2007 10:36:47 +0200
parents e11d67e05968
children 4b85ae5eabfb
comparison
equal deleted inserted replaced
289:6e6992ccc4b6 290:c9fe270a4101
1604 ;; this calls read-file-name-2 1604 ;; this calls read-file-name-2
1605 (mouse-read-file-name-1 history prompt dir default must-match 1605 (mouse-read-file-name-1 history prompt dir default must-match
1606 initial-contents completer) 1606 initial-contents completer)
1607 (let ((rfhookfun 1607 (let ((rfhookfun
1608 (lambda () 1608 (lambda ()
1609 ;; #### SCREAM! Create a `file-system-ignore-case'
1610 ;; function, so this kind of stuff is generalized!
1611 (and (eq system-type 'windows-nt)
1612 (set (make-local-variable 'completion-ignore-case) t))
1609 (set 1613 (set
1610 (make-local-variable 1614 (make-local-variable
1611 'completion-display-completion-list-function) 1615 'completion-display-completion-list-function)
1612 #'(lambda (completions) 1616 #'(lambda (completions)
1613 (display-completion-list 1617 (display-completion-list