(info-apropos): Make sure current-file and current-node have non-nil values.
This commit is contained in:
parent
c7292dcbba
commit
59ad6ae53b
2 changed files with 12 additions and 0 deletions
|
@ -1,3 +1,8 @@
|
|||
2006-05-20 Eli Zaretskii <eliz@gnu.org>
|
||||
|
||||
* info.el (info-apropos): Make sure current-file and current-node
|
||||
have non-nil values.
|
||||
|
||||
2006-05-20 Micha,Ak(Bl Cadilhac <michael.cadilhac@lrde.org> (tiny change)
|
||||
|
||||
* progmodes/make-mode.el (makefile-mode): Doc fix.
|
||||
|
|
|
@ -2907,6 +2907,13 @@ Build a menu of the possible matches."
|
|||
manuals matches node nodes)
|
||||
(let ((Info-fontify-maximum-menu-size nil))
|
||||
(Info-directory)
|
||||
;; current-node and current-file are nil when they invoke info-apropos
|
||||
;; as the first Info command, i.e. info-apropos loads info.el. In that
|
||||
;; case, we use (DIR)Top instead, to avoid signalling an error after
|
||||
;; the search is complete.
|
||||
(when (null current-node)
|
||||
(setq current-file Info-current-file)
|
||||
(setq current-node Info-current-node))
|
||||
(message "Searching indices...")
|
||||
(goto-char (point-min))
|
||||
(re-search-forward "\\* Menu: *\n" nil t)
|
||||
|
|
Loading…
Add table
Reference in a new issue