mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

-

Browse source
This commit is contained in:
Paul Eggert 2016-02-09 14:26:40 -08:00
commit 8456ba1d49
12 changed files with 1037 additions and 697 deletions
Download patch file Download diff file Expand all files Collapse all files

16
lisp/net/shr.el
View file

@ -1818,13 +1818,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