From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 8 Sep 2004 02:41:53 +0000 (+0000)
Subject: (function-key-map): Add bindings for C- and S- cursor
X-Git-Tag: ttn-vms-21-2-B4~5027
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4dab1ffd0655f503201eb9671d597785eab31fa7;p=emacs.git

(function-key-map): Add bindings for C- and S- cursor
motion as seen on my Mac OS X xterms.
---

diff --git a/lisp/term/xterm.el b/lisp/term/xterm.el
index d66646876b1..234280a3c3f 100644
--- a/lisp/term/xterm.el
+++ b/lisp/term/xterm.el
@@ -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 @@ versions of xterm."
 ;; 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