mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(terminal-init-AT386): Use input-decode-map.

Browse source
This commit is contained in:
Stefan Monnier 2007-10-22 15:25:12 +00:00
parent 4cbe273995
commit 916e688026
2 changed files with 6 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/ChangeLog
View file

@ -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):

7
lisp/term/AT386.el
View file

@ -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