procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* admin/unidata/emoji-zwj.awk: More efficient code generation

Browse source 
Hoist the `eval-when-compile` to encompass the entire list, since
backquote forms aren't automatically evaluated at compile time.
This results in a single constant list in the generated code, and
much less actual code.
This commit is contained in:
Mattias Engdegård 2023-09-07 11:25:46 +02:00
parent a412d3c46c
commit 7c55bf59bb
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
admin/unidata/emoji-zwj.awk
View file

@ -100,14 +100,14 @@ END {
vec[codepoint] = vec[codepoint] "\n\"\\N{U+" trigger_codepoints[trig] "}\\N{U+FE0F}\""
}
print "(dolist (elt `("
print "(dolist (elt (eval-when-compile `("
for (elt in ch)
{
print "(#x" elt " .\n,(eval-when-compile (regexp-opt\n'(\n" vec[elt]
print "\"\\N{U+" elt "}\\N{U+FE0E}\"\n\"\\N{U+" elt "}\\N{U+FE0F}\"\n))))"
print "(#x" elt " .\n,(regexp-opt\n'(\n" vec[elt]
print "\"\\N{U+" elt "}\\N{U+FE0E}\"\n\"\\N{U+" elt "}\\N{U+FE0F}\"\n)))"
}
print "))"
print ")))"
print " (set-char-table-range composition-function-table"
print " (car elt)"
print " (nconc (char-table-range composition-function-table (car elt))"