procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Jesper Harder 2004-04-14 15:58:30 +00:00
parent f3544d1135
commit 37600b6d00
2 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -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

4
lisp/info.el
View file

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