diff options
| author | Per Bothner <bothner@cygnus.com> | 1995-03-16 01:24:19 +0000 |
|---|---|---|
| committer | Per Bothner <bothner@cygnus.com> | 1995-03-16 01:24:19 +0000 |
| commit | 5232b7532b34915d25d9d483eb36f75d5b7dd57e (patch) | |
| tree | 888a673cec9b4065bfa982ecd04c1a5142f6ded2 /lisp | |
| parent | d1e203d20c855d68a83d0f9a0acec6e39a1067ea (diff) | |
| download | emacs-5232b7532b34915d25d9d483eb36f75d5b7dd57e.tar.gz | |
(term-char-mode): Fix arrow key and [button2] support for xemacs.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/term.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/term.el b/lisp/term.el index 268f673a8cf..8d0e15e09eb 100644 --- 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 |