# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1294936000 -3600
# Node ID cf323f3bfe7f4560920b941d6d8b23a270ebe961
# Parent  4ffba967bb86e5e8453cd6998dc3751bcbbb34d6
* ido.el (ido-may-cache-directory): Move "too-big" check later.
(ido-next-match, ido-prev-match): Fix stray reordering of matching
items when cycling through the matches.

diff -r 4ffba967bb86 -r cf323f3bfe7f lisp/ChangeLog
--- a/lisp/ChangeLog	Thu Jan 13 16:44:41 2011 +0100
+++ b/lisp/ChangeLog	Thu Jan 13 17:26:40 2011 +0100
@@ -1,3 +1,9 @@
+2011-01-13  Kim F. Storm  <storm@cua.dk>
+
+	* ido.el (ido-may-cache-directory): Move "too-big" check later.
+	(ido-next-match, ido-prev-match): Fix stray reordering of matching
+	items when cycling through the matches.
+
 2011-01-13  Tassilo Horn  <tassilo@member.fsf.org>
 
 	* dired-x.el (dired-omit-verbose): New defcustom that allows
diff -r 4ffba967bb86 -r cf323f3bfe7f lisp/ido.el
--- a/lisp/ido.el	Thu Jan 13 16:44:41 2011 +0100
+++ b/lisp/ido.el	Thu Jan 13 17:26:40 2011 +0100
@@ -1289,8 +1289,6 @@
 (defun ido-may-cache-directory (&optional dir)
   (setq dir (or dir ido-current-directory))
   (cond
-   ((ido-directory-too-big-p dir)
-    nil)
    ((and (ido-is-root-directory dir)
 	 (or ido-enable-tramp-completion
 	     (memq system-type '(windows-nt ms-dos))))
@@ -1299,6 +1297,8 @@
     (ido-cache-unc-valid))
    ((ido-is-ftp-directory dir)
     (ido-cache-ftp-valid))
+   ((ido-directory-too-big-p dir)
+    nil)
    (t t)))
 
 (defun ido-pp (list &optional sep)
@@ -3072,8 +3072,8 @@
   (if ido-matches
       (let ((next (cadr ido-matches)))
 	(setq ido-cur-list (ido-chop ido-cur-list next))
-	(setq ido-rescan t)
-	(setq ido-rotate t))))
+	(setq ido-matches (ido-chop ido-matches next))
+	(setq ido-rescan nil))))
 
 (defun ido-prev-match ()
   "Put last element of `ido-matches' at the front of the list."
@@ -3081,8 +3081,8 @@
   (if ido-matches
       (let ((prev (car (last ido-matches))))
 	(setq ido-cur-list (ido-chop ido-cur-list prev))
-	(setq ido-rescan t)
-	(setq ido-rotate t))))
+	(setq ido-matches (ido-chop ido-matches prev))
+	(setq ido-rescan nil))))
 
 (defun ido-next-match-dir ()
   "Find next directory in match list.