| Current Path : /usr/share/emacs/24.3/lisp/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/vt-control.elc |
;ELC ;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:33 2024 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/vt-control.el ;;; in Emacs version 24.3.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@45 If non-nil, keypad is in applications mode. (defvar vt-applications-keypad-p t (#$ . 553)) #@48 If non-nil, the screen is 132 characters wide. (defvar vt-wide-p nil (#$ . 650)) #@37 Set the screen 132 characters wide. (defalias 'vt-wide #[nil "\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 (#$ . 737) nil]) #@36 Set the screen 80 characters wide. (defalias 'vt-narrow #[nil "\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 (#$ . 952) 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 (#$ . 1169) nil]) #@37 Turn on the VT applications keypad. (defalias 'vt-keypad-on #[(&optional tell) "\302\303!\210\304 \204 \305\306!\205 \307\310!\207" [vt-applications-keypad-p tell send-string-to-terminal "=" t called-interactively-p interactive message "Applications keypad enabled."] 2 (#$ . 1337) nil]) #@38 Turn off the VT applications keypad. (defalias 'vt-keypad-off #[(&optional tell) "\302\303!\210\304 \204 \305\306!\205 \307\310!\207" [vt-applications-keypad-p tell send-string-to-terminal ">" nil called-interactively-p interactive message "Applications keypad disabled."] 2 (#$ . 1635) "p"]) #@42 Toggle VT application keypad on and off. (defalias 'vt-numlock #[nil "\203\n \301\302\303!!\207\304\302\303!!\207" [vt-applications-keypad-p vt-keypad-off called-interactively-p interactive vt-keypad-on] 3 (#$ . 1938) nil]) (provide 'vt-control)