Mercurial > emacs
comparison lisp/info.el @ 23533:10a3478e3432
(Info-next-menu-item): Stay on top of node.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 22 Oct 1998 01:35:03 +0000 |
| parents | 83f51f5fb749 |
| children | 2e335a66e659 |
comparison
equal
deleted
inserted
replaced
| 23532:a493aa84f62f | 23533:10a3478e3432 |
|---|---|
| 1355 (save-buffers-kill-emacs) | 1355 (save-buffers-kill-emacs) |
| 1356 (quit-window))) | 1356 (quit-window))) |
| 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) |
| 1369 (save-excursion | 1371 (save-excursion |
| 1370 (forward-line 1) | 1372 (forward-line 1) |