mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-27 10:54:40 +00:00
Code Issues Releases Activity

(ido-make-file-list, ido-make-dir-list): Don't move

Browse Source 
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.
This commit is contained in:
Kim F. Storm 2003-01-21 22:13:23 +00:00
parent ffa498693b
commit 4d80e3ae6d
1 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/ido.el
View File

@ -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))