branch: elpa/treesit-fold
commit 862b571191ab47d186db0ec931ce99b48489fa58
Author: Jen-Chieh <[email protected]>
Commit: Jen-Chieh <[email protected]>

    Remove def
---
 tree-sitter-fold-parsers.el |  2 --
 tree-sitter-fold.el         | 10 ----------
 2 files changed, 12 deletions(-)

diff --git a/tree-sitter-fold-parsers.el b/tree-sitter-fold-parsers.el
index a9b9439904..435572dc90 100644
--- a/tree-sitter-fold-parsers.el
+++ b/tree-sitter-fold-parsers.el
@@ -40,7 +40,6 @@
 (declare-function tree-sitter-fold-range-block-comment "tree-sitter-fold.el")
 (declare-function tree-sitter-fold-c-like-comment "tree-sitter-fold.el")
 
-(declare-function tree-sitter-fold-range-c-preproc-def "tree-sitter-fold.el")
 (declare-function tree-sitter-fold-range-c-preproc-ifdef "tree-sitter-fold.el")
 (declare-function tree-sitter-fold-range-c-preproc-if "tree-sitter-fold.el")
 (declare-function tree-sitter-fold-range-c-preproc-else "tree-sitter-fold.el")
@@ -66,7 +65,6 @@
     (declaration_list       . tree-sitter-fold-range-seq)
     (enumerator_list        . tree-sitter-fold-range-seq)
     (field_declaration_list . tree-sitter-fold-range-seq)
-    (preproc_def            . tree-sitter-fold-range-c-preproc-def)
     (preproc_if             . tree-sitter-fold-range-c-preproc-if)
     (preproc_ifdef          . tree-sitter-fold-range-c-preproc-ifdef)
     (preproc_else           . tree-sitter-fold-range-c-preproc-else)
diff --git a/tree-sitter-fold.el b/tree-sitter-fold.el
index cd0b35412e..9148cc1a24 100644
--- a/tree-sitter-fold.el
+++ b/tree-sitter-fold.el
@@ -410,16 +410,6 @@ more information."
 ;; (@* "Languages" )
 ;;
 
-(defun tree-sitter-fold-range-c-preproc-def (node offset)
-  ""
-  (when-let* ((named-node (tsc-get-child-by-field node :name))
-              (beg (tsc-node-end-position named-node))
-              (next (or (tree-sitter-fold--get-node-by-text node "#elif" t)
-                        (tree-sitter-fold--get-node-by-text node "#else" t)
-                        (tree-sitter-fold--get-node-by-text node "#endif" t)))
-              (end (1- (tsc-node-start-position next))))
-    (tree-sitter-fold-util--cons-add (cons beg end) offset)))
-
 (defun tree-sitter-fold-range-c-preproc-if (node offset)
   ""
   (when-let* ((named-node (tsc-get-child-by-field node :condition))

Reply via email to