From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 24 May 2023 13:47:27 +0000 (-0400)
Subject: * lisp/loadup.el: Don't accidentally reduce `max-lisp-eval-depth`
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b513036770499cf7981957d6f5f1626b0b5ef45d;p=emacs.git

* lisp/loadup.el: Don't accidentally reduce `max-lisp-eval-depth`
---

diff --git a/lisp/loadup.el b/lisp/loadup.el
index 7044a629848..532d2ca176d 100644
--- a/lisp/loadup.el
+++ b/lisp/loadup.el
@@ -103,7 +103,7 @@
       ;; During bootstrapping the byte-compiler is run interpreted
       ;; when compiling itself, which uses a lot more stack
       ;; than usual.
-      (setq max-lisp-eval-depth 3400)))
+      (setq max-lisp-eval-depth (max max-lisp-eval-depth 3400))))
 
 (if (eq t purify-flag)
     ;; Hash consing saved around 11% of pure space in my tests.