From: Kim F. Storm <storm@cua.dk>
Date: Tue, 9 Jul 2002 09:08:18 +0000 (+0000)
Subject: (ido-make-merged-file-list): Fix last change.
X-Git-Tag: ttn-vms-21-2-B4~14223
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4e85a733532dfb6743601ddb63ae7e9ef3cad418;p=emacs.git

(ido-make-merged-file-list): Fix last change.
---

diff --git a/lisp/ido.el b/lisp/ido.el
index 049ef96cb08..d4c5d4fbeec 100644
--- a/lisp/ido.el
+++ b/lisp/ido.el
@@ -2514,7 +2514,7 @@ for first matching file."
     (when (and (or ido-rotate-temp ido-rotate-file-list-default)
 	       (> (length text) 0))
       (let ((elt (assoc text res)))
-	(unless (eq elt (car res))
+	(when (and elt (not (eq elt (car res))))
 	  (setq res (delq elt res))
 	  (setq res (cons elt res)))))
     (message nil)