From: Karl Heuer <kwzh@gnu.org>
Date: Thu, 21 Sep 1995 21:06:09 +0000 (+0000)
Subject: (edt-set-screen-width-80, edt-set-screen-width-132):
X-Git-Tag: emacs-19.34~2802
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a0ac0c19c6a13d93e5d1862f6c6aedd844c83dee;p=emacs.git

(edt-set-screen-width-80, edt-set-screen-width-132):
If a terminal-specific function exists, call it.
---

diff --git a/lisp/emulation/edt.el b/lisp/emulation/edt.el
index a07c4159190..613c40af3a5 100644
--- a/lisp/emulation/edt.el
+++ b/lisp/emulation/edt.el
@@ -1990,21 +1990,25 @@ G-C-\\: Split Window                     |  FNDNXT  |   Yank   |   CUT    |
   (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"))