Merge pull request #513 from rakllie/exclude-C-M-keys

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

1 files changed, 7 insertions, 0 deletions

diff --git a/vterm.el b/vterm.el
index 309bc4a..f3bed19 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)