Mercurial > emacs

changeset 11032:4b411b6a4e70

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(term-char-mode): Fix arrow key and [button2] support for xemacs.
author Per Bothner <bothner@cygnus.com>
date Thu, 16 Mar 1995 01:24:19 +0000
parents a6d5c39ed964
children 8d2f156b72ff
files lisp/term.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/term.el	Wed Mar 15 23:32:19 1995 +0000
+++ b/lisp/term.el	Thu Mar 16 01:24:19 1995 +0000
@@ -720,16 +720,16 @@
 	      (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