[Emacs-diffs] Changes to emacs/lisp/term/rxvt.el

[Stefan Monnier]

Index: emacs/lisp/term/rxvt.el
diff -c emacs/lisp/term/rxvt.el:1.9 emacs/lisp/term/rxvt.el:1.10
*** emacs/lisp/term/rxvt.el:1.9 Mon Aug  1 15:44:22 2005
--- emacs/lisp/term/rxvt.el     Mon Sep 19 17:44:25 2005
***************
*** 33,39 ****
    ;; 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
    ;; definition if found in function-key-map, there are no further
    ;; lookups in other keymaps.
    (substitute-key-definition [f11] [S-f1] function-key-map)
--- 33,39 ----
    ;; 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
    ;; 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,86 ****
      (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[11~" [f1])
      (define-key map "\e[12~" [f2])
      (define-key map "\e[13~" [f3])
--- 75,87 ----
      (define-key map "\e[B" [down])
      (define-key map "\e[C" [right])
      (define-key map "\e[D" [left])
      (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,240 ****
          (setq default-frame-background-mode 'dark)))
      (frame-set-background-mode (selected-frame))))
  
! ;;; arch-tag: 20cf2fb6-6318-4bab-9dbf-1d15048f2257
  ;;; rxvt.el ends here
--- 237,241 ----
          (setq default-frame-background-mode 'dark)))
      (frame-set-background-mode (selected-frame))))
  
! ;; arch-tag: 20cf2fb6-6318-4bab-9dbf-1d15048f2257
  ;;; rxvt.el ends here