Mercurial > emacs
comparison lisp/ido.el @ 46257:66e7966b0b91
(ido-make-merged-file-list): Move fully matching item to head of list.
| author | Kim F. Storm <storm@cua.dk> |
|---|---|
| date | Mon, 08 Jul 2002 22:20:31 +0000 |
| parents | 88bc5ce0674c |
| children | c64c46b334d7 |
comparison
equal
deleted
inserted
replaced
| 46256:88bc5ce0674c | 46257:66e7966b0b91 |
|---|---|
| 2509 (if (and auto (input-pending-p)) | 2509 (if (and auto (input-pending-p)) |
| 2510 (setq dirs nil | 2510 (setq dirs nil |
| 2511 res t)))))) | 2511 res t)))))) |
| 2512 (if (and res (not (eq res t))) | 2512 (if (and res (not (eq res t))) |
| 2513 (setq res (ido-sort-merged-list res auto))) | 2513 (setq res (ido-sort-merged-list res auto))) |
| 2514 (when (and (or ido-rotate-temp ido-rotate-file-list-default) | |
| 2515 (> (length text) 0)) | |
| 2516 (let ((elt (assoc text res))) | |
| 2517 (unless (eq elt (car res)) | |
| 2518 (setq res (delq elt res)) | |
| 2519 (setq res (cons elt res))))) | |
| 2514 (message nil) | 2520 (message nil) |
| 2515 res)) | 2521 res)) |
| 2516 | 2522 |
| 2517 (defun ido-make-buffer-list1 (&optional frame visible) | 2523 (defun ido-make-buffer-list1 (&optional frame visible) |
| 2518 ;; Return list of non-ignored buffer names | 2524 ;; Return list of non-ignored buffer names |