Function: window-atom-root

window-atom-root is a byte-compiled function defined in window.el.gz.

Signature

(window-atom-root &optional WINDOW)

Documentation

Return root of atomic window WINDOW is a part of.

WINDOW must be a valid window and defaults to the selected one. Return nil if WINDOW is not part of an atomic window.

Source Code

;; Defined in /usr/src/emacs/lisp/window.el.gz
;;; Atomic windows.
(defun window-atom-root (&optional window)
  "Return root of atomic window WINDOW is a part of.
WINDOW must be a valid window and defaults to the selected one.
Return nil if WINDOW is not part of an atomic window."
  (setq window (window-normalize-window window))
  (let (root)
    (while (and window (window-parameter window 'window-atom))
      (setq root window)
      (setq window (window-parent window)))
    root))