From 391cc5c73dd16369d438002254f730c5de957ff0 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 28 Dec 1999 20:28:58 +0000 Subject: [PATCH] Another tweak to REPL mode to get line spacing right. --- v7/src/edwin/intmod.scm | 17 ++++++++++------- 1 file changed, 10 insertions(+), 7 deletions(-) diff --git a/v7/src/edwin/intmod.scm b/v7/src/edwin/intmod.scm index 026ad5d45..e36bbb5d8 100644 --- a/v7/src/edwin/intmod.scm +++ b/v7/src/edwin/intmod.scm @@ -1,6 +1,6 @@ ;;; -*-Scheme-*- ;;; -;;; $Id: intmod.scm,v 1.108 1999/12/22 20:33:07 cph Exp $ +;;; $Id: intmod.scm,v 1.109 1999/12/28 20:28:58 cph Exp $ ;;; ;;; Copyright (c) 1986, 1989-1999 Massachusetts Institute of Technology ;;; @@ -681,12 +681,15 @@ If this is an error, the debugger examines the error condition." (set-buffer-point! buffer end*) end*) end)))) - (if (eqv? #\newline (extract-right-char mark)) - (mark1+ mark) - (let ((mark (mark-left-inserting-copy mark))) - (insert-newline mark) - (mark-temporary! mark) - mark))))) + (cond ((eqv? #\newline (extract-right-char mark)) + (mark1+ mark)) + ((line-start? mark) + mark) + (else + (let ((mark (mark-left-inserting-copy mark))) + (insert-newline mark) + (mark-temporary! mark) + mark)))))) (move-mark-to! (port/mark port) input-end) (move-mark-to! (ref-variable comint-last-input-end buffer) input-end)) (let ((queue (port/expression-queue port))) -- 2.25.1