better latex rendering of tt underscore

svn: r13667
2009-02-16 16:20:22 +00:00 · 2009-02-16 16:20:22 +00:00 · 6250d5e993
commit 6250d5e993
parent 16d3208fb3
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 <}" "$<$")]