Lines Matching +defs:vt100 +defs:wide +defs:mode
0 ;;; vt100.el --- define VT100 function key sequences in function-key-map
42 (defun terminal-init-vt100 ()
43 "Terminal initialization function for vt100."
47 (defvar vt100-wide-mode (= (frame-width) 132)
48 "t if vt100 is in 132-column mode.")
50 (defun vt100-wide-mode (&optional arg)
51 "Toggle 132/80 column mode for vt100s.
52 With positive argument, switch to 132-column mode.
53 With negative argument, switch to 80-column mode."
55 (setq vt100-wide-mode
56 (if (null arg) (not vt100-wide-mode)
58 (send-string-to-terminal (if vt100-wide-mode "\e[?3h" "\e[?3l"))
59 (set-frame-width terminal-frame (if vt100-wide-mode 132 80)))
62 ;;; vt100.el ends here