mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-25 10:47:00 +00:00
Code Issues Releases Activity

Make backgrounds extend to the end of the lines in shr

Browse Source 
* lisp/net/shr.el (shr-face-background): Faces can also be on
the form `(:background "#fff)' (bug#22547).
This commit is contained in:
Lars Ingebrigtsen 2016-02-09 14:45:22 +11:00
parent 9935e7cc8c
commit a3bf4a387f
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lisp/net/shr.el
View File

@ -1786,13 +1786,15 @@ The preference is a float determined from `shr-prefer-media-type'."
(defun shr-face-background (face)
(and (consp face)
(let ((background nil))
(dolist (elem face)
(when (and (consp elem)
(eq (car elem) :background))
(setq background (cadr elem))))
(and background
(list :background background)))))
(or (and (plist-get face :background)
(list :background (plist-get face :background)))
(let ((background nil))
(dolist (elem face)
(when (and (consp elem)
(eq (car elem) :background))
(setq background (cadr elem))))
(and background
(list :background background))))))
(defun shr-expand-alignments (start end)
(while (< (setq start (next-single-property-change