From 3c33ac0785b5d6ba3d6af37c9bb318a5336e353d Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Tue, 9 Oct 2007 05:15:00 +0000 Subject: [PATCH] (xterm-alternatives-map): Remove spurious left-over code. (terminal-init-xterm): Typos. --- lisp/term/xterm.el | 13 ++----------- 1 file changed, 2 insertions(+), 11 deletions(-) diff --git a/lisp/term/xterm.el b/lisp/term/xterm.el index 13a453434a2..8326c920528 100644 --- a/lisp/term/xterm.el +++ b/lisp/term/xterm.el @@ -438,15 +438,6 @@ (define-key map [f59] [A-f11]) (define-key map [f60] [A-f12]) - ;; Map common bindings for wheel events. Again we do this in - ;; local-function-key-map rather than input-decode-map because we cannot - ;; be sure this is right, so if you really have a mouse-4 button rather - ;; than a wheel, you can bind it to whatever you want, to override - ;; this remapping. - (define-key map [*-mouse-4] [wheel-up]) - (define-key map [*-mouse-5] [wheel-down]) - (define-key map [*-mouse-6] [wheel-left]) - (define-key map [*-mouse-7] [wheel-right]) map) "Keymap of possible alternative meanings for some keys.") @@ -463,7 +454,7 @@ (tty-run-terminal-initialization (selected-frame) "rxvt") (let ((map (copy-keymap xterm-alternatives-map))) - (set-keymap-parent map (keymap-parent) local-function-key-map) + (set-keymap-parent map (keymap-parent local-function-key-map)) (set-keymap-parent local-function-key-map map)) (let ((map (copy-keymap xterm-function-map))) @@ -472,7 +463,7 @@ ;; This way we don't override terminfo-derived settings or settings ;; made in the .emacs file. (set-keymap-parent map (keymap-parent input-decode-map)) - (set-keymap-parent input-decode map))) + (set-keymap-parent input-decode-map map))) (xterm-register-default-colors) ;; This recomputes all the default faces given the colors we've just set up. -- 2.39.2