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

1 files changed, 7 insertions, 1 deletions

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++;