(info-apropos): Don't clobber Info-history-list.

2 files changed, 7 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0ddd1eb78fb..b3cada9ab06 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2004-04-14  Jesper Harder  <harder@ifa.au.dk>
+
+        * info.el (info-apropos): Don't clobber Info-history-list.
+
 2004-04-14  Daniel Pfeiffer  <occitan@esperanto.org>
 
         * progmodes/compile.el (compilation-setup): Localize
diff --git a/lisp/info.el b/lisp/info.el
index 34ec499d542..96445a18e28 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -2432,6 +2432,7 @@ Build a menu of the possible matches."
     (let ((pattern (format "\n\\* +\\([^\n]*%s[^\n]*\\):[ \t]+\\([^.]+\\)."
                            (regexp-quote string)))
           (ohist Info-history)
+          (ohist-list Info-history-list)
           (current-node Info-current-node)
           (current-file Info-current-file)
           manuals matches temp-file node)
@@ -2465,7 +2466,8 @@ Build a menu of the possible matches."
                     (Info-goto-node node))))
             (error nil))))
       (Info-goto-node (concat "(" current-file ")" current-node))
-      (setq Info-history ohist)
+      (setq Info-history ohist
+            Info-history-list ohist-list)
       (message "Searching indices...done")
       (if (null matches)
           (message "No matches found")