Mercurial > emacs

annotate lisp/term/vt200.el @ 231:3c29c1b2d6a1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Brian Preble <rassilon@gnu.org>
date Wed, 10 Apr 1991 14:06:18 +0000
parents 23502d381550
children c2dbf1fe0506
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
94
23502d381550 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1 (defun terminal-80-columns ()
23502d381550 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2 (interactive)
23502d381550 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3 (send-string-to-terminal "\033[?3l")
23502d381550 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4 (set-screen-width 80))
23502d381550 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5
23502d381550 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6 (defun terminal-132-columns ()
23502d381550 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7 (interactive)
23502d381550 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8 (send-string-to-terminal "\033[?3h")
23502d381550 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9 (set-screen-width 132))