# HG changeset patch
# User Jesper Harder <harder@ifa.au.dk>
# Date 1081958310 0
# Node ID 50d070a9849204db157fc3bfdad438091a8a94ba
# Parent  ca548870d87ab1e6a23bd14307373e36629d8bc3
(info-apropos): Don't clobber Info-history-list.

diff -r ca548870d87a -r 50d070a98492 lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Apr 14 14:37:17 2004 +0000
+++ b/lisp/ChangeLog	Wed Apr 14 15:58:30 2004 +0000
@@ -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 -r ca548870d87a -r 50d070a98492 lisp/info.el
--- a/lisp/info.el	Wed Apr 14 14:37:17 2004 +0000
+++ b/lisp/info.el	Wed Apr 14 15:58:30 2004 +0000
@@ -2432,6 +2432,7 @@
     (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 @@
 		    (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")