ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/term/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/term/vt100.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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 Terminal initialization function for vt100.
(defalias 'terminal-init-vt100 #[nil "\300\301 \302\"\207" [tty-run-terminal-initialization selected-frame "lk201"] 3 (#$ . 410)])
#@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) '(#$ . 592) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'terminals :type 'boolean)
#@217 Toggle 132/80 column mode for vt100s.
With a prefix argument ARG, switch to 132-column mode if ARG is
positive, and 80-column mode otherwise. If called from Lisp,
switch to 132-column mode if ARG is omitted or nil.
(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 (#$ . 1042) (list (or current-prefix-arg 'toggle))])
#@180 Hook run after entering or leaving `vt100-wide-mode'.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar vt100-wide-mode-hook nil (#$ . 2061))
(byte-code "\301\302\303\304\300!\205\n \303\211%\207" [vt100-wide-mode-map add-minor-mode vt100-wide-mode nil boundp] 6)
Kontol Shell Bypass