diff options
| author | Karl Heuer | 1995-09-21 21:06:26 +0000 |
|---|---|---|
| committer | Karl Heuer | 1995-09-21 21:06:26 +0000 |
| commit | 9574d70f1bd89c2bcdc466cedc2a142113c4eeb3 (patch) | |
| tree | fbaca14c7a4e4a90fb4fb2fabfb29d7e87e9df47 | |
| parent | a0ac0c19c6a13d93e5d1862f6c6aedd844c83dee (diff) | |
| download | emacs-9574d70f1bd89c2bcdc466cedc2a142113c4eeb3.tar.gz emacs-9574d70f1bd89c2bcdc466cedc2a142113c4eeb3.zip | |
(edt-set-term-width-80, edt-set-term-width-132):
Terminal-specific functions.
Don't redefine edt-set-screen-width-80 and edt-set-screen-width-132.
| -rw-r--r-- | lisp/emulation/edt-vt100.el | 21 |
1 files changed, 10 insertions, 11 deletions
diff --git a/lisp/emulation/edt-vt100.el b/lisp/emulation/edt-vt100.el index cecf335bf97..7dd5df400c0 100644 --- a/lisp/emulation/edt-vt100.el +++ b/lisp/emulation/edt-vt100.el | |||
| @@ -35,14 +35,13 @@ | |||
| 35 | ;; Get keyboard function key mapping to EDT keys. | 35 | ;; Get keyboard function key mapping to EDT keys. |
| 36 | (load "edt-lk201" nil t) | 36 | (load "edt-lk201" nil t) |
| 37 | 37 | ||
| 38 | (defun edt-set-screen-width-80 () | 38 | ;; The following functions are called by the EDT screen width commands defined |
| 39 | "Set screen width to 80 columns." | 39 | ;; in edt.el. |
| 40 | (interactive) | 40 | |
| 41 | (vt100-wide-mode -1) | 41 | (defun edt-set-term-width-80 () |
| 42 | (message "Screen width 80")) | 42 | "Set terminal width to 80 columns." |
| 43 | 43 | (vt100-wide-mode -1)) | |
| 44 | (defun edt-set-screen-width-132 () | 44 | |
| 45 | "Set screen width to 132 columns." | 45 | (defun edt-set-term-width-132 () |
| 46 | (interactive) | 46 | "Set terminal width to 132 columns." |
| 47 | (vt100-wide-mode 1) | 47 | (vt100-wide-mode 1)) |
| 48 | (message "Screen width 132")) | ||