Current File : //usr/local/share/emacs/27.2/lisp/term/vt100.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 Terminal initialization function for vt100.
(defalias 'terminal-init-vt100 #[nil "\300\301 \302\"\207" [tty-run-terminal-initialization selected-frame "lk201"] 3 (#$ . 408)])
#@266 Non-nil if Vt100-Wide mode is enabled.
See the `vt100-wide-mode' command
for a description of this minor mode.
Setting this variable directly does not take effect;
either customize it (see the info node `Easy Customization')
or call the function `vt100-wide-mode'.
(custom-declare-variable 'vt100-wide-mode '(= (frame-width) 132) '(#$ . 590) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'terminals :type 'boolean)
#@282 Toggle 132/80 column mode for vt100s.
If called interactively, enable Vt100-Wide mode if ARG is positive,
and disable it if ARG is zero or negative. If called from Lisp, also
enable the mode if ARG is omitted or nil, and toggle it if ARG is
`toggle'; disable the mode otherwise.
(defalias 'vt100-wide-mode #[(&optional arg) "\305 \306\302 \307=\203 \310\302!?\202 \311 !\312V\"\210\313\n\203\" \314\202# \315!\210\316 \n\203/ \317\2020 \320\"\210\321\322\310\302!\203> \323\202? \324\"\210\325\326!\203j \327\302!\210\305 \203W \305 \232\203j \330 \331\332\310\302!\203e \333\202f \334\f#\210))\335 \210\310\302!\207" [#1=#:last-message arg vt100-wide-mode terminal-frame local current-message set-default toggle default-value prefix-numeric-value 0 send-string-to-terminal "[?3h" "[?3l" set-frame-width 132 80 run-hooks vt100-wide-mode-hook vt100-wide-mode-on-hook vt100-wide-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Vt100-Wide mode %sabled%s" "en" "dis" force-mode-line-update] 4 (#$ . 1040) (list (or current-prefix-arg 'toggle))])
(defvar vt100-wide-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\211%\210\311\312!\207" [vt100-wide-mode-map vt100-wide-mode-hook variable-documentation put "Hook run after entering or leaving `vt100-wide-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode vt100-wide-mode nil boundp provide term/vt100] 6)
Mini Shell