Function: walk-window-tree-1

walk-window-tree-1 is a byte-compiled function defined in window.el.gz.

Signature

(walk-window-tree-1 FUN WALK-WINDOW-TREE-WINDOW ANY &optional SUB-ONLY)

Documentation

Helper function for walk-window-tree and walk-window-subtree.

Source Code

;; Defined in /usr/src/emacs/lisp/window.el.gz
(defun walk-window-tree-1 (fun walk-window-tree-window any &optional sub-only)
  "Helper function for `walk-window-tree' and `walk-window-subtree'."
  (let (walk-window-tree-buffer)
    (while walk-window-tree-window
      (setq walk-window-tree-buffer
	    (window-buffer walk-window-tree-window))
      (when (or walk-window-tree-buffer any)
	(funcall fun walk-window-tree-window))
      (unless walk-window-tree-buffer
	(walk-window-tree-1
	 fun (window-left-child walk-window-tree-window) any)
	(walk-window-tree-1
	 fun (window-top-child walk-window-tree-window) any))
      (if sub-only
	  (setq walk-window-tree-window nil)
	(setq walk-window-tree-window
	      (window-right walk-window-tree-window))))))