From 9449a9de33db8849f436666ab4afc90f2349d8c9 Mon Sep 17 00:00:00 2001
From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr>
Date: Wed, 1 Sep 1993 17:59:16 +0000
Subject: [PATCH] Add enter/exit from termcap mode for the NT emulator.

---
 v7/src/edwin/ansi.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/v7/src/edwin/ansi.scm b/v7/src/edwin/ansi.scm
index c374fe9b9..828587942 100644
--- a/v7/src/edwin/ansi.scm
+++ b/v7/src/edwin/ansi.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: ansi.scm,v 1.4 1993/07/29 00:01:20 gjr Exp $
+$Id: ansi.scm,v 1.5 1993/09/01 17:59:16 gjr Exp $
 
 Copyright (c) 1992-1993 Massachusetts Institute of Technology
 
@@ -136,11 +136,11 @@ MIT in each case. |#
        false				; ts-enter-delete-mode
        false ;"\033[4h"			; ts-enter-insert-mode
        standout;"\033[7m"		; ts-enter-standout-mode
-       false				; ts-enter-termcap-mode
+       (and full? "\033[1p")		; ts-enter-termcap-mode
        false				; ts-exit-delete-mode
        false ;"\033[4l"			; ts-exit-insert-mode
        normal;"\033[0m"			; ts-exit-standout-mode
-       false				; ts-exit-termcap-mode
+       (and full? "\033[0p")		; ts-exit-termcap-mode
        "\n"				; ts-forward-scroll
        false				; ts-forward-scroll-multi
        (and full? "\033[@")		; ts-insert-char
-- 
2.25.1