From: Joe Bank <edu/mit/csail/zurich/jbank>
Date: Wed, 25 Aug 1993 15:14:19 +0000 (+0000)
Subject: Made a change so that it still highlights the error message.
X-Git-Tag: 20090517-FFI~7983
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b4f283a36da0d7f2262fcb0e80081eea7a156f35;p=mit-scheme.git

Made a change so that it still highlights the error message.
Now the text prop it seems to want is '((highlighted . #t))
not just '((highlighted))
---

diff --git a/v7/src/edwin/debug.scm b/v7/src/edwin/debug.scm
index 701d9d717..a64a836ec 100644
--- a/v7/src/edwin/debug.scm
+++ b/v7/src/edwin/debug.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: debug.scm,v 1.14 1993/08/23 01:51:40 jbank Exp $
+;;;	$Id: debug.scm,v 1.15 1993/08/25 15:14:19 jbank Exp $
 ;;;
 ;;;	Copyright (c) 1992-93 Massachusetts Institute of Technology
 ;;;
@@ -72,7 +72,7 @@
   (remove-text-properties (buffer-group (mark-buffer start))
 		       (mark-index start)
 		       (mark-index end)
-		       '((highlighted))))
+		       '((highlighted . #t))))
 
 (define (read-only-between start end)
   (add-text-properties (buffer-group (mark-buffer start))
@@ -1109,7 +1109,7 @@ The buffer below describes the current subproblem or reduction.
 			 (newline port)
 			 (newline port)
 			 (write-string "  " port)
-			 (with-output-props '((highlighted))
+			 (with-output-props '((highlighted . #t))
 			   (lambda () (write-condition-report object port))
 			   port)
 			 (newline port)))