Mercurial > emacs
diff lisp/info.el @ 11064:bf32108711c6
(Info-next-preorder, Info-next-preorder-1):
When moving up, advance to next menu item.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sat, 18 Mar 1995 22:55:23 +0000 |
parents | e3da01bbdc14 |
children | 7956811d4d9a |
line wrap: on
line diff
--- a/lisp/info.el Sat Mar 18 21:51:18 1995 +0000 +++ b/lisp/info.el Sat Mar 18 22:55:23 1995 +0000 @@ -1101,7 +1101,8 @@ (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 @@ (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"))))