diff options
| author | Richard M. Stallman | 1998-10-22 01:35:03 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1998-10-22 01:35:03 +0000 |
| commit | fadfb77f9bf1867ff7e4cb591babe87b5484fb9e (patch) | |
| tree | 440c9b0417d639f94fda6ab927b20ab3bcde7378 | |
| parent | 43c35fd7e685768e265b910f1e5c3d0f3ee58749 (diff) | |
| download | emacs-fadfb77f9bf1867ff7e4cb591babe87b5484fb9e.tar.gz emacs-fadfb77f9bf1867ff7e4cb591babe87b5484fb9e.zip | |
(Info-next-menu-item): Stay on top of node.
| -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) |