From 37600b6d00192db5ebf04a0299e3fcac03b35752 Mon Sep 17 00:00:00 2001 From: Jesper Harder Date: Wed, 14 Apr 2004 15:58:30 +0000 Subject: [PATCH] (info-apropos): Don't clobber Info-history-list. --- lisp/ChangeLog | 4 ++++ lisp/info.el | 4 +++- 2 files changed, 7 insertions(+), 1 deletion(-) 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 + + * info.el (info-apropos): Don't clobber Info-history-list. + 2004-04-14 Daniel Pfeiffer * 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") -- 2.39.5