[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs-25 cb035f3: Don't insert nil faces in shr
From: |
Lars Ingebrigtsen |
Subject: |
[Emacs-diffs] emacs-25 cb035f3: Don't insert nil faces in shr |
Date: |
Tue, 02 Feb 2016 04:16:43 +0000 |
branch: emacs-25
commit cb035f348ecee23009461af9ce3aa6f92996684f
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>
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]".
---
lisp/net/shr.el | 23 ++++++++++++-----------
1 files changed, 12 insertions(+), 11 deletions(-)
diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index 41c5f95..c600c74 100644
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs-25 cb035f3: Don't insert nil faces in shr,
Lars Ingebrigtsen <=