branch: externals/svg-lib
commit fe5e0998bbf32b2a8d91c9a100cdb20640d26b32
Author: Damon Chan <damon.c...@freshup.com.hk>
Commit: Damon Chan <damon.c...@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))))))
