Gecko [ goons4good.org ]

Name	Size	Permission	Date
AT386.elc	1.12 KB	-rw-r--r--	2023-06-07 04:14
README	10.8 KB	-rw-r--r--	2013-01-01 15:37
apollo.elc	728 B	-rw-r--r--	2023-06-07 04:14
bobcat.elc	715 B	-rw-r--r--	2023-06-07 04:14
common-win.elc	16.28 KB	-rw-r--r--	2023-06-07 04:19
cygwin.elc	680 B	-rw-r--r--	2023-06-07 04:14
internal.elc	18.45 KB	-rw-r--r--	2023-06-07 04:19
iris-ansi.elc	7.58 KB	-rw-r--r--	2023-06-07 04:14
linux.elc	934 B	-rw-r--r--	2023-06-07 04:14
lk201.elc	2.44 KB	-rw-r--r--	2023-06-07 04:14
news.elc	1.34 KB	-rw-r--r--	2023-06-07 04:14
ns-win.elc	23.56 KB	-rw-r--r--	2023-06-07 04:19
pc-win.elc	12.05 KB	-rw-r--r--	2023-06-07 04:19
rxvt.elc	7.23 KB	-rw-r--r--	2023-06-07 04:14
screen.elc	753 B	-rw-r--r--	2023-06-07 04:14
sun.elc	3.77 KB	-rw-r--r--	2023-06-07 04:14
sup-mouse.elc	4.1 KB	-rw-r--r--	2023-06-07 04:14
tty-colors.elc	28.99 KB	-rw-r--r--	2023-06-07 04:19
tvi970.elc	3.05 KB	-rw-r--r--	2023-06-07 04:14
vt100.elc	2.18 KB	-rw-r--r--	2023-06-07 04:14
vt102.elc	725 B	-rw-r--r--	2023-06-07 04:14
vt125.elc	725 B	-rw-r--r--	2023-06-07 04:14
vt200.elc	837 B	-rw-r--r--	2023-06-07 04:14
vt201.elc	837 B	-rw-r--r--	2023-06-07 04:14
vt220.elc	837 B	-rw-r--r--	2023-06-07 04:14
vt240.elc	837 B	-rw-r--r--	2023-06-07 04:14
vt300.elc	837 B	-rw-r--r--	2023-06-07 04:14
vt320.elc	837 B	-rw-r--r--	2023-06-07 04:14
vt400.elc	837 B	-rw-r--r--	2023-06-07 04:14
vt420.elc	837 B	-rw-r--r--	2023-06-07 04:14
w32-win.elc	6.51 KB	-rw-r--r--	2023-06-07 04:19
w32console.elc	2.12 KB	-rw-r--r--	2023-06-07 04:14
wyse50.elc	2.28 KB	-rw-r--r--	2023-06-07 04:14
x-win.elc	28.65 KB	-rw-r--r--	2023-06-07 04:19
xterm.elc	21.53 KB	-rw-r--r--	2023-06-07 04:14

Rename

;ELC���
;;; Compiled by mockbuild@buildfarm06.corp.cloudlinux.com on Wed Jun  7 08:19:04 2023
;;; 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)) (#$ . 722))
(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 (#$ . 1320)])
#@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 (#$ . 1836)])
(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 (#$ . 2616)])
(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" (#$ . 4810))
#@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) (#$ . 5009))
(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 '(#$ . 5312) :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 (#$ . 5768)])
(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 (#$ . 6704)])
#@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 (#$ . 7619)])
#@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 (#$ . 8316)])
#@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 (#$ . 9037)])
(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 (#$ . 10089))
#@62 The content of the echo area before help echo was displayed.
(defvar msdos-previous-message nil (#$ . 10237))
#@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 (#$ . 10353)])
#@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 (#$ . 10860)])
#@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 (#$ . 11149)])
(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)