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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e6798b48f8708d47c1afffd22373962e6f658f93..940b6717de431007e8b26fa0acd805d66c998e8a 100644 (file)
--- 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 a284ca7fa2e0a86c348ec3792750c03d2ffdc02f..1bbc35b3fc1df28c7879a247dc05a8b376494ed7 100644 (file)
--- 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."