code.delx.au - gnu-emacs/blob - lisp/emulation/edt-vt100.el

   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"))