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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 760b04c70ebc4d8d934284c867610e37ca3fc920..e9827dd3beb3bf13a5a20f8a6792a8529d66fc89 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,30 @@
+2007-10-22  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * term/vt200.el (terminal-init-vt200):
+       * term/vt201.el (terminal-init-vt201):
+       * term/vt220.el (terminal-init-vt220):
+       * term/vt240.el (terminal-init-vt240):
+       * term/vt300.el (terminal-init-vt300):
+       * term/vt320.el (terminal-init-vt320):
+       * term/vt400.el (terminal-init-vt400):
+       * term/vt420.el (terminal-init-vt420): Use input-decode-map.
+
+       * term/wyse50.el (wyse50-terminal-map): New var.
+       (terminal-init-wyse50): Use it and input-decode-map.
+       (enable-arrow-keys): Emasculate.
+
+       * term/tvi970.el (tvi970-terminal-map): New var.
+       (terminal-init-tvi970): Use it and input-decode-map.
+       (tvi970-keypad-numeric): Remove.
+       (tvi970-set-keypad-mode): Use a terminal-parameter rather than var.
+
+       * term/sun.el (sun-raw-prefix): Fill as part of declaration.
+       (terminal-init-sun): Use it and input-decode-map.
+
+       * term/news.el (terminal-init-news):
+       * term/lk201.el (terminal-init-lk201):
+       * term/iris-ansi.el (terminal-init-iris-ansi): Use input-decode-map.
+
 2007-10-22  Sean O'Rourke  <sorourke@cs.ucsd.edu>
 
        * complete.el (PC-expand-many-files): Remove.
@@ -21,8 +48,8 @@
        (f90-font-lock-keywords-2): Add `enumerator', `generic', `procedure',
        `class'.  Arguments for `type'/`class' may have spaces.  Add a new
        element for functions with specified types.  Add `end enum' and
-       `select type'.  Add `implicit enumerator' and `procedure'.  Add
-       `class default' and `type is', `class is'.  Fix `go to' regexp.
+       `select type'.  Add `implicit enumerator' and `procedure'.
+       Add `class default' and `type is', `class is'.  Fix `go to' regexp.
        (f90-font-lock-keywords-3): Add `asynchronous' attribute.
        (f90-font-lock-keywords-4): Add `f90-constants-re'.
        (f90-blocks-re): Add `enum' and `associate'.

diff --git a/lisp/term/vt200.el b/lisp/term/vt200.el
index 7e7b3281d922b25f9eb5ff75a088ce29a2c2de25..78c65c084ce183736031a4dc3cb83a39d78941fc 100644 (file)
--- a/lisp/term/vt200.el
+++ b/lisp/term/vt200.el
@@ -5,7 +5,8 @@
   "Terminal initialization function for vt200."
   (tty-run-terminal-initialization (selected-frame) "vt100")
   ;; Make F11 an escape key.
-  (define-key local-function-key-map "\e[23~" [?\e]))
+  (define-key input-decode-map "\e[23~" [f11]) ;Probably redundant.
+  (define-key local-function-key-map [f11] [?\e]))
 
-;;; arch-tag: 0f78f583-9f32-4237-b106-28bcfff21d89
+;; arch-tag: 0f78f583-9f32-4237-b106-28bcfff21d89
 ;;; vt200.el ends here

diff --git a/lisp/term/vt201.el b/lisp/term/vt201.el
index a63f9561a6dde70a422b51fbc639bfbb700594e6..987aee09f3b98faf481df2c10d9b4c25e91d9159 100644 (file)
--- a/lisp/term/vt201.el
+++ b/lisp/term/vt201.el
@@ -5,7 +5,8 @@
   "Terminal initialization function for vt201."
   (tty-run-terminal-initialization (selected-frame) "vt100")
   ;; Make F11 an escape key.
-  (define-key local-function-key-map "\e[23~" [?\e]))
+  (define-key input-decode-map "\e[23~" [f11]) ;Probably redundant.
+  (define-key local-function-key-map [f11] [?\e]))
 
-;;; arch-tag: a6abb38f-60ea-449e-a9e9-3fb8572c52ae
+;; arch-tag: a6abb38f-60ea-449e-a9e9-3fb8572c52ae
 ;;; vt201.el ends here

diff --git a/lisp/term/vt220.el b/lisp/term/vt220.el
index b2b8fc944cf5fa55e297a5db7e85d4ef43f6ce70..f9439e0eff7f600023b5f766ceaa32220d0a6eea 100644 (file)
--- a/lisp/term/vt220.el
+++ b/lisp/term/vt220.el
@@ -5,7 +5,8 @@
   "Terminal initialization function for vt220."
   (tty-run-terminal-initialization (selected-frame) "vt100")
   ;; Make F11 an escape key.
-  (define-key local-function-key-map "\e[23~" [?\e]))
+  (define-key input-decode-map "\e[23~" [f11]) ;Probably redundant.
+  (define-key local-function-key-map [f11] [?\e]))
 
-;;; arch-tag: 98fc4867-a20d-46a1-a276-d7be31e49871
+;; arch-tag: 98fc4867-a20d-46a1-a276-d7be31e49871
 ;;; vt220.el ends here

diff --git a/lisp/term/vt240.el b/lisp/term/vt240.el
index cb26ebf40698f70df3fc687f5188664a8af4d8bb..0aea10bf982825c39ed1bd1ae11aa16ec58e5738 100644 (file)
--- a/lisp/term/vt240.el
+++ b/lisp/term/vt240.el
@@ -5,7 +5,8 @@
   "Terminal initialization function for vt240."
   (tty-run-terminal-initialization (selected-frame) "vt100")
   ;; Make F11 an escape key.
-  (define-key local-function-key-map "\e[23~" [?\e]))
+  (define-key input-decode-map "\e[23~" [f11]) ;Probably redundant.
+  (define-key local-function-key-map [f11] [?\e]))
 
-;;; arch-tag: d9f88e9c-02dc-49ff-871c-a415f08e4eb7
+;; arch-tag: d9f88e9c-02dc-49ff-871c-a415f08e4eb7
 ;;; vt240.el ends here

diff --git a/lisp/term/vt300.el b/lisp/term/vt300.el
index 9a09ad5e8cba9898dcade167b25c2b2e8daa0b33..d19f847588bbe312e2e75d4b964b021fbd470af5 100644 (file)
--- a/lisp/term/vt300.el
+++ b/lisp/term/vt300.el
@@ -3,7 +3,8 @@
   "Terminal initialization function for vt300."
   (tty-run-terminal-initialization (selected-frame) "vt100")
   ;; Make F11 an escape key.
-  (define-key local-function-key-map "\e[23~" [?\e]))
+  (define-key input-decode-map "\e[23~" [f11]) ;Probably redundant.
+  (define-key local-function-key-map [f11] [?\e]))
 
-;;; arch-tag: 876831c9-a6f2-444a-b033-706e6fbc149f
+;; arch-tag: 876831c9-a6f2-444a-b033-706e6fbc149f
 ;;; vt300.el ends here

diff --git a/lisp/term/vt320.el b/lisp/term/vt320.el
index 803d72860674669b99d6081375e74fe60387ff50..1d36c9d933a5103bbfecb0ff281e18219467b424 100644 (file)
--- a/lisp/term/vt320.el
+++ b/lisp/term/vt320.el
@@ -3,7 +3,8 @@
   "Terminal initialization function for vt320."
   (tty-run-terminal-initialization (selected-frame) "vt100")
   ;; Make F11 an escape key.
-  (define-key local-function-key-map "\e[23~" [?\e]))
+  (define-key input-decode-map "\e[23~" [f11]) ;Probably redundant.
+  (define-key local-function-key-map [f11] [?\e]))
 
-;;; arch-tag: f9f4c954-0b9e-45f9-b450-a320d32abd9c
+;; arch-tag: f9f4c954-0b9e-45f9-b450-a320d32abd9c
 ;;; vt320.el ends here

diff --git a/lisp/term/vt400.el b/lisp/term/vt400.el
index f73f4660b94cdb3e3ba8ddbbee532d9abd1bd13a..78af2a37197a870a935df9be2e4b4eaabfcf9244 100644 (file)
--- a/lisp/term/vt400.el
+++ b/lisp/term/vt400.el
@@ -3,7 +3,8 @@
   "Terminal initialization function for vt400."
   (tty-run-terminal-initialization (selected-frame) "vt100")
   ;; Make F11 an escape key.
-  (define-key local-function-key-map "\e[23~" [?\e]))
+  (define-key input-decode-map "\e[23~" [f11]) ;Probably redundant.
+  (define-key local-function-key-map [f11] [?\e]))
 
-;;; arch-tag: a70809c5-6b21-42cc-ba20-536683e5e7d5
+;; arch-tag: a70809c5-6b21-42cc-ba20-536683e5e7d5
 ;;; vt400.el ends here

diff --git a/lisp/term/vt420.el b/lisp/term/vt420.el
index e65ba1a61d508ff7ba42593678770e30d3ba9a5b..6547557950acf5b58aa8dcf1cd2fd1177de60f34 100644 (file)
--- a/lisp/term/vt420.el
+++ b/lisp/term/vt420.el
@@ -3,7 +3,8 @@
   "Terminal initialization function for vt420."
   (tty-run-terminal-initialization (selected-frame) "vt100")
   ;; Make F11 an escape key.
-  (define-key local-function-key-map "\e[23~" [?\e]))
+  (define-key input-decode-map "\e[23~" [f11]) ;Probably redundant.
+  (define-key local-function-key-map [f11] [?\e]))
 
-;;; arch-tag: df2f897c-3a12-4b3c-9259-df089f96c160
+;; arch-tag: df2f897c-3a12-4b3c-9259-df089f96c160
 ;;; vt420.el ends here