From 9574d70f1bd89c2bcdc466cedc2a142113c4eeb3 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Thu, 21 Sep 1995 21:06:26 +0000 Subject: [PATCH] (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. --- lisp/emulation/edt-vt100.el | 21 ++++++++++----------- 1 file 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 @@ ;; 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")) +;; The following functions are called by the EDT screen width commands defined +;; in edt.el. + +(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)) -- 2.39.2