Mercurial > emacs
changeset 56979:f0f48b9999fa
(function-key-map): Add bindings for C- and S- cursor
motion as seen on my Mac OS X xterms.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Wed, 08 Sep 2004 02:41:53 +0000 |
| parents | 229351c08a59 |
| children | 1c1ca003ded1 |
| files | lisp/term/xterm.el |
| diffstat | 1 files changed, 12 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/term/xterm.el Wed Sep 08 02:30:12 2004 +0000 +++ b/lisp/term/xterm.el Wed Sep 08 02:41:53 2004 +0000 @@ -1,6 +1,6 @@ ;;; xterm.el --- define function key sequences and standard colors for xterm -;; Copyright (C) 1995, 2002 Free Software Foundation, Inc. +;; Copyright (C) 1995, 2002, 2004 Free Software Foundation, Inc. ;; Author: FSF ;; Keywords: terminals @@ -51,6 +51,16 @@ (define-key map "\e[24~" [f12]) (define-key map "\e[29~" [print]) + (define-key map "\e[1;2A" [S-up]) + (define-key map "\e[1;2B" [S-down]) + (define-key map "\e[1;2C" [S-right]) + (define-key map "\e[1;2D" [S-left]) + + (define-key map "\e[1;5A" [C-up]) + (define-key map "\e[1;5B" [C-down]) + (define-key map "\e[1;5C" [C-right]) + (define-key map "\e[1;5D" [C-left]) + (define-key map "\e[2;2~" [S-insert]) (define-key map "\e[3;2~" [S-delete]) (define-key map "\e[5;2~" [S-prior]) @@ -236,5 +246,5 @@ ;; This recomputes all the default faces given the colors we've just set up. (tty-set-up-initial-frame-faces) -;;; arch-tag: 12e7ebdd-1e6c-4b25-b0f9-35ace25e855a +;; arch-tag: 12e7ebdd-1e6c-4b25-b0f9-35ace25e855a ;;; xterm.el ends here