;ELC ;;; compiled by rms@churchy.gnu.ai.mit.edu on Thu Apr 20 22:08:00 1995 ;;; from file /gd/gnu/emacs/19.0/lisp/term/pc-win.el ;;; emacs version 19.28.90.4. ;;; 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"))) (error "`/gd/gnu/emacs/19.0/lisp/term/pc-win.el' was compiled for Emacs 19")) (load "term/internal" nil t) #@37 List of alternate names for colors. (defvar msdos-color-aliases (quote (("purple" . "magenta") ("firebrick" . "red") ("pink" . "lightred") ("royalblue" . "blue") ("cadetblue" . "blue") ("forestgreen" . "green") ("darkolivegreen" . "green") ("darkgoldenrod" . "brown") ("goldenrod" . "yellow") ("grey40" . "darkgray") ("rosybrown" . "brown"))) (#$ . 522)) (defalias 'msdos-color-translate #[(name) "—‰GÂÃ\"AÅ\f†™Â\"A‰ƒ&È!†™ ÉVƒIÊËO̘ƒIÈÉÅO!‰ƒIÍÎ\"†™ ÏVƒlÊÉOИƒlÈÏÅO!‰ƒlÍÎ\"†™ ËVƒ„ÊÑOÒ˜ƒ„ÈËÅO!†™ ÉV…™ÊËOÓ˜…™ÈÉÅO!+‡" [name len assoc (("black" . 0) ("blue" . 1) ("green" . 2) ("cyan" . 3) ("red" . 4) ("magenta" . 5) ("brown" . 6) ("lightgray" . 7) ("light gray" . 7) ("darkgray" . 8) ("dark gray" . 8) ("lightblue" . 9) ("lightgreen" . 10) ("lightcyan" . 11) ("lightred" . 12) ("lightmagenta" . 13) ("yellow" . 14) ("white" . 15)) val nil try msdos-color-aliases msdos-color-translate 5 0 4 "light" logior 8 6 "light " 3 "dark" "dark "] 5]) (byte-code "ÀÁ!„ÂÁ B‡" [boundp default-frame-alist nil current-load-list] 2) (defalias 'msdos-face-setup #[nil "ÀÁ \n\"ˆÃÄÅ\"ˆÃÆÇ\"ˆÃÈÉ\"ˆÃÊË\"ˆÌÍÎ\"ˆÏÐ!ˆÏÑ!ˆÏÒ!ˆÃÐÅ\"ˆÃÑÓ\"ˆÌÐË\"ˆÌÑË\"ˆÌÒÇ\"‡" [modify-frame-parameters selected-frame default-frame-alist set-face-foreground bold "white" italic "red" bold-italic "yellow" underline "blue" set-face-background region "green" make-face msdos-menu-active-face msdos-menu-passive-face msdos-menu-select-face "lightgray"] 3]) (add-hook (quote before-init-hook) (quote msdos-face-setup)) (defalias 'x-display-color-p #[nil "À‡" [t] 1]) (byte-code "ÀÁMˆÂÁM‡" [focus-frame ignore unfocus-frame] 2) (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 8] 2]) (defalias 'x-display-pixel-height #[(&optional frame) "À !Â_‡" [frame-height frame 8] 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 "ÀÁMˆÂÁMˆÃÅÀ‡" [x-display-save-under ignore x-get-resource "pc" x-display-name t split-window-keep-point] 2) #@2  (defalias 'x-get-selection #[(&rest rest) "À‡" [nil] 1 (#$ . 3299)]) (byte-code "ÀÁMˆÂÁMˆÃÁMˆÄÁMˆÅÁMˆÆÁMˆÇÁM‡" [x-set-selection ignore set-default-font set-mouse-color set-cursor-color set-border-color auto-raise-mode auto-lower-mode] 2) #@126 Set the background color of the selected frame to COLOR. When called interactively, prompt for the name of the color to use. (defalias 'set-background-color #[(color-name) "ÀÁ  BC\"‡" [modify-frame-parameters selected-frame background-color color-name] 4 (#$ . 3545) "sColor: "]) #@126 Set the foreground color of the selected frame to COLOR. When called interactively, prompt for the name of the color to use. (defalias 'set-foreground-color #[(color-name) "ÀÁ  BC\"‡" [modify-frame-parameters selected-frame foreground-color color-name] 4 (#$ . 3833) "sColor: "]) (defalias 'msdos-handle-args #[(args) "À\nƒR\n@\nA Ę„ Řƒ+\nƒNÆ\n@BB\nA‚N Ș„7 ɘƒJ\nƒNÊ\n@BB\nA‚N 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 require faces msdos-mouse-p menu-bar menu-bar-mode t] 2)