1#@!#!123s

��JFIF�� 1#@!#!123s
: / proc / thread-self / root / usr / share / emacs / 24.3 / lisp / term /
Filename : common-win.elc
back
;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/common-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.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


#@351 Non-nil means cutting and pasting uses the clipboard.
This is in addition to, but in preference to, the primary selection.

Note that MS-Windows does not support selection types other than the
clipboard.  (The primary selection that is set by Emacs is not
accessible to other programs on MS-Windows.)

This variable is not used by the Nextstep port.
(custom-declare-variable 'x-select-enable-clipboard t '(#$ . 557) :type 'boolean :group 'killing :version "24.1")
#@428 Select TEXT, a string, according to the window system.

On X, if `x-select-enable-clipboard' is non-nil, copy TEXT to the
clipboard.  If `x-select-enable-primary' is non-nil, put TEXT in
the primary selection.

On MS-Windows, make TEXT the current selection.  If
`x-select-enable-clipboard' is non-nil, copy the text to the
clipboard as well.

On Nextstep, put TEXT in the pasteboard (`x-select-enable-clipboard'
is not used).
(defalias 'x-select-text #[(text) "\306\307 !\310=\203�\203�\311	!\210	\211\207\312\313!\203#�\314	!\210	\211\207\306\307 !\315=\205D�\f\2037�\316\317	\"\210	\205D�\316\320	\"\210	\211\207" [x-select-enable-clipboard text x-last-selected-text ns-last-selected-text x-select-enable-primary x-last-selected-text-primary framep selected-frame w32 w32-set-clipboard-data featurep ns ns-set-pasteboard x x-set-selection PRIMARY CLIPBOARD x-last-selected-text-clipboard] 3 (#$ . 1028)])
#@56 Keymap of possible alternative meanings for some keys.
(defvar x-alternatives-map (byte-code "\302 \303\304\305#\210\303\306\307#\210\303\310\311#\210\303\312\313#\210\303\314\315#\210\303\316\317#\210\303\320\321#\210\322\323!\204?�\303\324\325#\210\303\326\327#\210	\330=\204K�\322\323!\203Q�\303\331\332#\210)\207" [map system-type make-sparse-keymap define-key [M-backspace] [134217855] [M-delete] [134217855] [M-tab] [134217737] [M-linefeed] [134217738] [M-clear] [134217740] [M-return] [134217741] [M-escape] [134217755] featurep ns [iso-lefttab] [backtab] [S-iso-lefttab] [backtab] windows-nt [S-tab] [backtab]] 4) (#$ . 1951))
#@57 Set up `function-key-map' on the graphical frame FRAME.
(defalias 'x-setup-function-keys #[(frame) "\306\307\"?\205\247�\310 p\311\216\312\313\"\210\314!\315\f\316
!\"\210\315
\f\"\210)\317\320!\203\241�\3211\3222\323\324\325\326\"\327\"\330B\323\324\325\326\"\331\"\332B\323\324\325\326\"\333\"\334B\323\324\325\326\"\335\"\336B\323\324\325\326\"\337\"\340B\323\324\325\326\"\341\"\342B\323\324\325\326\"\343\"\344B\323\324\325\326\"\345\"\346B\323\324\325\326\"\347\"\350B\323\324\325\326\"\351\"\352B\323\324\325\326\"\353\"\354B\323\324\325\326\"\355\"\356B\257\f3+\357\307\360#\207" [frame #1=#:old-buffer #2=#:old-frame x-alternatives-map map local-function-key-map terminal-parameter x-setup-function-keys selected-frame ((byte-code "\302!\203�\303\304\"\210\305	!\203�	q\210\302\207" [#2# #1# frame-live-p select-frame norecord buffer-live-p] 3)) select-frame norecord copy-keymap set-keymap-parent keymap-parent featurep ns x-select-text x-selection-value logior lsh 0 16 1 ns-power-off 2 ns-open-file 3 ns-open-temp-file 4 ns-drag-file 5 ns-drag-color 6 ns-drag-text 7 ns-change-font 8 ns-open-file-line 11 ns-spi-service-call 12 ns-new-frame 13 ns-toggle-toolbar 14 ns-show-prefs set-terminal-parameter t interprogram-cut-function interprogram-paste-function system-key-alist] 15 (#$ . 2604)])
(defvar x-command-line-resources nil)
(defalias 'x-handle-switch #[(switch &optional numeric) "\306	\"\211\205*�\307\n8\203�\310\f\211A@!\202%�\311\n8\206%�\f\211A@B
B\211)\207" [switch command-line-x-option-alist aelt numeric x-invocation-args default-frame-alist assoc 3 string-to-number 4] 5])
(defalias 'x-handle-numeric-switch #[(switch) "\301\302\"\207" [switch x-handle-switch t] 3])
(defalias 'x-handle-initial-switch #[(switch) "\305	\"\211\205�\306\n8\307\n8\206�\211A@B\fB\211)\207" [switch command-line-x-option-alist aelt x-invocation-args initial-frame-alist assoc 3 4] 4])
(defalias 'x-handle-iconic #[(switch) "\301B\211\207" [initial-frame-alist (visibility . icon)] 2])
(defalias 'x-handle-xrm-switch #[(switch) ":\204\f�\303\304\305 	#\210\n\204�\211A@\202 �\n\306\211A@Q\211\207" [x-invocation-args switch x-command-line-resources error "%s: missing argument to `%s' option" invocation-name "\n"] 4])
(defalias 'x-handle-geometry #[(switch) "\306\211A@!\302	\236\303	\236\304	\236\305	\236\f\204 �
\203F�\307\310\f\205*�\fC
\2050�
C$\307\f\311\f\205=�\fC
\205C�
C$\f\n\204N�\205b�\307\f\312\n\205X�\nC\205^�C$\211\f-\207" [x-invocation-args geo left top height width x-parse-geometry append ((user-size . t)) ((user-size . t)) ((user-position . t)) default-frame-alist initial-frame-alist] 5])
(defalias 'x-handle-name-switch #[(switch) ":\204\f�\304\305\306 	#\210\211A@\307\nBB\211\207" [x-invocation-args switch x-resource-name initial-frame-alist error "%s: missing argument to `%s' option" invocation-name name] 4])
#@152 The name of the window display on which Emacs was started.
On X, the display name of individual X frames is recorded in the
`display' frame parameter.
(defvar x-display-name nil (#$ . 5519))
#@33 Handle -display DISPLAY option.
(defalias 'x-handle-display #[(switch) "\211A@\302\303	\"\207" [x-invocation-args x-display-name setenv "DISPLAY"] 3 (#$ . 5716)])
#@479 Process the X (or Nextstep) related command line options in ARGS.
This is done before the user's startup file is loaded.
Copies the options in ARGS to `x-invocation-args'.  It then extracts
the X (or Nextstep) options according to the handlers defined in
`command-line-x-option-alist' (or `command-line-ns-option-alist').
For example, `x-handle-switch' handles a switch like "-fg" and its
value "black".  This function returns ARGS minus the arguments that
have been processed.
(defalias 'x-handle-args #[(args) "\306	\203\256�	@\307\232\204\256�	\211A@\211\310\311!\203!�\f\202\"�
\306\211\306\211\312\313\n\"\203E�\n\314\225\306O\n\314\211\225SO\312\315\n\"\203t�\316\n\"\211\317=\204t�;\203t�\320\"\211\204p�\321\322\n\"\210)\320\n\"\211\203\205�\3238\203\245�\203\235�	B\n!\210)\202\251�\n!\210\202\251�B.\202�\237	\244\207" [args x-invocation-args this-switch orig-this-switch command-line-ns-option-alist command-line-x-option-alist nil "--" featurep ns string-match "^--[^=]*=" 0 "^--" try-completion t assoc error "Option `%s' is ambiguous" 2 option-alist completion argval aelt handler elt] 4 (#$ . 5889)])
#@200 List of basic colors available on color displays.
For X, the list comes from the `rgb.txt' file,v 10.41 94/02/20.
For Nextstep, this is a list of non-PANTONE colors returned by
the operating system.
(defvar x-colors (byte-code "\300\301!\203	�\302 \207\303\304!\207" [featurep ns ns-list-colors purecopy ("gray100" "grey100" "gray99" "grey99" "gray98" "grey98" "gray97" "grey97" "gray96" "grey96" "gray95" "grey95" "gray94" "grey94" "gray93" "grey93" "gray92" "grey92" "gray91" "grey91" "gray90" "grey90" "gray89" "grey89" "gray88" "grey88" "gray87" "grey87" "gray86" "grey86" "gray85" "grey85" "gray84" "grey84" "gray83" "grey83" "gray82" "grey82" "gray81" "grey81" "gray80" "grey80" "gray79" "grey79" "gray78" "grey78" "gray77" "grey77" "gray76" "grey76" "gray75" "grey75" "gray74" "grey74" "gray73" "grey73" "gray72" "grey72" "gray71" "grey71" "gray70" "grey70" "gray69" "grey69" "gray68" "grey68" "gray67" "grey67" "gray66" "grey66" "gray65" "grey65" "gray64" "grey64" "gray63" "grey63" "gray62" "grey62" "gray61" "grey61" "gray60" "grey60" "gray59" "grey59" "gray58" "grey58" "gray57" "grey57" "gray56" "grey56" "gray55" "grey55" "gray54" "grey54" "gray53" "grey53" "gray52" "grey52" "gray51" "grey51" "gray50" "grey50" "gray49" "grey49" "gray48" "grey48" "gray47" "grey47" "gray46" "grey46" "gray45" "grey45" "gray44" "grey44" "gray43" "grey43" "gray42" "grey42" "gray41" "grey41" "gray40" "grey40" "gray39" "grey39" "gray38" "grey38" "gray37" "grey37" "gray36" "grey36" "gray35" "grey35" "gray34" "grey34" "gray33" "grey33" "gray32" "grey32" "gray31" "grey31" "gray30" "grey30" "gray29" "grey29" "gray28" "grey28" "gray27" "grey27" "gray26" "grey26" "gray25" "grey25" "gray24" "grey24" "gray23" "grey23" "gray22" "grey22" "gray21" "grey21" "gray20" "grey20" "gray19" "grey19" "gray18" "grey18" "gray17" "grey17" "gray16" "grey16" "gray15" "grey15" "gray14" "grey14" "gray13" "grey13" "gray12" "grey12" "gray11" "grey11" "gray10" "grey10" "gray9" "grey9" "gray8" "grey8" "gray7" "grey7" "gray6" "grey6" "gray5" "grey5" "gray4" "grey4" "gray3" "grey3" "gray2" "grey2" "gray1" "grey1" "gray0" "grey0" "LightPink1" "LightPink2" "LightPink3" "LightPink4" "pink1" "pink2" "pink3" "pink4" "PaleVioletRed1" "PaleVioletRed2" "PaleVioletRed3" "PaleVioletRed4" "LavenderBlush1" "LavenderBlush2" "LavenderBlush3" "LavenderBlush4" "VioletRed1" "VioletRed2" "VioletRed3" "VioletRed4" "HotPink1" "HotPink2" "HotPink3" "HotPink4" "DeepPink1" "DeepPink2" "DeepPink3" "DeepPink4" "maroon1" "maroon2" "maroon3" "maroon4" "orchid1" "orchid2" "orchid3" "orchid4" "plum1" "plum2" "plum3" "plum4" "thistle1" "thistle2" "thistle3" "thistle4" "MediumOrchid1" "MediumOrchid2" "MediumOrchid3" "MediumOrchid4" "DarkOrchid1" "DarkOrchid2" "DarkOrchid3" "DarkOrchid4" "purple1" "purple2" "purple3" "purple4" "MediumPurple1" "MediumPurple2" "MediumPurple3" "MediumPurple4" "SlateBlue1" "SlateBlue2" "SlateBlue3" "SlateBlue4" "RoyalBlue1" "RoyalBlue2" "RoyalBlue3" "RoyalBlue4" "LightSteelBlue1" "LightSteelBlue2" "LightSteelBlue3" "LightSteelBlue4" "SlateGray1" "SlateGray2" "SlateGray3" "SlateGray4" "DodgerBlue1" "DodgerBlue2" "DodgerBlue3" "DodgerBlue4" "SteelBlue1" "SteelBlue2" "SteelBlue3" "SteelBlue4" "SkyBlue1" "SkyBlue2" "SkyBlue3" "SkyBlue4" "LightSkyBlue1" "LightSkyBlue2" "LightSkyBlue3" "LightSkyBlue4" "LightBlue1" "LightBlue2" "LightBlue3" "LightBlue4" "CadetBlue1" "CadetBlue2" "CadetBlue3" "CadetBlue4" "azure1" "azure2" "azure3" "azure4" "LightCyan1" "LightCyan2" "LightCyan3" "LightCyan4" "PaleTurquoise1" "PaleTurquoise2" "PaleTurquoise3" "PaleTurquoise4" "DarkSlateGray1" "DarkSlateGray2" "DarkSlateGray3" "DarkSlateGray4" "aquamarine1" "aquamarine2" "aquamarine3" "aquamarine4" "SeaGreen1" "SeaGreen2" "SeaGreen3" "SeaGreen4" "honeydew1" "honeydew2" "honeydew3" "honeydew4" "DarkSeaGreen1" "DarkSeaGreen2" "DarkSeaGreen3" "DarkSeaGreen4" "PaleGreen1" "PaleGreen2" "PaleGreen3" "PaleGreen4" "DarkOliveGreen1" "DarkOliveGreen2" "DarkOliveGreen3" "DarkOliveGreen4" "OliveDrab1" "OliveDrab2" "OliveDrab3" "OliveDrab4" "ivory1" "ivory2" "ivory3" "ivory4" "LightYellow1" "LightYellow2" "LightYellow3" "LightYellow4" "khaki1" "khaki2" "khaki3" "khaki4" "LemonChiffon1" "LemonChiffon2" "LemonChiffon3" "LemonChiffon4" "LightGoldenrod1" "LightGoldenrod2" "LightGoldenrod3" "LightGoldenrod4" "cornsilk1" "cornsilk2" "cornsilk3" "cornsilk4" "goldenrod1" "goldenrod2" "goldenrod3" "goldenrod4" "DarkGoldenrod1" "DarkGoldenrod2" "DarkGoldenrod3" "DarkGoldenrod4" "wheat1" "wheat2" "wheat3" "wheat4" "NavajoWhite1" "NavajoWhite2" "NavajoWhite3" "NavajoWhite4" "burlywood1" "burlywood2" "burlywood3" "burlywood4" "AntiqueWhite1" "AntiqueWhite2" "AntiqueWhite3" "AntiqueWhite4" "bisque1" "bisque2" "bisque3" "bisque4" "tan1" "tan2" "tan3" "tan4" "PeachPuff1" "PeachPuff2" "PeachPuff3" "PeachPuff4" "seashell1" "seashell2" "seashell3" "seashell4" "chocolate1" "chocolate2" "chocolate3" "chocolate4" "sienna1" "sienna2" "sienna3" "sienna4" "LightSalmon1" "LightSalmon2" "LightSalmon3" "LightSalmon4" "salmon1" "salmon2" "salmon3" "salmon4" "coral1" "coral2" "coral3" "coral4" "tomato1" "tomato2" "tomato3" "tomato4" "MistyRose1" "MistyRose2" "MistyRose3" "MistyRose4" "snow1" "snow2" "snow3" "snow4" "RosyBrown1" "RosyBrown2" "RosyBrown3" "RosyBrown4" "IndianRed1" "IndianRed2" "IndianRed3" "IndianRed4" "firebrick1" "firebrick2" "firebrick3" "firebrick4" "brown1" "brown2" "brown3" "brown4" "magenta1" "magenta2" "magenta3" "magenta4" "blue1" "blue2" "blue3" "blue4" "DeepSkyBlue1" "DeepSkyBlue2" "DeepSkyBlue3" "DeepSkyBlue4" "turquoise1" "turquoise2" "turquoise3" "turquoise4" "cyan1" "cyan2" "cyan3" "cyan4" "SpringGreen1" "SpringGreen2" "SpringGreen3" "SpringGreen4" "green1" "green2" "green3" "green4" "chartreuse1" "chartreuse2" "chartreuse3" "chartreuse4" "yellow1" "yellow2" "yellow3" "yellow4" "gold1" "gold2" "gold3" "gold4" "orange1" "orange2" "orange3" "orange4" "DarkOrange1" "DarkOrange2" "DarkOrange3" "DarkOrange4" "OrangeRed1" "OrangeRed2" "OrangeRed3" "OrangeRed4" "red1" "red2" "red3" "red4" "lavender blush" "LavenderBlush" "ghost white" "GhostWhite" "lavender" "alice blue" "AliceBlue" "azure" "light cyan" "LightCyan" "mint cream" "MintCream" "honeydew" "ivory" "light goldenrod yellow" "LightGoldenrodYellow" "light yellow" "LightYellow" "beige" "floral white" "FloralWhite" "old lace" "OldLace" "blanched almond" "BlanchedAlmond" "moccasin" "papaya whip" "PapayaWhip" "bisque" "antique white" "AntiqueWhite" "linen" "peach puff" "PeachPuff" "seashell" "misty rose" "MistyRose" "snow" "light pink" "LightPink" "pink" "hot pink" "HotPink" "deep pink" "DeepPink" "maroon" "pale violet red" "PaleVioletRed" "violet red" "VioletRed" "medium violet red" "MediumVioletRed" "violet" "plum" "thistle" "orchid" "medium orchid" "MediumOrchid" "dark orchid" "DarkOrchid" "purple" "blue violet" "BlueViolet" "medium purple" "MediumPurple" "light slate blue" "LightSlateBlue" "medium slate blue" "MediumSlateBlue" "slate blue" "SlateBlue" "dark slate blue" "DarkSlateBlue" "midnight blue" "MidnightBlue" "navy" "navy blue" "NavyBlue" "dark blue" "DarkBlue" "light steel blue" "LightSteelBlue" "cornflower blue" "CornflowerBlue" "dodger blue" "DodgerBlue" "royal blue" "RoyalBlue" "light slate gray" "light slate grey" "LightSlateGray" "LightSlateGrey" "slate gray" "slate grey" "SlateGray" "SlateGrey" "dark slate gray" "dark slate grey" "DarkSlateGray" "DarkSlateGrey" "steel blue" "SteelBlue" "cadet blue" "CadetBlue" "light sky blue" "LightSkyBlue" "sky blue" "SkyBlue" "light blue" "LightBlue" "powder blue" "PowderBlue" "pale turquoise" "PaleTurquoise" "turquoise" "medium turquoise" "MediumTurquoise" "dark turquoise" "DarkTurquoise" "dark cyan" "DarkCyan" "aquamarine" "medium aquamarine" "MediumAquamarine" "light sea green" "LightSeaGreen" "medium sea green" "MediumSeaGreen" "sea green" "SeaGreen" "dark sea green" "DarkSeaGreen" "pale green" "PaleGreen" "lime green" "LimeGreen" "dark green" "DarkGreen" "forest green" "ForestGreen" "light green" "LightGreen" "green yellow" "GreenYellow" "yellow green" "YellowGreen" "olive drab" "OliveDrab" "dark olive green" "DarkOliveGreen" "lemon chiffon" "LemonChiffon" "khaki" "dark khaki" "DarkKhaki" "cornsilk" "pale goldenrod" "PaleGoldenrod" "light goldenrod" "LightGoldenrod" "goldenrod" "dark goldenrod" "DarkGoldenrod" "wheat" "navajo white" "NavajoWhite" "tan" "burlywood" "sandy brown" "SandyBrown" "peru" "chocolate" "saddle brown" "SaddleBrown" "sienna" "rosy brown" "RosyBrown" "dark salmon" "DarkSalmon" "coral" "tomato" "light salmon" "LightSalmon" "salmon" "light coral" "LightCoral" "indian red" "IndianRed" "firebrick" "brown" "dark red" "DarkRed" "magenta" "dark magenta" "DarkMagenta" "dark violet" "DarkViolet" "medium blue" "MediumBlue" "blue" "deep sky blue" "DeepSkyBlue" "cyan" "medium spring green" "MediumSpringGreen" "spring green" "SpringGreen" "green" "lawn green" "LawnGreen" "chartreuse" "yellow" "gold" "orange" "dark orange" "DarkOrange" "orange red" "OrangeRed" "red" "white" "white smoke" "WhiteSmoke" "gainsboro" "light gray" "light grey" "LightGray" "LightGrey" "gray" "grey" "dark gray" "dark grey" "DarkGray" "DarkGrey" "dim gray" "dim grey" "DimGray" "DimGrey" "black")] 2) (#$ . 7071))
#@58 Internal function called by `defined-colors', which see.
(defalias 'xw-defined-colors #[(&optional frame) "\306\307!\203�\207	\204�\310 \311\312=\203\"�\313\314\f\"\206#�\202#�\311\211\203D�@\315
	\316#\203;�
\nBA\211\204+�*\n)\207" [x-colors frame defined-colors system-type w32-color-map this-color featurep ns selected-frame nil windows-nt mapcar car color-supported-p t --dolist-tail--] 5 (#$ . 16248)])