(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.

diff --git a/lisp/emulation/edt-vt100.el b/lisp/emulation/edt-vt100.el
index cecf335bf97b4125b7d9779e91293ecfe1adb01b..7dd5df400c0a0eeade3cb7cdcce09a4922204ac8 100644 (file)
--- 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))