;ELC   
;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:52:20 2003
;;; from file /home/pot/gnu/emacs-pretest.new/lisp/term/vt100.el
;;; in Emacs version 21.3
;;; with bytecomp version 2.85.4.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`vt100.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(load "term/lk201" nil t)
#@35 t if vt100 is in 132-column mode.
(defvar vt100-wide-mode (byte-code "\300 \301U\207" [frame-width 132] 2) (#$ . 643))
#@140 Toggle 132/80 column mode for vt100s.
With positive argument, switch to 132-column mode.
With negative argument, switch to 80-column mode.
(defalias 'vt100-wide-mode #[(&optional arg) "\204	 	?\202 \303!\304V\305	\203 \306\202 \307!\210\310\n	\203% \311\202& \312\"\207" [arg vt100-wide-mode terminal-frame prefix-numeric-value 0 send-string-to-terminal "[?3h" "[?3l" set-frame-width 132 80] 3 (#$ . 769) "P"])