diff options
-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>/; |