# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 653339234 0
# Node ID 23502d381550b06fc2a077d29122aebec56a89fc
# Parent  7af62c5e857d5c918bd7efeea38ed8bc269399ab
Initial revision

diff -r 7af62c5e857d -r 23502d381550 lisp/term/vt200.el
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/lisp/term/vt200.el	Fri Sep 14 19:07:14 1990 +0000
@@ -0,0 +1,9 @@
+(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))