diff options
| author | Richard M. Stallman | 1995-03-18 22:55:23 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1995-03-18 22:55:23 +0000 |
| commit | fb65091fbccf4bacb39a96c52f0f1d7235acd67b (patch) | |
| tree | 4e04f4be2722a8141b3b0170fa03c40d55612787 | |
| parent | 6b8b57db4a803f1bc8858a77714c0263021d1cf6 (diff) | |
| download | emacs-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.el | 6 |
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 | ||