;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/pc-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!\204\f\302\303\304 \"\210\300\207" [fboundp msdos-remember-default-colors error "%s: Loading pc-win.el but not compiled for MS-DOS" invocation-name] 3)
#@71 A list of MS-DOS console colors, their indices and 16-bit RGB values.
(defvar msdos-color-values '(("black" 0 0 0 0) ("blue" 1 0 0 52480) ("green" 2 8704 35584 8704) ("cyan" 3 0 52736 53504) ("red" 4 45568 8704 8704) ("magenta" 5 35584 0 35584) ("brown" 6 40960 20992 11520) ("lightgray" 7 48640 48640 48640) ("darkgray" 8 26112 26112 26112) ("lightblue" 9 0 0 65535) ("lightgreen" 10 0 65535 0) ("lightcyan" 11 0 65535 65535) ("lightred" 12 65535 0 0) ("lightmagenta" 13 65535 0 65535) ("yellow" 14 65535 65535 0) ("white" 15 65535 65535 65535)) (#$ . 726))
(defvar default-frame-alist nil)
#@48 Initial setup of faces for the MS-DOS display.
(defalias 'msdos-face-setup #[nil "\300\301\302\"\210\300\303\304\"\210\300\305\306\"\210\300\307\310\"\210\311\312!\210\311\313!\210\311\314!\210\300\312\310\"\210\300\313\315\"\210\316\312\317\"\210\316\313\317\"\210\316\314\304\"\207" [set-face-foreground bold "yellow" italic "red" bold-italic "lightred" underline "white" make-face msdos-menu-active-face msdos-menu-passive-face msdos-menu-select-face "lightgray" set-face-background "blue"] 3 (#$ . 1324)])
#@60 Handle the reverse-video frame parameter on MS-DOS frames.
(defalias 'msdos-handle-reverse-video #[(frame parameters) "\306\236\206	\306	\236A\205=\307\n!\310\236A\311\236A\f\312\236A\232\203,\313\n\312
BC\"\210\f\314\236A\232\205<\313\n\314
BC\"+\207" [parameters default-frame-alist frame params fg bg reverse frame-parameters foreground-color background-color mouse-color modify-frame-parameters cursor-color] 4 (#$ . 1840)])
(defalias 'msdos-setup-initial-frame #[nil "\303	\"\210\304!\210\303\n\"\210\305\306!\"\210\307!\210\310!\207" [terminal-frame default-frame-alist initial-frame-alist modify-frame-parameters msdos-remember-default-colors msdos-handle-reverse-video frame-parameters frame-set-background-mode face-set-after-frame-default] 4])
#@304 Create a frame on MS-DOS display.
Optional frame parameters PARAMETERS specify the frame parameters.
Parameters not specified by PARAMETERS are taken from
`default-frame-alist'.  If either PARAMETERS or `default-frame-alist'
contains a `reverse' parameter, handle that.  Value is the new frame
created.
(defalias 'msdos-create-frame-with-faces #[(&optional parameters) "\305!\306\307\216\310 p\311\216\312\n\313\"\210\314\n\315\n!\"\210\316\n\317\"\204(\320\n\317\321#\210\322\n!\210\323\n!\210\321,\n*\207" [parameters success frame #1=#:old-buffer #2=#:old-frame make-terminal-frame nil ((byte-code "\204\302	!\210\302\207" [success frame delete-frame] 2)) 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 msdos-handle-reverse-video frame-parameters terminal-parameter terminal-initted set-terminal-parameter t frame-set-background-mode face-set-after-frame-default] 4 (#$ . 2620)])
(defalias 'x-list-fonts #[(pattern &optional face frame maximum width) "\203\247\203\301U\203\302C\207\303C\207" [width 1 "ms-dos" "no-such-font"] 2])
(defalias 'x-display-pixel-width #[(&optional frame) "\301!\207" [frame frame-width] 2])
(defalias 'x-display-pixel-height #[(&optional frame) "\301!\207" [frame frame-height] 2])
(defalias 'x-display-planes #[(&optional frame) "\300\207" [4] 1])
(defalias 'x-display-color-cells #[(&optional frame) "\300\207" [16] 1])
(defalias 'x-server-max-request-size #[(&optional frame) "\300\207" [1000000] 1])
(defalias 'x-server-vendor #[(&optional frame) "\300\207" ["GNU"] 1])
(defalias 'x-server-version #[(&optional frame) "\300\207" [(1 0 0)] 1])
(defalias 'x-display-screens #[(&optional frame) "\300\207" [1] 1])
(defalias 'x-display-mm-height #[(&optional frame) "\300\207" [245] 1])
(defalias 'x-display-mm-width #[(&optional frame) "\300\207" [322] 1])
(defalias 'x-display-backing-store #[(&optional frame) "\300\207" [not-useful] 1])
(defalias 'x-display-visual-class #[(&optional frame) "\300\207" [static-color] 1])
(byte-code "\300\301M\210\302\301M\207" [x-display-save-under ignore x-get-resource] 2)
#@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 "pc" (#$ . 4814))
#@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 (mapcar 'car msdos-color-values) (#$ . 5013))
(defvar x-last-selected-text nil)
#@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 '(#$ . 5316) :type 'boolean :group 'killing)
#@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) "\203\303	!\210	\211\207" [x-select-enable-clipboard text x-last-selected-text w16-set-clipboard-data] 2 (#$ . 5772)])
(defalias 'x-get-selection-value #[nil "\2055\303\304\305\306\217\210	\307\230\203\303	\204\303\2024	\n=\203%\303\2024	\n\230\2031	\303\2024	\211)\207" [x-select-enable-clipboard text x-last-selected-text nil c (byte-code "\301 \301\207" [text w16-get-clipboard-data] 1) ((error (message "w16-get-clipboard-data:%s" c))) ""] 3])
#@607 Whether the current Emacs process owns the given X Selection.
The arg should be the name of the selection in question, typically one of
the symbols `PRIMARY', `SECONDARY', or `CLIPBOARD'.
(Those are literal upper-case symbol names, since that's what X expects.)
For convenience, the symbol nil is the same as `PRIMARY',
and t is the same as `SECONDARY'.

TERMINAL should be a terminal object or a frame specifying the X
server to query.  If omitted or nil, that stands for the selected
frame's display, or the first available X display.

On Nextstep, TERMINAL is unused.

(fn &optional SELECTION TERMINAL)
(defalias 'x-selection-owner-p #[(&optional selection terminal) "\205%\303\211\304\305\217\210	\204\306\202$	\n=\204	\n\230\203#	\202$\303)\207" [x-select-enable-clipboard text x-last-selected-text nil (byte-code "\301 \301\207" [text w16-get-clipboard-data] 1) ((error)) t] 4 (#$ . 6708)])
#@531 Assert an X selection of the type SELECTION with and value VALUE.
SELECTION is a symbol, typically `PRIMARY', `SECONDARY', or `CLIPBOARD'.
(Those are literal upper-case symbol names, since that's what X expects.)
VALUE is typically a string, or a cons of two markers, but may be
anything that the functions on `selection-converter-alist' know about.

FRAME should be a frame that should own the selection.  If omitted or
nil, it defaults to the selected frame.

On Nextstep, FRAME is unused.

(fn SELECTION VALUE &optional FRAME)
(defalias 'x-own-selection-internal #[(selection value &optional frame) "\301\302\303\217\210\207" [value nil (x-select-text value) ((error))] 3 (#$ . 7623)])
#@558 If we own the selection SELECTION, disown it.
Disowning it means there is no such selection.

Sets the last-change time for the selection to TIME-OBJECT (by default
the time of the last event).

TERMINAL should be a terminal object or a frame specifying the X
server to query.  If omitted or nil, that stands for the selected
frame's display, or the first available X display.

On Nextstep, the TIME-OBJECT and TERMINAL arguments are unused.
On MS-DOS, all this does is return non-nil if we own the selection.

(fn SELECTION &optional TIME-OBJECT TERMINAL)
(defalias 'x-disown-selection-internal #[(selection &optional time-object terminal) "\301!\205\302\207" [selection x-selection-owner-p t] 2 (#$ . 8320)])
#@684 Return text selected from some X window.
SELECTION-SYMBOL is typically `PRIMARY', `SECONDARY', or `CLIPBOARD'.
(Those are literal upper-case symbol names, since that's what X expects.)
TARGET-TYPE is the type of data desired, typically `STRING'.

TIME-STAMP is the time to use in the XConvertSelection call for foreign
selections.  If omitted, defaults to the time for the last event.

TERMINAL should be a terminal object or a frame specifying the X
server to query.  If omitted or nil, that stands for the selected
frame's display, or the first available X display.

On Nextstep, TIME-STAMP and TERMINAL are unused.

(fn SELECTION-SYMBOL TARGET-TYPE &optional TIME-STAMP TERMINAL)
(defalias 'x-get-selection-internal #[(selection-symbol target-type &optional time-stamp terminal) "\300 \207" [x-get-selection-value] 1 (#$ . 9041)])
(byte-code "\300\301M\210\302\301M\210\303\301M\210\304\301M\210\305\301M\210\306\301M\207" [query-fontset ignore iconify-or-deiconify-frame set-default-font set-mouse-color set-cursor-color set-border-color] 2)
#@93 The last help message received via `show-help-function'.
This is used by `msdos-show-help'.
(defvar msdos-last-help-message nil (#$ . 10093))
#@62 The content of the echo area before help echo was displayed.
(defvar msdos-previous-message nil (#$ . 10241))
#@62 Function installed as `show-help-function' on MS-DOS frames.
(defalias 'msdos-show-help #[(help) "\306 ?\205P?\205P	;\203<\307\310\311	#\n\2040	\312 \230\2040;\203-\312 \230\2040\312 	\313\211\314\315	\"*\207\n;\203M\313\314\315\n\"\210\313\211)\207\314\313!\207" [cursor-in-echo-area help msdos-previous-message msdos-last-help-message message-log-max message-truncate-lines window-minibuffer-p replace-regexp-in-string "\n" ", " current-message nil message "%s"] 4 (#$ . 10357)])
#@128 Terminal initialization function for the MS-DOS "internal" terminal.
Errors out because it is not supposed to be called, ever.
(defalias 'terminal-init-internal #[nil "\300\301\302 \"\207" [error "terminal-init-internal called for window-system `%s'" window-system] 3 (#$ . 10864)])
#@55 Initialization function for the `pc' "window system".
(defalias 'msdos-initialize-window-system #[nil "\306 \307=\204
\310\311\306 \"\210\312!\210	\211@\313 \210\n\2037\314@\211A@)\211AA)#\210\nA\211@\202*\315 \210\316 \210\317 \210\320\321\322\323\"\210\324\325\326\"\210\327\330\331\332 \210\333\334!\207" [terminal-frame msdos-color-values colors color x show-help-function window-system pc error "`msdos-initialize-window-system' called, but window-system is `%s'" msdos-setup-keyboard tty-color-clear tty-color-define clear-face-cache msdos-face-setup msdos-setup-initial-frame msdos-show-help add-hook after-init-hook dos-codepage-setup standard-display-8bit 127 255 t x-select-text x-get-selection-value menu-bar-enable-clipboard run-hooks terminal-init-msdos-hook split-window-keep-point interprogram-cut-function interprogram-paste-function] 5 (#$ . 11153)])
(byte-code "\300\301\302\"\210\300\303\304\"\210\300\305\306\"\210\307\310!\207" [add-to-list frame-creation-function-alist (pc . msdos-create-frame-with-faces) window-system-initialization-alist (pc . msdos-initialize-window-system) handle-args-function-alist (pc . tty-handle-args) provide pc-win] 3)