Function: combobulate-ztree-up

combobulate-ztree-up is a natively compiled function defined in combobulate-ztree.el.

Signature

(combobulate-ztree-up LOC)

Documentation

Return the loc of the parent of the node at this LOC.

nil if at the top.

Source Code

;; Defined in /nix/store/b5fvrwzi3zvkabyzx0in6gw1cj963z46-emacs-packages-deps/share/emacs/site-lisp/combobulate-ztree.el
(defun combobulate-ztree-up (loc)
  "Return the loc of the parent of the node at this LOC.
nil if at the top."
  (combobulate-ztree--with-loc loc (node pnodes ppath changed? l r)
    (when pnodes
      (let ((pnode (car pnodes)))
        (combobulate-ztree--with-meta
         (if changed?
             (cons (combobulate-ztree-make-node loc pnode (combobulate-ztree--join-children l (cons node r)))
                   (and ppath (combobulate-ztree--context-assoc ppath ':changed? t)))
           (cons pnode ppath))
         (combobulate-ztree--meta loc))))))