Function: follow-split-followers

follow-split-followers is a byte-compiled function defined in follow.el.gz.

Signature

(follow-split-followers WINDOWS &optional WIN)

Documentation

Split WINDOWS into two sets: predecessors and successors.

Return (PRED . SUCC) where PRED and SUCC are ordered starting from the selected window.

Source Code

;; Defined in /usr/src/emacs/lisp/follow.el.gz
(defun follow-split-followers (windows &optional win)
  "Split WINDOWS into two sets: predecessors and successors.
Return `(PRED . SUCC)' where `PRED' and `SUCC' are ordered starting
from the selected window."
  (or win
      (setq win (selected-window)))
  (let ((pred '()))
    (while (not (eq (car windows) win))
      (setq pred (cons (car windows) pred))
      (setq windows (cdr windows)))
    (cons pred (cdr windows))))