[Texi2html-cvs] Changes to texi2html/examples/roff.init

[Patrice Dumas]

Index: texi2html/examples/roff.init
diff -u texi2html/examples/roff.init:1.9 texi2html/examples/roff.init:1.10
--- texi2html/examples/roff.init:1.9    Sun Dec 12 23:40:53 2004
+++ texi2html/examples/roff.init        Tue Aug 23 23:51:18 2005
@@ -519,19 +519,31 @@
 {
    my $text = shift;
    $text =~ s/\\/\\e/g;
-   $text =~ s/$;---$;/\\(em/g;
-   $text =~ s/$;--$;/-/g;
-   $text =~ s/$;-$;/\\-/g;
+#   $text =~ s/$;---$;/\\(em/g;
+#   $text =~ s/$;--$;/-/g;
+#   $text =~ s/$;-$;/\\-/g;
    $text =~ s/^\./\\&./;
    $text =~ s/([\s])\./$1\\&./g;
    return $text;
 }
 
-sub t2h_roff_normal_text($)
+sub t2h_roff_normal_text($$$$)
 {
-    my $text = shift;
+   my $text = shift;
+   my $in_raw_text = shift;
+   my $in_preformatted = shift;
+   my $in_code =shift;
+   $text = &$protect_text($text) unless($in_raw_text);
+   if (! $in_code and !$in_preformatted and !$in_raw_text)
+   {
+       $text =~ s/---/\\(em/g;
+       $text =~ s/--/\\(en/g;
+       $text =~ s/-/\\-/g;
+       $text =~ s/``/\\(lq/g;
+       $text =~ s/''/\\(rq/g;
+    }
     #$text =~ s/---/\\(em/g;
-    $text =~ s/(--?-?)/$;$1$;/go;
+    #$text =~ s/(--?-?)/$;$1$;/go;
     return $text;
 }