;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:52:17 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/term/pc-win.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (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) #@71 A list of MS-DOS console colors, their indices and 16-bit RGB values. (defvar msdos-color-values '(("white" 15 65535 65535 65535) ("yellow" 14 65535 65535 0) ("lightmagenta" 13 65535 0 65535) ("lightred" 12 65535 0 0) ("lightcyan" 11 0 65535 65535) ("lightgreen" 10 0 65535 0) ("lightblue" 9 0 0 65535) ("darkgray" 8 26112 26112 26112) ("lightgray" 7 48640 48640 48640) ("brown" 6 40960 20992 11520) ("magenta" 5 35584 0 35584) ("red" 4 45568 8704 8704) ("cyan" 3 0 52736 53504) ("green" 2 8704 35584 8704) ("blue" 1 0 0 52480) ("black" 0 0 0 0)) (#$ . 648)) (byte-code "\301B\303\301!\204\f\304\305\n \"\210\306 \207" [current-load-list default-frame-alist terminal-frame boundp nil modify-frame-parameters tty-color-clear] 3) (defalias 'msdos-face-setup #[nil "\301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\312\313!\210\312\314!\210\312\315!\210\301\313\311#\210\301\314\316#\210\317\313\320#\210\317\314\320#\210\317\315\305#\207" [terminal-frame 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"] 4]) (add-hook 'before-init-hook 'msdos-face-setup) #@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 (#$ . 1899)]) (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]) (add-hook 'term-setup-hook 'msdos-setup-initial-frame) (defalias 'make-msdos-frame #[(&optional parameters) "\303!\304\305\216\306\n\307\n!\"\210\310\n!\210\311\n!\210\312)\n*\207" [parameters success frame make-terminal-frame nil ((byte-code "\204\302 !\210\302\207" [success frame delete-frame] 2)) msdos-handle-reverse-video frame-parameters frame-set-background-mode face-set-after-frame-default t] 4]) (byte-code "\301\301\207" [frame-creation-function make-msdos-frame] 1) (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) #@64 The display name specifying the MS-DOS display and frame type. (defvar x-display-name "pc" (#$ . 4338)) (byte-code "\301\301\207" [split-window-keep-point t] 1) #@60 The list of colors available on a PC display under MS-DOS. (defvar x-colors (mapcar 'car msdos-color-values) (#$ . 4506)) (byte-code "\301B\302\301!\204\f\303\303\207" [current-load-list x-last-selected-text boundp nil] 2) #@152 Non-nil means cutting and pasting uses the clipboard. This is the default on this system, since MS-Windows does not support other types of selections. (custom-declare-variable 'x-select-enable-clipboard 't '(#$ . 4740) :type 'boolean :group 'killing) (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]) (defalias 'x-frob-font-weight #[(font which) "\207" [font] 1]) #@244 Return a list of available font families on FRAME. If FRAME is omitted or nil, use the selected frame. Value is a list of conses (FAMILY . FIXED-P) where FAMILY is a font family, and FIXED-P is non-nil if fonts of that family are fixed-pitch. (defalias 'x-font-family-list #[nil "\300\207" [(("default" . t))] 1 (#$ . 5757)]) (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)