Commit | Line | Data |
---|---|---|
c0e42a4d KH |
1 | ;;; File: edt-vt100.el --- Enhanced EDT Keypad Mode Emulation |
2 | ;;; for VT Series Terminals | |
3 | ;;; | |
4 | ;;; For GNU Emacs 19 | |
5 | ;;; | |
6 | ;; | |
7 | ;; Copyright (C) 1986, 1992, 1993 Free Software Foundation, Inc. | |
8 | ||
9 | ;; Author: Kevin Gallagher <kgallagh@spd.dsccc.com> | |
10 | ;; Maintainer: Kevin Gallagher <kgallagh@spd.dsccc.com> | |
11 | ;; Keywords: emulations | |
12 | ||
13 | ;; This file is part of GNU Emacs. | |
14 | ||
15 | ;; GNU Emacs is free software; you can redistribute it and/or modify | |
16 | ;; it under the terms of the GNU General Public License as published by | |
17 | ;; the Free Software Foundation; either version 2, or (at your option) | |
18 | ;; any later version. | |
19 | ||
20 | ;; GNU Emacs is distributed in the hope that it will be useful, | |
21 | ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
22 | ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
23 | ;; GNU General Public License for more details. | |
24 | ||
25 | ;; You should have received a copy of the GNU General Public License | |
26 | ;; along with GNU Emacs; see the file COPYING. If not, write to | |
27 | ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. | |
28 | ||
29 | ;;; Usage: | |
30 | ||
31 | ;; See edt-user.doc | |
32 | ||
33 | ;; ==================================================================== | |
34 | \f | |
35 | ;;; | |
36 | ;;; Revision Information | |
37 | ;;; | |
38 | (defconst edt-vt100-revision "$Revision: 1.0.1 $" | |
39 | "Revision Number of EDT VT Series Terminal Support.") | |
40 | ||
41 | ;; Get keyboard function key mapping to EDT keys. | |
42 | (load "edt-lk201" nil t) | |
43 | ||
44 | (defun edt-set-screen-width-80 () | |
45 | "Set screen width to 80 columns." | |
46 | (interactive) | |
47 | (vt100-wide-mode -1) | |
48 | (message "Screen width 80")) | |
49 | ||
50 | (defun edt-set-screen-width-132 () | |
51 | "Set screen width to 132 columns." | |
52 | (interactive) | |
53 | (vt100-wide-mode 1) | |
54 | (message "Screen width 132")) |