MMCT TEAM
Server IP : 111.118.215.189  /  Your IP : 18.116.170.100
Web Server : Apache
System : Linux md-in-83.webhostbox.net 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64
User : a1673wkz ( 2475)
PHP Version : 8.2.25
Disable Function : NONE
MySQL : OFF  |  cURL : ON  |  WGET : ON  |  Perl : ON  |  Python : ON
Directory (0755) :  /usr/share/emacs/24.3/lisp/term/

[  Home  ][  C0mmand  ][  Upload File  ]

Current File : //usr/share/emacs/24.3/lisp/term/vt100.elc
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:40 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/term/vt100.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 Terminal initialization function for vt100.
(defalias 'terminal-init-vt100 #[nil "\300\301 \302\"\207" [tty-run-terminal-initialization selected-frame "lk201"] 3 (#$ . 553)])
#@266 Non-nil if Vt100-Wide mode is enabled.
See the command `vt100-wide-mode' 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) '(#$ . 735) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'vt100-wide :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) "\304 	\305=\203\n?\202\306	!\307V\310\n\203\311\202\312!\210\313\n\203*\314\202+\315\"\210\316\317\n\2037\320\2028\321\"\210\322\323!\203]\324\302!\210\304 \203P\304 \232\203]\325\326\n\203Z\327\202[\330\"\210)\331 \210\n\207" [#1=#:last-message arg vt100-wide-mode terminal-frame current-message toggle 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" "en" "dis" force-mode-line-update] 3 (#$ . 1186) (list (or current-prefix-arg 'toggle))])
(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)

MMCT - 2023