From: Jesper Harder <harder@ifa.au.dk>
Date: Wed, 14 Apr 2004 15:58:30 +0000 (+0000)
Subject: (info-apropos): Don't clobber Info-history-list.
X-Git-Tag: ttn-vms-21-2-B4~6839
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=37600b6d00192db5ebf04a0299e3fcac03b35752;p=emacs.git

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

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")