Function: combobulate-ztree-right

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

Signature

(combobulate-ztree-right LOC)

Documentation

Return the loc of the right sibling of the node at this LOC.

nil if there's no more right sibilings.

Source Code

;; Defined in /nix/store/b5fvrwzi3zvkabyzx0in6gw1cj963z46-emacs-packages-deps/share/emacs/site-lisp/combobulate-ztree.el
(defun combobulate-ztree-right (loc)
  "Return the loc of the right sibling of the node at this LOC.
nil if there's no more right sibilings."
  (combobulate-ztree--with-loc loc (node context l r)
    (let ((r (if (listp r)
                 r
               ;; If `r' is not a list (or nil), then we're dealing with a non
               ;; nil cdr ending list.
               (cons r nil))))
      (seq-let [cr &rest rnext] r
        (when (and context r)
          (combobulate-ztree--with-meta
           (cons cr
                 (combobulate-ztree--context-assoc context
                                        ':l (cons node l)
                                        ':r rnext))
           (combobulate-ztree--meta loc)))))))