changeset 85550:528714e93230

(terminal-init-vtNNN): Use input-decode-map.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Mon, 22 Oct 2007 15:22:00 +0000
parents efbb484c3a9d
children aaefd62ba61d
files lisp/term/vt200.el lisp/term/vt201.el lisp/term/vt220.el lisp/term/vt240.el lisp/term/vt300.el lisp/term/vt320.el lisp/term/vt400.el lisp/term/vt420.el
diffstat 8 files changed, 24 insertions(+), 16 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/term/vt200.el	Mon Oct 22 15:20:35 2007 +0000
+++ b/lisp/term/vt200.el	Mon Oct 22 15:22:00 2007 +0000
@@ -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
--- a/lisp/term/vt201.el	Mon Oct 22 15:20:35 2007 +0000
+++ b/lisp/term/vt201.el	Mon Oct 22 15:22:00 2007 +0000
@@ -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
--- a/lisp/term/vt220.el	Mon Oct 22 15:20:35 2007 +0000
+++ b/lisp/term/vt220.el	Mon Oct 22 15:22:00 2007 +0000
@@ -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
--- a/lisp/term/vt240.el	Mon Oct 22 15:20:35 2007 +0000
+++ b/lisp/term/vt240.el	Mon Oct 22 15:22:00 2007 +0000
@@ -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
--- a/lisp/term/vt300.el	Mon Oct 22 15:20:35 2007 +0000
+++ b/lisp/term/vt300.el	Mon Oct 22 15:22:00 2007 +0000
@@ -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
--- a/lisp/term/vt320.el	Mon Oct 22 15:20:35 2007 +0000
+++ b/lisp/term/vt320.el	Mon Oct 22 15:22:00 2007 +0000
@@ -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
--- a/lisp/term/vt400.el	Mon Oct 22 15:20:35 2007 +0000
+++ b/lisp/term/vt400.el	Mon Oct 22 15:22:00 2007 +0000
@@ -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
--- a/lisp/term/vt420.el	Mon Oct 22 15:20:35 2007 +0000
+++ b/lisp/term/vt420.el	Mon Oct 22 15:22:00 2007 +0000
@@ -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