# HG changeset patch
# User Michael Albinus <michael.albinus@gmx.de>
# Date 1199628397 0
# Node ID 6c63d304805fa3309716ce9ee5545cfbb4506a58
# Parent  5642255af1c9e7b8c47e502a708c282062177ad9
* ffap.el (ffap-read-file-or-url): Let-bind
`file-name-handler-alist' due to `rfn-eshadow-update-overlay'.

diff -r 5642255af1c9 -r 6c63d304805f lisp/ChangeLog
--- a/lisp/ChangeLog	Sat Jan 05 23:41:08 2008 +0000
+++ b/lisp/ChangeLog	Sun Jan 06 14:06:37 2008 +0000
@@ -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 -r 5642255af1c9 -r 6c63d304805f lisp/ffap.el
--- a/lisp/ffap.el	Sat Jan 05 23:41:08 2008 +0000
+++ b/lisp/ffap.el	Sun Jan 06 14:06:37 2008 +0000
@@ -1259,7 +1259,11 @@
 		    ))
 	  (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