Mercurial > emacs
comparison lisp/info.el @ 9222:b18f51df31b3
(Info-scroll-down, Info-scroll-up): Doc fixes.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 02 Oct 1994 08:36:08 +0000 |
| parents | 65a8b9c507dc |
| children | b36d5e88cccc |
comparison
equal
deleted
inserted
replaced
| 9221:3cc865a9c0cf | 9222:b18f51df31b3 |
|---|---|
| 1114 (goto-char (point-max)))) | 1114 (goto-char (point-max)))) |
| 1115 ((Info-no-error (Info-up)) (forward-line -1)) | 1115 ((Info-no-error (Info-up)) (forward-line -1)) |
| 1116 (t (error "No previous nodes")))) | 1116 (t (error "No previous nodes")))) |
| 1117 | 1117 |
| 1118 (defun Info-scroll-up () | 1118 (defun Info-scroll-up () |
| 1119 "Read the next screen. If end of buffer is visible, go to next entry." | 1119 "Scroll one screenful forward in Info, considering all nodes as one sequence. |
| 1120 Once you scroll far enough in a node that its menu appears on the screen, | |
| 1121 the next scroll moves into its first subnode. When you scroll past | |
| 1122 the end of a node, that goes back to the parent node." | |
| 1120 (interactive) | 1123 (interactive) |
| 1121 (if (or (< (window-start) (point-min)) | 1124 (if (or (< (window-start) (point-min)) |
| 1122 (> (window-start) (point-max))) | 1125 (> (window-start) (point-max))) |
| 1123 (set-window-start (selected-window) (point))) | 1126 (set-window-start (selected-window) (point))) |
| 1124 (let ((virtual-end (save-excursion | 1127 (let ((virtual-end (save-excursion |
| 1130 (pos-visible-in-window-p virtual-end)) | 1133 (pos-visible-in-window-p virtual-end)) |
| 1131 (Info-next-preorder) | 1134 (Info-next-preorder) |
| 1132 (scroll-up)))) | 1135 (scroll-up)))) |
| 1133 | 1136 |
| 1134 (defun Info-scroll-down () | 1137 (defun Info-scroll-down () |
| 1135 "Read the previous screen. If start of buffer is visible, go to last entry." | 1138 "Scroll one screenful back in Info, considering all nodes as one sequence. |
| 1139 If you are within the menu of a node, this follows the previous | |
| 1140 menu item, so that you scroll through all the subnodes, ordered | |
| 1141 as if they appeared in place of the menu. When you scroll past | |
| 1142 the beginning of a node, that goes back to the parent node." | |
| 1136 (interactive) | 1143 (interactive) |
| 1137 (if (or (< (window-start) (point-min)) | 1144 (if (or (< (window-start) (point-min)) |
| 1138 (> (window-start) (point-max))) | 1145 (> (window-start) (point-max))) |
| 1139 (set-window-start (selected-window) (point))) | 1146 (set-window-start (selected-window) (point))) |
| 1140 (let ((virtual-end (save-excursion | 1147 (let ((virtual-end (save-excursion |