From f56ba06b50be0f5b37c34b325fa78ce960d0a307 Mon Sep 17 00:00:00 2001
From: "C. McEnroe" <june@causal.agency>
Date: Mon, 18 Oct 2021 12:03:01 -0400
Subject: Skip DECKP* in lexer

---
 bin/shotty.l | 9 ++-------
 1 file changed, 2 insertions(+), 7 deletions(-)

(limited to 'bin')

diff --git a/bin/shotty.l b/bin/shotty.l
index e62b361b..67b5d422 100644
--- a/bin/shotty.l
+++ b/bin/shotty.l
@@ -45,8 +45,6 @@
 	X(CUP) \
 	X(CUU) \
 	X(DCH) \
-	X(DECKPAM) \
-	X(DECKPNM) \
 	X(DECRC) \
 	X(DECRST) \
 	X(DECSC) \
@@ -132,8 +130,8 @@ ESC \x1B
 
 {ESC}7	return DECSC;
 {ESC}8	return DECRC;
-{ESC}=	return DECKPAM;
-{ESC}>	return DECKPNM;
+{ESC}=	// DECKPAM
+{ESC}>	// DECKPNM
 {ESC}M	return RI;
 
 {ESC}"(0"	g0 = DECSpecial;
@@ -425,10 +423,7 @@ static void update(enum Code cc) {
 			x = bound(0, x+w, (mode & Wrap ? cols : cols-1));
 			return;
 		}
-
 		break; case MC:;
-		break; case DECKPAM:;
-		break; case DECKPNM:;
 	}
 
 	x = bound(0, x, cols-1);
-- 
cgit 1.4.1