branch: externals/svg-tag-mode commit 2bcf2135276b634b2cac7b66b4addfefc1ee502f Author: Nicolas P. Rougier <nicolas.roug...@inria.fr> Commit: Nicolas P. Rougier <nicolas.roug...@inria.fr>
Added global mode --- example-2.el | 2 +- svg-tag-mode.el | 12 ++++++++---- 2 files changed, 9 insertions(+), 5 deletions(-) diff --git a/example-2.el b/example-2.el index a5f54c978e..9670b35a08 100644 --- a/example-2.el +++ b/example-2.el @@ -68,7 +68,7 @@ ("<[0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\} [A-Za-z]\\{3\\}>" . svg-tag-make-org-date))) -(svg-tag-mode 1) +(global-svg-tag-mode) ;; To do: TODO NEXT HOLD DONE ;; Tags: :@MEETING:@NOTE: diff --git a/svg-tag-mode.el b/svg-tag-mode.el index 9ade4494c7..07fe80e433 100644 --- a/svg-tag-mode.el +++ b/svg-tag-mode.el @@ -198,7 +198,8 @@ INNER-PADDING, OUTER-PADDING and RADIUS controls the visual aspect of the box." (font-lock-add-keywords nil (mapcar 'svg-tag--build-keywords svg-tag-tags))) (setq svg-tag-tags--active (copy-sequence svg-tag-tags)) - (message "SVG tag mode on")) + (message "SVG tag mode on") + (font-lock-flush)) (defun svg-tag-mode-off () "Deactivate SVG tag mode." @@ -206,13 +207,16 @@ INNER-PADDING, OUTER-PADDING and RADIUS controls the visual aspect of the box." (font-lock-remove-keywords nil (mapcar 'svg-tag--build-keywords svg-tag-tags--active))) (setq svg-tag-tags--active nil) - (message "SVG tag mode off")) + (message "SVG tag mode off") + (font-lock-flush)) (define-minor-mode svg-tag-mode "Minor mode for graphical tag as rounded box." :group 'svg-tag - (if svg-tag-mode (svg-tag-mode-on) (svg-tag-mode-off)) - (font-lock-flush)) + (if svg-tag-mode (svg-tag-mode-on) (svg-tag-mode-off))) + +(define-globalized-minor-mode + global-svg-tag-mode svg-tag-mode svg-tag-mode-on) (provide 'svg-tag-mode)