code.delx.au - gnu-emacs/blob - lisp/term/vt200.el

   1 (defun terminal-80-columns ()
   2   (interactive)
   3   (send-string-to-terminal "\033[?3l")
   4   (set-frame-width 80))
   5
   6 (defun terminal-132-columns ()
   7   (interactive)
   8   (send-string-to-terminal "\033[?3h")
   9   (set-frame-width 132))