Mercurial > emacs
changeset 10690:d41e77a56fd9
Initial revision
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Wed, 08 Feb 1995 01:25:15 +0000 |
| parents | 5adde53bae4b |
| children | 37ced05a96d0 |
| files | lisp/emulation/edt-lk201.el lisp/emulation/edt-mapper.el lisp/emulation/edt-pc.el lisp/emulation/edt-vt100.el |
| diffstat | 4 files changed, 624 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/lisp/emulation/edt-lk201.el Wed Feb 08 01:25:15 1995 +0000 @@ -0,0 +1,64 @@ +;;; File: edt-lk201.el --- Enhanced EDT Keypad Mode Emulation +;;; for LK-201 Keyboards +;;; +;;; For GNU Emacs 19 +;; +;; Copyright (C) 1986 Free Software Foundation, Inc. +;; Copyright (C) 1992, 1993 Kevin Gallagher + +;; Author: Kevin Gallagher <kgallagh@spd.dsccc.com> +;; Maintainer: Kevin Gallagher <kgallagh@spd.dsccc.com> +;; Keywords: emulations + +;; This file is NOT part of GNU Emacs but hopefully it will be soon. + +;; GNU Emacs is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; GNU Emacs is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with GNU Emacs; see the file COPYING. If not, write to +;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. + +;;; Usage: + +;; See edt-user.doc + +;; ==================================================================== + +;;; +;;; Revision Information +;;; +(defconst edt-lk201-revision "$Revision: 1.0 $" + "Revision Number of EDT LK-201 Keyboard Support.") + +;;;; +;;;; KEY TRANSLATIONS +;;;; + +;; Associate EDT keynames with Emacs terminal function vector names. +;; (Function key vector names for LK-201 are found in lisp/term/lk201.el.) +;; +;; F1 - F5 are not available on many DEC VT series terminals. +;; However, this is not always the case. So support for F1 - F5 is +;; provided here and in lisp/term/lk201.el. +(defconst *EDT-keys* + '(("KP0" . [kp-0]) ("KP1" . [kp-1]) ("KP2" . [kp-2]) ("KP3" . [kp-3]) + ("KP4" . [kp-4]) ("KP5" . [kp-5]) ("KP6" . [kp-6]) ("KP7" . [kp-7]) + ("KP8" . [kp-8]) ("KP9" . [kp-9]) ("KP," . [kp-separator]) + ("KP-" . [kp-subtract]) ("KPP" . [kp-decimal]) ("KPE" . [kp-enter]) + ("PF1" . [kp-f1]) ("PF2" . [kp-f2]) ("PF3" . [kp-f3]) ("PF4" . [kp-f4]) + ("UP" . [up]) ("DOWN" . [down]) ("RIGHT" . [right]) ("LEFT" . [left]) + ("FIND" . [find]) ("INSERT" . [insert]) ("REMOVE" . [delete]) + ("SELECT" . [select]) ("PREVIOUS" . [prior]) ("NEXT" . [next]) + ("F1" . [f1]) ("F2" . [f2]) ("F3" . [f3]) ("F4" . [f4]) ("F5" . [f5]) + ("F6" . [f6]) ("F7" . [f7]) ("F8" . [f8]) ("F9" . [f9]) ("F10" . [f10]) + ("F11" . [f11]) ("F12" . [f12]) ("F13" . [f13]) ("F14" . [f14]) + ("HELP" . [help]) ("DO" . [menu]) ("F17" . [f17]) ("F18" . [f18]) + ("F19" . [f19]) ("F20" . [f20])))
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/lisp/emulation/edt-mapper.el Wed Feb 08 01:25:15 1995 +0000 @@ -0,0 +1,413 @@ +;;; edt-mapper.el --- Create an EDT LK-201 Map File for X-Windows Emacs. + +;;; For GNU Emacs 19 + +;; Copyright (C) 1994 Kevin Gallagher + +;; Author: Kevin Gallagher <kgallagh@spd.dsccc.com> +;; Maintainer: Kevin Gallagher <kgallagh@spd.dsccc.com> +;; Keywords: emulations + +;; This file is NOT part of GNU Emacs but hopefully it will be soon. + +;; GNU Emacs is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; GNU Emacs is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with GNU Emacs; see the file COPYING. If not, write to +;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. + +;;; Commentary: + +;; This emacs lisp program can be used to create an emacs lisp file +;; that defines the mapping of the user's keyboard under X-Windows to +;; the LK-201 keyboard function keys and keypad keys (around which +;; EDT has been designed). Please read the "Usage" AND "Known +;; Problems" sections before attempting to run this program. (The +;; design of this file, edt-mapper.el, was heavily influenced by +;; tpu-mapper.el.) + +;;; Usage: + +;; Simply load this file into the X-Windows version of emacs (version 19) +;; using the following command. + +;; emacs -q -l edt-mapper.el + +;; The "-q" option prevents loading of your .emacs file (commands therein +;; might confuse this program). + +;; An instruction screen showing the typical LK-201 terminal functions keys +;; will be displayed, and you will be prompted to press the keys on your +;; keyboard which you want to emulate the corresponding LK-201 keys. + +;; Finally, you will be prompted for the name of the file to store +;; the key definitions. If you chose the default, it will be found +;; and loaded automatically when the EDT emulation is started. If +;; you specify a different file name, you will need to set the +;; variable "edt-xkeys-file" before starting the EDT emulation. +;; Here's how you might go about doing that in your .emacs file. + +;; (setq edt-xkeys-file (expand-file-name "~/.my-emacs-x-keys")) + +;;; Known Problems: + +;; Sometimes, edt-mapper will ignore a key you press, and just continue to +;; prompt for the same key. This can happen when your window manager sucks +;; up the key and doesn't pass it on to emacs, or it could be an emacs bug. +;; Either way, there's nothing that edt-mapper can do about it. You must +;; press RETURN, to skip the current key and continue. Later, you and/or +;; your local X guru can try to figure out why the key is being ignored. + +;; ==================================================================== + +;;; +;;; Revision Information +;;; +(defconst edt-mapper-revision "$Revision: 1.0 $" + "Revision Number of EDT X-Windows Emacs Key Mapper.") + + +;;; +;;; Make sure we're running X-windows and Emacs version 19 +;;; +(cond + ((not (and window-system (not (string-lessp emacs-version "19")))) + (insert " + + Whoa! This isn't going to work... + + You must run edt-mapper.el under X-windows and Emacs version 19. + + Press any key to exit. ") + (sit-for 600) + (kill-emacs t))) + + +;;; +;;; Decide whether we're running GNU or Lucid emacs. +;;; +(defconst edt-lucid-emacs19-p (string-match "Lucid" emacs-version) + "Non-NIL if we are running Lucid Emacs version 19.") + + +;;; +;;; Key variables +;;; +(defvar edt-key nil) +(defvar edt-enter nil) +(defvar edt-return nil) +(defvar edt-key-seq nil) +(defvar edt-enter-seq nil) +(defvar edt-return-seq nil) + + +;;; +;;; Make sure the window is big enough to display the instructions +;;; +(if edt-lucid-emacs19-p (set-screen-size nil 80 36) + (set-frame-size (selected-frame) 80 36)) + + +;;; +;;; Create buffers - Directions and Keys +;;; +(if (not (get-buffer "Directions")) (generate-new-buffer "Directions")) +(if (not (get-buffer "Keys")) (generate-new-buffer "Keys")) + +;;; +;;; Put header in the Keys buffer +;;; +(set-buffer "Keys") +(insert "\ +;; +;; Key definitions for the EDT emulation within GNU Emacs +;; + +(defconst *EDT-keys* + '( +") + +;;; +;;; Display directions +;;; +(switch-to-buffer "Directions") +(insert " + EDT MAPPER + + You will be asked to press keys to create a custom mapping (under + X-Windows) of your keypad keys and function keys so that they can emulate + the LK-201 keypad and function keys or the subset of keys found on a + VT-100 series terminal keyboard. (The LK-201 keyboard is the standard + keyboard attached to VT-200 series terminals, and above.) + + Sometimes, edt-mapper will ignore a key you press, and just continue to + prompt for the same key. This can happen when your window manager sucks + up the key and doesn't pass it on to emacs, or it could be an emacs bug. + Either way, there's nothing that edt-mapper can do about it. You must + press RETURN, to skip the current key and continue. Later, you and/or + your local X guru can try to figure out why the key is being ignored. + + Start by pressing the RETURN key, and continue by pressing the keys + specified in the mini-buffer. If you want to entirely omit a key, + because your keyboard does not have a corresponding key, for example, + just press RETURN at the prompt. + +") +(delete-other-windows) + +;;; +;;; Save <CR> for future reference +;;; +(cond + (edt-lucid-emacs19-p + (setq edt-return-seq (read-key-sequence "Hit carriage-return <CR> to continue ")) + (setq edt-return (concat "[" (format "%s" (event-key (aref edt-return-seq 0))) "]"))) + (t + (message "Hit carriage-return <CR> to continue ") + (setq edt-return-seq (read-event)) + (setq edt-return (concat "[" (format "%s" edt-return-seq) "]")))) + +;;; +;;; Display Keypad Diagram and Begin Prompting for Keys +;;; +(set-buffer "Directions") +(delete-region (point-min) (point-max)) +(insert " + + + + PRESS THE KEY SPECIFIED IN THE MINIBUFFER BELOW. + + + + + Here's a picture of the standard LK-201 keypad for reference: + + _______________________ _______________________________ + | HELP | DO | | F17 | F18 | F19 | F20 | + | | | | | | | | + |_______|_______________| |_______|_______|_______|_______| + _______________________ _______________________________ + | FIND |INSERT |REMOVE | | PF1 | PF2 | PF3 | PF4 | + | | | | | | | | | + |_______|_______|_______| |_______|_______|_______|_______| + |SELECT |PREVIOU| NEXT | | KP7 | KP8 | KP9 | KP- | + | | | | | | | | | + |_______|_______|_______| |_______|_______|_______|_______| + | UP | | KP4 | KP5 | KP6 | KP, | + | | | | | | | + _______|_______|_______ |_______|_______|_______|_______| + | LEFT | DOWN | RIGHT | | KP1 | KP2 | KP3 | | + | | | | | | | | | + |_______|_______|_______| |_______|_______|_______| KPE | + | KP0 | KPP | | + | | | | + |_______________|_______|_______| + +") + +;;; +;;; Key mapping functions +;;; +(defun edt-lucid-map-key (ident descrip func gold-func) + (interactive) + (setq edt-key-seq (read-key-sequence (format "Press %s%s: " ident descrip))) + (setq edt-key (concat "[" (format "%s" (event-key (aref edt-key-seq 0))) "]")) + (cond ((not (equal edt-key edt-return)) + (set-buffer "Keys") + (insert (format " (\"%s\" . %s)\n" ident edt-key)) + (set-buffer "Directions")) + ;; bogosity to get next prompt to come up, if the user hits <CR>! + ;; check periodically to see if this is still needed... + (t + (format "%s" edt-key))) + edt-key) + +(defun edt-gnu-map-key (ident descrip) + (interactive) + (message "Press %s%s: " ident descrip) + (setq edt-key-seq (read-event)) + (setq edt-key (concat "[" (format "%s" edt-key-seq) "]")) + (cond ((not (equal edt-key edt-return)) + (set-buffer "Keys") + (insert (format " (\"%s\" . %s)\n" ident edt-key)) + (set-buffer "Directions")) + ;; bogosity to get next prompt to come up, if the user hits <CR>! + ;; check periodically to see if this is still needed... + (t + (set-buffer "Keys") + (insert (format " (\"%s\" . \"\" )\n" ident)) + (set-buffer "Directions"))) + edt-key) + +(fset 'edt-map-key (if edt-lucid-emacs19-p 'edt-lucid-map-key 'edt-gnu-map-key)) +(set-buffer "Keys") +(insert " +;; +;; Arrows +;; +") +(set-buffer "Directions") + +(edt-map-key "UP" " - The Up Arrow Key") +(edt-map-key "DOWN" " - The Down Arrow Key") +(edt-map-key "LEFT" " - The Left Arrow Key") +(edt-map-key "RIGHT" " - The Right Arrow Key") + + +(set-buffer "Keys") +(insert " +;; +;; PF keys +;; +") +(set-buffer "Directions") + +(edt-map-key "PF1" " - The PF1 (GOLD) Key") +(edt-map-key "PF2" " - The Keypad PF2 Key") +(edt-map-key "PF3" " - The Keypad PF3 Key") +(edt-map-key "PF4" " - The Keypad PF4 Key") + +(set-buffer "Keys") +(insert " +;; +;; KP0-9 KP- KP, KPP and KPE +;; +") +(set-buffer "Directions") + +(edt-map-key "KP0" " - The Keypad 0 Key") +(edt-map-key "KP1" " - The Keypad 1 Key") +(edt-map-key "KP2" " - The Keypad 2 Key") +(edt-map-key "KP3" " - The Keypad 3 Key") +(edt-map-key "KP4" " - The Keypad 4 Key") +(edt-map-key "KP5" " - The Keypad 5 Key") +(edt-map-key "KP6" " - The Keypad 6 Key") +(edt-map-key "KP7" " - The Keypad 7 Key") +(edt-map-key "KP8" " - The Keypad 8 Key") +(edt-map-key "KP9" " - The Keypad 9 Key") +(edt-map-key "KP-" " - The Keypad - Key") +(edt-map-key "KP," " - The Keypad , Key") +(edt-map-key "KPP" " - The Keypad . Key") +(edt-map-key "KPE" " - The Keypad Enter Key") +;; Save the enter key +(setq edt-enter edt-key) +(setq edt-enter-seq edt-key-seq) + + +(set-buffer "Keys") +(insert " +;; +;; Editing keypad (FIND, INSERT, REMOVE) +;; (SELECT, PREVIOUS, NEXT) +;; +") +(set-buffer "Directions") + +(edt-map-key "FIND" " - The Find key on the editing keypad") +(edt-map-key "INSERT" " - The Insert key on the editing keypad") +(edt-map-key "REMOVE" " - The Remove key on the editing keypad") +(edt-map-key "SELECT" " - The Select key on the editing keypad") +(edt-map-key "PREVIOUS" " - The Prev Scr key on the editing keypad") +(edt-map-key "NEXT" " - The Next Scr key on the editing keypad") + +(set-buffer "Keys") +(insert " +;; +;; F1-14 Help Do F17-F20 +;; +") +(set-buffer "Directions") + +(edt-map-key "F1" " - F1 Function Key") +(edt-map-key "F2" " - F2 Function Key") +(edt-map-key "F3" " - F3 Function Key") +(edt-map-key "F4" " - F4 Function Key") +(edt-map-key "F5" " - F5 Function Key") +(edt-map-key "F6" " - F6 Function Key") +(edt-map-key "F7" " - F7 Function Key") +(edt-map-key "F8" " - F8 Function Key") +(edt-map-key "F9" " - F9 Function Key") +(edt-map-key "F10" " - F10 Function Key") +(edt-map-key "F11" " - F11 Function Key") +(edt-map-key "F12" " - F12 Function Key") +(edt-map-key "F13" " - F13 Function Key") +(edt-map-key "F14" " - F14 Function Key") +(edt-map-key "HELP" " - HELP Function Key") +(edt-map-key "DO" " - DO Function Key") +(edt-map-key "F17" " - F17 Function Key") +(edt-map-key "F18" " - F18 Function Key") +(edt-map-key "F19" " - F19 Function Key") +(edt-map-key "F20" " - F20 Function Key") + +(set-buffer "Directions") +(delete-region (point-min) (point-max)) +(insert " + ADDITIONAL FUNCTION KEYS + + Your keyboard may have additional function keys which do not + correspond to any LK-201 keys. The EDT Emulation can be + configured to recognize those keys, since you may wish to add your + own key bindings to those keys. + + For example, suppose your keyboard has a keycap marked \"Line Del\" + and you wish to add it to the list of keys which can be customized + by the EDT Emulation. First, assign a unique single-word name to + the key for use by the EDT Emulation, let's say \"linedel\", in this + example. Then, at the \"EDT Key Name:\" prompt, enter \"linedel\", + followed by a press of the RETURN key. Finally, when prompted, + press the \"Line Del\" key. You now will be able to bind functions + to \"linedel\" and \"Gold-linedel\" in edt-user.el in just the same way + you can customize bindings of the standard LK-201 keys. + + When you have no additional function keys to specify, just press + RETURN at the \"EDT Key Name:\" prompt. (If you change your mind + AFTER you enter an EDT Key Name and before you press a key at the + \"Press\" prompt, you may omit the key by simply pressing RETURN at + the prompt.) +") +(switch-to-buffer "Directions") +;;; +;;; Add support for extras keys +;;; +(set-buffer "Keys") +(insert "\ +;; +;; Extra Keys +;; +") +(setq EDT-key-name "") +(while (not + (string-equal (setq EDT-key-name (read-string "EDT Key Name: ")) "")) + (edt-map-key EDT-key-name "")) + +; +; No more keys to add, so wrap up. +; +(set-buffer "Keys") +(insert "\ + ) + ) +") + +;;; +;;; Save the key mapping program and blow this pop stand +;;; +(let ((file (if edt-lucid-emacs19-p "~/.edt-lucid-keys" "~/.edt-gnu-keys"))) + (set-visited-file-name + (read-file-name (format "Save key mapping to file (default %s): " file) nil file))) +(save-buffer) + +(message "That's it! Press any key to exit") +(sit-for 600) +(kill-emacs t) + +;;; edt-mapper.el ends here
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/lisp/emulation/edt-pc.el Wed Feb 08 01:25:15 1995 +0000 @@ -0,0 +1,93 @@ +;;; File: edt-pc.el --- Enhanced EDT Keypad Mode Emulation +;;; for PC 101 Keyboards +;;; +;;; For GNU Emacs 19 +;; +;; Copyright (C) 1986, 1994 Free Software Foundation, Inc. + +;; Author: Kevin Gallagher <kgallagh@spd.dsccc.com> +;; Maintainer: Kevin Gallagher <kgallagh@spd.dsccc.com> +;; Keywords: emulations + +;; This file is part of GNU Emacs. + +;; GNU Emacs is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; GNU Emacs is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with GNU Emacs; see the file COPYING. If not, write to +;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. + +;;; Usage: + +;; See edt-user.doc + +;; ==================================================================== + +;;; +;;; Revision Information +;;; +(defconst edt-pc-revision "$Revision: 1.0 $" + "Revision Number of EDT PC 101 Keyboard Support.") + +;;;; +;;;; KEY TRANSLATIONS +;;;; + +;; Associate EDT keynames with Emacs terminal function vector names. +;; +;; To emulate the DEC LK-201 keypad keys on the PC 101 keyboard, +;; NumLock must be ON. +;; +;; The PC keypad keys are mapped to the corresponding DEC LK-201 +;; keypad keys according to the corresponding physical possition on +;; the keyboard. Thus, the physical position of the PC keypad key +;; determines its function, not the PC keycap name. +;; +;; There are two LK-201 keypad keys needing special handling: PF1 and +;; the keypad comma key. +;; +;; PF1: +;; Most PC software does not see a press of the NumLock key. A TSR +;; program distributed with MS-Kermit to support its VT-100 emulation +;; solves this problem. The TSR, called GOLD, causes a press of the +;; keypad NumLock key to look as if the PC F1 key were pressed. So +;; the PC F1 key is mapped here to behave as the PF1 (GOLD) key. +;; Then with GOLD loaded, the NumLock key will behave as the GOLD key. +;; +;; By the way, with GOLD loaded, you can still toggle numlock on/off. +;; GOLD binds this to Shift-NumLock. +;; +;; Keypad Comma: +;; There is no physical PC keypad key to correspond to the LK-201 +;; keypad comma key. So, the EDT Emulation is configured below to +;; ignore attempts to bind functions to the keypad comma key. +;; +;; Finally, F2 through F12 are also available for making key bindings +;; in the EDT Emulation on the PC. F1 is reserved for the GOLD key, +;; so don't attempt to bind anything to it. Also, F13, F14, HELP, DO, +;; and F17 through F20 do not exist on the PC, so the EDT emulation is +;; configured below to ignore attempts to bind functions to those keys. +;; +(defconst *EDT-keys* + '(("KP0" . [kp-0]) ("KP1" . [kp-1]) ("KP2" . [kp-2]) ("KP3" . [kp-3]) + ("KP4" . [kp-4]) ("KP5" . [kp-5]) ("KP6" . [kp-6]) ("KP7" . [kp-7]) + ("KP8" . [kp-8]) ("KP9" . [kp-9]) ("KP," . "" ) + ("KP-" . [kp-add]) ("KPP" . [kp-decimal]) ("KPE" . [kp-enter]) + ("PF1" . [f1]) ("PF2" . [kp-divide]) ("PF3" . [kp-multiply]) + ("PF4" . [kp-subtract]) + ("UP" . [up]) ("DOWN" . [down]) ("RIGHT" . [right]) ("LEFT" . [left]) + ("FIND" . [insert]) ("INSERT" . [home]) ("REMOVE" . [prior]) + ("SELECT" . [delete]) ("PREVIOUS" . [end]) ("NEXT" . [next]) + ("F1" . "" ) ("F2" . [f2]) ("F3" . [f3]) ("F4" . [f4]) ("F5" . [f5]) + ("F6" . [f6]) ("F7" . [f7]) ("F8" . [f8]) ("F9" . [f9]) ("F10" . [f10]) + ("F11" . [f11]) ("F12" . [f12]) ("F13" . "" ) ("F14" . "" ) + ("HELP" . "" ) ("DO" . "" ) ("F17" . "" ) ("F18" . "" ) + ("F19" . "" ) ("F20" . "" )))
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/lisp/emulation/edt-vt100.el Wed Feb 08 01:25:15 1995 +0000 @@ -0,0 +1,54 @@ +;;; File: edt-vt100.el --- Enhanced EDT Keypad Mode Emulation +;;; for VT Series Terminals +;;; +;;; For GNU Emacs 19 +;;; +;; +;; Copyright (C) 1986, 1992, 1993 Free Software Foundation, Inc. + +;; Author: Kevin Gallagher <kgallagh@spd.dsccc.com> +;; Maintainer: Kevin Gallagher <kgallagh@spd.dsccc.com> +;; Keywords: emulations + +;; This file is part of GNU Emacs. + +;; GNU Emacs is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; GNU Emacs is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with GNU Emacs; see the file COPYING. If not, write to +;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. + +;;; Usage: + +;; See edt-user.doc + +;; ==================================================================== + +;;; +;;; Revision Information +;;; +(defconst edt-vt100-revision "$Revision: 1.0.1 $" + "Revision Number of EDT VT Series Terminal Support.") + +;; Get keyboard function key mapping to EDT keys. +(load "edt-lk201" nil t) + +(defun edt-set-screen-width-80 () + "Set screen width to 80 columns." + (interactive) + (vt100-wide-mode -1) + (message "Screen width 80")) + +(defun edt-set-screen-width-132 () + "Set screen width to 132 columns." + (interactive) + (vt100-wide-mode 1) + (message "Screen width 132"))