HOME

Mini Shell 1.0
Current File : //usr/share/emacs/26.1/lisp/term/pc-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!\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)) (#$ . 582))
(defvar default-frame-alist nil)
#@48 Initial setup of faces for the MS-DOS display.
(defalias 'msdos-face-setup #[0 "\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 (#$ . 1180)])
#@83 Handle the reverse-video frame parameter on MS-DOS frames.

(fn FRAME PARAMETERS)
(defalias 'msdos-handle-reverse-video #[514 "\301\236\206	\301\236A\205;\302!\303\236A\304\236A\305\236A\232\203)\306\305BC\"\210\307\236A\232\2059\306\307BC\"\266\203\207" [default-frame-alist reverse frame-parameters foreground-color background-color mouse-color modify-frame-parameters cursor-color] 9 (#$ . 1694)])
(defalias 'msdos-setup-initial-frame #[0 "\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])
#@331 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.

(fn &optional PARAMETERS)
(defalias 'msdos-create-frame-with-faces #[256 "\300!\301C\302\303\304\305\306\"\307\"\310$\216\311 p\302\303\312\305\306\"\313\"\314$\216\315\316\"\210\317\320!\"\210\321\322\"\204@\323\322\324#\210\325!\210\326!\210\324\240\210)\266)\207" [make-terminal-frame nil make-byte-code 0 "\301\242?\205	\302\300!\207" vconcat vector [delete-frame] 2 selected-frame "\302\300!\203\303\300\304\"\210\305\301!\205\301q\207" [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] 12 (#$ . 2449)])
#@970 Return a list of the names of available fonts matching PATTERN.
If optional arguments FACE and FRAME are specified, return only fonts
the same size as FACE on FRAME.

PATTERN should be a string containing a font name in the XLFD,
Fontconfig, or GTK format.  A font name given in the XLFD format may
contain wildcard characters:
  the * character matches any substring, and
  the ? character matches any single character.
  PATTERN is case-insensitive.

The return value is a list of strings, suitable as arguments to
`set-face-font'.

Fonts Emacs can't use may or may not be excluded
even if they match PATTERN and FACE.
The optional fourth argument MAXIMUM sets a limit on how many
fonts to match.  The first MAXIMUM fonts are reported.
The optional fifth argument WIDTH, if specified, is a number of columns
occupied by a character of a font.  In that case, return only fonts
the WIDTH times as wide as FACE on FRAME.

(fn PATTERN &optional FACE FRAME MAXIMUM WIDTH)
(defalias 'x-list-fonts #[1281 "\211\203\211\247\203\211\300U\203\301C\207\302C\207" [1 "ms-dos" "no-such-font"] 7 (#$ . 3481)])
#@453 Return the width in pixels of DISPLAY.
The optional argument DISPLAY specifies which display to ask about.
DISPLAY should be either a frame or a display name (a string).
If omitted or nil, that stands for the selected frame's display.

On "multi-monitor" setups this refers to the pixel width for all
physical monitors associated with DISPLAY.  To get information for
each physical monitor, use `display-monitor-attributes-list'.

(fn &optional FRAME)
(defalias 'x-display-pixel-width #[256 "\300!\207" [frame-width] 3 (#$ . 4592)])
#@455 Return the height in pixels of DISPLAY.
The optional argument DISPLAY specifies which display to ask about.
DISPLAY should be either a frame or a display name (a string).
If omitted or nil, that stands for the selected frame's display.

On "multi-monitor" setups this refers to the pixel height for all
physical monitors associated with DISPLAY.  To get information for
each physical monitor, use `display-monitor-attributes-list'.

(fn &optional FRAME)
(defalias 'x-display-pixel-height #[256 "\300!\207" [frame-height] 3 (#$ . 5133)])
#@262 Return the number of bitplanes of DISPLAY.
The optional argument DISPLAY specifies which display to ask about.
DISPLAY should be either a frame or a display name (a string).
If omitted or nil, that stands for the selected frame's display.

(fn &optional FRAME)
(defalias 'x-display-planes #[256 "\300\207" [4] 2 (#$ . 5678)])
#@264 Return the number of color cells of DISPLAY.
The optional argument DISPLAY specifies which display to ask about.
DISPLAY should be either a frame or a display name (a string).
If omitted or nil, that stands for the selected frame's display.

(fn &optional FRAME)
(defalias 'x-display-color-cells #[256 "\300\207" [16] 2 (#$ . 6011)])
#@277 Return the maximum request size of the server of DISPLAY.
The optional argument DISPLAY specifies which display to ask about.
DISPLAY should be either a frame or a display name (a string).
If omitted or nil, that stands for the selected frame's display.

(fn &optional FRAME)
(defalias 'x-server-max-request-size #[256 "\300\207" [1000000] 2 (#$ . 6352)])
#@547 Return the "vendor ID" string of the GUI software on TERMINAL.

(Labeling every distributor as a "vendor" embodies the false assumption
that operating systems cannot be developed and distributed noncommercially.)

For GNU and Unix systems, this queries the X server software; for
MS-Windows, this queries the OS.

The optional argument TERMINAL specifies which display to ask about.
TERMINAL should be a terminal object, a frame or a display name (a string).
If omitted or nil, that stands for the selected frame's display.

(fn &optional FRAME)
(defalias 'x-server-vendor #[256 "\300\207" ["GNU"] 2 (#$ . 6715)])
#@667 Return the version numbers of the GUI software on TERMINAL.
The value is a list of three integers specifying the version of the GUI
software in use.

For GNU and Unix system, the first 2 numbers are the version of the X
Protocol used on TERMINAL and the 3rd number is the distributor-specific
release number.  For MS-Windows, the 3 numbers report the version and
the build number of the OS.

See also the function `x-server-vendor'.

The optional argument TERMINAL specifies which display to ask about.
TERMINAL should be a terminal object, a frame or a display name (a string).
If omitted or nil, that stands for the selected frame's display.

(fn &optional FRAME)
(defalias 'x-server-version #[256 "\300\207" [(1 0 0)] 2 (#$ . 7336)])
#@274 Return the number of screens on the server of DISPLAY.
The optional argument DISPLAY specifies which display to ask about.
DISPLAY should be either a frame or a display name (a string).
If omitted or nil, that stands for the selected frame's display.

(fn &optional FRAME)
(defalias 'x-display-screens #[256 "\300\207" [1] 2 (#$ . 8080)])
#@469 Return the height in millimeters of DISPLAY.
The optional argument DISPLAY specifies which display to ask about.
DISPLAY should be either a frame or a display name (a string).
If omitted or nil, that stands for the selected frame's display.

On "multi-monitor" setups this refers to the height in millimeters for
all physical monitors associated with DISPLAY.  To get information
for each physical monitor, use `display-monitor-attributes-list'.

(fn &optional FRAME)
(defalias 'x-display-mm-height #[256 "\300\207" [245] 2 (#$ . 8426)])
#@468 Return the width in millimeters of DISPLAY.
The optional argument DISPLAY specifies which display to ask about.
DISPLAY should be either a frame or a display name (a string).
If omitted or nil, that stands for the selected frame's display.

On "multi-monitor" setups this refers to the width in millimeters for
all physical monitors associated with TERMINAL.  To get information
for each physical monitor, use `display-monitor-attributes-list'.

(fn &optional FRAME)
(defalias 'x-display-mm-width #[256 "\300\207" [322] 2 (#$ . 8971)])
#@338 Return an indication of whether DISPLAY does backing store.
The value may be `always', `when-mapped', or `not-useful'.
The optional argument DISPLAY specifies which display to ask about.
DISPLAY should be either a frame or a display name (a string).
If omitted or nil, that stands for the selected frame's display.

(fn &optional FRAME)
(defalias 'x-display-backing-store #[256 "\300\207" [not-useful] 2 (#$ . 9514)])
#@382 Return the visual class of DISPLAY.
The value is one of the symbols `static-gray', `gray-scale',
`static-color', `pseudo-color', `true-color', or `direct-color'.

The optional argument DISPLAY specifies which display to ask about.
DISPLAY should be either a frame or a display name (a string).
If omitted or nil, that stands for the selected frame's display.

(fn &optional FRAME)
(defalias 'x-display-visual-class #[256 "\300\207" [static-color] 2 (#$ . 9939)])
(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" (#$ . 10497))
#@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) (#$ . 10697))
(byte-code "\300\301\302\303\302\304%\210\300\305\302\306\302\307%\210\300\310\302\311\302\312%\207" [cl-generic-define-method gui-backend-get-selection nil (_selection-symbol _target-type &context (window-system pc)) #[514 "\3001\301 0\207\302\303\"\210\304\207" [(debug error) w16-get-clipboard-data message "w16-get-clipboard-data:%s" nil] 6 "Return the value of the current selection.\nConsult the selection.  Treat empty strings as if they were unset.\n\n(fn SELECTION-SYMBOL TARGET-TYPE)"] gui-backend-selection-exists-p (selection &context (window-system pc)) #[257 "\300!\207" [w16-selection-exists-p] 3 "\n\n(fn SELECTION)"] gui-backend-selection-owner-p (selection &context (window-system pc)) #[257 "\300!\207" [w16-selection-owner-p] 3 "\n\n(fn SELECTION)"]] 6)
#@18 

(fn SELECTION)
(defalias 'w16-selection-owner-p #[257 "\205+\3021\303 0\202\304\305\"\210\306\262\211\204\307\202)\211	\232\203(\211\202)\306\262\207" [select-enable-clipboard gui--last-selected-text-clipboard (debug error) w16-get-clipboard-data message "w16-get-clipboard-data: %S" nil t] 5 (#$ . 11745)])
(byte-code "\300\301\302\303\302\304%\210\305\306M\210\307\306M\210\310\306M\210\311\306M\210\312\306M\210\313\306M\207" [cl-generic-define-method gui-backend-set-selection nil (selection value &context (window-system pc)) #[514 "\211\204\f\300!\205\301\207\3021\303!0\202\304\305\"\262\210\211\207" [w16-selection-owner-p t (debug error) w16-set-clipboard-data message "w16-set-clipboard-data: %S"] 6 "\n\n(fn SELECTION VALUE)"] query-fontset ignore iconify-or-deiconify-frame set-frame-font set-mouse-color set-cursor-color set-border-color] 6)
#@93 The last help message received via `show-help-function'.
This is used by `msdos-show-help'.
(defvar msdos-last-help-message nil (#$ . 12633))
#@62 The content of the echo area before help echo was displayed.
(defvar msdos-previous-message nil (#$ . 12781))
#@73 Function installed as `show-help-function' on MS-DOS frames.

(fn HELP)
(defalias 'msdos-show-help #[257 "\305 ?\205Q?\205Q\211;\203=\306\307\310#\262	\2041\211\311 \230\2041\n;\203.\n\311 \230\2041\311 \211\312\211\313\314\"*\207	;\203N\312\313\314	\"\210\312\211)\207\313\312!\207" [cursor-in-echo-area 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"] 5 (#$ . 12897)])
#@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 #[0 "\300\301\302 \"\207" [error "terminal-init-internal called for window-system `%s'" window-system] 3 (#$ . 13419)])
(byte-code "\300\301\302\303\302\304%\210\300\305\302\306\302\307%\210\300\310\302\311\302\312%\210\313\314!\210\313\315!\207" [cl-generic-define-method window-system-initialization nil (&context (window-system pc) &optional _display) #[256 "\304 \305=\204
\306\307\304 \"\210\310!\210	\211@\311 \210\2031\312@A@AA#\210A\262@\262\202\266\313 \210\314 \210\315 \210\316\317\320\321\"\210\322\323\324\"\210\325\326 \210\327\330!\207" [terminal-frame msdos-color-values show-help-function split-window-keep-point 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 menu-bar-enable-clipboard run-hooks terminal-init-msdos-hook] 7 "Initialization function for the `pc' \"window system\".\n\n(fn &optional DISPLAY)"] frame-creation-function (params &context (window-system pc)) #[257 "\300!\207" [msdos-create-frame-with-faces] 3 "\n\n(fn PARAMS)"] handle-args-function (args &context (window-system pc)) #[257 "\300!\207" [tty-handle-args] 3 "\n\n(fn ARGS)"] provide pc-win term/pc-win] 6)