Function: follow--window-sorter

follow--window-sorter is a byte-compiled function defined in follow.el.gz.

Signature

(follow--window-sorter W1 W2)

Documentation

Sorting function for W1 and W2 based on their positions.

Return non-nil if W1 is above W2; if their top-lines are at the same position, return non-nil if W1 is to the left of W2.

Source Code

;; Defined in /usr/src/emacs/lisp/follow.el.gz
;;; Display

(defun follow--window-sorter (w1 w2)
  "Sorting function for W1 and W2 based on their positions.
Return non-nil if W1 is above W2; if their top-lines
are at the same position, return non-nil if W1 is to the
left of W2."
  (let* ((edge-1 (window-pixel-edges w1))
	 (edge-2 (window-pixel-edges w2))
	 (y1 (nth 1 edge-1))
	 (y2 (nth 1 edge-2)))
    (if (= y1 y2)
	(< (car edge-1) (car edge-2))
      (< y1 y2))))