From 481d7686f0569f5e2bdc570d0e58d408e9c86e9d Mon Sep 17 00:00:00 2001 From: Yuan Fu Date: Mon, 17 Feb 2025 13:29:46 -0800 Subject: [PATCH] Rename treesit-add-simple-indent-rules * lisp/treesit.el (treesit-add-simple-indent-rules): Rename to treesit-simple-indent-add-rules. * etc/NEWS: Update. * test/src/treesit-tests.el: (treesit-test-simple-indent-add-rules): Update accordingly. (cherry picked from commit 237afc82b2ed147fe6b1773df303c448ded9679b) --- lisp/treesit.el | 2 +- test/src/treesit-tests.el | 10 +++++----- 2 files changed, 6 insertions(+), 6 deletions(-) diff --git a/lisp/treesit.el b/lisp/treesit.el index de9d963d7f6..02170d34f29 100644 --- a/lisp/treesit.el +++ b/lisp/treesit.el @@ -2500,7 +2500,7 @@ RULES." offset))))) (cons lang (mapcar #'optimize-rule indent-rules))))) -(defun treesit-add-simple-indent-rules (language rules &optional where anchor) +(defun treesit-simple-indent-add-rules (language rules &optional where anchor) "Add simple indent RULES for LANGUAGE. This function only affects `treesit-simple-indent-rules', diff --git a/test/src/treesit-tests.el b/test/src/treesit-tests.el index 11536d56c19..9bf07677ab2 100644 --- a/test/src/treesit-tests.el +++ b/test/src/treesit-tests.el @@ -413,21 +413,21 @@ BODY is the test body." ;;; Indent -(ert-deftest treesit-test-add-simple-indent-rules () +(ert-deftest treesit-test-simple-indent-add-rules () "Test `treesit-add-simple-indent-rules'." (let ((treesit-simple-indent-rules (copy-tree '((c (a a a) (b b b) (c c c)))))) - (treesit-add-simple-indent-rules 'c '((d d d))) + (treesit-simple-indent-add-rules 'c '((d d d))) (should (equal treesit-simple-indent-rules '((c (d d d) (a a a) (b b b) (c c c))))) - (treesit-add-simple-indent-rules 'c '((e e e)) :after) + (treesit-simple-indent-add-rules 'c '((e e e)) :after) (should (equal treesit-simple-indent-rules '((c (d d d) (a a a) (b b b) (c c c) (e e e))))) - (treesit-add-simple-indent-rules 'c '((f f f)) :after '(b b b)) + (treesit-simple-indent-add-rules 'c '((f f f)) :after '(b b b)) (should (equal treesit-simple-indent-rules '((c (d d d) (a a a) (b b b) (f f f) (c c c) (e e e))))) - (treesit-add-simple-indent-rules 'c '((g g g)) :before '(b b b)) + (treesit-simple-indent-add-rules 'c '((g g g)) :before '(b b b)) (should (equal treesit-simple-indent-rules '((c (d d d) (a a a) (g g g) (b b b) (f f f) (c c c) (e e e))))))) -- 2.39.5