[elpa] externals/svg-lib fe5e099 13/32: Do not fetch svg if it is cached

[ELPA Syncer]

branch: externals/svg-lib
commit fe5e0998bbf32b2a8d91c9a100cdb20640d26b32
Author: Damon Chan <damon.chan@freshup.com.hk>
Commit: Damon Chan <damon.chan@freshup.com.hk>

    Do not fetch svg if it is cached
---
 svg-lib.el | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/svg-lib.el b/svg-lib.el
index 40919ed..8b9550c 100644
--- a/svg-lib.el
+++ b/svg-lib.el
@@ -318,7 +318,13 @@ Cached version is returned if it exists unless 
FORCE-RELOAD is t."
             (write-region (point-min) (point-max) filename))))
 
     ;; Get data from cache
-    (let ((buffer (url-fetch-from-cache url)))
+    (let ((buffer (if (or force-reload (not (url-is-cached url)))
+                      (let ((url-automatic-caching t)
+                            (filename (url-cache-create-filename url)))
+                        (with-current-buffer (url-retrieve-synchronously url)
+                          (write-region (point-min) (point-max) filename)
+                          (current-buffer)))
+                      (url-fetch-from-cache url))))
       (with-current-buffer buffer
         (xml-parse-region (point-min) (point-max))))))