changeset 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 f6c97f56c8b6
children da9137aa151f
files lisp/info.el
diffstat 1 files changed, 4 insertions(+), 2 deletions(-) [+]
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"))))