emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/svg-lib d9a49ac 14/32: Delete the redundant url checkin


From: ELPA Syncer
Subject: [elpa] externals/svg-lib d9a49ac 14/32: Delete the redundant url checking
Date: Mon, 27 Sep 2021 16:57:47 -0400 (EDT)

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

    Delete the redundant url checking
---
 svg-lib.el | 10 +---------
 1 file changed, 1 insertion(+), 9 deletions(-)

diff --git a/svg-lib.el b/svg-lib.el
index 8b9550c..7a06071 100644
--- a/svg-lib.el
+++ b/svg-lib.el
@@ -306,17 +306,9 @@ and style elements ARGS."
   "Retrieve icon NAME from COLLECTION.
 
 Cached version is returned if it exists unless FORCE-RELOAD is t."
-  
+
   ;; Build url from collection and name without checking for error
   (let ((url (format (cdr (assoc collection svg-lib-icon-collections)) name)))
-
-    ;; Get data only if not cached or if explicitely requested
-    (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))))
-
     ;; Get data from cache
     (let ((buffer (if (or force-reload (not (url-is-cached url)))
                       (let ((url-automatic-caching t)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]