From: Tino Calancha <f92capac@gmail.com>
Date: Mon, 29 Feb 2016 06:07:59 +0000 (+1100)
Subject: Meta + shift + Fn combos are recognized by xterm>=216.
X-Git-Tag: emacs-26.0.90~2430
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=16efc8d53f30d7519cfbcb5837fce70911d6f3a1;p=emacs.git

Meta + shift + Fn combos are recognized by xterm>=216.

* lisp/term/xterm.el (xterm-alternatives-map): Meta + shift +
Fn combos are recognized by xterm>=216 (bug#22837).
---

diff --git a/lisp/term/xterm.el b/lisp/term/xterm.el
index e06423ccfdd..5a38ebe8e45 100644
--- a/lisp/term/xterm.el
+++ b/lisp/term/xterm.el
@@ -590,6 +590,19 @@ string bytes that can be copied is 3/4 of this value."
     (define-key map [f59] [M-f11])
     (define-key map [f60] [M-f12])
 
+    (define-key map [f61] [M-S-f1])
+    (define-key map [f62] [M-S-f2])
+    (define-key map [f63] [M-S-f3])
+    (define-key map [f64] [M-S-f4])
+    (define-key map [f65] [M-S-f5])
+    (define-key map [f66] [M-S-f6])
+    (define-key map [f67] [M-S-f7])
+    (define-key map [f68] [M-S-f8])
+    (define-key map [f69] [M-S-f9])
+    (define-key map [f70] [M-S-f10])
+    (define-key map [f71] [M-S-f11])
+    (define-key map [f72] [M-S-f12])
+
     map)
   "Keymap of possible alternative meanings for some keys.")