Function: follow-calc-win-start

follow-calc-win-start is a byte-compiled function defined in follow.el.gz.

Signature

(follow-calc-win-start WINDOWS POS WIN)

Documentation

Determine the start of window WIN in a Follow mode window chain.

WINDOWS is a list of chained windows, and POS is the starting position for the first window in the list. If WIN is nil, return the point below all windows.

Source Code

;; Defined in /usr/src/emacs/lisp/follow.el.gz
(defun follow-calc-win-start (windows pos win)
  "Determine the start of window WIN in a Follow mode window chain.
WINDOWS is a list of chained windows, and POS is the starting
position for the first window in the list.  If WIN is nil, return
the point below all windows."
  (while (and windows (not (eq (car windows) win)))
    (let ((old-start (window-start (car windows))))
      ;; Can't use `save-window-excursion' since it triggers a redraw.
      (set-window-start (car windows) pos 'noforce)
      (setq pos (car (follow-calc-win-end (car windows))))
      (set-window-start (car windows) old-start 'noforce)
      (setq windows (cdr windows))))
  pos)