Function: treesit-fold-range-ocaml-comment

treesit-fold-range-ocaml-comment is a natively compiled function defined in treesit-fold.el.

Signature

(treesit-fold-range-ocaml-comment NODE OFFSET)

Documentation

Define fold range for comment.

For arguments NODE and OFFSET, see function treesit-fold-range-seq for more information.

Source Code

;; Defined in /nix/store/mpy1l6b4hlzpp59l4vbahq83hqa821ci-emacs-packages-deps/share/emacs/site-lisp/elpa/treesit-fold-0.2.1/treesit-fold.el
;;+ OCaml

(defun treesit-fold-range-ocaml-comment (node offset)
  "Define fold range for `comment'.

For arguments NODE and OFFSET, see function `treesit-fold-range-seq' for
more information."
  (when-let* ((text (treesit-node-text node))
              (beg  (+ (if (string-prefix-p "(* " text) 2 3)
                       (treesit-node-start node)))
              (end  (- (treesit-node-end node) 2)))
    (treesit-fold--cons-add (cons beg end) offset)))