Exclude "C-M-" "C-M-S-" keys

1 files changed, 7 insertions, 0 deletions

diff --git a/vterm.el b/vterm.el
index 459f05c..efaa3b8 100644
--- a/vterm.el
+++ b/vterm.el
@@ -551,6 +551,13 @@ Exceptions are defined by `vterm-keymap-exceptions'."
                  append (cl-loop for char from ?a to ?z
                                  for key = (format "%s%c" prefix char)
                                  unless (member key exceptions)
+                                 collect key)))
+  (mapc (lambda (key)
+          (define-key map (kbd key) 'ignore))
+        (cl-loop for prefix in '("C-M-" "C-M-S-")
+                 append (cl-loop for char from ?a to ?z
+                                 for key = (format "%s%c" prefix char)
+                                 unless (member key exceptions)
                                  collect key))))
 
 (defun vterm-xterm-paste (event)