Commit cb035f34 authored by Lars Ingebrigtsen's avatar Lars Ingebrigtsen

Don't insert nil faces in shr

* shr.el (shr-insert-table): Don't add nil faces, because that
will show up in *Messages* as "Invalid face reference: nil [32
times]".
parent 4c3fae35
...@@ -1754,17 +1754,18 @@ The preference is a float determined from `shr-prefer-media-type'." ...@@ -1754,17 +1754,18 @@ The preference is a float determined from `shr-prefer-media-type'."
align))) align)))
(dolist (line lines) (dolist (line lines)
(end-of-line) (end-of-line)
(let ((start (point))) (let ((start (point))
(insert (background (and (> (length line) 0)
line (shr-face-background
(propertize " " (get-text-property
'display `(space :align-to (,pixel-align)) (1- (length line)) 'face line))))
'face (and (> (length line) 0) (space (propertize
(shr-face-background " "
(get-text-property 'display `(space :align-to (,pixel-align))
(1- (length line)) 'face line))) 'shr-table-indent shr-table-id)))
'shr-table-indent shr-table-id) (when background
shr-table-vertical-line) (setq space (propertize space 'face background)))
(insert line space shr-table-vertical-line)
(shr-colorize-region (shr-colorize-region
start (1- (point)) (nth 5 column) (nth 6 column))) start (1- (point)) (nth 5 column) (nth 6 column)))
(forward-line 1)) (forward-line 1))
......
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