traverseda
/
cpython
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

(myformat.perl): Fixed handling of "\e" -- argh!

This commit is contained in:
Fred Drake 1996-11-11 23:03:36 +00:00
parent b4d4e25a62
commit 3e1fe89a0d
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Doc/myformat.perl
View File

@ -22,9 +22,7 @@ sub do_cmd_C{ join('', 'C', @_[0]); }
sub do_cmd_Cpp{ join('', 'C++', @_[0]); } sub do_cmd_Cpp{ join('', 'C++', @_[0]); }
sub do_cmd_EOF{ join('', 'EOF', @_[0]); } sub do_cmd_EOF{ join('', 'EOF', @_[0]); }
sub do_cmd_e{ "\\" } sub do_cmd_e{ local($_) = @_; '\' . $_; }
# texinfo-like formatting commands: \code{...} etc.
sub do_cmd_optional{ sub do_cmd_optional{
local($_) = @_; local($_) = @_;
@ -38,6 +36,8 @@ sub do_cmd_varvars{
$_; $_;
} }
# texinfo-like formatting commands: \code{...} etc.
sub do_cmd_code{ sub do_cmd_code{
local($_) = @_; local($_) = @_;
s/$any_next_pair_pr_rx/<CODE>\2<\/CODE>/; s/$any_next_pair_pr_rx/<CODE>\2<\/CODE>/;