[elpa] externals/svg-tag-mode 6e52f7c17e 1/2: Added dedicated default face

[ELPA Syncer]

branch: externals/svg-tag-mode
commit 6e52f7c17e92c83476d6278869bf3f55d91ac9c9
Author: Nicolas P. Rougier <Nicolas.Rougier@inria.fr>
Commit: Nicolas P. Rougier <Nicolas.Rougier@inria.fr>

    Added dedicated default face
---
 svg-tag-mode.el | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/svg-tag-mode.el b/svg-tag-mode.el
index a52df96fd5..e7a81cdfea 100644
--- a/svg-tag-mode.el
+++ b/svg-tag-mode.el
@@ -150,6 +150,12 @@ string as argument and returns a SVG tag."
                              (sexp     :tag "Command")
                              (sexp     :tag "Help")))))
 
+(defface svg-tag-default-face
+  '((t :inherit default))
+  "Default face"
+  :group 'svg-tag)
+
+
 (defun svg-tag-make (tag &optional &rest args)
   "Return a svg tag displaying TAG and using specified ARGS.
    
@@ -173,7 +179,7 @@ string as argument and returns a SVG tag."
    function. If you need full control of tag appearance, best is
    to call svg-lib-tag directly."
   
-  (let* ((face (or (plist-get args :face) 'default))
+  (let* ((face (or (plist-get args :face) 'svg-tag-default-face))
          (inverse (or (plist-get args :inverse) nil))
          (tag (string-trim tag))
          (beg (or (plist-get args :beg) 0))