view lisp/term/vt200.el @ 2495:1142464b2ef5

Accept i370, mvs. For i370-ibm*, assume mvs by default. Later, likewise, for i370-*. For -mvs*, assume ibm as default vendor.

(defun terminal-80-columns ()
  (interactive)
  (send-string-to-terminal "\033[?3l")
  (set-frame-width 80))

(defun terminal-132-columns ()
  (interactive)
  (send-string-to-terminal "\033[?3h")
  (set-frame-width 132))