Mercurial > emacs
changeset 85552:cfd23169cbc0
(terminal-init-AT386): Use input-decode-map.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Mon, 22 Oct 2007 15:25:12 +0000 |
| parents | aaefd62ba61d |
| children | 4ccd437aad2e |
| files | lisp/ChangeLog lisp/term/AT386.el |
| diffstat | 2 files changed, 6 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Mon Oct 22 15:22:14 2007 +0000 +++ b/lisp/ChangeLog Mon Oct 22 15:25:12 2007 +0000 @@ -1,5 +1,7 @@ 2007-10-22 Stefan Monnier <monnier@iro.umontreal.ca> + * 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):
--- a/lisp/term/AT386.el Mon Oct 22 15:22:14 2007 +0000 +++ b/lisp/term/AT386.el Mon Oct 22 15:25:12 2007 +0000 @@ -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