Current File : //usr/local/share/emacs/27.2/lisp/term/w32-win.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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)
Mini Shell