mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-20 18:17:20 +00:00
Code Issues Releases Activity

(Info-next-preorder, Info-next-preorder-1):

Browse Source 
When moving up, advance to next menu item.
This commit is contained in:
Richard M. Stallman 1995-03-18 22:55:23 +00:00
parent 6b8b57db4a
commit fb65091fbc
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/info.el
View File

@ -1101,7 +1101,8 @@ N is the digit argument used to invoke this command."
(interactive)
(cond ((Info-no-error (Info-next-menu-item)))
((Info-no-error (Info-up))
(forward-line 1))
(forward-line 1)
(and (re-search-forward "^\\*" nil t) (beginning-of-line)))
(t
(error "No more nodes"))))
@ -1111,7 +1112,8 @@ N is the digit argument used to invoke this command."
(cond ((Info-no-error (Info-next-menu-item)))
((Info-no-error (Info-next)))
((Info-no-error (Info-up))
(forward-line 1))
(forward-line 1)
(and (re-search-forward "^\\*" nil t) (beginning-of-line)))
(t
(error "No more nodes"))))