Mercurial > emacs

diff lisp/term/AT386.el @ 83326:8eafadd7838b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use terminal-local-value to access function-key-map in terminal packages. * lisp/term/AT386.el: Wrap function-key-map accesses in (set-)terminal-local-value. * lisp/term/internal.el: Ditto. * lisp/term/iris-ansi.el: Ditto. * lisp/term/lk201.el: Ditto. * lisp/term/mac-win.el: Ditto. * lisp/term/news.el: Ditto. * lisp/term/rxvt.el: Ditto. * lisp/term/sun.el: Ditto. * lisp/term/tvi970.el: Ditto. * lisp/term/wyse50.el: Ditto. * lisp/term/x-win.el: Ditto. * lisp/term/xterm.el: Ditto. git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-366
author Karoly Lorentey <lorentey@elte.hu>
date Mon, 27 Jun 2005 03:19:27 +0000
parents 695cf19ef79e
children 6c13700d1c13
line wrap: on
line diff
--- a/lisp/term/AT386.el	Mon Jun 27 02:08:34 2005 +0000
+++ b/lisp/term/AT386.el	Mon Jun 27 03:19:27 2005 +0000
@@ -31,7 +31,7 @@
 (if (boundp 'AT386-keypad-map)
     nil
   ;; The terminal initialization should already have set up some keys
-  (setq AT386-keypad-map (lookup-key function-key-map "\e["))
+  (setq AT386-keypad-map (lookup-key (terminal-local-value 'function-key-map nil) "\e["))
   (if (not (keymapp AT386-keypad-map))
       (error "What?  Your AT386 termcap/terminfo has no keycaps in it"))
 
@@ -54,7 +54,7 @@
   (define-key AT386-keypad-map "T" [kp-add])
 
   ;; Arrange for the ALT key to be equivalent to ESC
-  (define-key function-key-map "\eN" [27]) ; ALT map
+  (define-key (terminal-local-value 'function-key-map nil) "\eN" [27]) ; ALT map
   )
 
 ;;; arch-tag: abec1b03-582f-49f8-b8cb-e2fd52ea4bd7