Mercurial > emacs
comparison lisp/ido.el @ 46292:712d0161e499
(ido-make-merged-file-list): Fix last change again.
author | Kim F. Storm <storm@cua.dk> |
---|---|
date | Wed, 10 Jul 2002 11:08:01 +0000 |
parents | dc1e715d2b03 |
children | a86a0859521a |
comparison
equal
deleted
inserted
replaced
46291:53aad01021a4 | 46292:712d0161e499 |
---|---|
2509 (setq dirs nil | 2509 (setq dirs nil |
2510 res t)))))) | 2510 res t)))))) |
2511 (if (and res (not (eq res t))) | 2511 (if (and res (not (eq res t))) |
2512 (setq res (ido-sort-merged-list res auto))) | 2512 (setq res (ido-sort-merged-list res auto))) |
2513 (when (and (or ido-rotate-temp ido-rotate-file-list-default) | 2513 (when (and (or ido-rotate-temp ido-rotate-file-list-default) |
2514 (listp res) | |
2514 (> (length text) 0)) | 2515 (> (length text) 0)) |
2515 (let ((elt (assoc text res))) | 2516 (let ((elt (assoc text res))) |
2516 (when (and elt (not (eq elt (car res)))) | 2517 (when (and elt (not (eq elt (car res)))) |
2517 (setq res (delq elt res)) | 2518 (setq res (delq elt res)) |
2518 (setq res (cons elt res))))) | 2519 (setq res (cons elt res))))) |