[Emacs-diffs] Changes to emacs/lisp/term/xterm.el,v

[Dan Nicolaescu]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Dan Nicolaescu <dann>   06/09/04 16:49:35

Index: term/xterm.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/term/xterm.el,v
retrieving revision 1.31
retrieving revision 1.32
diff -u -b -r1.31 -r1.32
--- term/xterm.el       8 Aug 2006 05:31:09 -0000       1.31
+++ term/xterm.el       4 Sep 2006 16:49:34 -0000       1.32
@@ -231,17 +231,20 @@
       ;; These keys are available in xterm starting from version 216
       ;; if the modifyOtherKeys resource is set to 1.
 
+      (define-key map "\e[27;5;9~"   [C-tab])
+      (define-key map "\e[27;5;13~"  [C-return])
       (define-key map "\e[27;5;39~"  [?\C-\'])
+      (define-key map "\e[27;5;44~"  [?\C-,])
       (define-key map "\e[27;5;45~"  [?\C--])
-      
+      (define-key map "\e[27;5;46~"  [?\C-.])
+      (define-key map "\e[27;5;47~"  [?\C-/])
       (define-key map "\e[27;5;48~"  [?\C-0])
       (define-key map "\e[27;5;49~"  [?\C-1])
       ;; Not all C-DIGIT keys have a distinct binding.
       (define-key map "\e[27;5;57~"  [?\C-9])
-
-      (define-key map "\e[27;5;59~"  [?\C-\;])
+      (define-key map "\e[27;5;59~"  [(C-\;)])
       (define-key map "\e[27;5;61~"  [?\C-=])
-
+      (define-key map "\e[27;5;92~"  [?\C-\\])
 
       (define-key map "\e[27;6;33~"  [?\C-!])
       (define-key map "\e[27;6;34~"  [?\C-\"])
@@ -253,26 +256,53 @@
       (define-key map "\e[27;6;41~"  [?\C-)])
       (define-key map "\e[27;6;42~"  [?\C-*])
       (define-key map "\e[27;6;43~"  [?\C-+])
-
       (define-key map "\e[27;6;58~"  [?\C-:])
       (define-key map "\e[27;6;60~"  [?\C-<])
       (define-key map "\e[27;6;62~"  [?\C->])
       (define-key map "\e[27;6;63~"  [(C-\?)])
 
-      (define-key map "\e[27;5;9~"  [C-tab])
-      (define-key map "\e[27;5;13~" [C-return])
-      (define-key map "\e[27;5;44~" [?\C-,])
-      (define-key map "\e[27;5;46~" [?\C-.])
-      (define-key map "\e[27;5;47~" [?\C-/])
-      (define-key map "\e[27;5;92~" [?\C-\\])
+      (define-key map "\e[27;13;9~"  [(C-M-tab)])
+      (define-key map "\e[27;13;13~" [(C-M-return)])
+
+      (define-key map "\e[27;13;39~" [?\C-\M-\'])
+      (define-key map "\e[27;13;44~" [?\C-\M-,])
+      (define-key map "\e[27;13;45~" [?\C-\M--])
+      (define-key map "\e[27;13;46~" [?\C-\M-.])
+      (define-key map "\e[27;13;47~" [?\C-\M-/])
+      (define-key map "\e[27;13;48~" [?\C-\M-0])
+      (define-key map "\e[27;13;49~" [?\C-\M-1])
+      (define-key map "\e[27;13;50~" [?\C-\M-2])
+      (define-key map "\e[27;13;51~" [?\C-\M-3])
+      (define-key map "\e[27;13;52~" [?\C-\M-4])
+      (define-key map "\e[27;13;53~" [?\C-\M-5])
+      (define-key map "\e[27;13;54~" [?\C-\M-6])
+      (define-key map "\e[27;13;55~" [?\C-\M-7])
+      (define-key map "\e[27;13;56~" [?\C-\M-8])
+      (define-key map "\e[27;13;57~" [?\C-\M-9])
+      (define-key map "\e[27;13;59~" [?\C-\M-\;])
+      (define-key map "\e[27;13;61~" [?\C-\M-=])
+      (define-key map "\e[27;13;92~" [?\C-\M-\\])
+
+      (define-key map "\e[27;14;33~"  [?\C-\M-!])
+      (define-key map "\e[27;14;34~"  [?\C-\M-\"])
+      (define-key map "\e[27;14;35~"  [?\C-\M-#])
+      (define-key map "\e[27;14;36~"  [?\C-\M-$])
+      (define-key map "\e[27;14;37~"  [?\C-\M-%])
+      (define-key map "\e[27;14;38~"  [(C-M-&)])
+      (define-key map "\e[27;14;40~"  [?\C-\M-(])
+      (define-key map "\e[27;14;41~"  [?\C-\M-)])
+      (define-key map "\e[27;14;42~"  [?\C-\M-*])
+      (define-key map "\e[27;14;43~"  [?\C-\M-+])
+      (define-key map "\e[27;14;58~"  [?\C-\M-:])
+      (define-key map "\e[27;14;60~"  [?\C-\M-<])
+      (define-key map "\e[27;14;62~"  [?\C-\M->])
+      (define-key map "\e[27;14;63~"  [(C-M-\?)])
 
       (define-key map "\e[27;2;9~"  [S-tab])
       (define-key map "\e[27;2;13~" [S-return])
 
       (define-key map "\e[27;6;9~"  [(C-S-tab)])
-
-      (define-key map "\e[27;13;46~" [?\C-\M-.])
-
+      (define-key map "\e[27;6;13~"  [(C-S-return)])
 
       ;; Other versions of xterm might emit these.
       (define-key map "\e[A" [up])