diff options
| author | Juanma Barranquero | 2007-07-18 09:01:47 +0000 |
|---|---|---|
| committer | Juanma Barranquero | 2007-07-18 09:01:47 +0000 |
| commit | 8cd3480b06e0af26f1da84d735689b35d94e6aa2 (patch) | |
| tree | 29b8f7e7f50280756780aee7e31bc32c2f098194 | |
| parent | 3ee9a09c482ff1ee2280534643c970ecc25676c1 (diff) | |
| download | emacs-8cd3480b06e0af26f1da84d735689b35d94e6aa2.tar.gz emacs-8cd3480b06e0af26f1da84d735689b35d94e6aa2.zip | |
(follow-mode-hook, follow-mode-off-hook, follow-mode,
follow-delete-other-windows-and-split, follow-recenter,
follow-windows-aligned-p, follow-point-visible-all-windows-p, follow-redisplay,
follow-estimate-first-window-start, follow-xemacs-scrollbar-support,
follow-intercept-process-output): Fix typos in docstrings.
| -rw-r--r-- | lisp/follow.el | 34 |
1 files changed, 17 insertions, 17 deletions
diff --git a/lisp/follow.el b/lisp/follow.el index 15d263d300d..2f4f59e367c 100644 --- a/lisp/follow.el +++ b/lisp/follow.el | |||
| @@ -278,12 +278,12 @@ | |||
| 278 | :group 'convenience) | 278 | :group 'convenience) |
| 279 | 279 | ||
| 280 | (defcustom follow-mode-hook nil | 280 | (defcustom follow-mode-hook nil |
| 281 | "Hooks to run when follow-mode is turned on." | 281 | "Hooks to run when Follow mode is turned on." |
| 282 | :type 'hook | 282 | :type 'hook |
| 283 | :group 'follow) | 283 | :group 'follow) |
| 284 | 284 | ||
| 285 | (defcustom follow-mode-off-hook nil | 285 | (defcustom follow-mode-off-hook nil |
| 286 | "Hooks to run when follow-mode is turned off." | 286 | "Hooks to run when Follow mode is turned off." |
| 287 | :type 'hook | 287 | :type 'hook |
| 288 | :group 'follow) | 288 | :group 'follow) |
| 289 | 289 | ||
| @@ -501,9 +501,9 @@ of two major techniques: | |||
| 501 | movement commands. | 501 | movement commands. |
| 502 | 502 | ||
| 503 | Follow mode comes to its prime when used on a large screen and two | 503 | Follow mode comes to its prime when used on a large screen and two |
| 504 | side-by-side window are used. The user can, with the help of Follow | 504 | side-by-side windows are used. The user can, with the help of Follow |
| 505 | mode, use two full-height windows as though they would have been | 505 | mode, use two full-height windows as though they would have been |
| 506 | one. Imagine yourself editing a large function, or section of text, | 506 | one. Imagine yourself editing a large function, or section of text, |
| 507 | and being able to use 144 lines instead of the normal 72... (your | 507 | and being able to use 144 lines instead of the normal 72... (your |
| 508 | mileage may vary). | 508 | mileage may vary). |
| 509 | 509 | ||
| @@ -511,7 +511,7 @@ To split one large window into two side-by-side windows, the commands | |||
| 511 | `\\[split-window-horizontally]' or \ | 511 | `\\[split-window-horizontally]' or \ |
| 512 | `M-x follow-delete-other-windows-and-split' can be used. | 512 | `M-x follow-delete-other-windows-and-split' can be used. |
| 513 | 513 | ||
| 514 | Only windows displayed in the same frame follow each-other. | 514 | Only windows displayed in the same frame follow each other. |
| 515 | 515 | ||
| 516 | If the variable `follow-intercept-processes' is non-nil, Follow mode | 516 | If the variable `follow-intercept-processes' is non-nil, Follow mode |
| 517 | will listen to the output of processes and redisplay accordingly. | 517 | will listen to the output of processes and redisplay accordingly. |
| @@ -645,11 +645,11 @@ Works like `scroll-up' when not in Follow Mode." | |||
| 645 | Execute this command to display as much as possible of the text | 645 | Execute this command to display as much as possible of the text |
| 646 | in the selected window. All other windows, in the current | 646 | in the selected window. All other windows, in the current |
| 647 | frame, are deleted and the selected window is split in two | 647 | frame, are deleted and the selected window is split in two |
| 648 | side-by-side windows. Follow Mode is activated, hence the | 648 | side-by-side windows. Follow Mode is activated, hence the |
| 649 | two windows always will display two successive pages. | 649 | two windows always will display two successive pages. |
| 650 | \(If one window is moved, the other one will follow.) | 650 | \(If one window is moved, the other one will follow.) |
| 651 | 651 | ||
| 652 | If ARG is positive, the leftmost window is selected. If it negative, | 652 | If ARG is positive, the leftmost window is selected. If negative, |
| 653 | the rightmost is selected. If ARG is nil, the leftmost window is | 653 | the rightmost is selected. If ARG is nil, the leftmost window is |
| 654 | selected if the original window is the first one in the frame. | 654 | selected if the original window is the first one in the frame. |
| 655 | 655 | ||
| @@ -754,8 +754,8 @@ in your `~/.emacs' file: | |||
| 754 | Rearrange all other windows around the middle window. | 754 | Rearrange all other windows around the middle window. |
| 755 | 755 | ||
| 756 | With a positive argument, place the current line ARG lines | 756 | With a positive argument, place the current line ARG lines |
| 757 | from the top. With a negative, place it -ARG lines from the | 757 | from the top. With a negative argument, place it -ARG lines |
| 758 | bottom." | 758 | from the bottom." |
| 759 | (interactive "P") | 759 | (interactive "P") |
| 760 | (if arg | 760 | (if arg |
| 761 | (let ((p (point)) | 761 | (let ((p (point)) |
| @@ -985,7 +985,7 @@ Note that this handles the case when the cache has been set to nil." | |||
| 985 | ;; should start at a full screen line. | 985 | ;; should start at a full screen line. |
| 986 | 986 | ||
| 987 | (defsubst follow-windows-aligned-p (win-start-end) | 987 | (defsubst follow-windows-aligned-p (win-start-end) |
| 988 | "Non-nil if the follower WINDOWS are aligned." | 988 | "Non-nil if the follower windows are aligned." |
| 989 | (let ((res t)) | 989 | (let ((res t)) |
| 990 | (save-excursion | 990 | (save-excursion |
| 991 | (goto-char (window-start (car (car win-start-end)))) | 991 | (goto-char (window-start (car (car win-start-end)))) |
| @@ -1005,7 +1005,7 @@ Note that this handles the case when the cache has been set to nil." | |||
| 1005 | ;; no one will be recentered.) | 1005 | ;; no one will be recentered.) |
| 1006 | 1006 | ||
| 1007 | (defun follow-point-visible-all-windows-p (win-start-end) | 1007 | (defun follow-point-visible-all-windows-p (win-start-end) |
| 1008 | "Non-nil when the window-point is visible in all windows." | 1008 | "Non-nil when the `window-point' is visible in all windows." |
| 1009 | (let ((res t)) | 1009 | (let ((res t)) |
| 1010 | (while (and res win-start-end) | 1010 | (while (and res win-start-end) |
| 1011 | (setq res (follow-pos-visible (window-point (car (car win-start-end))) | 1011 | (setq res (follow-pos-visible (window-point (car (car win-start-end))) |
| @@ -1133,7 +1133,7 @@ Return the selected window." | |||
| 1133 | (defun follow-redisplay (&optional windows win) | 1133 | (defun follow-redisplay (&optional windows win) |
| 1134 | "Reposition the WINDOWS around WIN. | 1134 | "Reposition the WINDOWS around WIN. |
| 1135 | Should the point be too close to the roof we redisplay everything | 1135 | Should the point be too close to the roof we redisplay everything |
| 1136 | from the top. WINDOWS should contain a list of windows to | 1136 | from the top. WINDOWS should contain a list of windows to |
| 1137 | redisplay, it is assumed that WIN is a member of the list. | 1137 | redisplay, it is assumed that WIN is a member of the list. |
| 1138 | Should WINDOWS be nil, the windows displaying the | 1138 | Should WINDOWS be nil, the windows displaying the |
| 1139 | same buffer as WIN, in the current frame, are used. | 1139 | same buffer as WIN, in the current frame, are used. |
| @@ -1214,8 +1214,8 @@ START." | |||
| 1214 | (defun follow-estimate-first-window-start (windows win start) | 1214 | (defun follow-estimate-first-window-start (windows win start) |
| 1215 | "Estimate the position of the first window. | 1215 | "Estimate the position of the first window. |
| 1216 | 1216 | ||
| 1217 | Returns (EXACT . POS). If EXACT is non-nil, POS is the starting | 1217 | Returns (EXACT . POS). If EXACT is non-nil, POS is the starting |
| 1218 | position of the first window. Otherwise it is a good guess." | 1218 | position of the first window. Otherwise it is a good guess." |
| 1219 | (let ((pred (car (follow-split-followers windows win))) | 1219 | (let ((pred (car (follow-split-followers windows win))) |
| 1220 | (exact nil)) | 1220 | (exact nil)) |
| 1221 | (save-excursion | 1221 | (save-excursion |
| @@ -1667,7 +1667,7 @@ non-first windows in Follow Mode." | |||
| 1667 | (defun follow-xemacs-scrollbar-support (window) | 1667 | (defun follow-xemacs-scrollbar-support (window) |
| 1668 | "Redraw windows showing the same buffer as shown in WINDOW. | 1668 | "Redraw windows showing the same buffer as shown in WINDOW. |
| 1669 | WINDOW is either the dragged window, or a cons containing the | 1669 | WINDOW is either the dragged window, or a cons containing the |
| 1670 | window as its first element. This is called while the user drags | 1670 | window as its first element. This is called while the user drags |
| 1671 | the scrollbar. | 1671 | the scrollbar. |
| 1672 | 1672 | ||
| 1673 | WINDOW can be an object or a window." | 1673 | WINDOW can be an object or a window." |
| @@ -1797,7 +1797,7 @@ magic stuff before the real process filter is called." | |||
| 1797 | "Intercept all active processes. | 1797 | "Intercept all active processes. |
| 1798 | 1798 | ||
| 1799 | This is needed so that Follow Mode can track all display events in the | 1799 | This is needed so that Follow Mode can track all display events in the |
| 1800 | system. (See `follow-mode')" | 1800 | system. (See `follow-mode'.)" |
| 1801 | (interactive) | 1801 | (interactive) |
| 1802 | (let ((list (process-list))) | 1802 | (let ((list (process-list))) |
| 1803 | (while list | 1803 | (while list |
| @@ -2075,7 +2075,7 @@ report this using the `report-emacs-bug' function." | |||
| 2075 | ;;{{{ Tail window handling | 2075 | ;;{{{ Tail window handling |
| 2076 | 2076 | ||
| 2077 | ;; In Emacs (not XEmacs) windows showing nothing are sometimes | 2077 | ;; In Emacs (not XEmacs) windows showing nothing are sometimes |
| 2078 | ;; recentered. When in Follow Mode, this is not desireable for | 2078 | ;; recentered. When in Follow Mode, this is not desirable for |
| 2079 | ;; non-first windows in the window chain. This section tries to | 2079 | ;; non-first windows in the window chain. This section tries to |
| 2080 | ;; make the windows stay where they should be. | 2080 | ;; make the windows stay where they should be. |
| 2081 | ;; | 2081 | ;; |