diff options
| author | Fred Drake <fdrake@acm.org> | 1996-11-11 23:03:36 (GMT) |
|---|---|---|
| committer | Fred Drake <fdrake@acm.org> | 1996-11-11 23:03:36 (GMT) |
| commit | 3e1fe89a0d3a66fca38f4381391f9c48b1b22fb6 (patch) | |
| tree | 60cff6b058b8e890e86c3a711770229303af7648 /Doc | |
| parent | b4d4e25a628a06c1fae19e0fd6e9daf14dce7922 (diff) | |
| download | cpython-3e1fe89a0d3a66fca38f4381391f9c48b1b22fb6.zip cpython-3e1fe89a0d3a66fca38f4381391f9c48b1b22fb6.tar.gz cpython-3e1fe89a0d3a66fca38f4381391f9c48b1b22fb6.tar.bz2 | |
(myformat.perl): Fixed handling of "\e" -- argh!
Diffstat (limited to 'Doc')
| -rw-r--r-- | Doc/myformat.perl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Doc/myformat.perl b/Doc/myformat.perl index 5d0fb54..0887012 100644 --- a/Doc/myformat.perl +++ b/Doc/myformat.perl @@ -22,9 +22,7 @@ sub do_cmd_C{ join('', 'C', @_[0]); } sub do_cmd_Cpp{ join('', 'C++', @_[0]); } sub do_cmd_EOF{ join('', 'EOF', @_[0]); } -sub do_cmd_e{ "\\" } - -# texinfo-like formatting commands: \code{...} etc. +sub do_cmd_e{ local($_) = @_; '\' . $_; } sub do_cmd_optional{ local($_) = @_; @@ -38,6 +36,8 @@ sub do_cmd_varvars{ $_; } +# texinfo-like formatting commands: \code{...} etc. + sub do_cmd_code{ local($_) = @_; s/$any_next_pair_pr_rx/<CODE>\2<\/CODE>/; |