procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Extend background colours in shr

Browse source 
* lisp/net/shr.el (shr-colorize-region): Extend backgrounds to the
end (bug#43031).  This avoid ragged edges to the right when, for
instance, the <body> has a bgcolor.
(shr-face-background): Ditto.
This commit is contained in:
Lars Ingebrigtsen 2020-08-25 13:57:00 +02:00
parent 71209b231a
commit 1064b2f65e
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/net/shr.el
View file

@ -1315,7 +1315,7 @@ ones, in case fg and bg are nil."
t))
(when bg
(add-face-text-property start end
(list :background (car new-colors))
(list :background (car new-colors) :extend t)
t)))
new-colors)))
@ -2250,7 +2250,7 @@ flags that control whether to collect or render objects."
(not background))
(setq background (cadr elem))))
(and background
(list :background background))))))
(list :background background :extend t))))))
(defun shr-expand-alignments (start end)
(while (< (setq start (next-single-property-change