commit 3e1fe89a0d3a66fca38f4381391f9c48b1b22fb6
author Fred Drake <fdrake@acm.org> Mon Nov 11 23:03:36 1996 +0000
committer Fred Drake <fdrake@acm.org> Mon Nov 11 23:03:36 1996 +0000
tree 60cff6b058b8e890e86c3a711770229303af7648
parent b4d4e25a628a06c1fae19e0fd6e9daf14dce7922

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

Doc/myformat.perl

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_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 @@
 	$_;
 }
 
+# texinfo-like formatting commands: \code{...} etc.
+
 sub do_cmd_code{
 	local($_) = @_;
 	s/$any_next_pair_pr_rx/<CODE>\2<\/CODE>/;