Linux iad1-shared-b7-18 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
Apache
: 67.205.6.31 | : 216.73.216.47
Cant Read [ /etc/named.conf ]
8.2.29
fernandoquevedo
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
emacs /
27.1 /
lisp /
term /
[ HOME SHELL ]
Name
Size
Permission
Action
AT386.elc
1
KB
-rw-r--r--
README
10.95
KB
-rw-r--r--
bobcat.elc
596
B
-rw-r--r--
common-win.elc
14.47
KB
-rw-r--r--
cygwin.elc
561
B
-rw-r--r--
internal.elc
18.3
KB
-rw-r--r--
iris-ansi.elc
7.47
KB
-rw-r--r--
konsole.elc
634
B
-rw-r--r--
linux.elc
787
B
-rw-r--r--
lk201.elc
2.32
KB
-rw-r--r--
news.elc
1.23
KB
-rw-r--r--
ns-win.elc
22.09
KB
-rw-r--r--
pc-win.elc
9.26
KB
-rw-r--r--
rxvt.elc
4.84
KB
-rw-r--r--
screen.elc
1.11
KB
-rw-r--r--
sun.elc
3.3
KB
-rw-r--r--
tmux.elc
1.1
KB
-rw-r--r--
tty-colors.elc
29.5
KB
-rw-r--r--
tvi970.elc
3.4
KB
-rw-r--r--
vt100.elc
2.51
KB
-rw-r--r--
vt200.elc
718
B
-rw-r--r--
w32-win.elc
12.91
KB
-rw-r--r--
w32console.elc
2.02
KB
-rw-r--r--
wyse50.elc
2.16
KB
-rw-r--r--
x-win.elc
27.21
KB
-rw-r--r--
xterm.elc
31.52
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : w32-win.elc
;ELC ;;; Compiled ;;; in Emacs version 27.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. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\210\300\307!\210\300\310!\210\311\312\313\314#\210\315\312\313\316#\210\311\317\320\314#\210\315\317\320\316#\210\315\321\314\322#\210\323\324!\203H \300\325!\210\314\207" [require frame mouse scroll-bar faces select menu-bar dnd w32-vars defalias w32-focus-frame x-focus-frame nil make-obsolete "23.1" w32-select-font x-select-font w32-default-color-map "24.1" fboundp new-fontset fontset] 4) #@25 (fn WINDOW FILE-NAME) (defalias 'w32-handle-dropped-file #[514 "\303=\203 \304\305\"\202 \306\307\310#\311=\203 \312\202! \206! \n\313\314\315\316\"\317\"\317#\266\203\320\321\303=\203; \322\202< \323P#\207" [system-type file-name-coding-system default-file-name-coding-system cygwin cygwin-convert-file-name-from-windows t subst-char-in-string 92 47 windows-nt utf-8 mapconcat url-hexify-string split-string encode-coding-string "/" dnd-handle-one-url private "file://" "file:"] 10 (#$ . 889)]) #@131 Edit the files listed in the drag-n-drop EVENT. Switch to a buffer editing the last file dropped. (fn EVENT &optional NEW-FRAME) (defalias 'w32-drag-n-drop #[513 "\212\300!\211@\262\300!\3018\262\211@A\302V\203% \211\302V\203% \303\304\"\210\203. \305\306 !\210\307 \210\310 \262\311\312\313\"AA@\"\266\204)\207" [event-start 2 0 set-frame-selected-window nil select-frame make-frame raise-frame selected-window mapc apply-partially w32-handle-dropped-file] 10 (#$ . 1407) "e"]) #@179 Edit the files listed in the drag-n-drop EVENT, in other frames. May create new frames, or reuse existing ones. The frame editing the last file dropped is selected. (fn EVENT) (defalias 'w32-drag-n-drop-other-frame #[257 "\300\301\"\207" [w32-drag-n-drop t] 4 (#$ . 1908) "e"]) (byte-code "\300\301\302\"\210\300\303\304\"\210\300\305\306\"\210\300\307\306\"\210\300\310\306\"\210\300\311\306\"\207" [global-set-key [drag-n-drop] w32-drag-n-drop [C-drag-n-drop] w32-drag-n-drop-other-frame [language-change] ignore [noname] [C-noname] [M-noname]] 3) #@542 Start key navigation of the menu bar in FRAME. This initially activates the first menu-bar item, and you can then navigate with the arrow keys, select a menu entry with the Return key or cancel with one or two Escape keypresses. (Two Escape keypresses are needed when a menu was already dropped down by pressing Return.) If FRAME has no menu bar, this function does nothing. If FRAME is nil or not given, use the selected frame. If FRAME does not have the menu bar enabled, display a text menu using `tmm-menubar'. (fn &optional FRAME) (defalias 'w32-menu-bar-open #[256 "\203 \301\302\"\207\303 p\304\305\306\307\310\"\311\"\312$\216\313\206\" \303 \314\"\210\315 )\207" [menu-bar-mode w32-send-sys-command 61696 selected-frame make-byte-code 0 "\302\300!\203 \303\300\304\"\210\305\301!\205 \301q\207" vconcat vector [frame-live-p select-frame norecord buffer-live-p] 3 select-frame norecord tmm-menubar] 10 (#$ . 2468) "i"]) #@276 String of fontset spec of the standard fontset. This defines a fontset consisting of the Courier New variations for European languages which are distributed with Windows as "Multilanguage Support". See the documentation of `create-fontset-from-fontset-spec' for the format. (defvar w32-standard-fontset-spec "-*-Courier New-normal-r-*-*-13-*-*-*-c-*-fontset-standard" (#$ . 3418)) #@46 Report an error when a suspend is attempted. (defalias 'w32-win-suspend-error #[0 "\300\301!\207" [error "Suspending an Emacs running under W32 makes no sense"] 2 (#$ . 3806)]) (byte-code "\305\306Y\203% \307\245\310\311\245\312\"\313\314\315#\314\316%E\266\202\202& \317\320 \321V\2038 \322\314\323 \312\245\"D\2029 \324\n\325Y\203C \326\202N \n\327Y\203M \330\202N \331\332\333\334\335\336 \337Y\203] \340\202^ \341\342\343\344\345\257\306\207" [libpng-version libjpeg-version libgif-version libgnutls-version dynamic-library-alist (xpm "libxpm.dll" "xpm4.dll" "libXpm-nox4.dll") 10400 10000 mod 100 10 png format "libpng%d%d.dll" "libpng%d%d-%d%d.dll" (png "libpng12d.dll" "libpng12.dll" "libpng3.dll" "libpng.dll" "libpng13d.dll" "libpng13.dll") (tiff "libtiff-5.dll" "libtiff3.dll" "libtiff.dll") 62 jpeg "libjpeg-%d.dll" (jpeg "jpeg62.dll" "libjpeg.dll" "jpeg-62.dll" "jpeg.dll") 50100 (gif "libgif-7.dll") 50000 (gif "libgif-6.dll" "giflib5.dll" "gif.dll") (gif "libgif-5.dll" "giflib4.dll" "libungif4.dll" "libungif.dll") (svg "librsvg-2-2.dll") (gdk-pixbuf "libgdk_pixbuf-2.0-0.dll") (glib "libglib-2.0-0.dll") (gio "libgio-2.0-0.dll") (gobject "libgobject-2.0-0.dll") 30400 (gnutls "libgnutls-30.dll") (gnutls "libgnutls-28.dll" "libgnutls-26.dll") (libxml2 "libxml2-2.dll" "libxml2.dll") (zlib "zlib1.dll" "libz-1.dll") (lcms2 "liblcms2-2.dll") (json "libjansson-4.dll")] 15) #@56 Non-nil if the w32 window system has been initialized. (defvar w32-initialized nil (#$ . 5212)) (byte-code "\300\301\302\303\302\304%\210\305\306\307\"\210\300\310\302\311\302\312%\210\300\313\302\314\302\315%\207" [cl-generic-define-method window-system-initialization nil (&context (window-system w32) &optional _display) #[256 "\203 \306\307!\210\310 !\n;\204 \311\312\313 #\314\315\f \316=#\210\317 \210\3201/ \3214\322\"0\2029 \323\324\325\326\"\327#\262\210\330 \210\331\332\333\"\334\203\230 \335!\262\336\236\204W \337\236\203^ \340\341BB\262\3425\"5\343\236\203\200 \3436\236\204\200 \343\211\236AB6B6\202\230 \344\236\203\230 \3446\236\204\230 \344\211\236AB6B6\266\322 7\331\345\346\"\211\203\262 \347\350\"\203\262 \3516B6\210)\352\353\354\"\210\3228\355 \210\356\357\360\"\210\361\362!\210\363 \210\322\211\207" [w32-initialized command-line-args x-resource-name invocation-name x-command-line-resources initial-window-system cl--assertion-failed (not w32-initialized) x-handle-args replace-regexp-in-string "[.*]" "-" x-open-connection "w32" w32 create-default-fontset (error) create-fontset-from-fontset-spec t display-warning initialization format "Creation of the standard fontset failed: %s" :error create-fontset-from-x-resource x-get-resource "geometry" "Geometry" nil x-parse-geometry top left (user-position . t) (user-size . t) append height width "reverseVideo" "ReverseVideo" string-match "^\\(true\\|yes\\|on\\)$" (reverse . t) add-hook suspend-hook w32-win-suspend-error menu-bar-enable-clipboard set-default mode-line-frame-identification " " set-message-beep ok x-apply-session-resources w32-standard-fontset-spec initial-frame-alist default-frame-alist case-fold-search split-window-keep-point] 7 "Initialize Emacs for W32 GUI frames.\n\n(fn &optional DISPLAY)"] add-to-list display-format-alist ("\\`w32\\'" . w32) handle-args-function (args &context (window-system w32)) #[257 "\300!\207" [x-handle-args] 3 "\n\n(fn ARGS)"] frame-creation-function (params &context (window-system w32)) #[257 "\300!\207" [x-create-frame-with-faces] 3 "\n\n(fn PARAMS)"]] 6) #@19 (fn TYPE VALUE) (defalias 'w32--set-selection #[514 "\300=\203 \301\302\303\304\305\211%!\207\306\307\206 \310#\207" [CLIPBOARD w32-set-clipboard-data replace-regexp-in-string " " "\\0" t put x-selections PRIMARY] 9 (#$ . 7344)]) #@33 (fn &optional TYPE DATA-TYPE) (defalias 'w32--get-selection #[512 "\300=\203 \211\301=\203 \3021 \303 0\207\304\305\"\210\306\207\211\307=\2037 \300=\203+ \310!\207\311\2061 \312N\2056 \313\207\311\206= \312N\207" [CLIPBOARD STRING (debug error) w32-get-clipboard-data message "w32-get-clipboard-data:%S" nil TARGETS w32-selection-targets x-selections PRIMARY [STRING]] 6 (#$ . 7588)]) #@18 (fn SELECTION) (defalias 'w32--selection-owner-p #[257 "\211\300>\205 \301\206\f \302N\207" [(nil PRIMARY SECONDARY) x-selections PRIMARY] 3 (#$ . 7991)]) (byte-code "\301\302\303\304\303\305%\210\301\306\303\307\303\310%\210\301\311\303\312\303\313%\210\301\314\303\315\303\316%\210\317=\203F \301\302\303\320\303\321%\210\301\306\303\322\303\323%\210\301\311\303\324\303\325%\210\301\326\303\327\303\330%\210\331\332\333\"\210\331\334\333\"\207" [system-type cl-generic-define-method gui-backend-set-selection nil (type value &context (window-system w32)) #[514 "\300\"\207" [w32--set-selection] 5 "\n\n(fn TYPE VALUE)"] gui-backend-get-selection (type data-type &context (window-system w32)) #[514 "\300\"\207" [w32--get-selection] 5 "\n\n(fn TYPE DATA-TYPE)"] gui-backend-selection-owner-p (selection &context (window-system w32)) #[257 "\300!\207" [w32--selection-owner-p] 3 "\n\n(fn SELECTION)"] gui-backend-selection-exists-p (selection &context (window-system w32)) #[257 "\300!\207" [w32-selection-exists-p] 3 "\n\n(fn SELECTION)"] windows-nt (type value &context (window-system nil)) #[514 "\300\"\207" [w32--set-selection] 5 "\n\n(fn TYPE VALUE)"] (type data-type &context (window-system nil)) #[514 "\300\"\207" [w32--get-selection] 5 "\n\n(fn TYPE DATA-TYPE)"] (selection &context (window-system nil)) #[257 "\300!\207" [w32--selection-owner-p] 3 "\n\n(fn SELECTION)"] gui-selection-exists-p (selection &context (window-system nil)) #[257 "\300!\207" [w32-selection-exists-p] 3 "\n\n(fn SELECTION)"] global-set-key [lwindow] ignore [rwindow]] 6) #@138 Return the MS-Windows version numbers. The value is a list of three integers: the major and minor version numbers, and the build number. (defalias 'w32-version #[0 "\300 \207" [x-server-version] 1 (#$ . 9574)]) #@107 Return non-nil if running on a Windows NT descendant. That includes all Windows systems except for 9X/Me. (defalias 'w32-using-nt #[0 "\300\301!\207" [getenv "SystemRoot"] 2 (#$ . 9792)]) #@540 List of Unicode subranges whose support cannot be announced by a font. The FONTSIGNATURE structure reported by MS-Windows for a font includes 123 Unicode Subset bits (USBs) to identify subranges of the Unicode codepoint space supported by the font. Since the number of bits is fixed, not every Unicode block can have a corresponding USB bit; fonts that support characters from blocks that have no USBs cannot communicate their support to Emacs, unless the font is opened and physically tested for glyphs for characters from these blocks. (defconst w32-no-usb-subranges '((2048 . 2303) (6320 . 6399) (6688 . 6911) (7104 . 7167) (7296 . 7423) (12256 . 12271) (42192 . 42239) (42656 . 42751) (43056 . 43071) (43232 . 43263) (43360 . 43519) (43616 . 44031) (55216 . 55295) (66048 . 66175) (66272 . 66303) (66384 . 66431) (66528 . 66559) (66736 . 67583) (67648 . 67839) (67904 . 68095) (68192 . 73727) (74880 . 118783) (119376 . 119551) (119680 . 119807) (120832 . 126975) (127136 . 131071) (173792 . 194559) (195104 . 917503) (917632 . 917759) (918000 . 1044479)) (#$ . 9987)) #@58 Filter USB scripts out of `script-representative-chars'. (defalias 'w32--filter-USB-scripts #[0 "\302\211\203S \211@ A\302\211\211:\203J \204J @\262A\262:\203 \204 @\262A\262@Y\203 AX\203 \303\262B\262\202 \266A\266\202\202 \210\211\237\207" [script-representative-chars w32-no-usb-subranges nil t] 10 (#$ . 11067)]) #@495 Alist of script symbols and corresponding fonts. Each element of the alist has the form (SCRIPT FONTS...), where SCRIPT is a symbol of a script and FONTS are one or more fonts installed on the system that can display SCRIPT's characters. FONTS are specified as symbols. Only scripts that have no corresponding Unicode Subset Bits (USBs) can be found in this alist. This alist is used by w32font.c when it looks for fonts that can display characters from scripts for which no USBs are defined. (defvar w32-non-USB-fonts nil (#$ . 11422)) #@258 Compute the value of `w32-non-USB-fonts' for specified SIZE and FRAME. FRAME defaults to the selected frame. SIZE is the required font size and defaults to the nominal size of the default font on FRAME, or its best approximation. (fn &optional FRAME SIZE) (defalias 'w32-find-non-USB-fonts #[512 "\302\303\304\305\306#!\307C\310\311\312\313\314\315 $\316\"\317\320%\321 \"\210\322 \210\211\242\205/ \211\242\211)\207" [inhibit-compacting-font-caches w32-non-USB-fonts t delete-dups x-list-fonts "-*-*-medium-r-normal-*-*-*-*-*-*-iso10646-1" default nil mapc make-byte-code 257 "\211@\304A!\211G\302C\305\211\211\211\211\211\203\213 \211@\3061$ \307\310\"0\202& \210\305\262\2034 \311\300\"\262\203\204 \312\301\300#\262\203O \313\314\f$\202P \315\262\314\262\nW\203i H\203i T\262\202U \nU\203\204 \316\317\"\320!\227\321\230\204\203 \211 B\262 \210A\266\202\202 \210G\322V\205\233 \303\237\303\242B\240\207" vconcat vector [vconcat nil (error) font-spec :name find-font open-font font-get-glyphs 0 [nil] font-get :family symbol-name "unifont" 1] 18 "\n\n(fn SCRIPT-DESC)" w32--filter-USB-scripts clear-font-cache] 14 (#$ . 11967)]) (byte-code "\300\301!\210\300\302!\207" [provide w32-win term/w32-win] 2)
Close
