[nongnu] elpa/cider ee48d406a9: [#3791] Fix font lock error for clojure-ts-mode

[ELPA Syncer]

branch: elpa/cider
commit ee48d406a998b6db8935934cc890aaef77fc3200
Author: Roman Rudakov <rrudakov@fastmail.com>
Commit: Bozhidar Batsov <bozhidar@batsov.dev>

    [#3791] Fix font lock error for clojure-ts-mode
---
 CHANGELOG.md  | 4 +++-
 cider-mode.el | 7 ++++++-
 2 files changed, 9 insertions(+), 2 deletions(-)

diff --git a/CHANGELOG.md b/CHANGELOG.md
index e65ff28e03..e8d1565ecc 100644
--- a/CHANGELOG.md
+++ b/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)
 
diff --git a/cider-mode.el b/cider-mode.el
index b1cf700352..7106e49181 100644
--- a/cider-mode.el
+++ b/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.