From fb65091fbccf4bacb39a96c52f0f1d7235acd67b Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 18 Mar 1995 22:55:23 +0000 Subject: [PATCH] (Info-next-preorder, Info-next-preorder-1): When moving up, advance to next menu item. --- lisp/info.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/info.el b/lisp/info.el index a16f6a548f4..fa3d25a927a 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -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"))))