From 200cd8e635e8fb72d2aa3f8b5fe4ae22b2d6655b Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 2 Jul 1991 18:56:18 +0000 Subject: [PATCH] Fix bug that left-justified the modeline for a non-left-justified window. --- v7/src/edwin/modwin.scm | 13 ++++++------- 1 file changed, 6 insertions(+), 7 deletions(-) diff --git a/v7/src/edwin/modwin.scm b/v7/src/edwin/modwin.scm index ea4faa903..2bd0b26d3 100644 --- a/v7/src/edwin/modwin.scm +++ b/v7/src/edwin/modwin.scm @@ -1,8 +1,8 @@ ;;; -*-Scheme-*- ;;; -;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/modwin.scm,v 1.37 1991/05/18 03:23:25 cph Exp $ +;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/modwin.scm,v 1.38 1991/07/02 18:56:18 cph Exp $ ;;; -;;; Copyright (c) 1986, 1989, 1990 Massachusetts Institute of Technology +;;; Copyright (c) 1986, 1989-91 Massachusetts Institute of Technology ;;; ;;; This material was developed by the Scheme project at the ;;; Massachusetts Institute of Technology, Department of @@ -56,14 +56,13 @@ xl xu yl yu display-style) display-style ;ignore (if (and (fix:= yl 0) (fix:< yl yu)) - (let ((superior (window-superior window))) + (let ((superior (window-superior window)) + (xl (fix:+ x-start xl)) + (xu (fix:+ x-start xu))) (modeline-string! superior (screen-get-output-line - screen - y-start - (fix:+ x-start xl) - (fix:+ x-start xu) + screen y-start xl xu (variable-local-value (window-buffer superior) (ref-variable-object mode-line-inverse-video))) xl xu))) -- 2.25.1