HOME

Mini Shell 1.0
DIR:/proc/self/root/usr/share/emacs/26.1/lisp/term/
Current File : //proc/self/root/usr/share/emacs/26.1/lisp/term/w32-win.elc
;ELC
;;; Compiled
;;; in Emacs version 26.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\"\207" [global-set-key [drag-n-drop] w32-drag-n-drop [C-drag-n-drop] w32-drag-n-drop-other-frame [language-change] ignore] 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 (#$ . 2383) "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" (#$ . 3333))
#@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 (#$ . 3721)])
(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\336Y\203\\\337\202]\340\341\342\343\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") (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")] 13)
#@56 Non-nil if the w32 window system has been initialized.
(defvar w32-initialized nil (#$ . 5069))
(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\316\f\317=#\210\320 \210\3211/\322
\323\"0\2029\324\325\326\327\"\330#\262\210\331 \210\332\333\334\"\335\203\230\336!\262\337\236\204W\340\236\203^\341\342BB\262\3435\"5\344\236\203\200\3446\236\204\200\344\211\236AB6B6\202\230\345\236\203\230\3456\236\204\230\345\211\236AB6B6\266\3237\332\346\347\"\211\203\262\350\351\"\203\262\3526B6\210)\353\354\355\"\210\3238\356 \210\357\360\361\"\210\362\363!\210\364 \210\323\211\207" [w32-initialized command-line-args x-resource-name x-command-line-resources initial-window-system w32-standard-fontset-spec cl--assertion-failed (not w32-initialized) x-handle-args replace-regexp-in-string "[.*]" "-" invocation-name 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 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 (#$ . 7204)])
#@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 (#$ . 7448)])
#@18 

(fn SELECTION)
(defalias 'w32--selection-owner-p #[257 "\211\300>\205
\301\206\f\302N\207" [(nil PRIMARY SECONDARY) x-selections PRIMARY] 3 (#$ . 7851)])
(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 (#$ . 9434)])
#@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 (#$ . 9652)])
(byte-code "\300\301!\210\300\302!\207" [provide w32-win term/w32-win] 2)