Mercurial > emacs
changeset 70529:1a9cbaf1fc03
(terminal-init-xterm): Add more key bindings.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Mon, 08 May 2006 23:21:34 +0000 |
| parents | c8171c0fa382 |
| children | 958e92b75789 |
| files | lisp/ChangeLog lisp/term/xterm.el |
| diffstat | 2 files changed, 12 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Mon May 08 15:14:26 2006 +0000 +++ b/lisp/ChangeLog Mon May 08 23:21:34 2006 +0000 @@ -1,3 +1,7 @@ +2006-05-08 Dan Nicolaescu <dann@ics.uci.edu> + + * term/xterm.el (terminal-init-xterm): Add more key bindings. + 2006-05-08 Stefan Monnier <monnier@iro.umontreal.ca> * mwheel.el (mwheel-scroll): Make sure that when scrolling multiple
--- a/lisp/term/xterm.el Mon May 08 15:14:26 2006 +0000 +++ b/lisp/term/xterm.el Mon May 08 23:21:34 2006 +0000 @@ -227,6 +227,14 @@ (define-key map "\e[4~" [select]) (define-key map "\e[29~" [print]) + + ;; These keys will be available xterm starting probably from + ;; version 214. + (define-key map "\e[27;5;8~" [(control ?\t)]) + (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 ?\\)]) ;; Other versions of xterm might emit these. (define-key map "\e[A" [up])