diff options
author | Kim F. Storm <[email protected]> | 2002-07-08 22:22:12 +0000 |
---|---|---|
committer | Kim F. Storm <[email protected]> | 2002-07-08 22:22:12 +0000 |
commit | 9a08196a0b57e83d6faf02bbaee6cf717ef4bc0e (patch) | |
tree | 18a662933439d15d95f1a82fc30813ea05417af5 | |
parent | 9066a4d07034c3afacbfd251b95f1eedc02e28c2 (diff) |
(ido-make-merged-file-list): Move fully matching item to head of list.
-rw-r--r-- | lisp/ChangeLog | 6 | ||||
-rw-r--r-- | lisp/ido.el | 6 |
2 files changed, 12 insertions, 0 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 347fa503d0..28c6463e42 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2002-07-09 Kim F. Storm <[email protected]> + + * 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 <[email protected]> * info.el (Info-directory-list): Fix docstring. diff --git a/lisp/ido.el b/lisp/ido.el index 97aa0d24a0..049ef96cb0 100644 --- a/lisp/ido.el +++ b/lisp/ido.el @@ -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)) |