Mercurial > emacs

view lisp/term/vt200.el @ 2761:26bad513fbb0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(command-line): Call frame-initialize explicitly. Call face-initialize. (normal-top-level): Call frame-notice-user-settings explicitly.
author Richard M. Stallman <rms@gnu.org>
date Thu, 13 May 1993 03:14:39 +0000
parents c2dbf1fe0506
children e010fc52b552
line wrap: on
line source

(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))