[nongnu] elpa/adoc-mode d4df8e1de6 8/8: Only remove kw-replacement overlays in adoc-unfontify-region-function (#46)

[ELPA Syncer]

branch: elpa/adoc-mode
commit d4df8e1de68699fa9bc45bd4486b49f8b53985f6
Author: TobiasZawada <i@tn-home.de>
Commit: GitHub <noreply@github.com>

    Only remove kw-replacement overlays in adoc-unfontify-region-function (#46)
    
    * Only remove kw-replacement overlays in adoc-unfontify-region-function
---
 adoc-mode.el | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/adoc-mode.el b/adoc-mode.el
index 312dff736f..9e3b5c88d0 100644
--- a/adoc-mode.el
+++ b/adoc-mode.el
@@ -1918,6 +1918,7 @@ meta characters."
                       (make-overlay (match-end 1) (match-end 1)))))
             (setq adoc-replacement-failed (not o))
             (unless adoc-replacement-failed
+              (overlay-put o 'adoc-kw-replacement t)
               (overlay-put o 'after-string s))))
         found))
 
@@ -2156,11 +2157,9 @@ Use this function as matching function MATCHER in 
`font-lock-keywords'."
 (defun adoc-unfontify-region-function (beg end)
   (font-lock-default-unfontify-region beg end)
 
-  ;; remove overlays. Currently only used by AsciiDoc replacements
-  ;; TODO: this is an extremely brute force solution and interacts very badly
-  ;; with many (minor) modes using overlays such as flyspell or ediff
-  (when adoc-insert-replacement
-    (remove-overlays beg end))
+  (cl-loop for ol being the overlays from beg to end
+           when (overlay-get ol 'adoc-kw-replacement)
+           do (delete-overlay ol))
 
   ;; text properties. Currently only display raise used for sub/superscripts.
   ;; code snipped copied from tex-mode