From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sat, 19 Oct 2019 08:23:19 +0000 (+0200)
Subject: Don't have shr bug out if svg support isn't available
X-Git-Tag: emacs-27.0.90~994
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e4a4aa3057e4ab50ba690fbea3a06e578f62722b;p=emacs.git

Don't have shr bug out if svg support isn't available

* lisp/net/shr.el (shr-put-image): Don't bug out if SVG support
isn't available.
---

diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index f3d5de9fb67..93408840ab6 100644
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -1075,7 +1075,8 @@ element is the data blob and the second element is the content-type."
 		      (create-image data nil t :ascent 100
 				    :format content-type))
 		     ((eq content-type 'image/svg+xml)
-		      (create-image data 'svg t :ascent 100))
+                      (when (image-type-available-p 'svg)
+		        (create-image data 'svg t :ascent 100)))
 		     ((eq size 'full)
 		      (ignore-errors
 			(shr-rescale-image data content-type