(ido-make-merged-file-list): Move fully matching item to head of list.

This commit is contained in:
Kim F. Storm 2002-07-08 22:22:12 +00:00
parent 9066a4d070
commit 9a08196a0b
2 changed files with 12 additions and 0 deletions

View file

@ -1,3 +1,9 @@
2002-07-09 Kim F. Storm <storm@cua.dk>
* ido.el (ido-make-merged-file-list): Move fully matching item to
head of list.
(ido-find-common-substring): Return substring instead of t.
2002-07-08 Juanma Barranquero <lektu@terra.es>
* info.el (Info-directory-list): Fix docstring.

View file

@ -2511,6 +2511,12 @@ for first matching file."
res t))))))
(if (and res (not (eq res t)))
(setq res (ido-sort-merged-list res auto)))
(when (and (or ido-rotate-temp ido-rotate-file-list-default)
(> (length text) 0))
(let ((elt (assoc text res)))
(unless (eq elt (car res))
(setq res (delq elt res))
(setq res (cons elt res)))))
(message nil)
res))