master 7e3a95d: Add way to prevent asking "increase specpdl size?"

[Richard M. Stallman]

branch: master
commit 7e3a95d8fd0ced4a75edea7b14b3038b1997d516
Author: Richard M Stallman <rms@gnu.org>
Commit: Richard Stallman <rms@gnu.org>

    Add way to prevent asking "increase specpdl size?"
    
    * net/shr.el (shr-offer-extend-specpdl): New option, default t.
    (shr-descend): If shr-offer-extend-specpdl is nil, don't even ask
    whether to extend the specpdl, just signal error.
---
 lisp/net/shr.el | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index 88e6917..2e5dd5f 100644
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -146,6 +146,14 @@ same domain as the main data."
   :version "24.4"
   :type 'boolean)
 
+(defcustom shr-offer-extend-specpdl t
+  "Non-nil means offer to extend the specpdl if the HTML nests deeply.
+Complicated HTML can require more nesting than the current specpdl
+size permits.  If this variable is t, ask the user whether to increase
+the specpdl size.  If nil, just give up."
+  :version "28.1"
+  :type 'boolean)
+
 (defvar shr-content-function nil
   "If bound, this should be a function that will return the content.
 This is used for cid: URLs, and the function is called with the
@@ -527,7 +535,8 @@ size, and full-buffer size."
        (start (point)))
     ;; shr uses many frames per nested node.
     (if (and (> shr-depth (/ max-specpdl-size 15))
-             (not (and (y-or-n-p "Too deeply nested to render properly; 
increase `max-specpdl-size'?")
+             (not (and shr-offer-extend-specpdl
+                       (y-or-n-p "Too deeply nested to render properly; 
increase `max-specpdl-size'?")
                        (setq max-specpdl-size (* max-specpdl-size 2)))))
         (setq shr-warning
               "Not rendering the complete page because of too-deep nesting")