From: Ivan Shmakov <ivan@siamics.net>
To: 16267@debbugs.gnu.org
Subject: bug#16267: EWW fails for a page with: Lisp nesting exceeds `max-lisp-eval-depth'
Date: Fri, 27 Dec 2013 09:17:14 +0000 [thread overview]
Message-ID: <87wqiqr6ud.fsf_-_@violet.siamics.net> (raw)
In-Reply-To: <87mwjoczle.fsf@building.gnus.org> (Lars Ingebrigtsen's message of "Wed, 25 Dec 2013 23:53:01 +0100")
Package: emacs
Severity: minor
>>>>> Lars Ingebrigtsen <larsi@gnus.org> writes:
>>>>> Ivan Shmakov <ivan@siamics.net> writes:
>> As of 84b50168 [1], running EWW on [2] still results in what seem to
>> be an infinite loop over shr-find-fill-point. The top of the
>> *Backtrace* reads:
> I've applied something that I think should fix this.
I’ve updated both shr.el and eww.el to 80d59dcc [1], and EWW now
fails with the following for the page [2]. (I don’t know
whether it’s a side effect of the changes made to fix #16256, or
an entirely different bug.)
error in process filter: let*: Lisp nesting exceeds `max-lisp-eval-depth'
error in process filter: Lisp nesting exceeds `max-lisp-eval-depth'
However, raising max-lisp-eval-depth to 640 from the default
value of 600 makes the problem go away for this page.
The top of the *Backtrace* reads:
Debugger entered--Lisp error: (error "Lisp nesting exceeds `max-lisp-eval-depth'")
(progn (if (string-match "\n" style) (progn (setq style (replace-match " " t t style)))))
(unwind-protect (progn (if (string-match "\n" style) (progn (setq style (replace-match " " t t style))))) (set-match-data save-match-data-internal (quote evaporate)))
(let ((save-match-data-internal (match-data))) (unwind-protect (progn (if (string-match "\n" style) (progn (setq style (replace-match " " t t style))))) (set-match-data save-match-data-internal (quote evaporate))))
(progn (let ((save-match-data-internal (match-data))) (unwind-protect (progn (if (string-match "\n" style) (progn (setq style (replace-match " " t t style))))) (set-match-data save-match-data-internal (quote evaporate)))) (let ((plist nil)) (let ((--dolist-tail-- (split-string style ";")) elem) (while --dolist-tail-- (setq elem (car --dolist-tail--)) (if elem (progn (setq elem (split-string elem ":")) (if (and ... ...) (progn ...)))) (setq --dolist-tail-- (cdr --dolist-tail--)))) plist))
(if style (progn (let ((save-match-data-internal (match-data))) (unwind-protect (progn (if (string-match "\n" style) (progn (setq style ...)))) (set-match-data save-match-data-internal (quote evaporate)))) (let ((plist nil)) (let ((--dolist-tail-- (split-string style ";")) elem) (while --dolist-tail-- (setq elem (car --dolist-tail--)) (if elem (progn (setq elem ...) (if ... ...))) (setq --dolist-tail-- (cdr --dolist-tail--)))) plist)))
shr-parse-style("color:lightgray; font-size:0.8em;font-variant:small-caps;")
(nconc (shr-parse-style style) shr-stylesheet)
(setq shr-stylesheet (nconc (shr-parse-style style) shr-stylesheet))
(if (string-match "color\\|display\\|border-collapse" style) (setq shr-stylesheet (nconc (shr-parse-style style) shr-stylesheet)) (setq style nil))
(progn (if (string-match "color\\|display\\|border-collapse" style) (setq shr-stylesheet (nconc (shr-parse-style style) shr-stylesheet)) (setq style nil)))
(if style (progn (if (string-match "color\\|display\\|border-collapse" style) (setq shr-stylesheet (nconc (shr-parse-style style) shr-stylesheet)) (setq style nil))))
(let ((function (or (cdr (assq (car dom) shr-external-rendering-functions)) (intern (concat "shr-tag-" (symbol-name (car dom))) obarray))) (style (cdr (assq :style (cdr dom)))) (shr-stylesheet shr-stylesheet) (start (point))) (if style (progn (if (string-match "color\\|display\\|border-collapse" style) (setq shr-stylesheet (nconc (shr-parse-style style) shr-stylesheet)) (setq style nil)))) (if (equal (cdr (assq (quote display) shr-stylesheet)) "none") nil (if (fboundp function) (funcall function (cdr dom)) (shr-generic (cdr dom))) (if (and shr-target-id (equal (cdr (assq :id (cdr dom))) shr-target-id)) (progn (put-text-property start (1+ start) (quote shr-target-id) shr-target-id))) (if style (progn (shr-colorize-region start (point) (cdr (assq (quote color) shr-stylesheet)) (cdr (assq (quote background-color) shr-stylesheet)))))))
[1] http://git.savannah.gnu.org/cgit/emacs.git/commit/?id=80d59dcc
[2] https://ru.wikiversity.org/w/index.php?oldid=96679
--
FSF associate member #7257
next prev parent reply other threads:[~2013-12-27 9:17 UTC|newest]
Thread overview: 5+ messages / expand[flat|nested] mbox.gz Atom feed top
2013-12-25 21:04 bug#16256: EWW on a Web page results in infinite loop over shr-find-fill-point Ivan Shmakov
2013-12-25 22:53 ` Lars Ingebrigtsen
2013-12-27 9:17 ` Ivan Shmakov [this message]
2013-12-27 15:56 ` bug#16267: EWW fails for a page with: Lisp nesting exceeds `max-lisp-eval-depth' Lars Ingebrigtsen
2013-12-29 14:36 ` Ivan Shmakov
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.gnu.org/software/emacs/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87wqiqr6ud.fsf_-_@violet.siamics.net \
--to=ivan@siamics.net \
--cc=16267@debbugs.gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).