Mercurial > emacs

diff lisp/info.el @ 54865:50d070a98492

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(info-apropos): Don't clobber Info-history-list.
author Jesper Harder <harder@ifa.au.dk>
date Wed, 14 Apr 2004 15:58:30 +0000
parents b700f60328cd
children 327d069f80bb
line wrap: on
line diff
--- 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")