branch: elpa/geiser
commit 48e6a6671571ef60ae764b165a2f152fc6d9e227
Author: jao <j...@gnu.org>
Commit: jao <j...@gnu.org>
Tweak also max-specdl-size for longer reads
---
elisp/geiser-syntax.el | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/elisp/geiser-syntax.el b/elisp/geiser-syntax.el
index dd347d3c4b..6cf89a99a0 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)))
