diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2008-01-06 14:06:37 +0000 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2008-01-06 14:06:37 +0000 |
| commit | d8df12809954020ba74155328b44cfbe5c4cbb16 (patch) | |
| tree | a5ce6238c7f6eff1ff0ab31625b7b85794dd59a0 /lisp/ffap.el | |
| parent | 5071a884655c4cdd3698fb54c32c7cd551a977a8 (diff) | |
| download | emacs-d8df12809954020ba74155328b44cfbe5c4cbb16.tar.gz | |
* ffap.el (ffap-read-file-or-url): Let-bind
`file-name-handler-alist' due to `rfn-eshadow-update-overlay'.
Diffstat (limited to 'lisp/ffap.el')
| -rw-r--r-- | lisp/ffap.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/ffap.el b/lisp/ffap.el index e9ef3e10237..f54071f55c7 100644 --- 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 |