Mercurial > emacs
comparison lisp/term/vt220.el @ 83524:673d62ad74b5
Fix and/or simplify terminal initialization files.
* lisp/faces.el (tty-create-frame-with-faces): Set up faces and
background mode only after the terminal has been initialized.
(frame-set-background-mode): Handle the 'background-mode terminal
parameter.
(tty-run-terminal-initialization): Add type option.
* lisp/term/README: Update.
* lisp/term/rxvt.el: Simplify.
* lisp/term/xterm.el: Simplify and fix.
* lisp/term/*.el: Simplify and fix.
git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-564
| author | Karoly Lorentey <lorentey@elte.hu> |
|---|---|
| date | Sat, 20 May 2006 17:02:47 +0000 |
| parents | 7d093d9d4479 |
| children | 528714e93230 bdb3fe0ba9fa |
comparison
equal
deleted
inserted
replaced
| 83523:6ce7108f7eef | 83524:673d62ad74b5 |
|---|---|
| 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 (defun terminal-init-vt220 () | 4 (defun terminal-init-vt220 () |
| 5 "Terminal initialization function for vt220." | 5 "Terminal initialization function for vt220." |
| 6 (terminal-init-vt100) | 6 (tty-run-terminal-initialization (selected-frame) "vt100") |
| 7 ;; Make F11 an escape key. | 7 ;; Make F11 an escape key. |
| 8 (define-key local-function-key-map "\e[23~" [?\e])) | 8 (define-key local-function-key-map "\e[23~" [?\e])) |
| 9 | 9 |
| 10 ;;; arch-tag: 98fc4867-a20d-46a1-a276-d7be31e49871 | 10 ;;; arch-tag: 98fc4867-a20d-46a1-a276-d7be31e49871 |
| 11 ;;; vt220.el ends here | 11 ;;; vt220.el ends here |