[elpa] externals/org-modern d28951932a 13/65: Ensure that tags stay editable (See #2)

[ELPA Syncer]

branch: externals/org-modern
commit d28951932ae45993c6fdb04e1bef27174bd31f52
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Ensure that tags stay editable (See #2)
---
 org-modern.el | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/org-modern.el b/org-modern.el
index 079f895336..d428c56bf0 100644
--- a/org-modern.el
+++ b/org-modern.el
@@ -256,12 +256,18 @@ Set to nil to disable the progress bar."
         (when colon
           (when (/= beg (1- colon))
             (add-face-text-property (1- colon) colon '(:height 1) t))
+          (put-text-property
+           colon
+           (1+ colon)
+           'display (format #(" %c" 1 3 (cursor t)) (char-after colon)))
+          (put-text-property
+           (- (point) 2)
+           (1- (point))
+           'display (format "%c " (char-before (1- (point)))))
           (put-text-property
            colon
            (1- (point))
-           'display
-           (propertize (concat " " (buffer-substring colon (1- (point))) " ")
-                       'face 'org-modern-tag)))
+           'face 'org-modern-tag))
         (setq colon (point))
         (add-text-properties (1- colon) colon colon-props)))))