mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

Base emoji script membership on Emoji_Presentation

Browse Source 
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.
This commit is contained in:
Robert Pluim 2021-09-19 21:07:36 +02:00
parent ab676214bd
commit bcfc570bac
2 changed files with 2 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
admin/notes/unicode
View 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

7
admin/unidata/blocks.awk
View File

@ -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) {