diff options
| author | Jesper Harder <harder@ifa.au.dk> | 2004-04-14 15:58:30 +0000 |
|---|---|---|
| committer | Jesper Harder <harder@ifa.au.dk> | 2004-04-14 15:58:30 +0000 |
| commit | 37600b6d00192db5ebf04a0299e3fcac03b35752 (patch) | |
| tree | 30004b2996bb4722f38c355bd06e11442b51484a | |
| parent | f3544d1135113921b67604dc5ae8fb5ab26b3771 (diff) | |
| download | emacs-37600b6d00192db5ebf04a0299e3fcac03b35752.tar.gz | |
(info-apropos): Don't clobber Info-history-list.
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/info.el | 4 |
2 files changed, 7 insertions, 1 deletions
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") |