From cf011ad6b1752a665369b9cb22361dba61b01e46 Mon Sep 17 00:00:00 2001
From: Akib Azmain Turja <akib@disroot.org>
Date: Fri, 31 Mar 2023 11:27:12 +0600
Subject: [PATCH] Capture keys 'M-backspace' and 'C-M-backspace'

* eat.el (eat-term-input-event): Support 'M-backspace' and
'C-M-backspace'.
* eat.el (eat-term-make-keymap): Bind 'M-backspace' and
'C-M-backspace'.
---
 eat.el | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/eat.el b/eat.el
index e01ee3a..d9aa2b0 100644
--- a/eat.el
+++ b/eat.el
@@ -3908,6 +3908,10 @@ client process may get confused."
            (send "\C-?"))
           ('C-backspace
            (send "\C-h"))
+          ('M-backspace
+           (send "\e\C-?"))
+          ('C-M-backspace
+           (send "\e\C-h"))
           ;; Function keys.
           ((and (pred symbolp)
                 fn-key
@@ -4193,6 +4197,7 @@ EXCEPTIONS is a list of key sequences to not bind.  Don't use
         ;; Bind `backspace', `delete', `deletechar', and all modified
         ;; variants.
         (dolist (key '( backspace C-backspace
+                        M-backspace C-M-backspace
                         insert C-insert M-insert S-insert C-M-insert
                         C-S-insert M-S-insert C-M-S-insert
                         delete C-delete M-delete S-delete C-M-delete