# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 811717569 0
# Node ID 1d26583f8c2b43a78a3a5ee7232cb06c2b30a355
# Parent  5c78211aa9e0572190a93d6e648c008f3ec0391b
(edt-set-screen-width-80, edt-set-screen-width-132):
If a terminal-specific function exists, call it.

diff -r 5c78211aa9e0 -r 1d26583f8c2b lisp/emulation/edt.el
--- a/lisp/emulation/edt.el	Thu Sep 21 20:54:35 1995 +0000
+++ b/lisp/emulation/edt.el	Thu Sep 21 21:06:09 1995 +0000
@@ -1990,21 +1990,25 @@
   (edt-electric-helpify 'edt-user-keypad-help))
 
 ;;;
-;;; Generic EDT emulation screen width commands.
+;;; EDT emulation screen width commands.
 ;;;
-;; If modification of terminal attributes is desired when invoking these
-;; commands, then the corresponding terminal specific file will contain a 
-;; re-definition of these commands.
+;; Some terminals require modification of terminal attributes when changing the
+;; number of columns displayed, hence the fboundp tests below.  These functions
+;; are defined in the corresponding terminal specific file, if needed.
 
 (defun edt-set-screen-width-80 ()
   "Set screen width to 80 columns."
   (interactive)
+  (if (fboundp 'edt-set-term-width-80)
+      (edt-set-term-width-80))
   (set-screen-width 80)
   (message "Screen width 80"))
 
 (defun edt-set-screen-width-132 ()
   "Set screen width to 132 columns."
   (interactive)
+  (if (fboundp 'edt-set-term-width-132)
+      (edt-set-term-width-132))
   (set-screen-width 132)
   (message "Screen width 132"))