;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:12:51 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/term/w32-win.el
;;; in Emacs version 24.3
;;; 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)
(defalias 'w32-handle-dropped-file #[514 "\303=\203
\304
\305\"\202\306\307\310#	\206\n\311\312\313\314\"\315\"\315#\266\203\316\317\320P#\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 mapconcat url-hexify-string split-string encode-coding-string "/" dnd-handle-one-url private "file:"] 10 "\n\n(fn WINDOW FILE-NAME)"])
#@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\301!\211@)\301!\3028)\211@
A
\303V\203%\211\303V\203%\304\305\"\210\203.\306\307 !\210\310 \210\311 \262\312\313\314\"AA@\"\266\204)\207" [position event-start 2 0 set-frame-selected-window nil select-frame make-frame raise-frame selected-window mapc apply-partially w32-handle-dropped-file] 11 (#$ . 1468) "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 (#$ . 1972) "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)
#@435 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
the Escape key.  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\"\313\314%DC\216\315\206&\303 \316\"\210\317 )\207" [menu-bar-mode w32-send-sys-command 61696 selected-frame funcall 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 "\n\n(fn)" select-frame norecord tmm-menubar] 11 (#$ . 2447) "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" (#$ . 3318))
#@52 Report an error when a suspend is attempted.

(fn)
(defalias 'x-win-suspend-error #[0 "\300\301!\207" [error "Suspending an Emacs running under W32 makes no sense"] 2 (#$ . 3706)])
(byte-code "\302\303Y\203\304\202\f\305\306\307\310\311\312\313\314\315\316\257\303\207" [libpng-version dynamic-library-alist (xpm "libxpm.dll" "xpm4.dll" "libXpm-nox4.dll") 10400 (png "libpng14-14.dll" "libpng14.dll") (png "libpng12d.dll" "libpng12.dll" "libpng3.dll" "libpng.dll" "libpng13d.dll" "libpng13.dll") (jpeg "jpeg62.dll" "libjpeg.dll" "jpeg-62.dll" "jpeg.dll") (tiff "libtiff3.dll" "libtiff.dll") (gif "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") (gnutls "libgnutls-28.dll" "libgnutls-26.dll") (libxml2 "libxml2-2.dll" "libxml2.dll")] 11)
#@56 Non-nil if the w32 window system has been initialized.
(defvar w32-initialized nil (#$ . 4575))
#@44 Initialize Emacs for W32 GUI frames.

(fn)
(defalias 'w32-initialize-window-system #[0 "\203\n\306\307\310C\"\210\311	!\n;\204\312\313\314\315 #\316\317\f\320=#\210\321 \210\322\323\324D\325\323\326\322EDC\217\210\327 \210\330\331\332\"\333
\203\216\334!\262
\335
\236\204O\336
\236\203V\337\340BB\262
\341
\"\342
\236\203v\3424\236\204v\342\211\236AB4B4\202\216\343
\236\203\216\3434\236\204\216\343\211\236AB4B4\266\3445\330\345\346\"\211\203\250\347\350\"\203\250\3514B4\210)\352\353\354\"\210\3446\355 \210\356\357\360\"\210\361\362!\210\363 \210\344\211\207" [w32-initialized command-line-args x-resource-name x-command-line-resources initial-window-system initial-frame-alist signal cl-assertion-failed (not w32-initialized) x-handle-args replace-regexp-in-string "[.*]" "-" invocation-name x-open-connection "w32" w32 create-default-fontset #1=#:err funcall #[0 "\301\302\"\207" [w32-standard-fontset-spec create-fontset-from-fontset-spec t] 3 "\n\n(fn)"] error #[257 "\300\301\302\303\"\304#\207" [display-warning initialization format "Creation of the standard fontset failed: %s" :error] 6 "\n\n(fn ERR)"] 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 t "reverseVideo" "ReverseVideo" string-match "^\\(true\\|yes\\|on\\)$" (reverse . t) add-hook suspend-hook x-win-suspend-error menu-bar-enable-clipboard set-default mode-line-frame-identification "  " set-message-beep ok x-apply-session-resources default-frame-alist case-fold-search split-window-keep-point] 6 (#$ . 4677)])
(byte-code "\300\301\302\"\210\300\303\304\"\210\300\305\306\"\210\300\307\310\"\210\311\312!\207" [add-to-list display-format-alist ("\\`w32\\'" . w32) handle-args-function-alist (w32 . x-handle-args) frame-creation-function-alist (w32 . x-create-frame-with-faces) window-system-initialization-alist (w32 . w32-initialize-window-system) provide w32-win] 3)