Mercurial > emacs
changeset 49368:52f5fa69909e
(ido-make-file-list, ido-make-dir-list): Don't move
visited directories to end of list; it's the wrong thing to do if
we want to find a file or directory in such directories.
| author | Kim F. Storm <storm@cua.dk> |
|---|---|
| date | Tue, 21 Jan 2003 22:13:23 +0000 |
| parents | 79d49caa6c87 |
| children | 5518e109ec3b |
| files | lisp/ido.el |
| diffstat | 1 files changed, 3 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ido.el Tue Jan 21 22:13:05 2003 +0000 +++ b/lisp/ido.el Tue Jan 21 22:13:23 2003 +0000 @@ -2713,7 +2713,9 @@ (let ((default-directory ido-current-directory)) (ido-to-end ;; move ftp hosts and visited files to end (delq nil (mapcar - (lambda (x) (if (or (string-match "..:\\'" x) (get-file-buffer x)) x)) + (lambda (x) (if (or (string-match "..:\\'" x) + (and (not (ido-final-slash x)) + (get-file-buffer x))) x)) ido-temp-list)))) (ido-to-end ;; move . files to end (delq nil (mapcar @@ -2757,11 +2759,6 @@ ;; directory names in this list. (let ((ido-temp-list (ido-make-dir-list1 ido-current-directory))) (setq ido-temp-list (ido-sort-list ido-temp-list)) - (let ((default-directory ido-current-directory)) - (ido-to-end ;; move visited files to end - (delq nil (mapcar - (lambda (x) (if (get-file-buffer x) x)) - ido-temp-list)))) (ido-to-end ;; move . files to end (delq nil (mapcar (lambda (x) (if (string-equal (substring x 0 1) ".") x))