view lisp/term/vt200.el @ 734:64e152d639af

entered into RCS
author Joseph Arceneaux <jla@gnu.org>
date Tue, 30 Jun 1992 22:41:21 +0000
parents 23502d381550
children c2dbf1fe0506
line wrap: on
line source

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

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