[elpa] externals/svg-tag-mode c78500db2c 60/63: Fix bugs (typos).

[ELPA Syncer]

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

    Fix bugs (typos).
---
 svg-tag-mode.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/svg-tag-mode.el b/svg-tag-mode.el
index d65d68a126..fa1aa641a4 100644
--- a/svg-tag-mode.el
+++ b/svg-tag-mode.el
@@ -131,7 +131,7 @@
                 (const :tag "No action" nil))
   :group 'svg-tag)
 
-(defun svg-tags---plist-delete (plist property)
+(defun svg-tag--plist-delete (plist property)
   "Delete PROPERTY from PLIST.
 This is in contrast to merely setting it to 0."
   (let (p)
@@ -186,7 +186,7 @@ allows to create dynamic tags."
          (end (or (plist-get args :end) nil))
          (args (svg-tag--plist-delete args 'stroke))
          (args (svg-tag--plist-delete args 'foreground))
-         (args (svg-tag--delete args 'background))
+         (args (svg-tag--plist-delete args 'background))
          (args (svg-tag--plist-delete args 'font-weight)))
     (if inverse
         (apply #'svg-lib-tag (substring tag beg end) nil
@@ -240,6 +240,7 @@ allows to create dynamic tags."
     (setq tag ``(face nil
                  display ,,tag
                  cursor-sensor-functions ,'(svg-tag--cursor-function)
+                 cursor-sensor-functions (svg-tag--cursor-function)
                  ,@(if ,callback '(pointer hand))
                  ,@(if ,help `(help-echo ,,help))
                  ,@(if ,callback `(keymap (keymap (mouse-1  . ,,callback))))))