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

diff --git a/src/termcap.c b/src/termcap.c
index 9462122677ee0d728151380a1750bd45b0aa88b6..bcd1ece8cfd41174502af505f944a6bc37c14965 100644 (file)
--- 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++;