[#3791] Fix font lock error for clojure-ts-mode

Author: rrudakov

CHANGELOG.md

@@ -35,7 +35,9 @@
 
 ### Bugs fixed
 
-- `cider-find-keyword` doesn't work with `clojure-ts-mode`.
+- [#3779](https://github.com/clojure-emacs/cider/pull/3779): `cider-find-keyword` doesn't work with `clojure-ts-mode`.
+- [#3791](https://github.com/clojure-emacs/cider/issues/3791): Missing font lock when `cider-font-lock-dynamically` is enabled
+  for `clojure-ts-mode`.
 
 ## 1.17.1 (2025-02-25)
 

cider-mode.el

@@ -982,7 +982,12 @@ before point."
                       (not (eq (char-after) ?\()))
                   (condition-case nil
                       (progn (backward-up-list) t)
-                    (scan-error nil))))
+                    (scan-error nil)
+                    ;; In `clojure-ts-mode', when `backward-up-list' is used,
+                    ;; `user-error' is signaled instead of `scan-error' because
+                    ;; the operation is delegated to the `treesit-up-list'
+                    ;; function.
+                    (user-error nil))))
       (setq beg (min beg (point)))
       ;; If there are locals above the current sexp, reapply them to the
       ;; current sexp.