diff options
| author | Dan Nicolaescu <[email protected]> | 2006-08-08 05:31:09 +0000 |
|---|---|---|
| committer | Dan Nicolaescu <[email protected]> | 2006-08-08 05:31:09 +0000 |
| commit | c0658ad46e4928ecdf6a14904073dc8a2fcfe862 (patch) | |
| tree | e077ae23381b4c7a3bafbc256e4b6791eeeb38eb | |
| parent | 10412e6312cabf9265acbe32fd3743927038015f (diff) | |
(terminal-init-xterm): Add more key bindings.
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/term/xterm.el | 31 |
2 files changed, 34 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ff97d53949..ceff0ca111 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2006-08-07 Dan Nicolaescu <[email protected]> + + * term/xterm.el (terminal-init-xterm): Add more key bindings. + 2006-08-07 Stefan Monnier <[email protected]> * complete.el (PC-do-completion): Strip out completion-ignored-extensions diff --git a/lisp/term/xterm.el b/lisp/term/xterm.el index 7622f23752..9ea51a2f77 100644 --- a/lisp/term/xterm.el +++ b/lisp/term/xterm.el @@ -228,8 +228,37 @@ (define-key map "\e[4~" [select]) (define-key map "\e[29~" [print]) - ;; These keys are available in xterm starting from version 214 + ;; These keys are available in xterm starting from version 216 ;; if the modifyOtherKeys resource is set to 1. + + (define-key map "\e[27;5;39~" [?\C-\']) + (define-key map "\e[27;5;45~" [?\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;61~" [?\C-=]) + + + (define-key map "\e[27;6;33~" [?\C-!]) + (define-key map "\e[27;6;34~" [?\C-\"]) + (define-key map "\e[27;6;35~" [?\C-#]) + (define-key map "\e[27;6;36~" [?\C-$]) + (define-key map "\e[27;6;37~" [?\C-%]) + (define-key map "\e[27;6;38~" [(C-&)]) + (define-key map "\e[27;6;40~" [?\C-(]) + (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-,]) |