Mercurial > emacs
comparison lisp/ffap.el @ 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 | 9355f9b7bbff |
| children | 73661ddc7ac7 |
comparison
equal
deleted
inserted
replaced
| 79696:5642255af1c9 | 79697:6c63d304805f |
|---|---|
| 1257 (setq guess | 1257 (setq guess |
| 1258 (abbreviate-file-name (expand-file-name guess)) | 1258 (abbreviate-file-name (expand-file-name guess)) |
| 1259 )) | 1259 )) |
| 1260 (setq dir (file-name-directory guess)))) | 1260 (setq dir (file-name-directory guess)))) |
| 1261 (let ((minibuffer-completing-file-name t) | 1261 (let ((minibuffer-completing-file-name t) |
| 1262 (completion-ignore-case read-file-name-completion-ignore-case)) | 1262 (completion-ignore-case read-file-name-completion-ignore-case) |
| 1263 ;; because of `rfn-eshadow-update-overlay'. | |
| 1264 (file-name-handler-alist | |
| 1265 (cons (cons ffap-url-regexp 'url-file-handler) | |
| 1266 file-name-handler-alist))) | |
| 1263 (setq guess | 1267 (setq guess |
| 1264 (completing-read | 1268 (completing-read |
| 1265 prompt | 1269 prompt |
| 1266 'ffap-read-file-or-url-internal | 1270 'ffap-read-file-or-url-internal |
| 1267 dir | 1271 dir |