[elpa] externals/org-modern 8c4bc6a320 12/65: Ensure that todo keywords stay editable (See #2)

[ELPA Syncer]

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

    Ensure that todo keywords stay editable (See #2)
---
 org-modern.el | 16 ++++++++++------
 1 file changed, 10 insertions(+), 6 deletions(-)

diff --git a/org-modern.el b/org-modern.el
index b9750223e4..079f895336 100644
--- a/org-modern.el
+++ b/org-modern.el
@@ -270,14 +270,18 @@ Set to nil to disable the progress bar."
   (let ((todo (match-string 1))
         (beg (match-beginning 1))
         (end (match-end 1)))
+    (put-text-property
+     beg (1+ beg)
+     'display (format " %c" (char-after beg)))
+    (put-text-property
+     (1- end) end
+     'display (format "%c " (char-before end)))
     (put-text-property
      beg end
-     'display
-     (propertize (concat " " todo " ")
-                 'face
-                 (if (member todo org-done-keywords)
-                     'org-modern-done
-                   'org-modern-todo)))))
+     'face
+     (if (member todo org-done-keywords)
+         'org-modern-done
+       'org-modern-todo))))
 
 (defun org-modern--timestamp ()
   "Prettify timestamps."