diff options
author | Artur Malabarba <bruce.connor.am@gmail.com> | 2016-03-09 12:45:28 -0300 |
---|---|---|
committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2016-03-09 12:47:23 -0300 |
commit | c88ed0819800b6840f2fe287897023c1a26d1958 (patch) | |
tree | c0993aeedf2fbccbec105e1688a03db248025727 /cider-mode.el | |
parent | 641a522dbd055dbd9e4cbfc5c17c8af29e2c014b (diff) |
[Fix #1612] Be more careful about parsing locals
Diffstat (limited to 'cider-mode.el')
-rw-r--r-- | cider-mode.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/cider-mode.el b/cider-mode.el index 2810acbb..c2245ee5 100644 --- a/cider-mode.el +++ b/cider-mode.el @@ -572,7 +572,9 @@ before point." ;; current sexp. (let ((locals-above (when (> beg (point-min)) (get-text-property (1- beg) 'cider-locals)))) - (clojure-forward-logical-sexp 1) + (condition-case nil + (clojure-forward-logical-sexp 1) + (error (goto-char end))) (add-text-properties beg (point) `(cider-locals ,locals-above)) ;; Extend the region being font-locked to include whole sexps. (setq end (max end (point))) |