diff options
Diffstat (limited to 'Master/texmf-dist/source/latex/l3experimental/l3str/l3str.dtx')
| -rw-r--r-- | Master/texmf-dist/source/latex/l3experimental/l3str/l3str.dtx | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/Master/texmf-dist/source/latex/l3experimental/l3str/l3str.dtx b/Master/texmf-dist/source/latex/l3experimental/l3str/l3str.dtx index 51c42856c3c..7e8f00ef923 100644 --- a/Master/texmf-dist/source/latex/l3experimental/l3str/l3str.dtx +++ b/Master/texmf-dist/source/latex/l3experimental/l3str/l3str.dtx @@ -35,7 +35,7 @@ % %<*driver|package> \RequirePackage{expl3} -\GetIdInfo$Id: l3str.dtx 3940 2012-07-09 00:41:44Z bruno $ +\GetIdInfo$Id: l3str.dtx 4119 2012-08-16 22:35:59Z bruno $ {L3 Experimental strings} %</driver|package> %<*driver> @@ -1316,9 +1316,9 @@ % \begin{syntax} % \cs{@@_if_contains_char:nNTF} \Arg{token list} \meta{char} % \end{syntax} -% Converts the \meta{token list} to a \meta{string} and tests whether -% the \meta{char} is present in the \meta{string}. Spaces are -% ignored. +% Expects the \meta{token list} to be an \meta{other string}: the +% caller is responsible for ensuring that no (too-)special catcodes +% remain. Spaces with catcode $10$ are ignored. % Loop over the characters of the string, comparing character codes. % The loop is broken if character codes match. Otherwise we return % \enquote{false}. @@ -1326,14 +1326,13 @@ \prg_new_conditional:Npnn \@@_if_contains_char:NN #1#2 { T , TF } { \exp_after:wN \@@_if_contains_char_aux:NN \exp_after:wN #2 - \etex_detokenize:D \exp_after:wN {#1} { \__prg_break:n { ? \fi: } } + #1 { \__prg_break:n { ? \fi: } } \__prg_break_point: \prg_return_false: } \prg_new_conditional:Npnn \@@_if_contains_char:nN #1#2 { TF } { - \exp_after:wN \@@_if_contains_char_aux:NN \exp_after:wN #2 - \tl_to_str:n {#1} { \__prg_break:n { ? \fi: } } + \@@_if_contains_char_aux:NN #2 #1 { \__prg_break:n { ? \fi: } } \__prg_break_point: \prg_return_false: } |