(info-apropos): Reset Info-complete-cache.

2 files changed, 6 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e6798b48f87..940b6717de4 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2004-04-25  Jesper Harder  <harder@ifa.au.dk>
+
+        * info.el (info-apropos): Reset Info-complete-cache.
+
 2004-04-25  Daniel Pfeiffer  <occitan@esperanto.org>
 
         * progmodes/compile.el (compilation-error-regexp-alist-alist):
diff --git a/lisp/info.el b/lisp/info.el
index a284ca7fa2e..1bbc35b3fc1 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -2467,7 +2467,8 @@ Build a menu of the possible matches."
           (dolist (entry matches)
             (insert "* " (car entry) " [" (nth 2 entry)
                     "]: (" (nth 2 entry) ")" (nth 1 entry) ".\n")))
-        (Info-find-node "apropos" "top")))))
+        (Info-find-node "apropos" "top")
+        (setq Info-complete-cache nil)))))
 
 (defun Info-undefined ()
   "Make command be undefined in Info."