branch: elpa/cider
commit ee48d406a998b6db8935934cc890aaef77fc3200
Author: Roman Rudakov <[email protected]>
Commit: Bozhidar Batsov <[email protected]>
[#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.
