;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:53:23 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/vt-control.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 "`vt-control.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@45 If non-nil, keypad is in applications mode. (defvar vt-applications-keypad-p t (#$ . 622)) #@48 If non-nil, the screen is 132 characters wide. (defvar vt-wide-p nil (#$ . 719)) #@37 Set the screen 132 characters wide. (defalias 'vt-wide #[nil "\301\302!\210\303\304!\210\305\211\207" [vt-wide-p send-string-to-terminal "[?3h" set-screen-width 132 t] 2 (#$ . 806) nil]) #@36 Set the screen 80 characters wide. (defalias 'vt-narrow #[nil "\301\302!\210\303\304!\210\305\211\207" [vt-wide-p send-string-to-terminal "[?3l" set-screen-width 80 nil] 2 (#$ . 1001) nil]) #@51 Toggle between 80 and 132 character screen width. (defalias 'vt-toggle-screen #[nil "\203\301 \207\302 \207" [vt-wide-p vt-narrow vt-wide] 1 (#$ . 1199) nil]) #@37 Turn on the VT applications keypad. (defalias 'vt-keypad-on #[(&optional tell) "\302\303!\210\304 \204t\205\305\306!\207" [vt-applications-keypad-p tell send-string-to-terminal "=" t message "Applications keypad enabled."] 2 (#$ . 1367) nil]) #@38 Turn off the VT applications keypad. (defalias 'vt-keypad-off #[(&optional tell) "\302\303!\210\304 \204t\205\305\306!\207" [vt-applications-keypad-p tell send-string-to-terminal ">" nil message "Applications keypad disabled."] 2 (#$ . 1622) "p"]) #@42 Toggle VT application keypad on and off. (defalias 'vt-numlock #[nil "\203\301t!\207\302t!\207" [vt-applications-keypad-p vt-keypad-off vt-keypad-on] 2 (#$ . 1882) nil]) (provide 'vt-control)