Mercurial > emacs
comparison lisp/term/vt100.el @ 90208:890cc78a5a24
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-74
Merge from emacs--cvs-trunk--0
Patches applied:
* emacs--cvs-trunk--0 (patch 493-503)
- Update from CVS
- Update from CVS: lisp/startup.el (command-line): Fix typo.
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 95-98)
- Update from CVS
author | Miles Bader <miles@gnu.org> |
---|---|
date | Fri, 29 Jul 2005 01:54:54 +0000 |
parents | f9a65d7ebd29 af1c58687bdd |
children | edf295560b5a |
comparison
equal
deleted
inserted
replaced
90207:43ea22612328 | 90208:890cc78a5a24 |
---|---|
34 ;; changing from 80 to 132 columns & vv. | 34 ;; changing from 80 to 132 columns & vv. |
35 | 35 |
36 ;;; Code: | 36 ;;; Code: |
37 | 37 |
38 ;; Set up function-key-map entries that termcap and terminfo don't know. | 38 ;; Set up function-key-map entries that termcap and terminfo don't know. |
39 (load "term/lk201" nil t) | |
40 | 39 |
40 | |
41 (defun terminal-init-vt100 () | |
42 "Terminal initialization function for vt100." | |
43 (load "term/lk201" nil t)) | |
44 | |
41 ;;; Controlling the screen width. | 45 ;;; Controlling the screen width. |
42 (defvar vt100-wide-mode (= (frame-width) 132) | 46 (defvar vt100-wide-mode (= (frame-width) 132) |
43 "t if vt100 is in 132-column mode.") | 47 "t if vt100 is in 132-column mode.") |
44 | 48 |
45 (defun vt100-wide-mode (&optional arg) | 49 (defun vt100-wide-mode (&optional arg) |