From a1020dd4f950ea2dd838b9aefe10268e790937ce Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 23 Jan 1992 20:59:31 +0000 Subject: [PATCH] Fix stupid think-o in COMINT-LINE-START that caused various lossages in Shell mode. --- v7/src/edwin/comint.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/v7/src/edwin/comint.scm b/v7/src/edwin/comint.scm index 9f9b19df9..fae0fc069 100644 --- a/v7/src/edwin/comint.scm +++ b/v7/src/edwin/comint.scm @@ -1,8 +1,8 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/comint.scm,v 1.11 1991/11/04 20:50:38 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/comint.scm,v 1.12 1992/01/23 20:59:31 cph Exp $ -Copyright (c) 1991 Massachusetts Institute of Technology +Copyright (c) 1991-92 Massachusetts Institute of Technology This material was developed by the Scheme project at the Massachusetts Institute of Technology, Department of Electrical Engineering and @@ -376,7 +376,7 @@ comint-prompt-regexp." (re-match-forward (ref-variable comint-prompt-regexp) start (group-end mark)))) - (if (mark<= mark (line-end start 0)) + (if (and mark (mark<= mark (line-end start 0))) mark start)))) -- 2.25.1