;ELC ;;; compiled by erik@naggum.no on Sat May 18 16:24:03 1996 ;;; from file /home/gd/gnu/emacs/19.0/lisp/vt-control.el ;;; emacs version 19.30.99.1. ;;; 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.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 (#$ . 475)) #@48 If non-nil, the screen is 132 characters wide. (defvar vt-wide-p nil (#$ . 572)) #@37 Set the screen 132 characters wide. (defalias 'vt-wide #[nil "ÀÁ!ˆÂÃ!ˆÄ‰‡" [send-string-to-terminal "[?3h" set-screen-width 132 t vt-wide-p] 2 (#$ . 659) nil]) #@36 Set the screen 80 characters wide. (defalias 'vt-narrow #[nil "ÀÁ!ˆÂÃ!ˆÄ‰‡" [send-string-to-terminal "[?3l" set-screen-width 80 nil vt-wide-p] 2 (#$ . 827) nil]) #@51 Toggle between 80 and 132 character screen width. (defalias 'vt-toggle-screen #[nil "ƒÁ ‡Â ‡" [vt-wide-p vt-narrow vt-wide] 1 (#$ . 997) nil]) #@37 Turn on the VT applications keypad. (defalias 'vt-keypad-on #[(&optional tell) "ÀÁ!ˆÂ\f„t…ÅÆ!‡" [send-string-to-terminal "=" t vt-applications-keypad-p tell message "Applications keypad enabled."] 2 (#$ . 1149) nil]) #@38 Turn off the VT applications keypad. (defalias 'vt-keypad-off #[(&optional tell) "ÀÁ!ˆÂ\f„t…ÅÆ!‡" [send-string-to-terminal ">" nil vt-applications-keypad-p tell message "Applications keypad disabled."] 2 (#$ . 1378) "p"]) #@42 Toggle VT application keypad on and off. (defalias 'vt-numlock #[nil "ƒÁt!‡Ât!‡" [vt-applications-keypad-p vt-keypad-off vt-keypad-on] 2 (#$ . 1612) nil])