diff --git a/collects/scribble/base-render.rkt b/collects/scribble/base-render.rkt index 47682e9b..7de7a0b3 100644 --- a/collects/scribble/base-render.rkt +++ b/collects/scribble/base-render.rkt @@ -207,7 +207,7 @@ ;; marshal info (define/public (get-serialize-version) - 2) + 3) (define/public (serialize-info ri) (parameterize ([current-serialize-resolve-info ri]) diff --git a/collects/scribble/latex-render.rkt b/collects/scribble/latex-render.rkt index 9412958e..a8b2ae95 100644 --- a/collects/scribble/latex-render.rkt +++ b/collects/scribble/latex-render.rkt @@ -562,11 +562,11 @@ [(symbol? i) (display (case i [(nbsp) "~"] - [(mdash) "---"] - [(ndash) "--"] - [(ldquo) "``"] - [(rdquo) "''"] - [(rsquo) "'"] + [(mdash) "{---}"] + [(ndash) "{--}"] + [(ldquo) "{``}"] + [(rdquo) "{''}"] + [(rsquo) "{'}"] [(prime) "$'$"] [(rarr) "$\\rightarrow$"] [(larr) "$\\leftarrow$"] @@ -597,6 +597,9 @@ [(#\>) (if (rendering-tt) "{\\texttt >}" "$>$")] [(#\<) (if (rendering-tt) "{\\texttt <}" "$<$")] [(#\|) (if (rendering-tt) "{\\texttt |}" "$|$")] + [(#\-) "{-}"] ;; avoid en- or em-dash + [(#\`) "{`}"] ;; avoid double-quotes + [(#\') "{'}"] ;; avoid double-quotes [(#\? #\! #\. #\:) (if (rendering-tt) (format "{\\hbox{\\texttt{~a}}}" c) c)] [(#\~) "$\\sim$"]