Mercurial > emacs
changeset 13059:f5ecbf76f4f9
(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.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Thu, 21 Sep 1995 21:06:26 +0000 |
| parents | 1d26583f8c2b |
| children | 9154b9967e2b |
| files | lisp/emulation/edt-vt100.el |
| diffstat | 1 files changed, 9 insertions(+), 10 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emulation/edt-vt100.el Thu Sep 21 21:06:09 1995 +0000 +++ b/lisp/emulation/edt-vt100.el Thu Sep 21 21:06:26 1995 +0000 @@ -35,14 +35,13 @@ ;; 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")) +;; The following functions are called by the EDT screen width commands defined +;; in edt.el. -(defun edt-set-screen-width-132 () - "Set screen width to 132 columns." - (interactive) - (vt100-wide-mode 1) - (message "Screen width 132")) +(defun edt-set-term-width-80 () + "Set terminal width to 80 columns." + (vt100-wide-mode -1)) + +(defun edt-set-term-width-132 () + "Set terminal width to 132 columns." + (vt100-wide-mode 1))