From 31d29f6575dca9f4188ac9b1864344f86dd333b8 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Mon, 24 Oct 2005 01:55:50 +0000 Subject: [PATCH] Fix bug #12430: do auto-fill line break _before_ inserting new char. --- v7/src/edwin/basic.scm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/v7/src/edwin/basic.scm b/v7/src/edwin/basic.scm index a8c46725b..7061a365d 100644 --- a/v7/src/edwin/basic.scm +++ b/v7/src/edwin/basic.scm @@ -1,8 +1,9 @@ #| -*-Scheme-*- -$Id: basic.scm,v 1.143 2003/02/14 18:28:11 cph Exp $ +$Id: basic.scm,v 1.144 2005/10/24 01:55:50 cph Exp $ -Copyright 1986, 1989-2000 Massachusetts Institute of Technology +Copyright 1987,1989,1990,1991,1992,1993 Massachusetts Institute of Technology +Copyright 1999,2000,2005 Massachusetts Institute of Technology This file is part of MIT/GNU Scheme. @@ -50,7 +51,6 @@ Whichever character you type to run this command is inserted." ((ref-command expand-abbrev) point) (if (not (fix:= t (group-modified-tick (mark-group point)))) (set! hairy? #t)))) - (insert-chars char n) (if (and allow-auto-fill? (or (char=? #\space char) (char=? #\newline char)) @@ -59,6 +59,7 @@ Whichever character you type to run this command is inserted." (auto-fill-break (current-point)) (if (not (fix:= t (group-modified-tick (mark-group point)))) (set! hairy? #t)))) + (insert-chars char n) hairy?))) (define (read-quoted-char prompt-string) -- 2.25.1