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 |