1 |
;;; vt100.el --- define VT100 function key sequences in function-key-map |
;;; vt100.el --- define VT100 function key sequences in function-key-map |
2 |
|
|
3 |
;; Copyright (C) 1989, 1993 Free Software Foundation, Inc. |
;; Copyright (C) 1989, 1993, 2002, 2003, 2004, |
4 |
|
;; 2005 Free Software Foundation, Inc. |
5 |
|
|
6 |
;; Author: FSF |
;; Author: FSF |
7 |
;; Keywords: terminals |
;; Keywords: terminals |
42 |
(defun terminal-init-vt100 () |
(defun terminal-init-vt100 () |
43 |
"Terminal initialization function for vt100." |
"Terminal initialization function for vt100." |
44 |
(load "term/lk201" nil t)) |
(load "term/lk201" nil t)) |
45 |
|
|
46 |
;;; Controlling the screen width. |
;;; Controlling the screen width. |
47 |
(defvar vt100-wide-mode (= (frame-width) 132) |
(defvar vt100-wide-mode (= (frame-width) 132) |
48 |
"t if vt100 is in 132-column mode.") |
"t if vt100 is in 132-column mode.") |