From fac3f386dedbb45bd04d543ebfccd45a58eddb04 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 19 Sep 2005 17:45:31 +0000 Subject: [PATCH] (terminal-init-rxvt): Add entry for [end]. --- lisp/ChangeLog | 4 ++++ lisp/term/rxvt.el | 7 ++++--- 2 files changed, 8 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 66167330a07..5b4e1c8cbca 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2005-09-19 Emanuele Giaquinta (tiny change) + + * term/rxvt.el (terminal-init-rxvt): Add entry for [end]. + 2005-09-19 Stefan Monnier * calendar/calendar.el (mark-visible-calendar-date): Save excursion. diff --git a/lisp/term/rxvt.el b/lisp/term/rxvt.el index 1b4e5a6f61f..ee0e31abdba 100644 --- a/lisp/term/rxvt.el +++ b/lisp/term/rxvt.el @@ -33,7 +33,7 @@ ;; a PC-style keyboard these keys correspond to ;; MODIFIER-FUNCTION_KEY, where modifier is S-, C-, C-S-. The ;; code here subsitutes the corresponding defintions in - ;; function-key-map. This substitution is needed because if a key + ;; function-key-map. This substitution is needed because if a key ;; definition if found in function-key-map, there are no further ;; lookups in other keymaps. (substitute-key-definition [f11] [S-f1] function-key-map) @@ -75,12 +75,13 @@ (define-key map "\e[B" [down]) (define-key map "\e[C" [right]) (define-key map "\e[D" [left]) - (define-key map "\e[7~" [home]) (define-key map "\e[2~" [insert]) (define-key map "\e[3~" [delete]) (define-key map "\e[4~" [select]) (define-key map "\e[5~" [prior]) (define-key map "\e[6~" [next]) + (define-key map "\e[7~" [home]) + (define-key map "\e[8~" [end]) (define-key map "\e[11~" [f1]) (define-key map "\e[12~" [f2]) (define-key map "\e[13~" [f3]) @@ -236,5 +237,5 @@ for the currently selected frame." (setq default-frame-background-mode 'dark))) (frame-set-background-mode (selected-frame)))) -;;; arch-tag: 20cf2fb6-6318-4bab-9dbf-1d15048f2257 +;; arch-tag: 20cf2fb6-6318-4bab-9dbf-1d15048f2257 ;;; rxvt.el ends here -- 2.39.5