From a07d147e75b4fa391108851e209bdf53ad8830e6 Mon Sep 17 00:00:00 2001 From: Dan Nicolaescu Date: Mon, 8 May 2006 23:21:34 +0000 Subject: [PATCH] (terminal-init-xterm): Add more key bindings. --- lisp/ChangeLog | 4 ++++ lisp/term/xterm.el | 8 ++++++++ 2 files changed, 12 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 7437f4aed99..e4179428136 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2006-05-08 Dan Nicolaescu + + * term/xterm.el (terminal-init-xterm): Add more key bindings. + 2006-05-08 Stefan Monnier * mwheel.el (mwheel-scroll): Make sure that when scrolling multiple diff --git a/lisp/term/xterm.el b/lisp/term/xterm.el index 9cb7253b642..9ce9f34da96 100644 --- a/lisp/term/xterm.el +++ b/lisp/term/xterm.el @@ -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]) -- 2.39.5