Mercurial > emacs
comparison lisp/term/vt400.el @ 83716:a73440d2f146 merge-multi-tty-to-trunk
Merge multi-tty branch
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-866
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Wed, 29 Aug 2007 05:28:10 +0000 |
| parents | 673d62ad74b5 |
| children | 528714e93230 bdb3fe0ba9fa |
comparison
equal
deleted
inserted
replaced
| 82950:ed8435ec5652 | 83716:a73440d2f146 |
|---|---|
| 1 ;; -*- no-byte-compile: t -*- | 1 ;; -*- no-byte-compile: t -*- |
| 2 (defun terminal-init-vt400 () | 2 (defun terminal-init-vt400 () |
| 3 "Terminal initialization function for vt400." | 3 "Terminal initialization function for vt400." |
| 4 (load "term/vt100" nil t) | 4 (tty-run-terminal-initialization (selected-frame) "vt100") |
| 5 ;; Make F11 an escape key. | 5 ;; Make F11 an escape key. |
| 6 (define-key function-key-map "\e[23~" [?\e])) | 6 (define-key local-function-key-map "\e[23~" [?\e])) |
| 7 | 7 |
| 8 ;;; arch-tag: a70809c5-6b21-42cc-ba20-536683e5e7d5 | 8 ;;; arch-tag: a70809c5-6b21-42cc-ba20-536683e5e7d5 |
| 9 ;;; vt400.el ends here | 9 ;;; vt400.el ends here |