[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 7e3a95d: Add way to prevent asking "increase specpdl size?"
From: |
Richard M. Stallman |
Subject: |
master 7e3a95d: Add way to prevent asking "increase specpdl size?" |
Date: |
Thu, 15 Oct 2020 22:33:21 -0400 (EDT) |
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")
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 7e3a95d: Add way to prevent asking "increase specpdl size?",
Richard M. Stallman <=