/[emacs]/emacs/lisp/term/rxvt.el
ViewVC logotype

Diff of /emacs/lisp/term/rxvt.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.9 by ttn, Mon Aug 1 15:44:22 2005 UTC revision 1.10 by monnier, Mon Sep 19 17:44:25 2005 UTC
# Line 33  Line 33 
33    ;; a PC-style keyboard these keys correspond to    ;; a PC-style keyboard these keys correspond to
34    ;; MODIFIER-FUNCTION_KEY, where modifier is S-, C-, C-S-.  The    ;; MODIFIER-FUNCTION_KEY, where modifier is S-, C-, C-S-.  The
35    ;; code here subsitutes the corresponding defintions in    ;; code here subsitutes the corresponding defintions in
36    ;; function-key-map. This substitution is needed because if a key    ;; function-key-map.  This substitution is needed because if a key
37    ;; definition if found in function-key-map, there are no further    ;; definition if found in function-key-map, there are no further
38    ;; lookups in other keymaps.    ;; lookups in other keymaps.
39    (substitute-key-definition [f11] [S-f1] function-key-map)    (substitute-key-definition [f11] [S-f1] function-key-map)
# Line 75  Line 75 
75      (define-key map "\e[B" [down])      (define-key map "\e[B" [down])
76      (define-key map "\e[C" [right])      (define-key map "\e[C" [right])
77      (define-key map "\e[D" [left])      (define-key map "\e[D" [left])
     (define-key map "\e[7~" [home])  
78      (define-key map "\e[2~" [insert])      (define-key map "\e[2~" [insert])
79      (define-key map "\e[3~" [delete])      (define-key map "\e[3~" [delete])
80      (define-key map "\e[4~" [select])      (define-key map "\e[4~" [select])
81      (define-key map "\e[5~" [prior])      (define-key map "\e[5~" [prior])
82      (define-key map "\e[6~" [next])      (define-key map "\e[6~" [next])
83        (define-key map "\e[7~" [home])
84        (define-key map "\e[8~" [end])
85      (define-key map "\e[11~" [f1])      (define-key map "\e[11~" [f1])
86      (define-key map "\e[12~" [f2])      (define-key map "\e[12~" [f2])
87      (define-key map "\e[13~" [f3])      (define-key map "\e[13~" [f3])
# Line 236  for the currently selected frame." Line 237  for the currently selected frame."
237            (setq default-frame-background-mode 'dark)))            (setq default-frame-background-mode 'dark)))
238      (frame-set-background-mode (selected-frame))))      (frame-set-background-mode (selected-frame))))
239    
240  ;;; arch-tag: 20cf2fb6-6318-4bab-9dbf-1d15048f2257  ;; arch-tag: 20cf2fb6-6318-4bab-9dbf-1d15048f2257
241  ;;; rxvt.el ends here  ;;; rxvt.el ends here

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26