[elpa] externals/svg-lib 3c2724e37b 1/2: Fix style generation (close #43)

[ELPA Syncer]

branch: externals/svg-lib
commit 3c2724e37b1df448304d9bece4ec35282f6b363c
Author: Nicolas P. Rougier <Nicolas.Rougier@inria.fr>
Commit: Nicolas P. Rougier <Nicolas.Rougier@inria.fr>

    Fix style generation (close #43)
---
 svg-lib.el | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/svg-lib.el b/svg-lib.el
index 8a34d2c64b..45ecc5c798 100644
--- a/svg-lib.el
+++ b/svg-lib.el
@@ -276,9 +276,12 @@ If COLOR-NAME is unknown to Emacs, then return COLOR-NAME 
as-is."
          (style '()))
 
     (dolist (key keys)
-      (setq style (if (plist-member args key)
-                      (plist-put style key (plist-get args key))
-                    (plist-put style key (plist-get base key)))))
+      (setq style (cond ((plist-member args key)
+                         (plist-put style key (plist-get args key)))
+                         ((plist-member base key)
+                          (plist-put style key (plist-get base key)))
+                         (t
+                          (plist-put style key (plist-get default key))))))
 
     ;; Convert emacs colors to SVG colors
     (plist-put style :foreground