diff options
Diffstat (limited to 'lisp/net/shr.el')
| -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 4d4e8a809e1..fe93fc32ad3 100644 --- a/lisp/net/shr.el +++ b/lisp/net/shr.el | |||
| @@ -945,6 +945,7 @@ If EXTERNAL, browse the URL using `shr-external-browser'." | |||
| 945 | (when (and (buffer-name buffer) | 945 | (when (and (buffer-name buffer) |
| 946 | (not (plist-get status :error))) | 946 | (not (plist-get status :error))) |
| 947 | (url-store-in-cache image-buffer) | 947 | (url-store-in-cache image-buffer) |
| 948 | (goto-char (point-min)) | ||
| 948 | (when (or (search-forward "\n\n" nil t) | 949 | (when (or (search-forward "\n\n" nil t) |
| 949 | (search-forward "\r\n\r\n" nil t)) | 950 | (search-forward "\r\n\r\n" nil t)) |
| 950 | (let ((data (shr-parse-image-data))) | 951 | (let ((data (shr-parse-image-data))) |
| @@ -998,7 +999,7 @@ element is the data blob and the second element is the content-type." | |||
| 998 | (create-image data nil t :ascent 100 | 999 | (create-image data nil t :ascent 100 |
| 999 | :format content-type)) | 1000 | :format content-type)) |
| 1000 | ((eq content-type 'image/svg+xml) | 1001 | ((eq content-type 'image/svg+xml) |
| 1001 | (create-image data 'imagemagick t :ascent 100)) | 1002 | (create-image data 'svg t :ascent 100)) |
| 1002 | ((eq size 'full) | 1003 | ((eq size 'full) |
| 1003 | (ignore-errors | 1004 | (ignore-errors |
| 1004 | (shr-rescale-image data content-type | 1005 | (shr-rescale-image data content-type |