;ELC ;;; compiled by jimb@geech.gnu.ai.mit.edu on Tue Jul 6 00:26:12 1993 ;;; from file /gd/gnu/emacs/19.0/lisp/term/vt100.el ;;; emacs version 19.15.16. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "This file was compiled for Emacs 19")) (load "term/lk201" nil t) (defconst vt100-wide-mode (byte-code "À ÁU‡" [frame-width 132] 2) "\ t if vt100 is in 132-column mode.") (defalias 'vt100-wide-mode #[(&optional arg) "„ ?‚Â!ÃVÄ ƒÅ‚Æ!ˆÇ ƒ&É‚'Ê\"‡" [arg vt100-wide-mode prefix-numeric-value 0 send-string-to-terminal "[?3h" "[?3l" set-frame-width terminal-frame 132 80] 3 "\ Toggle 132/80 column mode for vt100s. With positive argument, switch to 132-column mode. With negative argument, switch to 80-column mode." "P"])