Initial revision

diff --git a/lisp/term/vt200.el b/lisp/term/vt200.el
new file mode 100644 (file)
index 0000000..162baec
--- /dev/null
+++ b/lisp/term/vt200.el
@@ -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))