From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 17 Dec 1994 12:20:46 +0000 (+0000)
Subject: (tgetst1): Let ^? stand for DEL character.
X-Git-Tag: emacs-19.34~5670
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d80bd4a0297223d276772179d1b787928cfd26cc;p=emacs.git

(tgetst1): Let ^? stand for DEL character.
---

diff --git a/src/termcap.c b/src/termcap.c
index 9462122677e..bcd1ece8cfd 100644
--- a/src/termcap.c
+++ b/src/termcap.c
@@ -219,7 +219,13 @@ tgetst1 (ptr, area)
   while ((c = *p++) && c != ':' && c != '\n')
     {
       if (c == '^')
-	c = *p++ & 037;
+	{
+	  c = *p++;
+	  if (c == '?')
+	    c = 0177;
+	  else
+	    c &= 037;
+	}
       else if (c == '\\')
 	{
 	  c = *p++;