add more key bindings to rxvt.el

[Dan Nicolaescu]

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])