Parent Directory | Revision Log | Patch
revision 1.6 by kfstorm, Mon Jul 8 22:20:31 2002 UTC | revision 1.7 by kfstorm, Tue Jul 9 09:08:18 2002 UTC | |
---|---|---|
# | Line 2514 for first matching file." | Line 2514 for first matching file." |
2514 | (when (and (or ido-rotate-temp ido-rotate-file-list-default) | (when (and (or ido-rotate-temp ido-rotate-file-list-default) |
2515 | (> (length text) 0)) | (> (length text) 0)) |
2516 | (let ((elt (assoc text res))) | (let ((elt (assoc text res))) |
2517 | (unless (eq elt (car res)) | (when (and elt (not (eq elt (car res)))) |
2518 | (setq res (delq elt res)) | (setq res (delq elt res)) |
2519 | (setq res (cons elt res))))) | (setq res (cons elt res))))) |
2520 | (message nil) | (message nil) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |