Mercurial > emacs
comparison lisp/term/vt201.el @ 83353:532e0a9335a9
Merged in changes from CVS trunk. Plus added lisp/term tweaks.
Patches applied:
* lorentey@elte.hu--2004/emacs--cvs-trunk--0--base-0
tag of miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-474
* lorentey@elte.hu--2004/emacs--cvs-trunk--0--patch-1
Add CVS metadata files.
* lorentey@elte.hu--2004/emacs--cvs-trunk--0--patch-2
Update from CVS.
git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-393
| author | Karoly Lorentey <lorentey@elte.hu> |
|---|---|
| date | Sun, 04 Sep 2005 03:48:17 +0000 |
| parents | 7372c2f9daac af1c58687bdd |
| children | 7d093d9d4479 |
comparison
equal
deleted
inserted
replaced
| 83352:b258b3492423 | 83353:532e0a9335a9 |
|---|---|
| 1 ;; -*- no-byte-compile: t -*- | 1 ;; -*- no-byte-compile: t -*- |
| 2 ;; For our purposes we can treat the vt200 and vt100 almost alike. | 2 ;; For our purposes we can treat the vt200 and vt100 almost alike. |
| 3 ;; Most differences are handled by the termcap entry. | 3 ;; Most differences are handled by the termcap entry. |
| 4 (load "term/vt100" nil t) | 4 (defun terminal-init-vt201 () |
| 5 | 5 "Terminal initialization function for vt201." |
| 6 ;; Make F11 an escape key. | 6 (terminal-init-vt100) |
| 7 (define-key (terminal-local-value 'local-function-key-map nil) "\e[23~" [?\e]) | 7 ;; Make F11 an escape key. |
| 8 (define-key (terminal-local-value 'local-function-key-map nil) "\e[23~" [?\e])) | |
| 8 | 9 |
| 9 ;;; arch-tag: a6abb38f-60ea-449e-a9e9-3fb8572c52ae | 10 ;;; arch-tag: a6abb38f-60ea-449e-a9e9-3fb8572c52ae |
| 10 ;;; vt201.el ends here | 11 ;;; vt201.el ends here |