From: John Paul Wallington <jpw@pobox.com>
Date: Sun, 19 Feb 2006 23:28:42 +0000 (+0000)
Subject: (ffap-read-file-or-url): Bind `completion-ignore-case' to value of
X-Git-Tag: emacs-pretest-22.0.90~4028
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=07556e354be174160849f5b575ce530c27f09cad;p=emacs.git

(ffap-read-file-or-url): Bind `completion-ignore-case' to value of
`read-file-name-completion-ignore-case'.  From Ryan Yeske.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2f23a9cb1db..8d238e82dec 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2006-02-19  Ryan Yeske  <rcyeske@gmail.com>
+
+	* ffap.el (ffap-read-file-or-url): Bind `completion-ignore-case'
+	to value of `read-file-name-completion-ignore-case'.
+
 2006-02-19  Chong Yidong  <cyd@stupidchicken.com>
 
 	* custom.el (customize-mark-as-set): Push to `user' theme.
diff --git a/lisp/ffap.el b/lisp/ffap.el
index 8e30b44739f..5ff63bfdec2 100644
--- a/lisp/ffap.el
+++ b/lisp/ffap.el
@@ -1255,7 +1255,8 @@ which may actually result in an url rather than a filename."
 		    (abbreviate-file-name (expand-file-name guess))
 		    ))
 	  (setq dir (file-name-directory guess))))
-    (let ((minibuffer-completing-file-name t))
+    (let ((minibuffer-completing-file-name t)
+	  (completion-ignore-case read-file-name-completion-ignore-case))
       (setq guess
 	    (completing-read
 	     prompt