Mercurial > emacs
comparison lisp/ido.el @ 46270:c64c46b334d7
(ido-make-merged-file-list): Fix last change.
| author | Kim F. Storm <storm@cua.dk> |
|---|---|
| date | Tue, 09 Jul 2002 09:08:18 +0000 |
| parents | 66e7966b0b91 |
| children | dc1e715d2b03 |
comparison
equal
deleted
inserted
replaced
| 46269:cc56a3fad98f | 46270:c64c46b334d7 |
|---|---|
| 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) | 2514 (when (and (or ido-rotate-temp ido-rotate-file-list-default) |
| 2515 (> (length text) 0)) | 2515 (> (length text) 0)) |
| 2516 (let ((elt (assoc text res))) | 2516 (let ((elt (assoc text res))) |
| 2517 (unless (eq elt (car res)) | 2517 (when (and elt (not (eq elt (car res)))) |
| 2518 (setq res (delq elt res)) | 2518 (setq res (delq elt res)) |
| 2519 (setq res (cons elt res))))) | 2519 (setq res (cons elt res))))) |
| 2520 (message nil) | 2520 (message nil) |
| 2521 res)) | 2521 res)) |
| 2522 | 2522 |