branch: externals/svg-tag-mode
commit c78500db2c4b360f79919a8518c7b62003921a30
Author: Nicolas P. Rougier <nicolas.roug...@inria.fr>
Commit: Nicolas P. Rougier <nicolas.roug...@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))))))
