diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | 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 41c5f95700e..c600c745323 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'." | |||
| 1754 | align))) | 1754 | align))) |
| 1755 | (dolist (line lines) | 1755 | (dolist (line lines) |
| 1756 | (end-of-line) | 1756 | (end-of-line) |
| 1757 | (let ((start (point))) | 1757 | (let ((start (point)) |
| 1758 | (insert | 1758 | (background (and (> (length line) 0) |
| 1759 | line | 1759 | (shr-face-background |
| 1760 | (propertize " " | 1760 | (get-text-property |
| 1761 | 'display `(space :align-to (,pixel-align)) | 1761 | (1- (length line)) 'face line)))) |
| 1762 | 'face (and (> (length line) 0) | 1762 | (space (propertize |
| 1763 | (shr-face-background | 1763 | " " |
| 1764 | (get-text-property | 1764 | 'display `(space :align-to (,pixel-align)) |
| 1765 | (1- (length line)) 'face line))) | 1765 | 'shr-table-indent shr-table-id))) |
| 1766 | 'shr-table-indent shr-table-id) | 1766 | (when background |
| 1767 | shr-table-vertical-line) | 1767 | (setq space (propertize space 'face background))) |
| 1768 | (insert line space shr-table-vertical-line) | ||
| 1768 | (shr-colorize-region | 1769 | (shr-colorize-region |
| 1769 | start (1- (point)) (nth 5 column) (nth 6 column))) | 1770 | start (1- (point)) (nth 5 column) (nth 6 column))) |
| 1770 | (forward-line 1)) | 1771 | (forward-line 1)) |