Mercurial > emacs
changeset 79697:6c63d304805f
* ffap.el (ffap-read-file-or-url): Let-bind
`file-name-handler-alist' due to `rfn-eshadow-update-overlay'.
| author | Michael Albinus <michael.albinus@gmx.de> |
|---|---|
| date | Sun, 06 Jan 2008 14:06:37 +0000 |
| parents | 5642255af1c9 |
| children | 30e5526246cd |
| files | lisp/ChangeLog lisp/ffap.el |
| diffstat | 2 files changed, 10 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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.
--- 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