From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 11 Aug 1989 11:30:36 +0000 (+0000)
Subject: Undo recent change which tried to replicate Emacs' algorithm for
X-Git-Tag: 20090517-FFI~11842
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=eb6c5160877df83fc69995cb0124a06310aafdc5;p=mit-scheme.git

Undo recent change which tried to replicate Emacs' algorithm for
deciding when to use inverse-video in the modeline.  The attempt
failed, and I don't see an obvious way to make it work.
---

diff --git a/v7/src/edwin/modwin.scm b/v7/src/edwin/modwin.scm
index 44c60c32a..d179a3cfb 100644
--- a/v7/src/edwin/modwin.scm
+++ b/v7/src/edwin/modwin.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/modwin.scm,v 1.30 1989/08/09 13:17:59 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/modwin.scm,v 1.31 1989/08/11 11:30:36 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989 Massachusetts Institute of Technology
 ;;;
@@ -65,12 +65,10 @@
 		screen x-start y-start
 		(string-pad-right (modeline-string superior) x-size #\-)
 		xl xu))))
-	(if (and (variable-local-value
-		  (window-buffer superior)
-		  (ref-variable-object mode-line-inverse-video))
-		 (let ((x-size (screen-x-size screen)))
-		   (or (= x-size (window-x-size superior))
-		       (= x-size (window-x-size (window-superior superior))))))	    (with-inverse-video! screen thunk)
+	(if (variable-local-value
+	     (window-buffer superior)
+	     (ref-variable-object mode-line-inverse-video))
+	    (with-inverse-video! screen thunk)
 	    (thunk))))  true)
 
 (define (with-inverse-video! screen thunk)