Commit 5232b753 authored by Per Bothner's avatar Per Bothner
Browse files

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

parent d1e203d2
...@@ -720,16 +720,16 @@ intervention from emacs, except for the escape character (usually C-c)." ...@@ -720,16 +720,16 @@ intervention from emacs, except for the escape character (usually C-c)."
(copy-keymap (lookup-key (current-global-map) "\C-x"))) (copy-keymap (lookup-key (current-global-map) "\C-x")))
(term-if-emacs19 (term-if-emacs19
(term-if-xemacs (term-if-xemacs
(define-key term-raw-map [(button2)] 'term-mouse-paste)) (define-key term-raw-map [button2] 'term-mouse-paste))
(term-ifnot-xemacs (term-ifnot-xemacs
(define-key term-raw-map [mouse-2] 'term-mouse-paste) (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 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 [up] 'term-send-up)
(define-key term-raw-map [down] 'term-send-down) (define-key term-raw-map [down] 'term-send-down)
(define-key term-raw-map [right] 'term-send-right) (define-key term-raw-map [right] 'term-send-right)
(define-key term-raw-map [left] 'term-send-left)) (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 ;; FIXME: Emit message? Cfr ilisp-raw-message
(if (term-in-line-mode) (if (term-in-line-mode)
(progn (progn
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment