[elpa] externals/svg-tag-mode 3e49ddcee2 57/63: Cancel tag editing in read-only or view mode.

[ELPA Syncer]

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

    Cancel tag editing in read-only or view mode.
---
 examples/example-1.el | 11 +++++++----
 svg-tag-mode.el       |  8 ++++++--
 2 files changed, 13 insertions(+), 6 deletions(-)

diff --git a/examples/example-1.el b/examples/example-1.el
index 143b2378a2..a1e0988318 100644
--- a/examples/example-1.el
+++ b/examples/example-1.el
@@ -16,14 +16,17 @@
 (require 'svg-tag-mode)
 
 (setq svg-tag-tags
-      '((":TODO:" . ((svg-tag-make "TODO" :face 'org-tag :inverse t :margin 
0)))
-        (":NOTE:" . ((svg-tag-make "NOTE" :margin 0)))
+      '((":TODO:" . ((svg-tag-make "TODO" :face 'org-tag
+                                   :radius 0 :inverse t :margin 0)))
+        (":NOTE:" . ((svg-tag-make "NOTE" :face 'font-lock-comment-face
+                                   :inverse nil :margin 0 :radius 0)))
         ("\([0-9a-zA-Z]\)" . ((lambda (tag)
                                 (svg-tag-make tag :beg 1 :end -1 :radius 12))))
         ("\([0-9a-zA-Z][0-9a-zA-Z]\)" . ((lambda (tag)
                                            (svg-tag-make tag :beg 1 :end -1 
:radius 8))))
         ("|[0-9a-zA-Z- ]+?|" . ((lambda (tag)
-                                  (svg-tag-make tag :margin 0 :beg 1 :end 
-1))))))
+                                  (svg-tag-make tag :face 
'font-lock-comment-face
+                                                :margin 0 :beg 1 :end -1))))))
 (svg-tag-mode t)
 
 ;; :NOTE: SVG tag is a minor mode that displays a rounded box with outer
@@ -40,7 +43,7 @@
 ;;  Save as .............. |C-x| |C-w|  Cancel ............. |C-g|
 ;;  Open a new file ...... |C-x| |C-f|  Undo ............... |C-z|
 ;;  Open recent .......... |C-x| |C-r|  Close buffer ....... |C-x| |k|
-;;  Browse directory ......|C-x| |d|    Quit ............... |C-x| |C-c|
+;;  Browse directory ..... |C-x| |d|    Quit ............... |C-x| |C-c|
 ;;
 ;; ------------------------------------------------------------------------
 ;; (1)(2)(3)(4)(5)(Z)(W)(12)(99) (A)(B)(C)
diff --git a/svg-tag-mode.el b/svg-tag-mode.el
index 2ea4b04801..c292d42728 100644
--- a/svg-tag-mode.el
+++ b/svg-tag-mode.el
@@ -198,8 +198,8 @@ allows to create dynamic tags."
                (next-property-change position))))
     (if (eq direction 'left)
         (font-lock-flush beg end )
-      (font-lock-unfontify-region beg end))
-
+      (if (and (not view-read-only) (not buffer-read-only))
+          (font-lock-unfontify-region beg end)))
     ;; (if (eq direction 'entered)
     ;;     (message (concat "TAG: "
     ;;                      (substring-no-properties
@@ -264,6 +264,10 @@ allows to create dynamic tags."
   (advice-add 'org-fontify-meta-lines-and-blocks
               :after #'svg-tag--remove-text-properties-off)
 
+  ;; Flush buffer when entering read-only
+  (add-hook 'read-only-mode-hook
+            #'(lambda () (font-lock-flush (point-min) (point-max))))
+  
   ;; Redisplay everything to show tags
   (message "SVG tag mode on")
   (cursor-sensor-mode 1)