From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 10 Jan 2000 03:59:32 +0000 (+0000)
Subject: Try a different fix; previous one violated the load sequence.
X-Git-Tag: 20090517-FFI~4355
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=61105f6b250a302bb5e7cc8b15dfd28907063c2d;p=mit-scheme.git

Try a different fix; previous one violated the load sequence.
---

diff --git a/v7/src/edwin/buffrm.scm b/v7/src/edwin/buffrm.scm
index 955b5afcf..fc59a1e0b 100644
--- a/v7/src/edwin/buffrm.scm
+++ b/v7/src/edwin/buffrm.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: buffrm.scm,v 1.55 2000/01/10 03:23:41 cph Exp $
+;;; $Id: buffrm.scm,v 1.56 2000/01/10 03:59:32 cph Exp $
 ;;;
 ;;; Copyright (c) 1986, 1989-2000 Massachusetts Institute of Technology
 ;;;
@@ -313,7 +313,9 @@ Index 0 might contain \"^@\" so ascii NUL appears as ^@.
 The indices for normal printing characters usually contain a
 string containing just that character, e.g. index 65 usually contains \"A\".
 Automatically becomes local when set in any fashion."
-  (os/default-char-image-strings)
+  (if (eq? 'NT microcode-id/operating-system)
+      default-char-image-strings/ansi
+      default-char-image-strings)
   (lambda (object)
     (and (vector? object)
 	 (= (vector-length object) 256)
@@ -327,7 +329,7 @@ Automatically becomes local when set in any fashion."
 (let ((setup-truncate-lines!
        (lambda (buffer variable)
 	 variable			;ignore
-	 (for-each window-redraw!	;window-redraw! recaches these variables
+	 (for-each window-redraw!	;recaches these variables
 	   (if buffer
 	       (buffer-windows buffer)
 	       (window-list))))))