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

Don't insert nil faces in shr

Browse source 
* shr.el (shr-insert-table): Don't add nil faces, because that
will show up in *Messages* as "Invalid face reference: nil [32
times]".
This commit is contained in:
Lars Ingebrigtsen 2016-02-02 05:16:34 +01:00
parent 4c3fae351a
commit cb035f348e
1 changed files with 12 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

23
lisp/net/shr.el
View file

@ -1754,17 +1754,18 @@ The preference is a float determined from `shr-prefer-media-type'."
align)))
(dolist (line lines)
(end-of-line)
(let ((start (point)))
(insert
line
(propertize " "
'display `(space :align-to (,pixel-align))
'face (and (> (length line) 0)
(shr-face-background
(get-text-property
(1- (length line)) 'face line)))
'shr-table-indent shr-table-id)
shr-table-vertical-line)
(let ((start (point))
(background (and (> (length line) 0)
(shr-face-background
(get-text-property
(1- (length line)) 'face line))))
(space (propertize
" "
'display `(space :align-to (,pixel-align))
'shr-table-indent shr-table-id)))
(when background
(setq space (propertize space 'face background)))
(insert line space shr-table-vertical-line)
(shr-colorize-region
start (1- (point)) (nth 5 column) (nth 6 column)))
(forward-line 1))