diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2007-10-22 15:25:12 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2007-10-22 15:25:12 +0000 |
| commit | 916e6880262ac111c24886f815ce8a42d0b29fb7 (patch) | |
| tree | 961ed7053813efa1fe85a2845623b2eebb2d8ce9 /lisp/term | |
| parent | 4cbe2739957424c10b5a0ce73d3e20941492ca43 (diff) | |
| download | emacs-916e6880262ac111c24886f815ce8a42d0b29fb7.tar.gz | |
(terminal-init-AT386): Use input-decode-map.
Diffstat (limited to 'lisp/term')
| -rw-r--r-- | lisp/term/AT386.el | 7 |
1 files changed, 4 insertions, 3 deletions
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 |