From 7afaf75bf3135ecbd4d9140a991c147bfecda9cd Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 29 Jan 1999 20:03:35 +0000
Subject: [PATCH] Fix thinko.

---
 v7/src/edwin/pwedit.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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)))))
-- 
2.25.1