diff --git a/lisp/term-compat.el b/lisp/term-compat.el
index eaf1d78..b2e742d 100644
--- a/lisp/term-compat.el
+++ b/lisp/term-compat.el
@@ -27,15 +27,23 @@
 (require 'term/xterm)
 
 (let ((ascii-start 97)
-      (C-M-start ?\C-\M-a))
+      (C-M-start ?\C-\M-a)
+      (M-S-start ?\M-\S-a))
   (dotimes (n 26)
     (define-key xterm-function-map
                 (format "\e[27;5;%d~" (+ ascii-start n))
                 (vector (1+ n)))
+    (define-key xterm-function-map
+                (format "\e[27;4;%d~" (+ ascii-start n))
+                (vector (+ n M-S-start)))
     (define-key xterm-function-map
                 (format "\e[27;7;%d~" (+ ascii-start n))
                 (vector (+ n C-M-start)))))
 
+(define-key xterm-function-map
+            "\e[27;4;13~"
+            [M-S-return])
+
 (define-key xterm-function-map
             "\e[27;5;8~"
             [C-backspace])