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)))))