[elpa] externals/svg-lib b2a168482f: Manual fix from PR#16 (to avoid conflicts)

[ELPA Syncer]

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

    Manual fix from PR#16 (to avoid conflicts)
---
 svg-lib-demo.el | 2 +-
 svg-lib.el      | 6 +++---
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/svg-lib-demo.el b/svg-lib-demo.el
index 0598062cc9..f1350fca80 100644
--- a/svg-lib-demo.el
+++ b/svg-lib-demo.el
@@ -25,7 +25,7 @@
 (dotimes (i 5)
   (insert-image (svg-lib-tag "TODO" nil
                              :font-weight (* (+ i 2) 100))))
-     
+
 
 (dotimes (i 10)
   (insert-image (svg-lib-tag "TODO" nil :padding 1 :stroke (/ i 4.0))))
diff --git a/svg-lib.el b/svg-lib.el
index 8bad50eab6..ccf1572445 100644
--- a/svg-lib.el
+++ b/svg-lib.el
@@ -224,7 +224,7 @@ If COLOR-NAME is unknown to Emacs, then return COLOR-NAME 
as-is."
   
   (let* ((default svg-lib-style-default)
          (base (or base default))
-         (keys (cl-loop for (key value) on default by 'cddr
+         (keys (cl-loop for (key _value) on default by 'cddr
                         collect key))
          (style '()))
 
@@ -370,7 +370,7 @@ and style elements ARGS."
          (x1              (+ cx (* iradius (cos angle1))))
          (y1              (+ cy (* iradius (sin angle1))))
 
-         (large-arc       (>= (- angle1 angle0) pi))
+         (large-arc       (>= (- angle1 angle0) float-pi))
          (svg (svg-create svg-width svg-height)))
 
     (when (>= stroke 0.25)
@@ -378,7 +378,7 @@ and style elements ARGS."
 
     (svg-circle svg cx cy (- radius (/ stroke 2.0)) :fill background)
 
-    (if (>= (- angle1 angle0) (* pi 2))
+    (if (>= (- angle1 angle0) (* float-pi 2))
         (svg-circle svg cx cy iradius :fill foreground)
       (svg-path svg `((moveto ((,cx . ,cy)))
                     (lineto ((,x0 . ,y0)))