From a0ac0c19c6a13d93e5d1862f6c6aedd844c83dee Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Thu, 21 Sep 1995 21:06:09 +0000 Subject: [PATCH] (edt-set-screen-width-80, edt-set-screen-width-132): If a terminal-specific function exists, call it. --- lisp/emulation/edt.el | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) 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")) -- 2.39.2