From 3edc798e3adbb45472c14e21f6a99d43626daf40 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sat, 5 Nov 2005 06:18:31 +0000 Subject: [PATCH] Fix thinko in UNDO-RECORD-INSERTION!. --- v7/src/edwin/undo.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/v7/src/edwin/undo.scm b/v7/src/edwin/undo.scm index 66847bc57..52ba600eb 100644 --- a/v7/src/edwin/undo.scm +++ b/v7/src/edwin/undo.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: undo.scm,v 1.64 2005/11/05 04:23:00 cph Exp $ +$Id: undo.scm,v 1.65 2005/11/05 06:18:31 cph Exp $ Copyright 1987,1989,1991,1992,1993,2000 Massachusetts Institute of Technology Copyright 2005 Massachusetts Institute of Technology @@ -94,8 +94,8 @@ USA. (pair? (car (group-undo-data group))) (fix:fixnum? (caar (group-undo-data group))) (fix:fixnum? (cdar (group-undo-data group))) - (fix:= (cdr (group-undo-data group)) start)) - (set-cdr! (group-undo-data group) end)) + (fix:= (cdar (group-undo-data group)) start)) + (set-cdr! (car (group-undo-data group)) end)) (else (set-group-undo-data! group (cons (cons start end) -- 2.25.1