From 19ee30e369c9e8ba1f083dc5d07017c4adb6822a Mon Sep 17 00:00:00 2001
From: Tom de Vries <tdevries@suse.de>
Date: Fri, 15 Aug 2025 14:48:10 +0200
Subject: [PATCH] [gdb/testsuite] Add Term::_csi_h and Term::_csi_l

Add support for:
- Set Mode (SM)
  CSI h
- Reset Mode (RM)
  CSI l
---
 gdb/testsuite/lib/tuiterm.exp | 34 ++++++++++++++++++++++++++++++++++
 1 file changed, 34 insertions(+)

diff --git a/gdb/testsuite/lib/tuiterm.exp b/gdb/testsuite/lib/tuiterm.exp
index ecb2c30cbfc..4129a6d43d6 100644
--- a/gdb/testsuite/lib/tuiterm.exp
+++ b/gdb/testsuite/lib/tuiterm.exp
@@ -592,6 +592,40 @@ proc Term::_csi_d {args} {
     }
 }
 
+# Set Mode (SM, CSI h)
+#
+# https://invisible-island.net/xterm/ctlseqs/ctlseqs.html
+proc Term::_csi_h { args } {
+    foreach item $args {
+	switch -exact -- $item {
+	    4 {
+		# Insert Mode (IRM)
+		_log "ignored: insert mode"
+	    }
+	    default {
+		error unsupported
+	    }
+	}
+    }
+}
+
+# Reset Mode (RM, CSI l)
+#
+# https://invisible-island.net/xterm/ctlseqs/ctlseqs.html
+proc Term::_csi_l { args } {
+    foreach item $args {
+	switch -exact -- $item {
+	    4 {
+		# Replace Mode (IRM)
+		_log "ignored: replace mode"
+	    }
+	    default {
+		error unsupported
+	    }
+	}
+    }
+}
+
 # Reset the attributes in attributes array UPVAR_NAME to the default values.
 proc Term::_reset_attrs { upvar_name } {
     upvar $upvar_name var
-- 
2.47.3