better latex rendering of tt underscore

svn: r13667 original commit: 6250d5e9933800b344bd49554a753e2eeb5d72ac
2009-02-16 16:20:22 +00:00 · 2009-02-16 16:20:22 +00:00 · e1f8c00bdf
commit e1f8c00bdf
parent 196e960734
1 changed files with 3 additions and 1 deletions
--- a/collects/scribble/latex-render.ss
+++ b/collects/scribble/latex-render.ss
@ -374,7 +374,9 @@
                 [(#\\) (if (rendering-tt)
                            "{\\char`\\\\}"
                            "$\\backslash$")]
-                 [(#\_) "$\\_$"]
+                 [(#\_) (if (rendering-tt)
+                            "{\\char`\\_}"
+                            "$\\_$")]
                 [(#\^) "{\\char'136}"]
                 [(#\>) (if (rendering-tt) "{\\texttt >}" "$>$")]
                 [(#\<) (if (rendering-tt) "{\\texttt <}" "$<$")]