From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 29 Jan 1999 20:03:35 +0000 (+0000)
Subject: Fix thinko.
X-Git-Tag: 20090517-FFI~4664
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=7afaf75bf3135ecbd4d9140a991c147bfecda9cd;p=mit-scheme.git

Fix thinko.
---

diff --git a/v7/src/edwin/pwedit.scm b/v7/src/edwin/pwedit.scm
index f207431ed..f583c4c81 100644
--- a/v7/src/edwin/pwedit.scm
+++ b/v7/src/edwin/pwedit.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: pwedit.scm,v 1.3 1999/01/14 21:40:35 cph Exp $
+;;; $Id: pwedit.scm,v 1.4 1999/01/29 20:03:35 cph Exp $
 ;;;
 ;;; Copyright (c) 1999 Massachusetts Institute of Technology
 ;;;
@@ -151,7 +151,8 @@
 
 (define (short-pw-body-region point)
   (let ((end (line-end point 0)))
-    (let ((start (next-specific-property-change* point end 'PW-FORM)))
+    (let ((start
+	   (next-specific-property-change* (line-start point 0) end 'PW-FORM)))
       (and start
 	   (mark< start end)
 	   (make-region start end)))))