Mercurial > emacs
changeset 72061:c6bef0753a98
(terminal-init-xterm): Fix key bindings
syntax. Bind S-return, C-M-., C-TAB, S-TAB and C-S-TAB.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Fri, 21 Jul 2006 17:36:10 +0000 |
| parents | 337f9ac874e6 |
| children | 7b81ccd702d9 |
| files | lisp/ChangeLog lisp/term/xterm.el |
| diffstat | 2 files changed, 19 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Fri Jul 21 17:28:23 2006 +0000 +++ b/lisp/ChangeLog Fri Jul 21 17:36:10 2006 +0000 @@ -1,3 +1,8 @@ +2006-07-21 Dan Nicolaescu <dann@ics.uci.edu> + + * 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 <eliz@gnu.org> * dos-w32.el (find-buffer-file-type-coding-system): Support calls
--- a/lisp/term/xterm.el Fri Jul 21 17:28:23 2006 +0000 +++ b/lisp/term/xterm.el Fri Jul 21 17:36:10 2006 +0000 @@ -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])