# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 795567323 0
# Node ID bf32108711c6f5835853346b0206f13cf9cf8b79
# Parent  f6c97f56c8b6be41d030c7cb4bc65b5309f71cac
(Info-next-preorder, Info-next-preorder-1):
When moving up, advance to next menu item.

diff -r f6c97f56c8b6 -r bf32108711c6 lisp/info.el
--- 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"))))