Mercurial > emacs
changeset 55359:fa5273a32653
(ido-read-internal): Fix call to read-file-name for edit.
Must expand directory for completion to work; and don't mess with
process-environment.
| author | Kim F. Storm <storm@cua.dk> |
|---|---|
| date | Tue, 04 May 2004 13:05:19 +0000 |
| parents | 661d7ab25c0e |
| children | 5ffb2bba3549 |
| files | lisp/ido.el |
| diffstat | 1 files changed, 4 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ido.el Tue May 04 13:03:55 2004 +0000 +++ b/lisp/ido.el Tue May 04 13:05:19 2004 +0000 @@ -1667,8 +1667,7 @@ ((memq ido-exit '(edit chdir)) (cond ((memq ido-cur-item '(file dir)) - (let* ((process-environment (cons "HOME=/" process-environment)) ;; cheat read-file-name - (read-file-name-function nil) + (let* ((read-file-name-function nil) (edit (eq ido-exit 'edit)) (d ido-current-directory) (f ido-text-init) @@ -1676,7 +1675,9 @@ (setq ido-text-init "") (while new (setq new (if edit - (read-file-name (concat prompt "[EDIT] ") d (concat d f) nil f) + (read-file-name (concat prompt "[EDIT] ") + (expand-file-name d) + (concat d f) nil f) f) d (or (file-name-directory new) "/") f (file-name-nondirectory new)