(ido-toggle-ignore, ido-completion-help): Print message while

reading big directory.

diff --git a/lisp/ido.el b/lisp/ido.el
index 6a38e0b57de887f7d7643767e76f49b6a1756cd8..2d4ac214dd10193e9f58fe32b7b4cb07b5459aee 100644 (file)
--- 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)