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