;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



#@45 If non-nil, keypad is in applications mode.
(defvar vt-applications-keypad-p t (#$ . 84))
#@48 If non-nil, the screen is 132 characters wide.
(defvar vt-wide-p nil (#$ . 180))
#@37 Set the screen 132 characters wide.
(defalias 'vt-wide #[0 "\301\302!\210\303\304 \305\"\210\306\211\207" [vt-wide-p send-string-to-terminal "[?3h" set-frame-width selected-frame 132 t] 3 (#$ . 267) nil])
#@36 Set the screen 80 characters wide.
(defalias 'vt-narrow #[0 "\301\302!\210\303\304 \305\"\210\306\211\207" [vt-wide-p send-string-to-terminal "[?3l" set-frame-width selected-frame 80 nil] 3 (#$ . 480) nil])
#@51 Toggle between 80 and 132 character screen width.
(defalias 'vt-toggle-screen #[0 "\203\301 \207\302 \207" [vt-wide-p vt-narrow vt-wide] 1 (#$ . 695) nil])
#@58 Turn on the VT applications keypad.

(fn &optional TELL)
(defalias 'vt-keypad-on #[256 "\301\302!\210\303\211\205
\304\305!\207" [vt-applications-keypad-p send-string-to-terminal "=" t message "Applications keypad enabled."] 3 (#$ . 860) "p"])
#@59 Turn off the VT applications keypad.

(fn &optional TELL)
(defalias 'vt-keypad-off #[256 "\301\302!\210\303\211\205
\304\305!\207" [vt-applications-keypad-p send-string-to-terminal ">" nil message "Applications keypad disabled."] 3 (#$ . 1113) "p"])
#@63 Toggle VT application keypad on and off.

(fn &optional TELL)
(defalias 'vt-numlock #[256 "\203\301
!\207\302
!\207" [vt-applications-keypad-p vt-keypad-off vt-keypad-on] 3 (#$ . 1372) "p"])
(provide 'vt-control)