From 4d80e3ae6d9a732d47cbe6d6dba9ddcaa2becf11 Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Tue, 21 Jan 2003 22:13:23 +0000 Subject: [PATCH] (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. --- lisp/ido.el | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) diff --git a/lisp/ido.el b/lisp/ido.el index 169c2605af0..c4444e31c3c 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)) -- 2.39.2