]> git.eshelyaron.com Git - emacs.git/commitdiff
Base emoji script membership on Emoji_Presentation
authorRobert Pluim <rpluim@gmail.com>
Sun, 19 Sep 2021 19:07:36 +0000 (21:07 +0200)
committerRobert Pluim <rpluim@gmail.com>
Mon, 20 Sep 2021 17:10:30 +0000 (19:10 +0200)
The Emoji property describes which codepoints can be displayed as
emoji, but Emoji_Presentation governs which are displayed as emoji by
default.

* admin/notes/unicode: Adjust check-emoji-coverage to look in the
Emoji_Presentation sections of emoji-data.txt
* admin/unidata/blocks.awk: Assign emoji script using the
Emoji_Presentation section.

admin/notes/unicode
admin/unidata/blocks.awk

index 9dc6f3bdca39382a55ae8324208889fb976fd31d..0b2ce527948d9bbb53565a60d259a1f4648ee49b 100644 (file)
@@ -100,7 +100,7 @@ FONT-NAME-REGEXP is checked using `string-match'."
 (save-excursion
 (goto-char (point-min))
 (let (res char name ifont)
-  (while (re-search-forward "; Emoji [^(]+(\\(.\\)[).\uFE0F]" nil t)
+  (while (re-search-forward "; Emoji_Presentation [^(]+(\\(.\\)[).]" nil t)
     (setq char (aref (match-string 1) 0))
     (setq ifont (car (internal-char-font nil char)))
     (when ifont
index 6e52b52f674db9bf087bd34fee8dfef408ab8f54..29022bf7ddf6ed1ca7295e5d9547f9fd5d296d09 100755 (executable)
@@ -202,12 +202,7 @@ FILENAME ~ "Blocks.txt" && /^[0-9A-F]/ {
     }
 }
 
-# The space after 'Emoji' is significant in the next two rules.
-# This purposely and deliberately excludes codepoints <= 00FF
-FILENAME ~ "emoji-data.txt" && /^00[0-9A-F][0-9A-F].*; Emoji / {
-    next
-}
-FILENAME ~ "emoji-data.txt" && /^[0-9A-F].*; Emoji / {
+FILENAME ~ "emoji-data.txt" && /^[0-9A-F].*; Emoji_Presentation / {
     sep = index($1, "..")
     len = length($1)
     if (sep > 0)  {