diff options
| author | Lars Ingebrigtsen | 2016-02-20 18:48:40 +1100 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2016-02-20 18:48:40 +1100 |
| commit | 1ba50a0d8cbef6686ecf752583832e7bbb9137ef (patch) | |
| tree | 4e9e84f07cf78c85d128d0c94ee91d4eefe42072 | |
| parent | 80852f843e69b81618f29cfb9aa4b074946cb3c4 (diff) | |
| download | emacs-1ba50a0d8cbef6686ecf752583832e7bbb9137ef.tar.gz emacs-1ba50a0d8cbef6686ecf752583832e7bbb9137ef.zip | |
Add a frame around the placeholder image in shr
* lisp/net/shr.el (shr-make-placeholder-image): Add a frame
around the image.
| -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 | ||