Function: combobulate-cursor-edit-sequence

combobulate-cursor-edit-sequence is a natively compiled function defined in combobulate-cursor.el.

Signature

(combobulate-cursor-edit-sequence NODE ACTION)

Documentation

Find the sequence, if there is one, NODE belongs to and ACTION them.

Source Code

;; Defined in /nix/store/b5fvrwzi3zvkabyzx0in6gw1cj963z46-emacs-packages-deps/share/emacs/site-lisp/combobulate-cursor.el
(defun combobulate-cursor-edit-sequence (node action)
  "Find the sequence, if there is one, NODE belongs to and ACTION them."
  (pcase-let (((cl-struct combobulate-procedure-result
                          (selected-nodes selected-nodes)
                          (parent-node parent-node))
               (or (car-safe (combobulate-procedure-start node))
                   (error "No sequence to edit."))))
    (combobulate-cursor-edit-nodes
     ;; Remove `@discard' matches.
     (mapcar 'cdr (seq-remove
                   ;; remove `@discard' matches. Tree-sitter does not
                   ;; return tags with `@', but Combobulate query
                   ;; search does.
                   (lambda (m) (or (equal (car m) '@discard)
                              (equal (car m) 'discard)))
                   selected-nodes))
     action
     parent-node)))