Function: treesit-fold-range-pascal-comment

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

Signature

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

Documentation

Define fold range for comment in Pascal.

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
(defun treesit-fold-range-pascal-comment (node offset)
  "Define fold range for `comment' in Pascal.

For arguments NODE and OFFSET, see function `treesit-fold-range-seq' for
more information."
  (let ((text (treesit-node-text node)))
    (cond ((string-prefix-p "{" text)
           (treesit-fold-range-seq node offset))
          ((string-prefix-p "(*" text)
           (treesit-fold-range-seq node (treesit-fold--cons-add '(1 . -1) offset)))
          (t
           (treesit-fold-range-c-like-comment node offset)))))