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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0ddd1eb78fb97656ffd91f4127df07b0037c6d5c..b3cada9ab065f17e9e1626f3837b0ff2fb3c6e1a 100644 (file)
--- 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 34ec499d542fa47f26d78c8306fac3718555069e..96445a18e28e4cb913802604eace6ed1f37c1b89 100644 (file)
--- 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")