From 38b0e93cfb56873cb94bc7e14bbabd44a2e3d695 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sun, 10 Jan 1993 10:47:06 +0000 Subject: [PATCH] Fix typo. --- v7/src/edwin/kilcom.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/v7/src/edwin/kilcom.scm b/v7/src/edwin/kilcom.scm index 247a60c02..7a82b355d 100644 --- a/v7/src/edwin/kilcom.scm +++ b/v7/src/edwin/kilcom.scm @@ -1,8 +1,8 @@ ;;; -*-Scheme-*- ;;; -;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/kilcom.scm,v 1.63 1991/05/10 04:57:24 cph Exp $ +;;; $Id: kilcom.scm,v 1.64 1993/01/10 10:47:06 cph Exp $ ;;; -;;; Copyright (c) 1985, 1989-91 Massachusetts Institute of Technology +;;; Copyright (c) 1985, 1989-93 Massachusetts Institute of Technology ;;; ;;; This material was developed by the Scheme project at the ;;; Massachusetts Institute of Technology, Department of @@ -101,7 +101,7 @@ Killed text is pushed onto the kill ring for retrieval." (cond ((not argument) (let ((end (line-end point 0))) (if (and (region-blank? (make-region point end)) - (not (group-end? point))) + (not (group-end? end))) (mark1+ end) end))) ((positive? argument) -- 2.25.1