Function: combobulate-ztree-root
combobulate-ztree-root is a natively compiled function defined in
combobulate-ztree.el.
Signature
(combobulate-ztree-root LOC)
Documentation
Zip from LOC all the way up and return the root node.
Reflect any alterations to the tree.
Source Code
;; Defined in /nix/store/b5fvrwzi3zvkabyzx0in6gw1cj963z46-emacs-packages-deps/share/emacs/site-lisp/combobulate-ztree.el
(defun combobulate-ztree-root (loc)
"Zip from LOC all the way up and return the root node.
Reflect any alterations to the tree."
(if (equal :end (combobulate-ztree--context loc))
(combobulate-ztree-node loc)
(let ((p loc))
(while (setq p (combobulate-ztree-up p))
(setq loc p))
(combobulate-ztree-node loc))))