[elpa] externals/markchars 957a346 7/9: * packages/markchars/markchars.el: Strip combining characters (bug#36923)

[Stefan Monnier]

branch: externals/markchars
commit 957a34685eef9d720522001b46daf251bcad04c9
Author: Juri Linkov <juri@linkov.net>
Commit: Juri Linkov <juri@linkov.net>

    * packages/markchars/markchars.el: Strip combining characters (bug#36923)
---
 markchars.el | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/markchars.el b/markchars.el
index 152d728..7d7fe29 100644
--- a/markchars.el
+++ b/markchars.el
@@ -157,6 +157,12 @@ By default it matches nonascii-chars."
 (defun markchars--render-confusables (beg end)
   "Assign markchars confusable properties between BEG and END."
   (let* ((text (buffer-substring-no-properties beg end))
+         ;; Strip combining characters (bug#36923)
+         (text (mapconcat (lambda (c)
+                            (when (zerop (get-char-code-property
+                                          c 'canonical-combining-class))
+                              (string c)))
+                          (string-to-list text) ""))
          (scripts (mapcar
                    (lambda (c) (aref char-script-table c))
                    (string-to-list text)))