diff options
| -rw-r--r-- | lisp/net/shr.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/net/shr.el b/lisp/net/shr.el index 78862b373d4..6352d384184 100644 --- a/lisp/net/shr.el +++ b/lisp/net/shr.el | |||
| @@ -1548,7 +1548,8 @@ The preference is a float determined from `shr-prefer-media-type'." | |||
| 1548 | height max-height)) | 1548 | height max-height)) |
| 1549 | (setq svg (svg-create width height)) | 1549 | (setq svg (svg-create width height)) |
| 1550 | (svg-gradient svg "background" 'linear '((0 . "#b0b0b0") (100 . "#808080"))) | 1550 | (svg-gradient svg "background" 'linear '((0 . "#b0b0b0") (100 . "#808080"))) |
| 1551 | (svg-rectangle svg 0 0 width height :gradient "background") | 1551 | (svg-rectangle svg 0 0 width height :gradient "background" |
| 1552 | :stroke-width 2 :stroke-color "black") | ||
| 1552 | (let ((image (svg-image svg))) | 1553 | (let ((image (svg-image svg))) |
| 1553 | (image-set-property image :ascent 100)))) | 1554 | (image-set-property image :ascent 100)))) |
| 1554 | 1555 | ||