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

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

[elpa] externals/svg-tag-mode ede0edb5c3 25/63: Lint correction


From: ELPA Syncer
Subject: [elpa] externals/svg-tag-mode ede0edb5c3 25/63: Lint correction
Date: Mon, 27 Dec 2021 15:57:58 -0500 (EST)

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

    Lint correction
---
 svg-tag-mode.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/svg-tag-mode.el b/svg-tag-mode.el
index 26d1ba0d52..9ade4494c7 100644
--- a/svg-tag-mode.el
+++ b/svg-tag-mode.el
@@ -179,7 +179,7 @@ INNER-PADDING, OUTER-PADDING and RADIUS controls the visual 
aspect of the box."
     (svg-image svg :ascent 'center)))
 
 
-(defun tag-svg--build-keywords (item)
+(defun svg-tag--build-keywords (item)
   "Internal.  Build the list of keyword from ITEM."
   (let ((pattern  (format "\\(%s\\)" (car item)))
         (tag      (cdr item)))
@@ -193,10 +193,10 @@ INNER-PADDING, OUTER-PADDING and RADIUS controls the 
visual aspect of the box."
   (add-to-list 'font-lock-extra-managed-props 'display)
   (when svg-tag-tags--active
     (font-lock-remove-keywords nil
-          (mapcar 'tag-svg--build-keywords svg-tag-tags--active)))
+          (mapcar 'svg-tag--build-keywords svg-tag-tags--active)))
   (when svg-tag-tags
     (font-lock-add-keywords nil
-                            (mapcar 'tag-svg--build-keywords svg-tag-tags)))
+                            (mapcar 'svg-tag--build-keywords svg-tag-tags)))
   (setq svg-tag-tags--active (copy-sequence svg-tag-tags))
   (message "SVG tag mode on"))
 
@@ -204,7 +204,7 @@ INNER-PADDING, OUTER-PADDING and RADIUS controls the visual 
aspect of the box."
   "Deactivate SVG tag mode."
   (when svg-tag-tags--active
     (font-lock-remove-keywords nil
-               (mapcar 'tag-svg--build-keywords svg-tag-tags--active)))
+               (mapcar 'svg-tag--build-keywords svg-tag-tags--active)))
   (setq svg-tag-tags--active nil)
   (message "SVG tag mode off"))
 



reply via email to

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