;ELC ;;; compiled by rms@psilocin.gnu.ai.mit.edu on Mon Jun 10 17:39:14 1996 ;;; from file /home/fsf/rms/e19/lisp/term/pc-win.el ;;; emacs version 19.31.2. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (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 (quote (("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") ("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") ("firebrick" . "red") ("gold" . "yellow") ("goldenrod" . "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") ("pale green" . "lightgreen") ("palegreen" . "lightgreen") ("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") ("gray80" . "darkgray") ("gray50" . "black") ("gray90" . "darkgray") ("khaki" . "green") ("maroon" . "red") ("orange" . "brown") ("orchid" . "brown") ("saddle brown" . "red") ("saddlebrown" . "red") ("sienna" . "red") ("peru" . "red") ("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") ("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") ("royalblue" . "blue") ("grey40" . "darkgray") ("rosybrown" . "brown") ("rosy brown" . "brown") ("beige" . "brown"))) (#$ . 505)) (defalias 'msdos-color-translate #[(name) "G\nG\nGZ W \nGY \"A4 ! VUO˘UO!U \" VvOϘvO!v \" VOИO! VOҘO! VOԘO! VO՘O!+" [name len x-colors val nil try 0 assoc msdos-color-aliases msdos-color-translate 5 "light" logior 8 6 "light " "medium" 7 "medium " 4 "dark" "dark "] 5]) (byte-code "! B \"" [boundp default-frame-alist nil current-load-list modify-frame-parameters terminal-frame] 3) (defalias 'msdos-face-setup #[nil " \n\" # # # # #!!! # # # # #" [modify-frame-parameters terminal-frame default-frame-alist set-face-foreground bold "yellow" italic "red" bold-italic "lightred" underline "white" set-face-background region "green" make-face msdos-menu-active-face msdos-menu-passive-face msdos-menu-select-face "lightgray" "blue"] 4]) (add-hook (quote before-init-hook) (quote msdos-face-setup)) (defalias 'make-msdos-frame #[(&optional parameters) " \n $ !)" [append initial-frame-alist default-frame-alist parameters nil parms make-terminal-frame] 5]) (byte-code "" [make-msdos-frame frame-creation-function] 1) (defalias 'x-display-color-p #[(&optional display) "" [t] 1]) (defalias 'x-list-fonts #[(pattern &optional face frame) "C" ["default"] 1]) (defalias 'x-color-defined-p #[(color) " !" [msdos-color-translate color] 2]) (defalias 'x-display-pixel-width #[(&optional frame) " !" [frame-width frame] 2]) (defalias 'x-display-pixel-height #[(&optional frame) " !" [frame-height frame] 2]) (defalias 'x-display-planes #[(&optional frame) "" [4] 1]) (defalias 'x-display-color-cells #[(&optional frame) "" [16] 1]) (defalias 'x-server-max-request-size #[(&optional frame) "" [1000000] 1]) (defalias 'x-server-vendor #[(&optional frame) "" ["GNU"] 1]) (defalias 'x-server-version #[(&optional frame) "" [(1 0 0)] 1]) (defalias 'x-display-screens #[(&optional frame) "" [1] 1]) (defalias 'x-display-mm-height #[(&optional frame) "" [200] 1]) (defalias 'x-display-mm-width #[(&optional frame) "" [253] 1]) (defalias 'x-display-backing-store #[(&optional frame) "" [not-useful] 1]) (defalias 'x-display-visual-class #[(&optional frame) "" [static-color] 1]) (byte-code "MM" [x-display-save-under ignore x-get-resource "pc" x-display-name t split-window-keep-point] 2) #@60 The list of colors available on a PC display under MS-DOS. (defvar x-colors (quote ("black" "blue" "green" "cyan" "red" "magenta" "brown" "lightgray" "darkgray" "lightblue" "lightgreen" "lightcyan" "lightred" "lightmagenta" "yellow" "white")) (#$ . 6547)) #@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) "" [x-colors] 1 (#$ . 6810)]) #@2  (defalias 'x-get-selection #[(&rest rest) "" [nil] 1 (#$ . 7065)]) (fset (quote x-set-selection) (quote ignore)) (defalias 'x-frob-font-slant #[(font which) "" [font] 1]) (byte-code "MMMM" [set-default-font ignore set-mouse-color set-cursor-color set-border-color] 2) (defalias 'msdos-handle-args #[(args) "\nR\n@\nA Ę Ř+\nN\n@BB\nAN Ș7 ɘJ\nN\n@BB\nAN B) )" [nil rest args this "-fg" "-foreground" foreground-color default-frame-alist "-bg" "-background" background-color] 2]) (byte-code " !" [msdos-handle-args command-line-args] 2)