[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/term/AT386.el,v
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/term/AT386.el,v |
Date: |
Mon, 22 Oct 2007 15:25:14 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Stefan Monnier <monnier> 07/10/22 15:25:14
Index: term/AT386.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/term/AT386.el,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -b -r1.11 -r1.12
--- term/AT386.el 29 Aug 2007 05:28:00 -0000 1.11
+++ term/AT386.el 22 Oct 2007 15:25:12 -0000 1.12
@@ -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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/term/AT386.el,v,
Stefan Monnier <=