[nongnu] elpa/clojure-ts-mode 623c98292f: Disable treesit-transpose-sexps on Emacs 30

[ELPA Syncer]

branch: elpa/clojure-ts-mode
commit 623c98292f9207a95169cdeae6f8595c016c6320
Author: Danny Freeman <danny@dfreeman.email>
Commit: Danny Freeman <danny@dfreeman.email>

    Disable treesit-transpose-sexps on Emacs 30
    
    The treesit-implementation chokes on keywords and symbols.
    This is probably because keywords and symbols have named child nodes
    that the transpose algorithm picks up.
    
    The default implementation works better so we can use that for now.
    
    See issue #17
---
 CHANGELOG.md       | 1 +
 clojure-ts-mode.el | 5 +++--
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/CHANGELOG.md b/CHANGELOG.md
index 0f62f38adc..035beaba59 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -2,6 +2,7 @@
 
 ## main (unreleased)
 
+- Disable treesit-transpose-sexps on Emacs 30 in favor of the default 
implementation (#17)
 - Implement clojure-ts-find-ns function (mostly as a demonstration).
 
 ## 0.1.4
diff --git a/clojure-ts-mode.el b/clojure-ts-mode.el
index 2fc9a4a429..6507f0ef17 100644
--- a/clojure-ts-mode.el
+++ b/clojure-ts-mode.el
@@ -623,8 +623,9 @@ See `clojure-ts--standard-definition-node-name' for the 
implementation used.")
       (setq-local treesit--indent-verbose t
                   treesit--font-lock-verbose t)
       (treesit-inspect-mode))
-    (treesit-major-mode-setup)))
-
+    (treesit-major-mode-setup)
+    (when (fboundp 'transpose-sexps-default-function)
+      (setq-local transpose-sexps-function 
#'transpose-sexps-default-function))))
 
 ;;;###autoload
 (define-derived-mode clojurescript-ts-mode clojure-ts-mode "ClojureScript[TS]"