;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:52:20 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/term/w32-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 "`w32-win.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\301=\204\f\302\303\304 \"\210\305\306!\210\305\307!\210\305\310!\210\305\311!\210\305\312!\210\305\313!\210\314\315!\203.\305\316!\210\301\207" [window-system w32 error "%s: Loading w32-win.el but not compiled for w32" invocation-name require frame mouse scroll-bar faces select menu-bar fboundp new-fontset fontset] 3) #@66 Handle W32 scroll bar EVENT to do normal Window style scrolling. (defalias 'w32-handle-scroll-bar-event #[(event) "\306 \307\216 \310 8)\211@\311\n8\312\n8\212\313 !\210 \314=\203-\315 !b\210\316\310!\202] \317=\2038\316 \202] \320=\203D\321 !\202] \322=\203O\323 \202] \324=\205]\315 !b\210\323\310!.\207" [old-window event position window portion-whole bar-part selected-window ((select-window old-window)) 1 2 4 select-window up window-start scroll-down above-handle handle scroll-bar-maybe-set-window-start below-handle scroll-up down] 3 (#$ . 957) "e"]) (global-set-key [vertical-scroll-bar mouse-1] 'w32-handle-scroll-bar-event) #@58 *Number of lines to scroll per click of the mouse wheel. (defvar mouse-wheel-scroll-amount 4 (#$ . -1614)) #@75 Scroll the window in which EVENT occurred by `mouse-wheel-scroll-amount'. (defalias 'mouse-wheel-scroll-line #[(event) "\300\301\302\217\207" [nil (byte-code "AA@\302W\203 \303 !\207\304 !\207" [event mouse-wheel-scroll-amount 0 scroll-up scroll-down] 2) ((error))] 3 (#$ . 1727) "e"]) (byte-code "\301C\302\207" [scroll-command-groups (mouse-wheel-scroll-line) nil] 1) #@75 Scroll the window in which EVENT occurred by `mouse-wheel-scroll-amount'. (defalias 'mouse-wheel-scroll-screen #[(event) "\300\301\302\217\207" [nil (byte-code "AA@\301W\203\f\302 \207\303 \207" [event 0 scroll-up scroll-down] 2) ((error))] 3 (#$ . 2106) "e"]) (byte-code "\300\301\302\"\210\300\303\304\"\207" [global-set-key [mouse-wheel] mouse-wheel-scroll-line [C-mouse-wheel] mouse-wheel-scroll-screen] 3) #@49 Print the drag-n-drop EVENT in a readable form. (defalias 'w32-drag-n-drop-debug #[(event) "\301!\207" [event princ] 2 (#$ . 2525) "e"]) #@99 Edit the files listed in the drag-n-drop EVENT. Switch to a buffer editing the last file dropped. (defalias 'w32-drag-n-drop #[(event) "\212\3068)\307 8)\3068)\310 8)\211@ A\f\307V\2030 \307V\2030\311\312\n\"\210\313\314AA@\"\210,\315 )\207" [event position window coords x y 1 0 2 set-frame-selected-window nil mapcar find-file raise-frame] 4 (#$ . 2669) "e"]) #@167 Edit the files listed in the drag-n-drop EVENT, in other frames. May create new frames, or reuse existing ones. The frame editing the last file dropped is selected. (defalias 'w32-drag-n-drop-other-frame #[(event) "\301\302AA@\"\207" [event mapcar find-file-other-frame] 3 (#$ . 3053) "e"]) (byte-code "\305\306\307\"\210\305\310\311\"\210\305\312\313\"\210\314B\301B\315\301!\204\316\302B\317\303B\320\304B\321\316\207" [current-load-list x-command-line-resources x-option-alist x-long-option-alist x-switch-definitions global-set-key [drag-n-drop] w32-drag-n-drop [C-drag-n-drop] w32-drag-n-drop-other-frame [language-change] ignore x-invocation-args boundp nil (("-bw" . x-handle-numeric-switch) ("-d" . x-handle-display) ("-display" . x-handle-display) ("-name" . x-handle-name-rn-switch) ("-rn" . x-handle-name-rn-switch) ("-T" . x-handle-switch) ("-r" . x-handle-switch) ("-rv" . x-handle-switch) ("-reverse" . x-handle-switch) ("-fn" . x-handle-switch) ("-font" . x-handle-switch) ("-ib" . x-handle-numeric-switch) ("-g" . x-handle-geometry) ("-geometry" . x-handle-geometry) ("-fg" . x-handle-switch) ("-foreground" . x-handle-switch) ("-bg" . x-handle-switch) ("-background" . x-handle-switch) ("-ms" . x-handle-switch) ("-itype" . x-handle-switch) ("-i" . x-handle-switch) ("-iconic" . x-handle-iconic) ("-xrm" . x-handle-xrm-switch) ("-cr" . x-handle-switch) ("-vb" . x-handle-switch) ("-hb" . x-handle-switch) ("-bd" . x-handle-switch)) (("--border-width" . "-bw") ("--display" . "-d") ("--name" . "-name") ("--title" . "-T") ("--reverse-video" . "-reverse") ("--font" . "-font") ("--internal-border" . "-ib") ("--geometry" . "-geometry") ("--foreground-color" . "-fg") ("--background-color" . "-bg") ("--mouse-color" . "-ms") ("--icon-type" . "-itype") ("--iconic" . "-iconic") ("--xrm" . "-xrm") ("--cursor-color" . "-cr") ("--vertical-scroll-bars" . "-vb") ("--border-color" . "-bd")) (("-name" name) ("-T" name) ("-r" reverse t) ("-rv" reverse t) ("-reverse" reverse t) ("-fn" font) ("-font" font) ("-ib" internal-border-width) ("-fg" foreground-color) ("-foreground" foreground-color) ("-bg" background-color) ("-background" background-color) ("-ms" mouse-color) ("-cr" cursor-color) ("-itype" icon-type t) ("-i" icon-type t) ("-vb" vertical-scroll-bars t) ("-hb" horizontal-scroll-bars t) ("-bd" border-color) ("-bw" border-width))] 3) #@57 Handle SWITCH of the form "-switch value" or "-switch". (defalias 'x-handle-switch #[(switch) "\305 \"\211\205*\306\n8\203\nA@\306\n8B B\211\202*\nA@\f@B B\fA\211)\207" [switch x-switch-definitions aelt default-frame-alist x-invocation-args assoc 2] 4 (#$ . 5431)]) #@56 Make "-iconic" SWITCH apply only to the initial frame. (defalias 'x-handle-iconic #[(switch) "\301B\211\207" [initial-frame-alist (visibility . icon)] 2 (#$ . 5712)]) #@40 Handle SWITCH of the form "-switch n". (defalias 'x-handle-numeric-switch #[(switch) "\305 \"\211\205\nA@\306 @!B\fB A\211)\207" [switch x-switch-definitions aelt x-invocation-args default-frame-alist assoc string-to-int] 4 (#$ . 5887)]) #@27 Handle the "-xrm" SWITCH. (defalias 'x-handle-xrm-switch #[(switch) ":\204\f\303\304\305 #\210@A\211\207" [x-invocation-args switch x-command-line-resources error "%s: missing argument to `%s' option" invocation-name] 4 (#$ . 6137)]) #@32 Handle the "-geometry" SWITCH. (defalias 'x-handle-geometry #[(switch) "\303@!\304\n\305 \236\204\306 \236\205\307\310 \236\204 \311 \236\205!\312 $A\211)\207" [x-invocation-args geo initial-frame-alist x-parse-geometry append left top ((user-position . t)) height width ((user-size . t))] 5 (#$ . 6384)]) #@35 Handle a "-name" or "-rn" SWITCH. (defalias 'x-handle-name-rn-switch #[(switch) ":\204\f\304\305\306 #\210@A \307\230\205\310\nB B\211\207" [x-invocation-args switch x-resource-name initial-frame-alist error "%s: missing argument to `%s' option" invocation-name "-name" name] 4 (#$ . 6707)]) #@47 The display name specifying server and frame. (defvar x-display-name nil (#$ . 7015)) #@31 Handle the "-display" SWITCH. (defalias 'x-handle-display #[(switch) "@A\211\207" [x-invocation-args x-display-name] 2 (#$ . 7107)]) (byte-code "\301B\302\301!\204\f\303\303\207" [current-load-list x-invocation-args boundp nil] 2) #@406 Process the X-related command line options in ARGS. This is done before the user's startup file is loaded. They are copied to x-invocation args from which the X-related things are extracted, first the switch (e.g., "-fg") in the following code, and possible values (e.g., "black") in the option handler code (e.g., x-handle-switch). This returns ARGS with the arguments that have been processed removed. (defalias 'x-handle-args #[(args) "\306 \203\220 @\211\306\306\306 A\307\310\n\"\203+\n\311\225\306O\n\311\211\225SO\312\n\"\211\313=\203A\314\n\"A\202b\f;\203^\314\f\"\211\204V\315\316\n\"\210A)\202b\306 \314\n\"\211\203\210 \203 BA\n!\210)\202\214A\n!\210\202\214\nB-\202\237\211\207" [args x-invocation-args this-switch orig-this-switch completion argval nil string-match "^--[^=]*=" 0 try-completion t assoc error "Option `%s' is ambiguous" aelt x-long-option-alist elt x-option-alist] 4 (#$ . 7353)]) #@102 The list of X colors from the `rgb.txt' file. XConsortium: rgb.txt,v 10.41 94/02/20 18:39:36 rws Exp (defvar x-colors '("LightGreen" "light green" "DarkRed" "dark red" "DarkMagenta" "dark magenta" "DarkCyan" "dark cyan" "DarkBlue" "dark blue" "DarkGray" "dark gray" "DarkGrey" "dark grey" "grey100" "gray100" "grey99" "gray99" "grey98" "gray98" "grey97" "gray97" "grey96" "gray96" "grey95" "gray95" "grey94" "gray94" "grey93" "gray93" "grey92" "gray92" "grey91" "gray91" "grey90" "gray90" "grey89" "gray89" "grey88" "gray88" "grey87" "gray87" "grey86" "gray86" "grey85" "gray85" "grey84" "gray84" "grey83" "gray83" "grey82" "gray82" "grey81" "gray81" "grey80" "gray80" "grey79" "gray79" "grey78" "gray78" "grey77" "gray77" "grey76" "gray76" "grey75" "gray75" "grey74" "gray74" "grey73" "gray73" "grey72" "gray72" "grey71" "gray71" "grey70" "gray70" "grey69" "gray69" "grey68" "gray68" "grey67" "gray67" "grey66" "gray66" "grey65" "gray65" "grey64" "gray64" "grey63" "gray63" "grey62" "gray62" "grey61" "gray61" "grey60" "gray60" "grey59" "gray59" "grey58" "gray58" "grey57" "gray57" "grey56" "gray56" "grey55" "gray55" "grey54" "gray54" "grey53" "gray53" "grey52" "gray52" "grey51" "gray51" "grey50" "gray50" "grey49" "gray49" "grey48" "gray48" "grey47" "gray47" "grey46" "gray46" "grey45" "gray45" "grey44" "gray44" "grey43" "gray43" "grey42" "gray42" "grey41" "gray41" "grey40" "gray40" "grey39" "gray39" "grey38" "gray38" "grey37" "gray37" "grey36" "gray36" "grey35" "gray35" "grey34" "gray34" "grey33" "gray33" "grey32" "gray32" "grey31" "gray31" "grey30" "gray30" "grey29" "gray29" "grey28" "gray28" "grey27" "gray27" "grey26" "gray26" "grey25" "gray25" "grey24" "gray24" "grey23" "gray23" "grey22" "gray22" "grey21" "gray21" "grey20" "gray20" "grey19" "gray19" "grey18" "gray18" "grey17" "gray17" "grey16" "gray16" "grey15" "gray15" "grey14" "gray14" "grey13" "gray13" "grey12" "gray12" "grey11" "gray11" "grey10" "gray10" "grey9" "gray9" "grey8" "gray8" "grey7" "gray7" "grey6" "gray6" "grey5" "gray5" "grey4" "gray4" "grey3" "gray3" "grey2" "gray2" "grey1" "gray1" "grey0" "gray0" "thistle4" "thistle3" "thistle2" "thistle1" "MediumPurple4" "MediumPurple3" "MediumPurple2" "MediumPurple1" "purple4" "purple3" "purple2" "purple1" "DarkOrchid4" "DarkOrchid3" "DarkOrchid2" "DarkOrchid1" "MediumOrchid4" "MediumOrchid3" "MediumOrchid2" "MediumOrchid1" "plum4" "plum3" "plum2" "plum1" "orchid4" "orchid3" "orchid2" "orchid1" "magenta4" "magenta3" "magenta2" "magenta1" "VioletRed4" "VioletRed3" "VioletRed2" "VioletRed1" "maroon4" "maroon3" "maroon2" "maroon1" "PaleVioletRed4" "PaleVioletRed3" "PaleVioletRed2" "PaleVioletRed1" "LightPink4" "LightPink3" "LightPink2" "LightPink1" "pink4" "pink3" "pink2" "pink1" "HotPink4" "HotPink3" "HotPink2" "HotPink1" "DeepPink4" "DeepPink3" "DeepPink2" "DeepPink1" "red4" "red3" "red2" "red1" "OrangeRed4" "OrangeRed3" "OrangeRed2" "OrangeRed1" "tomato4" "tomato3" "tomato2" "tomato1" "coral4" "coral3" "coral2" "coral1" "DarkOrange4" "DarkOrange3" "DarkOrange2" "DarkOrange1" "orange4" "orange3" "orange2" "orange1" "LightSalmon4" "LightSalmon3" "LightSalmon2" "LightSalmon1" "salmon4" "salmon3" "salmon2" "salmon1" "brown4" "brown3" "brown2" "brown1" "firebrick4" "firebrick3" "firebrick2" "firebrick1" "chocolate4" "chocolate3" "chocolate2" "chocolate1" "tan4" "tan3" "tan2" "tan1" "wheat4" "wheat3" "wheat2" "wheat1" "burlywood4" "burlywood3" "burlywood2" "burlywood1" "sienna4" "sienna3" "sienna2" "sienna1" "IndianRed4" "IndianRed3" "IndianRed2" "IndianRed1" "RosyBrown4" "RosyBrown3" "RosyBrown2" "RosyBrown1" "DarkGoldenrod4" "DarkGoldenrod3" "DarkGoldenrod2" "DarkGoldenrod1" "goldenrod4" "goldenrod3" "goldenrod2" "goldenrod1" "gold4" "gold3" "gold2" "gold1" "yellow4" "yellow3" "yellow2" "yellow1" "LightYellow4" "LightYellow3" "LightYellow2" "LightYellow1" "LightGoldenrod4" "LightGoldenrod3" "LightGoldenrod2" "LightGoldenrod1" "khaki4" "khaki3" "khaki2" "khaki1" "DarkOliveGreen4" "DarkOliveGreen3" "DarkOliveGreen2" "DarkOliveGreen1" "OliveDrab4" "OliveDrab3" "OliveDrab2" "OliveDrab1" "chartreuse4" "chartreuse3" "chartreuse2" "chartreuse1" "green4" "green3" "green2" "green1" "SpringGreen4" "SpringGreen3" "SpringGreen2" "SpringGreen1" "PaleGreen4" "PaleGreen3" "PaleGreen2" "PaleGreen1" "SeaGreen4" "SeaGreen3" "SeaGreen2" "SeaGreen1" "DarkSeaGreen4" "DarkSeaGreen3" "DarkSeaGreen2" "DarkSeaGreen1" "aquamarine4" "aquamarine3" "aquamarine2" "aquamarine1" "DarkSlateGray4" "DarkSlateGray3" "DarkSlateGray2" "DarkSlateGray1" "cyan4" "cyan3" "cyan2" "cyan1" "turquoise4" "turquoise3" "turquoise2" "turquoise1" "CadetBlue4" "CadetBlue3" "CadetBlue2" "CadetBlue1" "PaleTurquoise4" "PaleTurquoise3" "PaleTurquoise2" "PaleTurquoise1" "LightCyan4" "LightCyan3" "LightCyan2" "LightCyan1" "LightBlue4" "LightBlue3" "LightBlue2" "LightBlue1" "LightSteelBlue4" "LightSteelBlue3" "LightSteelBlue2" "LightSteelBlue1" "SlateGray4" "SlateGray3" "SlateGray2" "SlateGray1" "LightSkyBlue4" "LightSkyBlue3" "LightSkyBlue2" "LightSkyBlue1" "SkyBlue4" "SkyBlue3" "SkyBlue2" "SkyBlue1" "DeepSkyBlue4" "DeepSkyBlue3" "DeepSkyBlue2" "DeepSkyBlue1" "SteelBlue4" "SteelBlue3" "SteelBlue2" "SteelBlue1" "DodgerBlue4" "DodgerBlue3" "DodgerBlue2" "DodgerBlue1" "blue4" "blue3" "blue2" "blue1" "RoyalBlue4" "RoyalBlue3" "RoyalBlue2" "RoyalBlue1" "SlateBlue4" "SlateBlue3" "SlateBlue2" "SlateBlue1" "azure4" "azure3" "azure2" "azure1" "MistyRose4" "MistyRose3" "MistyRose2" "MistyRose1" "LavenderBlush4" "LavenderBlush3" "LavenderBlush2" "LavenderBlush1" "honeydew4" "honeydew3" "honeydew2" "honeydew1" "ivory4" "ivory3" "ivory2" "ivory1" "cornsilk4" "cornsilk3" "cornsilk2" "cornsilk1" "LemonChiffon4" "LemonChiffon3" "LemonChiffon2" "LemonChiffon1" "NavajoWhite4" "NavajoWhite3" "NavajoWhite2" "NavajoWhite1" "PeachPuff4" "PeachPuff3" "PeachPuff2" "PeachPuff1" "bisque4" "bisque3" "bisque2" "bisque1" "AntiqueWhite4" "AntiqueWhite3" "AntiqueWhite2" "AntiqueWhite1" "seashell4" "seashell3" "seashell2" "seashell1" "snow4" "snow3" "snow2" "snow1" "thistle" "MediumPurple" "medium purple" "purple" "BlueViolet" "blue violet" "DarkViolet" "dark violet" "DarkOrchid" "dark orchid" "MediumOrchid" "medium orchid" "orchid" "plum" "violet" "magenta" "VioletRed" "violet red" "MediumVioletRed" "medium violet red" "maroon" "PaleVioletRed" "pale violet red" "LightPink" "light pink" "pink" "DeepPink" "deep pink" "HotPink" "hot pink" "red" "OrangeRed" "orange red" "tomato" "LightCoral" "light coral" "coral" "DarkOrange" "dark orange" "orange" "LightSalmon" "light salmon" "salmon" "DarkSalmon" "dark salmon" "brown" "firebrick" "chocolate" "tan" "SandyBrown" "sandy brown" "wheat" "beige" "burlywood" "peru" "sienna" "SaddleBrown" "saddle brown" "IndianRed" "indian red" "RosyBrown" "rosy brown" "DarkGoldenrod" "dark goldenrod" "goldenrod" "LightGoldenrod" "light goldenrod" "gold" "yellow" "LightYellow" "light yellow" "LightGoldenrodYellow" "light goldenrod yellow" "PaleGoldenrod" "pale goldenrod" "khaki" "DarkKhaki" "dark khaki" "OliveDrab" "olive drab" "ForestGreen" "forest green" "YellowGreen" "yellow green" "LimeGreen" "lime green" "GreenYellow" "green yellow" "MediumSpringGreen" "medium spring green" "chartreuse" "green" "LawnGreen" "lawn green" "SpringGreen" "spring green" "PaleGreen" "pale green" "LightSeaGreen" "light sea green" "MediumSeaGreen" "medium sea green" "SeaGreen" "sea green" "DarkSeaGreen" "dark sea green" "DarkOliveGreen" "dark olive green" "DarkGreen" "dark green" "aquamarine" "MediumAquamarine" "medium aquamarine" "CadetBlue" "cadet blue" "LightCyan" "light cyan" "cyan" "turquoise" "MediumTurquoise" "medium turquoise" "DarkTurquoise" "dark turquoise" "PaleTurquoise" "pale turquoise" "PowderBlue" "powder blue" "LightBlue" "light blue" "LightSteelBlue" "light steel blue" "SteelBlue" "steel blue" "LightSkyBlue" "light sky blue" "SkyBlue" "sky blue" "DeepSkyBlue" "deep sky blue" "DodgerBlue" "dodger blue" "blue" "RoyalBlue" "royal blue" "MediumBlue" "medium blue" "LightSlateBlue" "light slate blue" "MediumSlateBlue" "medium slate blue" "SlateBlue" "slate blue" "DarkSlateBlue" "dark slate blue" "CornflowerBlue" "cornflower blue" "NavyBlue" "navy blue" "navy" "MidnightBlue" "midnight blue" "LightGray" "light gray" "LightGrey" "light grey" "grey" "gray" "LightSlateGrey" "light slate grey" "LightSlateGray" "light slate gray" "SlateGrey" "slate grey" "SlateGray" "slate gray" "DimGrey" "dim grey" "DimGray" "dim gray" "DarkSlateGrey" "dark slate grey" "DarkSlateGray" "dark slate gray" "black" "white" "MistyRose" "misty rose" "LavenderBlush" "lavender blush" "lavender" "AliceBlue" "alice blue" "azure" "MintCream" "mint cream" "honeydew" "seashell" "LemonChiffon" "lemon chiffon" "ivory" "cornsilk" "moccasin" "NavajoWhite" "navajo white" "PeachPuff" "peach puff" "bisque" "BlanchedAlmond" "blanched almond" "PapayaWhip" "papaya whip" "AntiqueWhite" "antique white" "linen" "OldLace" "old lace" "FloralWhite" "floral white" "gainsboro" "WhiteSmoke" "white smoke" "GhostWhite" "ghost white" "snow") (#$ . 8326)) #@58 Internal function called by `defined-colors', which see. (defalias 'xw-defined-colors #[(&optional frame) "\204\306 \307\310 \"\211\206 \311\311\312\313!\210\f\2036\f@\fA\314 \315#\203 B\202,\207" [frame w32-color-map color-map-colors x-colors all-colors this-color selected-frame mapcar #[(clr) "@\207" [clr] 1] nil message "Defining colors..." color-supported-p t defined-colors] 5 (#$ . 17314)]) (global-set-key [f10] #[nil "\300\301!\207" [w32-send-sys-command 61696] 2 nil nil]) #@69 Iconify the selected frame, or deiconify if it's currently an icon. (defalias 'iconify-or-deiconify-frame #[nil "\300\301 \236A\302=\203 \303 \207\304 \207" [visibility frame-parameters t iconify-frame make-frame-visible] 2 (#$ . 17830) nil]) (byte-code "\306\307\310#\210\311 !\n;\204&\312\313 \314\315\n\"\211\203%\n \316I\210\202)\317\320!\2035\321\322\f\323#\210\202:\321\322\f\"\210\324\325 \326\245\327Z^\330 \207" [global-map command-line-args x-resource-name i x-command-line-resources frame-creation-function substitute-key-definition suspend-emacs iconify-or-deiconify-frame x-handle-args nil invocation-name string-match "[.*]" 45 fboundp x-close-connection x-open-connection "" t x-create-frame-with-faces x-server-max-request-size 2 100 menu-bar-enable-clipboard x-cut-buffer-max] 4) #@275 String of fontset spec of the standard fontset. This defines a fontset consisting of the Courier New variations for European languages which are distributed with Windows as "Multilanguage Support". See the documentation of `create-fontset-from-fontset-spec for the format. (defvar w32-standard-fontset-spec "-*-Courier New-normal-r-*-*-13-*-*-*-c-*-fontset-standard" (#$ . 18651)) (byte-code "\306\307!\203Z\310\311\"\210\312 \210\305 \236A\206 \305\n\236A\206 \313\314\315\"\316\211\211\203Y\317 !\204Y\320 !\211\203Y\321 !\211\203Y\f%H\322\230\203S\307 \323\f\316\"\"\210\202Y\324 \325#\210+\313\326\327\"&\316'&\203\254\330&!'\331'\236\204|\332'\236\203\204\333\334'BB'\335 '\"\336'\236\203\233\336\211'\236AB\nB\337'\236\203\254\337\211'\236AB\nB*\311(\313\340\341\"\211)\203\306\342\343)\"\203\306\344\nB*\316\207" [w32-standard-fontset-spec initial-frame-alist default-frame-alist resolved-name xlfd-fields font fboundp new-fontset create-fontset-from-fontset-spec t create-fontset-from-x-resource x-get-resource "font" "Font" nil query-fontset x-resolve-font-name x-decompose-font-name "fontset" x-complement-fontset-spec create-fontset-from-ascii-font "startup" "geometry" "Geometry" x-parse-geometry top left (user-position . t) (user-size . t) append height width "reverseVideo" "ReverseVideo" string-match "^\\(true\\|yes\\|on\\)$" (reverse . t) xlfd-regexp-registry-subnum res-geometry parsed case-fold-search rv] 6) #@46 Report an error when a suspend is attempted. (defalias 'x-win-suspend-error #[nil "\300\301!\207" [error "Suspending an Emacs running under W32 makes no sense"] 2 (#$ . 20132)]) (byte-code "\301\302\303\"\210\304\305\306\307\"\210\310\311!\207" [split-window-keep-point add-hook suspend-hook x-win-suspend-error t set-default mode-line-frame-identification " " set-message-beep ok] 3) (defalias 'internal-face-interactive #[(what &optional bool) "\306\307P!\310\311Q\312\n!\313 !\205\" \314 \"\206\" \304\314 \"\306\315 !\316Q!\317\313!\203= \202{\320=\203[\321\n\322\315 !\323R\324\325\"\317\211\211\211\f&\202{\203o\326\327\315 !\330\331\260!\202{\332\n\322\315 !\323R\317\211\f$ \333\232?\205\210.D\207" [what fn prompt face default window-system intern "face-" "Set " " of face " read-face-name fboundp selected-frame symbol-name "-select-" nil color completing-read " " " to: " mapcar #[(color) "\211B\207" [color] 2] y-or-n-p "Should face " " be " "? " read-string "" fn-win value bool x-colors] 8]) #@120 *Use the standard font dialog if 't'. Otherwise pop up a menu of some standard fonts like X does - including fontsets. (defvar w32-use-w32-font-dialog t (#$ . -21190)) #@227 Fonts suitable for use in Emacs. Initially this is a list of some fixed width fonts that most people will have like Terminal and Courier. These fonts are used in the font menu if the variable `w32-use-w32-font-dialog' is nil. (defvar w32-fixed-font-alist '("Font menu" ("Misc" ("fixed" "Fixedsys") ("") ("Terminal 5x4" "-*-Terminal-normal-r-*-*-*-45-*-*-c-40-*-oem") ("Terminal 6x8" "-*-Terminal-normal-r-*-*-*-60-*-*-c-80-*-oem") ("Terminal 9x5" "-*-Terminal-normal-r-*-*-*-90-*-*-c-50-*-oem") ("Terminal 9x7" "-*-Terminal-normal-r-*-*-*-90-*-*-c-70-*-oem") ("Terminal 9x8" "-*-Terminal-normal-r-*-*-*-90-*-*-c-80-*-oem") ("Terminal 12x12" "-*-Terminal-normal-r-*-*-*-120-*-*-c-120-*-oem") ("Terminal 14x10" "-*-Terminal-normal-r-*-*-*-135-*-*-c-100-*-oem") ("Terminal 6x6 Bold" "-*-Terminal-bold-r-*-*-*-60-*-*-c-60-*-oem") ("") ("Lucida Sans Typewriter.8" "-*-Lucida Sans Typewriter-normal-r-*-*-11-*-*-*-c-*-iso8859-1") ("Lucida Sans Typewriter.9" "-*-Lucida Sans Typewriter-normal-r-*-*-12-*-*-*-c-*-iso8859-1") ("Lucida Sans Typewriter.10" "-*-Lucida Sans Typewriter-normal-r-*-*-13-*-*-*-c-*-iso8859-1") ("Lucida Sans Typewriter.11" "-*-Lucida Sans Typewriter-normal-r-*-*-15-*-*-*-c-*-iso8859-1") ("Lucida Sans Typewriter.12" "-*-Lucida Sans Typewriter-normal-r-*-*-16-*-*-*-c-*-iso8859-1") ("Lucida Sans Typewriter.8 Bold" "-*-Lucida Sans Typewriter-semibold-r-*-*-11-*-*-*-c-*-iso8859-1") ("Lucida Sans Typewriter.9 Bold" "-*-Lucida Sans Typewriter-semibold-r-*-*-12-*-*-*-c-*-iso8859-1") ("Lucida Sans Typewriter.10 Bold" "-*-Lucida Sans Typewriter-semibold-r-*-*-13-*-*-*-c-*-iso8859-1") ("Lucida Sans Typewriter.11 Bold" "-*-Lucida Sans Typewriter-semibold-r-*-*-15-*-*-*-c-*-iso8859-1") ("Lucida Sans Typewriter.12 Bold" "-*-Lucida Sans Typewriter-semibold-r-*-*-16-*-*-*-c-*-iso8859-1")) ("Courier" ("Courier 10x8" "-*-Courier-*normal-r-*-*-*-97-*-*-c-80-iso8859-1") ("Courier 12x9" "-*-Courier-*normal-r-*-*-*-120-*-*-c-90-iso8859-1") ("Courier 15x12" "-*-Courier-*normal-r-*-*-*-150-*-*-c-120-iso8859-1") ("") ("8" "-*-Courier New-normal-r-*-*-11-*-*-*-c-*-iso8859-1") ("9" "-*-Courier New-normal-r-*-*-12-*-*-*-c-*-iso8859-1") ("10" "-*-Courier New-normal-r-*-*-13-*-*-*-c-*-iso8859-1") ("11" "-*-Courier New-normal-r-*-*-15-*-*-*-c-*-iso8859-1") ("12" "-*-Courier New-normal-r-*-*-16-*-*-*-c-*-iso8859-1") ("8 bold" "-*-Courier New-bold-r-*-*-11-*-*-*-c-*-iso8859-1") ("9 bold" "-*-Courier New-bold-r-*-*-12-*-*-*-c-*-iso8859-1") ("10 bold" "-*-Courier New-bold-r-*-*-13-*-*-*-c-*-iso8859-1") ("11 bold" "-*-Courier New-bold-r-*-*-15-*-*-*-c-*-iso8859-1") ("12 bold" "-*-Courier New-bold-r-*-*-16-*-*-*-c-*-iso8859-1") ("8 italic" "-*-Courier New-normal-i-*-*-11-*-*-*-c-*-iso8859-1") ("9 italic" "-*-Courier New-normal-i-*-*-12-*-*-*-c-*-iso8859-1") ("10 italic" "-*-Courier New-normal-i-*-*-13-*-*-*-c-*-iso8859-1") ("11 italic" "-*-Courier New-normal-i-*-*-15-*-*-*-c-*-iso8859-1") ("12 italic" "-*-Courier New-normal-i-*-*-16-*-*-*-c-*-iso8859-1") ("8 bold italic" "-*-Courier New-bold-i-*-*-11-*-*-*-c-*-iso8859-1") ("9 bold italic" "-*-Courier New-bold-i-*-*-12-*-*-*-c-*-iso8859-1") ("10 bold italic" "-*-Courier New-bold-i-*-*-13-*-*-*-c-*-iso8859-1") ("11 bold italic" "-*-Courier New-bold-i-*-*-15-*-*-*-c-*-iso8859-1") ("12 bold italic" "-*-Courier New-bold-i-*-*-16-*-*-*-c-*-iso8859-1"))) (#$ . 21365)) (byte-code "\300\301\302\303!\304#\210\300\301\302\305!\306#\210\300\301\302\307!\310#\210\300\301\302\311!\312#\207" [set-fontset-font t make-char-internal 137 ("*" . "JISX0208-SJIS") 138 ("*" . "JISX0208-SJIS") 146 ("*" . "JISX0208-SJIS") 144 ("*" . "JISX0208-SJIS")] 4) #@240 Select a font. If `w32-use-w32-font-dialog' is non-nil (the default), use the Windows font dialog to get the matching FONTS. Otherwise use a pop-up menu (like Emacs on other platforms) initialized with the fonts in `w32-fixed-font-alist'. (defalias 'mouse-set-font #[(&rest fonts) "\205\302\203\302\303\304\217\210\202 ?\205\305\306!)\207" [fonts font nil (byte-code "@\302 !\210\303\303\207" [fonts font set-default-font nil] 2) ((error (byte-code "A\301\207" [fonts nil] 1))) error "Font not found"] 3 (#$ . 24980) (byte-code "\203\304 \211\205 C)\207\305\n\306\307!\205\310 \311 C\"\"\207" [w32-use-w32-font-dialog chosen-font last-nonmenu-event w32-fixed-font-alist w32-select-font x-popup-menu fboundp new-fontset append generate-fontset-menu] 6)])