summaryrefslogtreecommitdiff
path: root/elisp/geiser-syntax.el
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2021-12-27 16:12:39 +0000
committerjao <jao@gnu.org>2021-12-27 16:15:58 +0000
commit48e6a6671571ef60ae764b165a2f152fc6d9e227 (patch)
tree3ce06995ffa7f5dd2b393f1db5d2d30c17649f72 /elisp/geiser-syntax.el
parent9a02421436d304f64969d5dfca37ae23272570ee (diff)
downloadgeiser-48e6a6671571ef60ae764b165a2f152fc6d9e227.tar.gz
geiser-48e6a6671571ef60ae764b165a2f152fc6d9e227.tar.bz2
Tweak also max-specdl-size for longer reads
Diffstat (limited to 'elisp/geiser-syntax.el')
-rw-r--r--elisp/geiser-syntax.el5
1 files changed, 3 insertions, 2 deletions
diff --git a/elisp/geiser-syntax.el b/elisp/geiser-syntax.el
index dd347d3..6cf89a9 100644
--- a/elisp/geiser-syntax.el
+++ b/elisp/geiser-syntax.el
@@ -286,10 +286,11 @@ implementation-specific entries for font-lock-keywords.")
(let* ((start (or start 0))
(end (or end (length string)))
(max-lisp-eval-depth (min 20000
- (max max-lisp-eval-depth (- end start)))))
+ (max max-lisp-eval-depth (- end start))))
+ (max-specpdl-size (* 2 max-lisp-eval-depth)))
(with-temp-buffer
(save-excursion (insert string))
- (cons (ignore-errors (geiser-syntax--read)) (point))))))
+ (cons (geiser-syntax--read) (point))))))
(defun geiser-syntax--form-from-string (s)
(car (geiser-syntax--read-from-string s)))