;; (setq pixel-vertical-clip-threshold 30)
-;; The correct way to cofigurate Follow mode, or any other mode for
+;; The correct way to configurate Follow mode, or any other mode for
;; that matter, is to create one or more functions that do
;; whatever you would like to do. These functions are then added to
;; a hook.
;; positions in the text? Here are two simple methods to use:
;;
;; 1) Use multiple frames; `follow' mode only affects windows displayed
-;; in the same frame. (My apoligies to you who can't use frames.)
+;; in the same frame. (My apologies to you who can't use frames.)
;;
;; 2) Bind `follow-mode' to key so you can turn it off whenever
;; you want to view two locations. Of course, `follow' mode can
;;
;; Follow mode does this in three places:
;; 1) After each user command.
-;; 2) After a process output has been perfomed.
+;; 2) After a process output has been performed.
;; 3) When a scrollbar has been moved.
;;
;; This will cover most situations. (Let me know if there are other
;; situations that should be covered.)
;;
;; Note that only the selected window is checked, for the reason of
-;; efficiency and code complexity. (I.e. it is possible to make a
-;; non-selected windows unaligned. It will, however, pop right back
+;; efficiency and code complexity. (I.e. it is possible to make a
+;; non-selected window unaligned. It will, however, pop right back
;; when it is selected.)
;;}}}
;; (funcall (symbol-function 'set) 'bar ...)
;;
;; Note: When this file is interpreted, `eval-when-compile' is
-;; evaluted. Since it doesn't hurt to evaluate it, but it is a bit
+;; evaluated. Since it doesn't hurt to evaluate it, but it is a bit
;; annoying, we test if the byte-compiler has been loaded. This can,
;; of course, lead to some occasional unintended evaluation...
;;
;; the variable is not set.
(defsubst follow-debug-message (&rest args)
- "Like message, but only active when `follow-debug' is non-nil."
+ "Like `message', but only active when `follow-debug' is non-nil."
(if (and (boundp 'follow-debug) follow-debug)
(apply 'message args)))
res))
-;; Make sure WIN always starts at the beginning of an whole screen
+;; Make sure WIN always starts at the beginning of a whole screen
;; line. If WIN is not aligned the start is updated which probably
;; will lead to a redisplay of the screen later on.
;;
win))
-;; Lets select a window showing the end. Make sure we only select it if it
-;; it wasn't just moved here. (i.e. M-> shall not unconditionally place
+;; Lets select a window showing the end. Make sure we only select it if
+;; it wasn't just moved here. (I.e. M-> shall not unconditionally place
;; the point in the selected window.)
;;
;; (Compatibility cludge: in Emacs `window-end' is equal to `point-max';
"Reposition the WINDOWS around WIN.
Should the point be too close to the roof we redisplay everything
from the top. WINDOWS should contain a list of windows to
-redisplay, it is assumed that WIN is a member of the list.
+redisplay; it is assumed that WIN is a member of the list.
Should WINDOWS be nil, the windows displaying the
same buffer as WIN, in the current frame, are used.
Should WIN be nil, the selected window is used.
(setq done t res (point)))
((= win-start start) ; Perfect match, use this value
(setq done t res (point)))
- ((< win-start start) ; Walked to far, use preious result
+ ((< win-start start) ; Walked to far, use previous result
(setq done t))
(t ; Store result for next iteration
(setq res (point))))))
;;{{{ Avoid tail recenter
;; This sets the window internal flag `force_start'. The effect is that
-;; windows only displaying the tail isn't recentered.
+;; windows only displaying the tail aren't recentered.
;; Has to be called before every redisplay... (Great isn't it?)
;;
;; XEmacs doesn't recenter the tail, GOOD!
;;
-;; A window displaying only the tail, is a windows whose
+;; A window displaying only the tail, is a window whose
;; window-start position is equal to (point-max) of the buffer it
;; displays.
;;
;;;; Scroll-bar support code.
;; Why is it needed? Well, if the selected window is in follow mode,
-;; all its follower stick to it blindly. If one of them is scrolled,
+;; all its followers stick to it blindly. If one of them is scrolled,
;; it immediately returns to the original position when the mouse is
;; released. If the selected window is not a follower of the dragged
;; window the windows will be unaligned.
-;; The advices doesn't get compiled. Aestetically, this might be a
+;; The advices don't get compiled. Aesthetically, this might be a
;; problem but in practical life it isn't.
;; Discussion: Now when the other windows in the chain follow the
;;}}}
;;{{{ Start/stop interception of processes.
-;; Normally, all new processed are intercepted by our `set-process-filter'.
-;; This is needed to intercept old processed that were started before we were
+;; Normally, all new processes are intercepted by our `set-process-filter'.
+;; This is needed to intercept old processes that were started before we were
;; loaded, and processes we have forgotten by calling
;; `follow-stop-intercept-process-output'.
;; The following section is a naive method to make buffers with
;; process output to work with Follow mode. Whenever the start of the
-;; window displaying the buffer is moved, we moves it back to its
+;; window displaying the buffer is moved, we move it back to its
;; original position and try to select a new window. (If we fail,
;; the normal redisplay functions of Emacs will scroll it right
;; back!)
;; If input is pending, the `sit-for' below won't redraw the
;; display. In that case, calling `follow-avoid-tail-recenter' may
- ;; provoke the process hadnling code to sceduling a redisplay.
+ ;; provoke the process handling code to schedule a redisplay.
;(or (input-pending-p)
; (follow-avoid-tail-recenter))
(inhibit-read-only t))
(save-excursion
(goto-char (process-mark proc))
- ;; `insert-before-markers' just in case the users next
+ ;; `insert-before-markers' just in case the user's next
;; command is M-y.
(insert-before-markers output)
(set-marker (process-mark proc) (point)))
(t
(follow-debug-message "filter: nothing")))
- ;; Here we have slected a window. Make sure the
+ ;; Here we have selected a window. Make sure the
;; windows are aligned and the point is visible
;; in the selected window.
(if (and (not (follow-pos-visible
;; return to the original window.
(if return-to-orig-win
(select-window orig-win))
- ;; Restore the orignal buffer, unless the filter explicitly
+ ;; Restore the original buffer, unless the filter explicitly
;; changed buffer or killed the old buffer.
(if (and (eq buf (current-buffer))
(buffer-name old-buffer))
projects / emacs.git / commitdiff