[latex3-commits] [l3svn] r6091 - Remove \tex_lowercase:D in htoks
noreply at latex-project.org
noreply at latex-project.org
Fri Sep 25 17:34:13 CEST 2015
Author: bruno
Date: 2015-09-25 17:34:13 +0200 (Fri, 25 Sep 2015)
New Revision: 6091
Modified:
trunk/l3trial/l3htoks/l3htoks.dtx
Log:
Remove \tex_lowercase:D in htoks
Acually \char_generate:nn does the job fine.
Modified: trunk/l3trial/l3htoks/l3htoks.dtx
===================================================================
--- trunk/l3trial/l3htoks/l3htoks.dtx 2015-09-25 14:03:58 UTC (rev 6090)
+++ trunk/l3trial/l3htoks/l3htoks.dtx 2015-09-25 15:34:13 UTC (rev 6091)
@@ -628,28 +628,20 @@
% we cannot simply use |#1| since this may be an implicit character
% token).
% \begin{macrocode}
-\group_begin:
- \char_set_catcode_letter:n { 0 }
- \cs_new_protected:Npn \@@_primitive_the_letter:w #1
- {
- #1
- \group_begin:
- \char_set_lccode:nn { 0 } { \@@_token_to_charcode:N #1 }
- \tex_lowercase:D { \tl_gput_right:Nn \g_@@_result_tl { ^^@ } }
- \group_end:
- \@@_parse:w
- }
- \char_set_catcode_other:n { 0 }
- \cs_new_protected:Npn \@@_primitive_the_character:w #1
- {
- #1
- \group_begin:
- \char_set_lccode:nn { 0 } { \@@_token_to_charcode:N #1 }
- \tex_lowercase:D { \tl_gput_right:Nn \g_@@_result_tl { ^^@ } }
- \group_end:
- \@@_parse:w
- }
-\group_end:
+\cs_new_protected:Npn \@@_primitive_the_letter:w #1
+ {
+ #1
+ \tl_gput_right:Nx \g_@@_result_tl
+ { \char_generate:nn { \@@_token_to_charcode:N #1 } { 11 } }
+ \@@_parse:w
+ }
+\cs_new_protected:Npn \@@_primitive_the_character:w #1
+ {
+ #1
+ \tl_gput_right:Nx \g_@@_result_tl
+ { \char_generate:nn { \@@_token_to_charcode:N #1 } { 12 } }
+ \@@_parse:w
+ }
% \end{macrocode}
% \end{macro}
%
More information about the latex3-commits
mailing list