From c79722c9f70b5f45d020f79b8577711951f90763 Mon Sep 17 00:00:00 2001 From: Dan Nicolaescu Date: Fri, 21 Jul 2006 17:36:10 +0000 Subject: [PATCH] (terminal-init-xterm): Fix key bindings syntax. Bind S-return, C-M-., C-TAB, S-TAB and C-S-TAB. --- lisp/ChangeLog | 5 +++++ lisp/term/xterm.el | 20 ++++++++++++++------ 2 files changed, 19 insertions(+), 6 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a75f47677b9..538a4ce88c3 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2006-07-21 Dan Nicolaescu + + * term/xterm.el (terminal-init-xterm): Fix key bindings + syntax. Bind S-return, C-M-., C-TAB, S-TAB and C-S-TAB. + 2006-07-21 Eli Zaretskii * dos-w32.el (find-buffer-file-type-coding-system): Support calls diff --git a/lisp/term/xterm.el b/lisp/term/xterm.el index 0da804a56af..3504986405e 100644 --- a/lisp/term/xterm.el +++ b/lisp/term/xterm.el @@ -229,13 +229,21 @@ (define-key map "\e[29~" [print]) ;; These keys are available in xterm starting from version 214 - ;; if the modifyOtherKeys resource is set. - (define-key map "\e[27;5;9~" [(control ?\t)]) + ;; if the modifyOtherKeys resource is set to 1. + (define-key map "\e[27;5;9~" [?\C-\t]) (define-key map "\e[27;5;13~" [C-return]) - (define-key map "\e[27;5;44~" [(control ?\,)]) - (define-key map "\e[27;5;46~" [(control ?\.)]) - (define-key map "\e[27;5;47~" [(control ?\/)]) - (define-key map "\e[27;5;92~" [(control ?\\)]) + (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;2;9~" [?\S-\t]) + (define-key map "\e[27;2;13~" [S-return]) + + (define-key map "\e[27;6;9~" [?\C-\S-\t]) + + (define-key map "\e[27;13;46~" [?\C-\M-.]) + ;; Other versions of xterm might emit these. (define-key map "\e[A" [up]) -- 2.39.2