summaryrefslogtreecommitdiffstats
path: root/Doc/myformat.perl
diff options
context:
space:
mode:
Diffstat (limited to 'Doc/myformat.perl')
-rw-r--r--Doc/myformat.perl6
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>/;