diff options
| -rw-r--r-- | lisp/info.el | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/lisp/info.el b/lisp/info.el index 28ce27525f8..0164dedd293 100644 --- a/lisp/info.el +++ b/lisp/info.el | |||
| @@ -1357,12 +1357,14 @@ N is the digit argument used to invoke this command." | |||
| 1357 | 1357 | ||
| 1358 | (defun Info-next-menu-item () | 1358 | (defun Info-next-menu-item () |
| 1359 | (interactive) | 1359 | (interactive) |
| 1360 | (save-excursion | 1360 | (let ((node |
| 1361 | (forward-line -1) | 1361 | (save-excursion |
| 1362 | (search-forward "\n* menu:" nil t) | 1362 | (forward-line -1) |
| 1363 | (or (search-forward "\n* " nil t) | 1363 | (search-forward "\n* menu:" nil t) |
| 1364 | (error "No more items in menu")) | 1364 | (and (search-forward "\n* " nil t) |
| 1365 | (Info-goto-node (Info-extract-menu-node-name)))) | 1365 | (Info-extract-menu-node-name))))) |
| 1366 | (if node (Info-goto-node node) | ||
| 1367 | (error "No more items in menu")))) | ||
| 1366 | 1368 | ||
| 1367 | (defun Info-last-menu-item () | 1369 | (defun Info-last-menu-item () |
| 1368 | (interactive) | 1370 | (interactive) |