%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /usr/local/share/emacs/27.2/lisp/
Upload File :
Create Path :
Current File : //usr/local/share/emacs/27.2/lisp/vt-control.elc

;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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 (#$ . 408))
#@48 If non-nil, the screen is 132 characters wide.
(defvar vt-wide-p nil (#$ . 505))
#@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 (#$ . 592) 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 (#$ . 807) 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 (#$ . 1024) 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 (#$ . 1192) 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 (#$ . 1490) "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 (#$ . 1793) nil])
(provide 'vt-control)

Zerion Mini Shell 1.0