From 19a0136310a41830e57fa280d26cb342a544d9a1 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 30 Nov 2005 14:38:35 +0000 Subject: [PATCH] add current-cost-color export svn: r1446 --- collects/texpict/code.ss | 2 +- collects/texpict/symbol.ss | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/texpict/code.ss b/collects/texpict/code.ss index eb5e3f2db4..970f122b8c 100644 --- a/collects/texpict/code.ss +++ b/collects/texpict/code.ss @@ -99,7 +99,7 @@ code-colorize-enabled code-colorize-quote-enabled code-italic-underscore-enabled code-scripts-enabled current-comment-color current-keyword-color - current-base-color current-id-color current-literal-color + current-base-color current-id-color current-literal-color current-const-color current-reader-forms mzscheme-const-list)) diff --git a/collects/texpict/symbol.ss b/collects/texpict/symbol.ss index a73990ecb6..b58515b31a 100644 --- a/collects/texpict/symbol.ss +++ b/collects/texpict/symbol.ss @@ -14,7 +14,7 @@ (define sym:infinity (symbol #x221E)) (define sym:times (symbol 215)) (define sym:implies (symbol #x21D2)) - (define sym:emdash (symbol 8212)) + (define sym:emdash (symbol #x2014)) (define sym:therefore (symbol #x2234)))