comparison lisp/emulation/edt.el @ 13058:1d26583f8c2b

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

13057:5c78211aa9e0

  "Display user custom EDT bindings."
  (interactive)
  (edt-electric-helpify 'edt-user-keypad-help))

;;;
;;; Generic 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.

(defun edt-set-screen-width-80 ()
  "Set screen width to 80 columns."
  (interactive)
  (set-screen-width 80)
  (message "Screen width 80"))

(defun edt-set-screen-width-132 ()
  "Set screen width to 132 columns."
  (interactive)
  (set-screen-width 132)
  (message "Screen width 132"))

(provide 'edt)

13058:1d26583f8c2b

  "Display user custom EDT bindings."
  (interactive)
  (edt-electric-helpify 'edt-user-keypad-help))

;;;
;;; EDT emulation screen width 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"))

(provide 'edt)