diff options
| author | Karl Berry <karl@freefriends.org> | 2018-04-09 22:57:19 +0000 |
|---|---|---|
| committer | Karl Berry <karl@freefriends.org> | 2018-04-09 22:57:19 +0000 |
| commit | 4837f7ae035889497f64bbe5a97767b09d140c2d (patch) | |
| tree | 31178e44fa08f2b3b30c289893aed0951dfd567c /Build | |
| parent | 8332274ebd0d286768355471bc43f4041922f385 (diff) | |
texdef
git-svn-id: svn://tug.org/texlive/trunk@47420 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build')
| -rwxr-xr-x | Build/source/texk/texlive/linked_scripts/texdef/texdef.pl | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/Build/source/texk/texlive/linked_scripts/texdef/texdef.pl b/Build/source/texk/texlive/linked_scripts/texdef/texdef.pl index 7294ef595f0..8b7b69a4da6 100755 --- a/Build/source/texk/texlive/linked_scripts/texdef/texdef.pl +++ b/Build/source/texk/texlive/linked_scripts/texdef/texdef.pl @@ -116,13 +116,13 @@ my $ISCONTEXT = 0; my $BEGINENVSTR = '%s'; my $ENDENVSTR = '%s'; -my $VERSION = 'Version 1.8 -- 2018/03/25'; +my $VERSION = 'Version 1.8a -- 2018/03/28'; sub usage { my $option = shift; my $ret = ($option) ? 0 : 1; print << 'EOT'; texdef -- Show definitions of TeX commands -Version 1.8 -- 2019/03/25 +Version 1.8a -- 2019/03/28 Copyright (C) 2011-2018 Martin Scharrer <martin@scharrer-online.de> This program comes with ABSOLUTELY NO WARRANTY; This is free software, and you are welcome to redistribute it under certain conditions; @@ -679,17 +679,17 @@ sub print_orig_def { my $rmacrodef = qr/ ^ # Begin of line (no whitespaces!) ( - (?:(?:\\global|\\long|\\protected|\\outer)\s*)* # Prefixes (maybe with whitespace between them) + (?:(?:\\global|\\long|\\protected|\\outer)\s*)* # Prefixes (maybe with whitespace between them) ) \\( (?:[gex]?def) \s* \\ # TeX definitions - | (?:new|renew|provide)command\s* \*? \s* {? \s* \\ # LaTeX definitions - | (?:new|renew|provide)robustcmd\s* \*? \s* {? \s* \\ # etoolbox definitions + | (?:new|renew|provide)command\s* \*? \s* \{? \s* \\ # LaTeX definitions + | (?:new|renew|provide)robustcmd\s* \*? \s* \{? \s* \\ # etoolbox definitions | (?:new(?:box|count|dimen|if|insert|read|skip|muskip|toks|write)) \s* \\ # TeX registers etc. | (?:char|count|dimen|mathchar|skip|toks)def \s* \\ # TeX chardefs etc. - | \@namedef{? # Definition by name only - | Declare[a-zA-z]+ \s* \*? \s* {? \s* \\ # Declare... definitions - | declare[a-zA-z]+ \s* \*? \s* {? \s* \\ # declare... definitions + | \@namedef\{? # Definition by name only + | Declare[a-zA-z]+ \s* \*? \s* \{? \s* \\ # Declare... definitions + | declare[a-zA-z]+ \s* \*? \s* \{? \s* \\ # declare... definitions ) $rmacroname # Macro name without backslash [^a-zA-Z@] @@ -705,7 +705,7 @@ sub print_orig_def { my $renvdef = qr/ ^ # Begin of line (no whitespaces!) \\( - (?:new|renew|provide)environment\s* { \s* # LaTeX definitions + (?:new|renew|provide)environment\s* \{ \s* # LaTeX definitions ) ($rmacroname) # Environment names follow same rules as macro names \s* } # closing brace |