From 916e6880262ac111c24886f815ce8a42d0b29fb7 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 22 Oct 2007 15:25:12 +0000 Subject: [PATCH] (terminal-init-AT386): Use input-decode-map. --- lisp/ChangeLog | 2 ++ lisp/term/AT386.el | 7 ++++--- 2 files changed, 6 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e9827dd3beb..32c70dc3479 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,7 @@ 2007-10-22 Stefan Monnier + * term/AT386.el (terminal-init-AT386): Use input-decode-map. + * term/vt200.el (terminal-init-vt200): * term/vt201.el (terminal-init-vt201): * term/vt220.el (terminal-init-vt220): diff --git a/lisp/term/AT386.el b/lisp/term/AT386.el index 23dfd8e2b11..748807f026f 100644 --- a/lisp/term/AT386.el +++ b/lisp/term/AT386.el @@ -31,7 +31,7 @@ (defun terminal-init-AT386 () "Terminal initialization function for AT386." - (let ((AT386-keypad-map (lookup-key local-function-key-map "\e["))) + (let ((AT386-keypad-map (lookup-key input-decode-map "\e["))) ;; The terminal initialization should already have set up some keys (if (not (keymapp AT386-keypad-map)) (error "What? Your AT386 termcap/terminfo has no keycaps in it")) @@ -55,8 +55,9 @@ (define-key AT386-keypad-map "T" [kp-add]) ;; Arrange for the ALT key to be equivalent to ESC - (define-key local-function-key-map "\eN" [27]) ; ALT map + (define-key input-decode-map "\eN" [ALT]) + (define-key local-function-key-map [ALT] [27]) )) -;;; arch-tag: abec1b03-582f-49f8-b8cb-e2fd52ea4bd7 +;; arch-tag: abec1b03-582f-49f8-b8cb-e2fd52ea4bd7 ;;; AT386.el ends here -- 2.39.2