[nongnu] elpa/geiser 48e6a66715 2/3: Tweak also max-specdl-size for longer reads

[ELPA Syncer]

branch: elpa/geiser
commit 48e6a6671571ef60ae764b165a2f152fc6d9e227
Author: jao <jao@gnu.org>
Commit: jao <jao@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)))