(term-char-mode): Fix arrow key and [button2] support for xemacs.

diff --git a/lisp/term.el b/lisp/term.el
index 268f673a8cffefb3d91a602d3cffad6c12ce5ce6..8d0e15e09eb31e78fa2cd914431988ccc65ca62b 100644 (file)
--- a/lisp/term.el
+++ b/lisp/term.el
@@ -720,16 +720,16 @@ intervention from emacs, except for the escape character (usually C-c)."
              (copy-keymap (lookup-key (current-global-map) "\C-x")))
        (term-if-emacs19
         (term-if-xemacs
-         (define-key term-raw-map [(button2)] 'term-mouse-paste))
+         (define-key term-raw-map [button2] 'term-mouse-paste))
         (term-ifnot-xemacs
          (define-key term-raw-map [mouse-2] 'term-mouse-paste)
          (define-key term-raw-map [menu-bar terminal] term-terminal-menu)
-         (define-key term-raw-map [menu-bar signals] term-signals-menu)
+         (define-key term-raw-map [menu-bar signals] term-signals-menu))
         (define-key term-raw-map [up] 'term-send-up)
         (define-key term-raw-map [down] 'term-send-down)
         (define-key term-raw-map [right] 'term-send-right)
         (define-key term-raw-map [left] 'term-send-left))
-       (term-set-escape-char ?\C-c))))
+       (term-set-escape-char ?\C-c)))
   ;; FIXME: Emit message? Cfr ilisp-raw-message
   (if (term-in-line-mode)
       (progn