From: Kim F. Storm <storm@cua.dk>
Date: Sat, 16 Dec 2006 01:34:10 +0000 (+0000)
Subject: (ido-toggle-ignore, ido-completion-help): Print message while
X-Git-Tag: emacs-pretest-22.0.92~94
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1fd1a9f248f60718bd3f967c12fdb08bc06829b2;p=emacs.git

(ido-toggle-ignore, ido-completion-help): Print message while
reading big directory.
---

diff --git a/lisp/ido.el b/lisp/ido.el
index 6a38e0b57de..2d4ac214dd1 100644
--- a/lisp/ido.el
+++ b/lisp/ido.el
@@ -2589,7 +2589,9 @@ C-x C-f ... C-d  enter dired on current directory."
   "Toggle ignoring files specified with `ido-ignore-files'."
   (interactive)
   (if ido-directory-too-big
-      (setq ido-directory-too-big nil)
+      (progn
+	(message "Reading directory...")
+	(setq ido-directory-too-big nil))
     (setq ido-process-ignore-lists (not ido-process-ignore-lists)))
   (setq ido-text-init ido-text)
   (setq ido-exit 'refresh)
@@ -3744,6 +3746,7 @@ for first matching file."
 	  (let ((completion-list (sort
 				  (cond
 				   (ido-directory-too-big
+				    (message "Reading directory...")
 				    (setq ido-directory-too-big nil
 					  ido-ignored-list nil
 					  ido-cur-list (ido-all-completions)