diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-01-08 20:40:19 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-01-08 20:40:19 +0000 |
| commit | 16a5290c91bc14ca3f3a26f24796761f9f08c0f0 (patch) | |
| tree | 24f0c26663661a09e61563572ae3c07be408f8b3 /src/interp | |
| parent | a90e0b91cdd543cc28abf425355c801279482ad6 (diff) | |
| download | open-axiom-16a5290c91bc14ca3f3a26f24796761f9f08c0f0.tar.gz | |
Disable highlighting on Win32
Diffstat (limited to 'src/interp')
| -rw-r--r-- | src/interp/msgdb.boot | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/interp/msgdb.boot b/src/interp/msgdb.boot index bfd8e1ff..ff40c6fd 100644 --- a/src/interp/msgdb.boot +++ b/src/interp/msgdb.boot @@ -654,13 +654,15 @@ brightPrint0 x == x = '"%%" => sayString '"%" x = '"%b" => - NULL IS_-CONSOLE CUROUTSTREAM + -- FIXME: this kludge is GCL-specific. Find way to support + -- highlighting on all supported Lisp. + NULL IS_-CONSOLE CUROUTSTREAM or %hasFeature KEYWORD::WIN32 or stdStreamIsTerminal(1) = 0 => sayString '" " NULL $highlightAllowed => sayString '" " sayString $highlightFontOn k := blankIndicator x => BLANKS k x = '"%d" => - NULL IS_-CONSOLE CUROUTSTREAM + NULL IS_-CONSOLE CUROUTSTREAM or %hasFeature KEYWORD::WIN32 or stdStreamIsTerminal(1) = 0 => sayString '" " NULL $highlightAllowed => sayString '" " sayString $highlightFontOff |