Mercurial > emacs
changeset 54865:50d070a98492
(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 | ca548870d87a |
| children | 47cdc4f7ee17 |
| files | lisp/ChangeLog lisp/info.el |
| diffstat | 2 files changed, 7 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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
--- 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")