;ELC ;;; Compiled by rms@psilocin.gnu.org on Thu Apr 23 22:01:41 1998 ;;; from file /gd/gnu/emacs/lisp/term/pc-win.el ;;; in Emacs version 20.2.91.5 ;;; with bytecomp version 2.40 ;;; with all optimizations. ;;; This file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`pc-win.el' was compiled for Emacs 19.29 or later")) (load "term/internal" nil t) #@37 List of alternate names for colors. (defvar msdos-color-aliases '(("snow" . "white") ("ghost white" . "white") ("ghostwhite" . "white") ("white smoke" . "white") ("whitesmoke" . "white") ("gainsboro" . "white") ("floral white" . "white") ("floralwhite" . "white") ("old lace" . "white") ("oldlace" . "white") ("linen" . "white") ("antique white" . "white") ("antiquewhite" . "white") ("papaya whip" . "white") ("papayawhip" . "white") ("blanched almond" . "white") ("blanchedalmond" . "white") ("bisque" . "white") ("peach puff" . "lightred") ("peachpuff" . "lightred") ("navajo white" . "lightred") ("navajowhite" . "lightred") ("moccasin" . "lightred") ("cornsilk" . "white") ("ivory" . "white") ("lemon chiffon" . "yellow") ("lemonchiffon" . "yellow") ("seashell" . "white") ("honeydew" . "white") ("mint cream" . "white") ("mintcream" . "white") ("azure" . "lightcyan") ("alice blue" . "lightcyan") ("aliceblue" . "lightcyan") ("lavender" . "lightcyan") ("lavender blush" . "lightcyan") ("lavenderblush" . "lightcyan") ("misty rose" . "lightred") ("mistyrose" . "lightred") ("aquamarine" . "blue") ("cadet blue" . "blue") ("cadetblue" . "blue") ("cornflower blue" . "lightblue") ("cornflowerblue" . "lightblue") ("midnight blue" . "blue") ("midnightblue" . "blue") ("navy blue" . "cyan") ("navyblue" . "cyan") ("navy" . "cyan") ("royalblue" . "blue") ("royal blue" . "blue") ("sky blue" . "lightblue") ("skyblue" . "lightblue") ("dodger blue" . "blue") ("dodgerblue" . "blue") ("powder blue" . "lightblue") ("powderblue" . "lightblue") ("slate blue" . "cyan") ("slateblue" . "cyan") ("steel blue" . "blue") ("steelblue" . "blue") ("coral" . "lightred") ("tomato" . "lightred") ("firebrick" . "red") ("gold" . "yellow") ("goldenrod" . "yellow") ("goldenrod yellow" . "yellow") ("goldenrodyellow" . "yellow") ("pale goldenrod" . "yellow") ("palegoldenrod" . "yellow") ("olive green" . "lightgreen") ("olivegreen" . "lightgreen") ("olive drab" . "green") ("olivedrab" . "green") ("forest green" . "green") ("forestgreen" . "green") ("lime green" . "lightgreen") ("limegreen" . "lightgreen") ("sea green" . "lightcyan") ("seagreen" . "lightcyan") ("spring green" . "green") ("springgreen" . "green") ("lawn green" . "lightgreen") ("lawngreen" . "lightgreen") ("chartreuse" . "yellow") ("yellow green" . "lightgreen") ("yellowgreen" . "lightgreen") ("green yellow" . "lightgreen") ("greenyellow" . "lightgreen") ("slate grey" . "lightgray") ("slategrey" . "lightgray") ("slate gray" . "lightgray") ("slategray" . "lightgray") ("dim grey" . "darkgray") ("dimgrey" . "darkgray") ("dim gray" . "darkgray") ("dimgray" . "darkgray") ("light grey" . "lightgray") ("lightgrey" . "lightgray") ("light gray" . "lightgray") ("gray" . "darkgray") ("grey" . "darkgray") ("khaki" . "green") ("maroon" . "red") ("orange" . "brown") ("orchid" . "brown") ("saddle brown" . "red") ("saddlebrown" . "red") ("peru" . "red") ("burlywood" . "brown") ("sandy brown" . "brown") ("sandybrown" . "brown") ("pink" . "lightred") ("hotpink" . "lightred") ("hot pink" . "lightred") ("plum" . "magenta") ("indian red" . "red") ("indianred" . "red") ("violet red" . "magenta") ("violetred" . "magenta") ("orange red" . "red") ("orangered" . "red") ("salmon" . "lightred") ("sienna" . "lightred") ("tan" . "lightred") ("chocolate" . "brown") ("thistle" . "magenta") ("turquoise" . "lightgreen") ("pale turquoise" . "cyan") ("paleturquoise" . "cyan") ("violet" . "magenta") ("blue violet" . "lightmagenta") ("blueviolet" . "lightmagenta") ("wheat" . "white") ("green yellow" . "yellow") ("greenyellow" . "yellow") ("purple" . "magenta") ("rosybrown" . "brown") ("rosy brown" . "brown") ("beige" . "brown")) (#$ . 561)) (defalias 'msdos-color-translate #[(name) "\227\211G\nG\n\235GZ\306 \307W\204 \nGY\203\306 \206\220\310 \"A\211\2033\311\f!\206\220 \312V\203T\307\312O\313\230\203T\311\312\306O!\211\203T\314\f\315\"\206\220 \316V\203u\307\316O\317\230\203u\311\316\306O!\211\203u\314\f\315\"\206\220 \320V\203\226\307\320O\321\230\203\226\311\320\306O!\211\203\226\314\f\315\"\206\220 \312V\203\267\307\312O\322\230\203\267\311\312\306O!\211\203\267\314\f\315\"\206\220 \316V\203\317\307\316O\323\230\203\317\311\316\306O!\206\220 \324V\203\347\307\324O\325\230\203\347\311\324\306O!\206\220 \320V\203\307\320O\326\230\204\377\307\320O\327\230\203\311\320\306O!\206\220 \312V\203)\307\312O\330\230\204 \307\312O\331\230\203)\311\312\306O!\206\220 \320V\203u\332 *\333\216\334\335\"\205q\334\336\"\205q\337\307\224\306O!+\311+\340V\203X\341\202o+\342V\203c\343\202o+\344V\203n\345\202o\346!)*\206\220 \347V\205\220\332 *\350\216\334\351\"\205\217\311\307\211\224O!*+\207" [name len x-colors val try msdos-color-aliases nil 0 assoc msdos-color-translate 5 "light" logior 8 6 "light " 4 "pale" "pale " "medium" 7 "medium " "dark" "deep" "dark " "deep " match-data ((set-match-data save-match-data-internal)) string-match "gr[ae]y[0-9]" "[0-9]+\\'" string-to-int 90 "white" 50 "lightgray" 10 "darkgray" "black" 1 ((set-match-data save-match-data-internal)) "[1-4]\\'" save-match-data-internal num] 5]) (byte-code "\303\300!\204\304\300 B\305\n\"\207" [default-frame-alist current-load-list terminal-frame boundp nil modify-frame-parameters] 3) (defalias 'msdos-bg-mode #[(&optional frame) "\206\303 \304!\305 \236A\211\306\235\203\307\202\310+\207" [frame params bg selected-frame frame-parameters background-color ("black" "blue" "darkgray" "green") dark light] 3]) (defalias 'msdos-face-setup #[nil "\302 \"\210\302\303\304!B\305\306BD\"\210\307!\210\310\311\312#\210\310\313\314#\210\310\315\316#\210\310\317\320#\210\321\322!\210\321\323!\210\321\324!\210\310\322\320#\210\310\323\325#\210\326\322\327#\210\326\323\327#\210\326\324\314#\207" [terminal-frame default-frame-alist modify-frame-parameters background-mode msdos-bg-mode display-type color face-set-after-frame-default 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"] 5]) (add-hook 'before-init-hook 'msdos-face-setup) (defalias 'make-msdos-frame #[(&optional parameters) "\305 \n\306$\307 !\310\f\311\312\f!B\313\314BD\"\210\f*\207" [initial-frame-alist default-frame-alist parameters parms frame append nil make-terminal-frame modify-frame-parameters background-mode msdos-bg-mode display-type color] 5]) (byte-code "\301\301\207" [frame-creation-function make-msdos-frame] 1) (defalias 'x-display-color-p #[(&optional display) "\300\207" [t] 1]) (defalias 'x-list-fonts #[(pattern &optional face frame maximum width) "\247\203\301U\203\302C\207\303C\207" [width 1 "default" "no-such-font"] 2]) (defalias 'x-color-defined-p #[(color) "\301!\247\207" [color msdos-color-translate] 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" [200] 1]) (defalias 'x-display-mm-width #[(&optional frame) "\300\207" [253] 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 "\302\303M\210\304\303M\210\305\306\302\207" [x-display-name split-window-keep-point x-display-save-under ignore x-get-resource "pc" t] 2) #@60 The list of colors available on a PC display under MS-DOS. (defvar x-colors '("black" "blue" "green" "cyan" "red" "magenta" "brown" "lightgray" "darkgray" "lightblue" "lightgreen" "lightcyan" "lightred" "lightmagenta" "yellow" "white") (#$ . 8552)) #@171 Return a list of colors supported for a particular frame. The argument FRAME specifies which frame to try. The value may be different for frames on different X displays. (defalias 'x-defined-colors #[(&optional frame) "\207" [x-colors] 1 (#$ . 8808)]) (byte-code "\302\300!\204\303\300 B\303\207" [x-last-selected-text current-load-list boundp nil] 2) #@101 Non-nil means cutting and pasting uses the clipboard. This is in addition to the primary selection. (defvar x-select-enable-clipboard t (#$ . 9172)) (defalias 'x-select-text #[(text &optional push) "\203\303 !\210 \211\207" [x-select-enable-clipboard text x-last-selected-text w16-set-clipboard-data] 2]) (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]) (byte-code "\302\303\302\207" [interprogram-cut-function interprogram-paste-function x-select-text x-get-selection-value] 1) (defalias 'x-frob-font-slant #[(font which) "\207" [font] 1]) (byte-code "\302\303M\210\304\303M\210\305\303M\210\306\303M\210\307\303M\210\310\303M\210\311\300 B\302\207" [x-long-option-alist current-load-list query-fontset ignore iconify-or-deiconify-frame set-default-font set-mouse-color set-cursor-color set-border-color (("--name" . "-name") ("--title" . "-T") ("--reverse-video" . "-reverse") ("--foreground-color" . "-fg") ("--background-color" . "-bg"))] 2) (defalias 'msdos-handle-args #[(args) "\306\307\310 \"\210 \203 @\211\306\306 A\311\312\n\"\203+\n\313\225\306O\n\313\211\225SO\314\n!\"\211\315=\203A\316\n!\"A\202b\f;\203^\316\f!\"\211\"\204V\317\320\n\"\210\"A)\202b\306 \n\321\230\204n\n\322\230\203\203 \204x @ A\323 B#B#\202\n\n\324\230\204\217\n\325\230\203\244 \204\231 @ A\326 B#B#\202\n\n\327\230\204\260\n\330\230\203\353 \204\272 @ A\331 ;\203\304 \202\342\315\306$%\332 \311\333 \"\211$\203\340 $\334I\210\202\315 *B#B#\202\n\n\335\230\204\375\n\336\230\204\375\n\337\230\203\340#B#\202\n\nB,\202\237)\207" [rest args this orig-this completion argval nil message "%s" string-match "^--[^=]*=" 0 try-completion t assoc error "Option `%s' is ambiguous" "-fg" "-foreground" foreground-color "-bg" "-background" background-color "-T" "-name" title invocation-name "[.*]" 45 "-r" "-rv" "-reverse" (reverse . t) x-long-option-alist elt default-frame-alist i case-fold-search] 5]) (byte-code "\301!\301\207" [command-line-args msdos-handle-args] 2)