Mercurial > emacs
comparison lisp/ido.el @ 71275:aa026ce4fcef
(ido-read-internal): Only pop stack elements automatically if they
actually match an existing directory or file name.
| author | Kim F. Storm <storm@cua.dk> |
|---|---|
| date | Thu, 08 Jun 2006 11:29:27 +0000 |
| parents | f8990e674d00 |
| children | d35d3efc3d99 138027c8c982 |
comparison
equal
deleted
inserted
replaced
| 71274:9c646f1ba2df | 71275:aa026ce4fcef |
|---|---|
| 2092 (setcdr x ido-selected) | 2092 (setcdr x ido-selected) |
| 2093 (setq ido-last-directory-list | 2093 (setq ido-last-directory-list |
| 2094 (cons (cons ido-current-directory ido-selected) ido-last-directory-list))))) | 2094 (cons (cons ido-current-directory ido-selected) ido-last-directory-list))))) |
| 2095 (ido-set-current-directory ido-current-directory ido-selected) | 2095 (ido-set-current-directory ido-current-directory ido-selected) |
| 2096 (if ido-input-stack | 2096 (if ido-input-stack |
| 2097 (while ido-input-stack | 2097 ; automatically pop stack elements which match existing files or directories |
| 2098 (let ((elt (car ido-input-stack))) | 2098 (let (elt) |
| 2099 (while (and (setq elt (car ido-input-stack)) | |
| 2100 (file-exists-p (concat ido-current-directory (cdr elt)))) | |
| 2099 (if (setq ido-input-stack (cdr ido-input-stack)) | 2101 (if (setq ido-input-stack (cdr ido-input-stack)) |
| 2100 (ido-set-current-directory ido-current-directory (cdr elt)) | 2102 (ido-set-current-directory ido-current-directory (cdr elt)) |
| 2101 (setq ido-text-init (cdr elt))) | 2103 (setq ido-text-init (cdr elt))) |
| 2102 (setq ido-cur-item (car elt)))) | 2104 (setq ido-cur-item (car elt)))) |
| 2103 (setq ido-set-default-item t))) | 2105 (setq ido-set-default-item t))) |