From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 18 Mar 1995 22:55:23 +0000 (+0000)
Subject: (Info-next-preorder, Info-next-preorder-1):
X-Git-Tag: emacs-19.34~4794
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fb65091fbccf4bacb39a96c52f0f1d7235acd67b;p=emacs.git

(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 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"))))