Function: combobulate-proxy-node-make-from-nodes

combobulate-proxy-node-make-from-nodes is a natively compiled function defined in combobulate-interface.el.

Signature

(combobulate-proxy-node-make-from-nodes NODES)

Documentation

Factory that creates a facsimile proxy node of NODES.

Source Code

;; Defined in /nix/store/b5fvrwzi3zvkabyzx0in6gw1cj963z46-emacs-packages-deps/share/emacs/site-lisp/combobulate-interface.el
(defun combobulate-proxy-node-make-from-nodes (nodes)
  "Factory that creates a facsimile proxy node of NODES."
  (let ((proxies
         (mapcar
          (pcase-lambda ((or (and (pred consp) `(,mark . ,node)) node))
            (let ((tgt-node (if (combobulate-node-p node)
                                (combobulate-proxy-node-create
                                 :start (set-marker (make-marker) (treesit-node-start node))
                                 :end (set-marker (make-marker) (treesit-node-end node))
                                 :text (treesit-node-text node t)
                                 :type (treesit-node-type node)
                                 :named (treesit-node-check node 'named)
                                 :field (treesit-node-field-name node)
                                 :node node
                                 :pp (combobulate-pretty-print-node node)
                                 :extra nil)
                              node)))
              (if mark (cons mark tgt-node) tgt-node)))
          (ensure-list nodes))))
    (if (consp nodes)
        proxies
      (car-safe proxies))))