* ffap.el (ffap-read-file-or-url): Let-bind

`file-name-handler-alist' due to `rfn-eshadow-update-overlay'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 114b81c905f43ca51e17356342c1c8f1a874772a..c47edb27a1eb67a77305a77976b8bf8e7fcc040f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2008-01-06  Michael Albinus  <michael.albinus@gmx.de>
+
+       * ffap.el (ffap-read-file-or-url): Let-bind
+       `file-name-handler-alist' due to `rfn-eshadow-update-overlay'.
+
 2008-01-05  Sven Joachim  <svenjoac@gmx.de>
 
        * vc-bzr.el: Fix typo in header.

diff --git a/lisp/ffap.el b/lisp/ffap.el
index e9ef3e10237d2601936bfbf781d4051bf89b8591..f54071f55c77b2c732d1d6a6ed788e20a1b76237 100644 (file)
--- a/lisp/ffap.el
+++ b/lisp/ffap.el
@@ -1259,7 +1259,11 @@ which may actually result in an url rather than a filename."
                    ))
          (setq dir (file-name-directory guess))))
     (let ((minibuffer-completing-file-name t)
-         (completion-ignore-case read-file-name-completion-ignore-case))
+         (completion-ignore-case read-file-name-completion-ignore-case)
+         ;; because of `rfn-eshadow-update-overlay'.
+         (file-name-handler-alist
+          (cons (cons ffap-url-regexp 'url-file-handler)
+                file-name-handler-alist)))
       (setq guess
            (completing-read
             prompt