mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-07 20:54:32 +00:00
Code Issues Releases Activity

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

Browse Source 
`file-name-handler-alist' due to `rfn-eshadow-update-overlay'.
This commit is contained in:
Michael Albinus 2008-01-06 14:06:37 +00:00
parent 5071a88465
commit d8df128099
2 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -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.

6
lisp/ffap.el
View File

@ -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