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

When moving up, advance to next menu item.

diff --git a/lisp/info.el b/lisp/info.el
index a16f6a548f4c82244a8633e623d77b77467055a0..fa3d25a927ad5f346613db67ca020354771c926f 100644 (file)
--- 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"))))