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

(Info-next-menu-item): Stay on top of node.

Browse source
This commit is contained in:
Richard M. Stallman 1998-10-22 01:35:03 +00:00
parent 43c35fd7e6
commit fadfb77f9b
1 changed files with 8 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
lisp/info.el
View file

@ -1357,12 +1357,14 @@ N is the digit argument used to invoke this command."
(defun Info-next-menu-item ()
(interactive)
(save-excursion
(forward-line -1)
(search-forward "\n* menu:" nil t)
(or (search-forward "\n* " nil t)
(error "No more items in menu"))
(Info-goto-node (Info-extract-menu-node-name))))
(let ((node
(save-excursion
(forward-line -1)
(search-forward "\n* menu:" nil t)
(and (search-forward "\n* " nil t)
(Info-extract-menu-node-name)))))
(if node (Info-goto-node node)
(error "No more items in menu"))))
(defun Info-last-menu-item ()
(interactive)