Commit aae9ac27 authored by Lars Ingebrigtsen's avatar Lars Ingebrigtsen

Avoid an infloop in shr when filling text with :align-to properties

* lisp/net/shr.el (shr-fill-line): Only join together URL buttons
if there are any URL buttons.
parent b22dffbc
Pipeline #2949 failed with stage
in 54 minutes and 1 second
......@@ -719,6 +719,7 @@ size, and full-buffer size."
(insert "\n")
(shr-indent)
(when (and (> (1- gap-start) (point-min))
(get-text-property (point) 'shr-url)
;; The link on both sides of the newline are the
;; same...
(equal (get-text-property (point) 'shr-url)
......@@ -2363,6 +2364,7 @@ flags that control whether to collect or render objects."
(car (window-text-pixel-size nil (point-min) (point-max)))))))
(defun shr-render-td (dom width fill)
(setq d dom)
(let ((cache (intern (format "shr-td-cache-%s-%s" width fill))))
(or (dom-attr dom cache)
(and fill
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment