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 |