Mercurial > emacs
comparison lisp/term/vt220.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-vt220 () |
| 5 | 5 "Terminal initialization function for vt220." |
| 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: 98fc4867-a20d-46a1-a276-d7be31e49871 | 10 ;;; arch-tag: 98fc4867-a20d-46a1-a276-d7be31e49871 |
| 10 ;;; vt220.el ends here | 11 ;;; vt220.el ends here |