aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJuanma Barranquero2007-07-18 09:01:47 +0000
committerJuanma Barranquero2007-07-18 09:01:47 +0000
commit8cd3480b06e0af26f1da84d735689b35d94e6aa2 (patch)
tree29b8f7e7f50280756780aee7e31bc32c2f098194
parent3ee9a09c482ff1ee2280534643c970ecc25676c1 (diff)
downloademacs-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.el34
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
503Follow mode comes to its prime when used on a large screen and two 503Follow mode comes to its prime when used on a large screen and two
504side-by-side window are used. The user can, with the help of Follow 504side-by-side windows are used. The user can, with the help of Follow
505mode, use two full-height windows as though they would have been 505mode, use two full-height windows as though they would have been
506one. Imagine yourself editing a large function, or section of text, 506one. Imagine yourself editing a large function, or section of text,
507and being able to use 144 lines instead of the normal 72... (your 507and being able to use 144 lines instead of the normal 72... (your
508mileage may vary). 508mileage 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
514Only windows displayed in the same frame follow each-other. 514Only windows displayed in the same frame follow each other.
515 515
516If the variable `follow-intercept-processes' is non-nil, Follow mode 516If the variable `follow-intercept-processes' is non-nil, Follow mode
517will listen to the output of processes and redisplay accordingly. 517will listen to the output of processes and redisplay accordingly.
@@ -645,11 +645,11 @@ Works like `scroll-up' when not in Follow Mode."
645Execute this command to display as much as possible of the text 645Execute this command to display as much as possible of the text
646in the selected window. All other windows, in the current 646in the selected window. All other windows, in the current
647frame, are deleted and the selected window is split in two 647frame, are deleted and the selected window is split in two
648side-by-side windows. Follow Mode is activated, hence the 648side-by-side windows. Follow Mode is activated, hence the
649two windows always will display two successive pages. 649two 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
652If ARG is positive, the leftmost window is selected. If it negative, 652If ARG is positive, the leftmost window is selected. If negative,
653the rightmost is selected. If ARG is nil, the leftmost window is 653the rightmost is selected. If ARG is nil, the leftmost window is
654selected if the original window is the first one in the frame. 654selected if the original window is the first one in the frame.
655 655
@@ -754,8 +754,8 @@ in your `~/.emacs' file:
754Rearrange all other windows around the middle window. 754Rearrange all other windows around the middle window.
755 755
756With a positive argument, place the current line ARG lines 756With a positive argument, place the current line ARG lines
757from the top. With a negative, place it -ARG lines from the 757from the top. With a negative argument, place it -ARG lines
758bottom." 758from 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.
1135Should the point be too close to the roof we redisplay everything 1135Should the point be too close to the roof we redisplay everything
1136from the top. WINDOWS should contain a list of windows to 1136from the top. WINDOWS should contain a list of windows to
1137redisplay, it is assumed that WIN is a member of the list. 1137redisplay, it is assumed that WIN is a member of the list.
1138Should WINDOWS be nil, the windows displaying the 1138Should WINDOWS be nil, the windows displaying the
1139same buffer as WIN, in the current frame, are used. 1139same 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
1217Returns (EXACT . POS). If EXACT is non-nil, POS is the starting 1217Returns (EXACT . POS). If EXACT is non-nil, POS is the starting
1218position of the first window. Otherwise it is a good guess." 1218position 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.
1669WINDOW is either the dragged window, or a cons containing the 1669WINDOW is either the dragged window, or a cons containing the
1670window as its first element. This is called while the user drags 1670window as its first element. This is called while the user drags
1671the scrollbar. 1671the scrollbar.
1672 1672
1673WINDOW can be an object or a window." 1673WINDOW 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
1799This is needed so that Follow Mode can track all display events in the 1799This is needed so that Follow Mode can track all display events in the
1800system. (See `follow-mode')" 1800system. (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;;