From c05b06127d01516ae078ec2134c73b770d800789 Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Sat, 16 Dec 2006 01:24:26 +0000 Subject: [PATCH] (ido-completion-help): Build ido-cur-list and ido-matches if ido-directory-too-big is set on entry. --- lisp/ido.el | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/lisp/ido.el b/lisp/ido.el index 796c377571c..6a38e0b57de 100644 --- a/lisp/ido.el +++ b/lisp/ido.el @@ -3729,7 +3729,8 @@ for first matching file." (set-buffer temp-buf) (setq win (get-buffer-window temp-buf)) (if (pos-visible-in-window-p (point-max) win) - (if (or ido-completion-buffer-all-completions (boundp 'ido-completion-buffer-full)) + (if (or ido-completion-buffer-all-completions + (boundp 'ido-completion-buffer-full)) (set-window-start win (point-min)) (with-no-warnings (set (make-local-variable 'ido-completion-buffer-full) t)) @@ -3742,6 +3743,13 @@ for first matching file." (with-output-to-temp-buffer ido-completion-buffer (let ((completion-list (sort (cond + (ido-directory-too-big + (setq ido-directory-too-big nil + ido-ignored-list nil + ido-cur-list (ido-all-completions) + ido-rescan t) + (ido-set-matches) + (or ido-matches ido-cur-list)) (ido-use-merged-list (ido-flatten-merged-list (or ido-matches ido-cur-list))) ((or full-list ido-completion-buffer-all-completions) -- 2.39.2