branch: externals/svg-lib
commit 4c4796219ef47304e3edc8baefbbd507092f8651
Author: Nicolas P. Rougier <nicolas.roug...@inria.fr>
Commit: Nicolas P. Rougier <nicolas.roug...@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))
