[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
add more key bindings to rxvt.el
From: |
Dan Nicolaescu |
Subject: |
add more key bindings to rxvt.el |
Date: |
Thu, 21 Jul 2005 10:50:23 -0700 |
May I add a few more key bindings to rxvt.el?
*** rxvt.el 10 Jul 2005 01:45:13 -0700 1.6
--- rxvt.el 21 Jul 2005 10:48:53 -0700
***************
*** 50,57 ****
--- 50,61 ----
(define-key map "\e[21~" [f10])
(define-key map "\e[23~" [f11])
(define-key map "\e[24~" [f12])
+
(define-key map "\e[29~" [print])
+ (define-key map "\e[2;2~" [S-insert])
+ (define-key map "\e[3$" [S-delete])
+
(define-key map "\e[11^" [C-f1])
(define-key map "\e[12^" [C-f2])
(define-key map "\e[13^" [C-f3])
***************
*** 65,79 ****
(define-key map "\e[23^" [C-f11])
(define-key map "\e[24^" [C-f12])
! (define-key map "\e[29~" [print])
!
! (define-key map "\e[2;2~" [S-insert])
! (define-key map "\e[3$" [S-delete])
(define-key map "\e[2^" [C-insert])
(define-key map "\e[3^" [C-delete])
(define-key map "\e[5^" [C-prior])
(define-key map "\e[6^" [C-next])
(define-key map "\eOd" [C-left])
(define-key map "\eOc" [C-right])
(define-key map "\eOa" [C-up])
--- 69,95 ----
(define-key map "\e[23^" [C-f11])
(define-key map "\e[24^" [C-f12])
! ;; The strings emitted by S-f1 and S-f2 are identical to the ones
! ;; emitted by f11 and f12.
! ;; (define-key map "\e[23~" [S-f1])
! ;; (define-key map "\e[24~" [S-f2])
! (define-key map "\e[25~" [S-f3])
! (define-key map "\e[26~" [S-f4])
! (define-key map "\e[28~" [S-f5])
! (define-key map "\e[29~" [S-f6])
! (define-key map "\e[31~" [S-f7])
! (define-key map "\e[32~" [S-f8])
! (define-key map "\e[33~" [S-f9])
! (define-key map "\e[34~" [S-f10])
! (define-key map "\e[23$" [S-f11])
! (define-key map "\e[24$" [S-f12])
(define-key map "\e[2^" [C-insert])
(define-key map "\e[3^" [C-delete])
(define-key map "\e[5^" [C-prior])
(define-key map "\e[6^" [C-next])
+ (define-key map "\e[7^" [C-home])
+ (define-key map "\e[8^" [C-end])
(define-key map "\eOd" [C-left])
(define-key map "\eOc" [C-right])
(define-key map "\eOa" [C-up])
- add more key bindings to rxvt.el,
Dan Nicolaescu <=