Mercurial > emacs
changeset 85108:589b4d30fe83
(xterm-alternatives-map): Remove spurious left-over code.
(terminal-init-xterm): Typos.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Tue, 09 Oct 2007 05:15:00 +0000 |
| parents | 1d6428311f66 |
| children | ee1411f40132 |
| files | lisp/term/xterm.el |
| diffstat | 1 files changed, 2 insertions(+), 11 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/term/xterm.el Tue Oct 09 05:05:57 2007 +0000 +++ b/lisp/term/xterm.el Tue Oct 09 05:15:00 2007 +0000 @@ -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.