(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 2f23a9cb1db3f8a98d3b38c3db1cd80378399aa5..8d238e82decbaa7932cdd9660050c038d32199e8 100644 (file)
--- 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 8e30b44739f34798bbf2a55eeb17aa59968d2729..5ff63bfdec2aff819213f62ec4b138d8b0b73c6d 100644 (file)
--- 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