From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 9 Aug 1989 12:55:39 +0000 (+0000)
Subject: Fix editing error from last changes.
X-Git-Tag: 20090517-FFI~11861
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=44c536b7ddaf9f2972961595ae3e0ca4bc203f16;p=mit-scheme.git

Fix editing error from last changes.
---

diff --git a/v7/src/edwin/bufwmc.scm b/v7/src/edwin/bufwmc.scm
index 2771a6040..946b0bfbe 100644
--- a/v7/src/edwin/bufwmc.scm
+++ b/v7/src/edwin/bufwmc.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/bufwmc.scm,v 1.5 1989/08/08 10:05:36 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/bufwmc.scm,v 1.6 1989/08/09 12:55:39 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989 Massachusetts Institute of Technology
 ;;;
@@ -78,7 +78,9 @@
       (define (search-upwards end y-end)
 	(let ((start (line-start-index group end)))
 	  (let ((columns (group-column-length group start end 0)))
-	    (let ((y-start (- y-end (column->y-size columns x-size))))	      (if (<= start index)
+	    (let ((y-start
+		   (- y-end (column->y-size columns x-size truncate-lines?))))
+	      (if (<= start index)
 		  (done start columns y-start)
 		  (search-upwards (-1+ start) y-start))))))