[elpa] externals/svg-lib 4c47962 2/2: Fix more warnings

[ELPA Syncer]

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

    Fix more warnings
---
 svg-lib.el | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/svg-lib.el b/svg-lib.el
index 211112d..6175f47 100644
--- a/svg-lib.el
+++ b/svg-lib.el
@@ -274,14 +274,14 @@ and style elements ARGS."
          ;;  (scale       (plist-get style :scale))
          (margin      (plist-get style :margin))
          (padding     (plist-get style :padding))
-         (font-size   (plist-get style :font-size))
-         (font-family (plist-get style :font-family))
+         ;; (font-size   (plist-get style :font-size))
+         ;; (font-family (plist-get style :font-family))
          ;; (font-weight (plist-get style :font-weight))
          
          (txt-char-width  (window-font-width))
          (txt-char-height (window-font-height))
          
-         (font-info       (font-info (format "%s-%d" font-family font-size)))
+         ;; (font-info       (font-info (format "%s-%d" font-family 
font-size)))
          ;; (ascent          (aref font-info 8))
          ;; (tag-char-width  (aref font-info 11))
          ;; (tag-char-height (aref font-info 3))
@@ -345,15 +345,15 @@ and style elements ARGS."
          ;; (scale       (plist-get style :scale))
          (margin      (plist-get style :margin))
          (padding     (plist-get style :padding))
-         (font-size   (plist-get style :font-size))
-         (font-family (plist-get style :font-family))
+         ;; (font-size   (plist-get style :font-size))
+         ;; (font-family (plist-get style :font-family))
          ;; (font-weight (plist-get style :font-weight))
 
          (txt-char-width  (window-font-width))
          (txt-char-height (window-font-height))
          
-         (font-info       (font-info (format "%s-%d" font-family font-size)))
-         (ascent          (aref font-info 8))
+         ;; (font-info       (font-info (format "%s-%d" font-family 
font-size)))
+         ;; (ascent          (aref font-info 8))
          ;; (tag-char-width  (aref font-info 11))
          ;; (tag-char-height (aref font-info 3))
 
@@ -497,7 +497,7 @@ and style elements ARGS."
          (foreground  (plist-get style :foreground))
          (background  (plist-get style :background))
          (stroke      (plist-get style :stroke))
-         (width       (plist-get style :width))
+         ;; (width       (plist-get style :width))
          (height      (plist-get style :height))
          (radius      (plist-get style :radius))
          (scale       (plist-get style :scale))