[latex3-commits] [l3svn] 02/03: Another \tex_lowercase:D removed
noreply at latex-project.org
noreply at latex-project.org
Fri Mar 25 22:44:57 CET 2016
This is an automated email from the git hooks/post-receive script.
joseph pushed a commit to branch master
in repository l3svn.
commit 6edcf05afbffaa36de6cd16a37cf3b2a7244326d
Author: Joseph Wright <joseph.wright at morningstar2.co.uk>
Date: Fri Mar 25 21:33:09 2016 +0000
Another \tex_lowercase:D removed
---
l3trial/l3kernel-extras/l3kernel-extras.dtx | 22 +++++++---------------
1 file changed, 7 insertions(+), 15 deletions(-)
diff --git a/l3trial/l3kernel-extras/l3kernel-extras.dtx b/l3trial/l3kernel-extras/l3kernel-extras.dtx
index 5c080ad..bae40e3 100644
--- a/l3trial/l3kernel-extras/l3kernel-extras.dtx
+++ b/l3trial/l3kernel-extras/l3kernel-extras.dtx
@@ -1,6 +1,6 @@
% \iffalse
%
-%% File l3kernel-extras.dtx (C) Copyright 2012,2015 The LaTeX3 Project
+%% File l3kernel-extras.dtx (C) Copyright 2012,2015,2016 The LaTeX3 Project
%%
%% It may be distributed and/or modified under the conditions of the
%% LaTeX Project Public License (LPPL), either version 1.3c of this
@@ -1007,20 +1007,12 @@
\tl_new:N \l__char_lowercase_tl
\tl_new:N \l__char_uppercase_tl
\cs_new_protected:Npn \char_show:N #1 { \char_show:n { `#1 } }
-\group_begin:
- \char_set_catcode_other:n { 0 }
- \cs_new_protected:Npn \char_show:n #1
- {
- \int_set:Nn \l__char_code_int {#1}
- \group_begin:
- \char_set_lccode:nn \c_zero {#1}
- \tex_lowercase:D
- {
- \group_end:
- \__char_show:N ^^@
- }
- }
-\group_end:
+\cs_new_protected:Npn \char_show:n #1
+ {
+ \int_set:Nn \l__char_code_int {#1}
+ \exp_after:wN \exp_after:wN \exp_after:wN \__char_show:N
+ \char_generate:nn { \l__char_code_int } { 12 }
+ }
\cs_new_protected:Npn \__char_show:N #1
{
\group_begin:
--
To stop receiving notification emails like this one, please contact
the administrator of this repository.
More information about the latex3-commits
mailing list