From 4cbe2739957424c10b5a0ce73d3e20941492ca43 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 22 Oct 2007 15:22:14 +0000 Subject: [PATCH] (terminal-init-vtNNN): Use input-decode-map. --- lisp/ChangeLog | 31 +++++++++++++++++++++++++++++-- lisp/term/vt200.el | 5 +++-- lisp/term/vt201.el | 5 +++-- lisp/term/vt220.el | 5 +++-- lisp/term/vt240.el | 5 +++-- lisp/term/vt300.el | 5 +++-- lisp/term/vt320.el | 5 +++-- lisp/term/vt400.el | 5 +++-- lisp/term/vt420.el | 5 +++-- 9 files changed, 53 insertions(+), 18 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 760b04c70eb..e9827dd3beb 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,30 @@ +2007-10-22 Stefan Monnier + + * 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 * 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 7e7b3281d92..78c65c084ce 100644 --- 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 a63f9561a6d..987aee09f3b 100644 --- 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 b2b8fc944cf..f9439e0eff7 100644 --- 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 cb26ebf4069..0aea10bf982 100644 --- 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 9a09ad5e8cb..d19f847588b 100644 --- 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 803d7286067..1d36c9d933a 100644 --- 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 f73f4660b94..78af2a37197 100644 --- 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 e65ba1a61d5..6547557950a 100644 --- 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 -- 2.39.2