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

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

[elpa] externals/svg-lib 84ccfb89b9 8/8: Bugfix with default style with


From: ELPA Syncer
Subject: [elpa] externals/svg-lib 84ccfb89b9 8/8: Bugfix with default style with args
Date: Sun, 31 Dec 2023 06:58:38 -0500 (EST)

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

    Bugfix with default style with args
---
 svg-lib.el | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/svg-lib.el b/svg-lib.el
index 9912fcac56..734db8d69d 100644
--- a/svg-lib.el
+++ b/svg-lib.el
@@ -313,7 +313,6 @@ If COLOR-NAME is unknown to Emacs, then return COLOR-NAME 
as-is."
     (svg-lib-style style)))
 
 
-
 (defun svg-lib-tag (label &optional face-or-style &rest args)
   "Create an image displaying LABEL in a rounded box using given FACE-OR-STYLE
 and additional style elements ARGS."
@@ -323,8 +322,8 @@ and additional style elements ARGS."
                          (apply #'svg-lib-style-from-face face-or-style args))
                         (face-or-style
                          (apply #'svg-lib-style face-or-style args))
-                        (t
-                         svg-lib-style-default)))
+                      (t
+                       (apply #'svg-lib-style svg-lib-style-default args))))
            (label-regex "\\[\\([a-zA-Z0-9]+:\\)?\\([a-zA-Z0-9 _-]+\\)\\] 
*\\(.+\\)?"))
       (if (string-match label-regex label)
           (let* ((collection (match-string 1 label))



reply via email to

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