Commit 4cbe2739 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

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

parent 14cbaa91
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'.
......
......@@ -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
......@@ -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
......@@ -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
......@@ -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
......@@ -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
......@@ -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
......@@ -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
......@@ -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
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment