diff options
| author | Kim F. Storm <[email protected]> | 2003-01-21 22:13:23 +0000 |
|---|---|---|
| committer | Kim F. Storm <[email protected]> | 2003-01-21 22:13:23 +0000 |
| commit | 4d80e3ae6d9a732d47cbe6d6dba9ddcaa2becf11 (patch) | |
| tree | 20ef3513884a8455455911577589a77a4998d287 /lisp/ido.el | |
| parent | ffa498693bf1c623dc934a6b3ba1a8b7e0dd9394 (diff) | |
(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.
Diffstat (limited to 'lisp/ido.el')
| -rw-r--r-- | lisp/ido.el | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/lisp/ido.el b/lisp/ido.el index 169c2605af..c4444e31c3 100644 --- a/lisp/ido.el +++ b/lisp/ido.el @@ -2713,7 +2713,9 @@ for first matching file." (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 @@ for first matching file." ;; 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)) |