Mercurial > hg > xemacs-beta

diff 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
line wrap: on
line diff
--- a/lisp/minibuf.el	Mon Aug 13 10:35:55 2007 +0200
+++ b/lisp/minibuf.el	Mon Aug 13 10:36:47 2007 +0200
@@ -1606,6 +1606,10 @@
 			      initial-contents completer)
     (let ((rfhookfun
 	   (lambda ()
+	     ;; #### SCREAM!  Create a `file-system-ignore-case'
+	     ;; function, so this kind of stuff is generalized!
+	     (and (eq system-type 'windows-nt)
+		  (set (make-local-variable 'completion-ignore-case) t))
 	     (set
 	      (make-local-variable
 	       'completion-display-completion-list-function)