aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman1995-03-18 22:55:23 +0000
committerRichard M. Stallman1995-03-18 22:55:23 +0000
commitfb65091fbccf4bacb39a96c52f0f1d7235acd67b (patch)
tree4e04f4be2722a8141b3b0170fa03c40d55612787
parent6b8b57db4a803f1bc8858a77714c0263021d1cf6 (diff)
downloademacs-fb65091fbccf4bacb39a96c52f0f1d7235acd67b.tar.gz
emacs-fb65091fbccf4bacb39a96c52f0f1d7235acd67b.zip
(Info-next-preorder, Info-next-preorder-1):
When moving up, advance to next menu item.
-rw-r--r--lisp/info.el6
1 files 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."
1101 (interactive) 1101 (interactive)
1102 (cond ((Info-no-error (Info-next-menu-item))) 1102 (cond ((Info-no-error (Info-next-menu-item)))
1103 ((Info-no-error (Info-up)) 1103 ((Info-no-error (Info-up))
1104 (forward-line 1)) 1104 (forward-line 1)
1105 (and (re-search-forward "^\\*" nil t) (beginning-of-line)))
1105 (t 1106 (t
1106 (error "No more nodes")))) 1107 (error "No more nodes"))))
1107 1108
@@ -1111,7 +1112,8 @@ N is the digit argument used to invoke this command."
1111 (cond ((Info-no-error (Info-next-menu-item))) 1112 (cond ((Info-no-error (Info-next-menu-item)))
1112 ((Info-no-error (Info-next))) 1113 ((Info-no-error (Info-next)))
1113 ((Info-no-error (Info-up)) 1114 ((Info-no-error (Info-up))
1114 (forward-line 1)) 1115 (forward-line 1)
1116 (and (re-search-forward "^\\*" nil t) (beginning-of-line)))
1115 (t 1117 (t
1116 (error "No more nodes")))) 1118 (error "No more nodes"))))
1117 1119