diff lisp/term/x-win.el @ 83326:8eafadd7838b

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: [e-mail]--2004/emacs--multi-tty--0--patch-366

--- a/lisp/term/x-win.el	Mon Jun 27 02:08:34 2005 +0000
+++ b/lisp/term/x-win.el	Mon Jun 27 03:19:27 2005 +0000
@@ -1170,23 +1170,23 @@
 (defun x-setup-function-keys (frame)
   "Set up `function-key-map' on FRAME for the X window system."
   ;; Map certain keypad keys into ASCII characters that people usually expect.
-  (with-selected-frame (or frame (selected-frame))
-    (define-key function-key-map [backspace] [127])
-    (define-key function-key-map [delete] [127])
-    (define-key function-key-map [tab] [?\t])
-    (define-key function-key-map [linefeed] [?\n])
-    (define-key function-key-map [clear] [?\C-l])
-    (define-key function-key-map [return] [?\C-m])
-    (define-key function-key-map [escape] [?\e])
-    (define-key function-key-map [M-backspace] [?\M-\d])
-    (define-key function-key-map [M-delete] [?\M-\d])
-    (define-key function-key-map [M-tab] [?\M-\t])
-    (define-key function-key-map [M-linefeed] [?\M-\n])
-    (define-key function-key-map [M-clear] [?\M-\C-l])
-    (define-key function-key-map [M-return] [?\M-\C-m])
-    (define-key function-key-map [M-escape] [?\M-\e])
-    (define-key function-key-map [iso-lefttab] [backtab])
-    (define-key function-key-map [S-iso-lefttab] [backtab])))
+  (let ((m (terminal-local-value 'function-key-map frame)))
+    (define-key m [backspace] [127])
+    (define-key m [delete] [127])
+    (define-key m [tab] [?\t])
+    (define-key m [linefeed] [?\n])
+    (define-key m [clear] [?\C-l])
+    (define-key m [return] [?\C-m])
+    (define-key m [escape] [?\e])
+    (define-key m [M-backspace] [?\M-\d])
+    (define-key m [M-delete] [?\M-\d])
+    (define-key m [M-tab] [?\M-\t])
+    (define-key m [M-linefeed] [?\M-\n])
+    (define-key m [M-clear] [?\M-\C-l])
+    (define-key m [M-return] [?\M-\C-m])
+    (define-key m [M-escape] [?\M-\e])
+    (define-key m [iso-lefttab] [backtab])
+    (define-key m [S-iso-lefttab] [backtab])))
 
 ;; These tell read-char how to convert
 ;; these special chars to ASCII.