;ELC ;;; Compiled by cyd@localhost on Mon Apr 23 22:25:12 2007 ;;; from file /home/cyd/emacs/lisp/term/mac-win.el ;;; in Emacs version 22.0.99 ;;; with all optimizations. ;;; This file contains multibyte non-ASCII characters ;;; and therefore cannot be loaded into Emacs 19. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "20"))) (error "`mac-win.el' was compiled for Emacs 20 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\302=\204\f\303\304\305 \"\210\306\307!\210\306\310!\210\306\311!\210\306\312!\210\306\313!\210\306\314!\210\306\315!\210\306\316!\210\317 B\320\317!\204;\321\317\322\"\210\322\207" [window-system current-load-list mac error "%s: Loading mac-win.el but not compiled for Mac" invocation-name require frame mouse scroll-bar faces select menu-bar fontset dnd x-command-line-resources default-boundp set-default nil] 3) (defalias 'x-handle-switch #[(switch) "\306 \"\211\205.\307\n8\310\n8 \203\f B B\211\202-\f @B B A\211 *)\207" [switch command-line-x-option-alist aelt value param default-frame-alist assoc 3 4 x-invocation-args] 4]) (defalias 'x-handle-numeric-switch #[(switch) "\306 \"\211\205\307\n8\211\310\f@!B B\fA\211))\207" [switch command-line-x-option-alist aelt param x-invocation-args default-frame-alist assoc 3 string-to-number] 4]) (defalias 'x-handle-initial-switch #[(switch) "\306 \"\211\205.\307\n8\310\n8 \203\f B B\211\202-\f @B B A\211 *)\207" [switch command-line-x-option-alist aelt value param initial-frame-alist assoc 3 4 x-invocation-args] 4]) (defalias 'x-handle-iconic #[(switch) "\301B\211\207" [initial-frame-alist (visibility . icon)] 2]) (defalias 'x-handle-xrm-switch #[(switch) ":\204\f\303\304\305 #\210\n\204@\202\n\306@QA\211\207" [x-invocation-args switch x-command-line-resources error "%s: missing argument to `%s' option" invocation-name "\n"] 4]) (defalias 'x-handle-geometry #[(switch) "\306@!\302 \236\303 \236\304 \236\305 \236\f\204 \203C\307 \310\f\205'\fC \205- C$ \307\f\311\f\205:\fC \205@ C$\f\n\204K \203^\307\f\312\n\205U\nC \205[ C$\fA\211-\207" [x-invocation-args geo left top height width x-parse-geometry append ((user-size . t)) ((user-size . t)) ((user-position . t)) default-frame-alist initial-frame-alist] 5]) (defalias 'x-handle-name-switch #[(switch) ":\204\f\304\305\306 #\210@A\307\nB B\211\207" [x-invocation-args switch x-resource-name initial-frame-alist error "%s: missing argument to `%s' option" invocation-name name] 4]) #@47 The display name specifying server and frame. (defvar x-display-name nil (#$ . 2658)) (defalias 'x-handle-display #[(switch) "@A\211\207" [x-invocation-args x-display-name] 2]) #@411 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 function returns ARGS minus the arguments that have been processed. (defalias 'x-handle-args #[(args) "\306 \203\230 @\307\232\204\230 @\211\306\211\306\211 A\310\311\n\"\2035\n\312\225\306O\n\312\211\225SO\310\313\n\"\203`\314\n\"\211\315=\204`\f;\203`\316\f\"\211\204]\317\320\n\"\210\f)\316\n\"\211\203q\3218\203\217 \203\207 B\n!\210)\202\223\n!\210\202\223 B.\202\237 \244\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" 2 aelt handler command-line-x-option-alist elt] 4 (#$ . 2846)]) (byte-code "\301B\306\307!\210\310B\311\312!\210\313B\314\315!\210\316B\317\320!\210\302B\321\322!\210\303B\323\324!\210\304B\325\326!\210\305B\327\330!\210\331B\332\333!\210\334B\335\336!\210\337B\340\341!\210\342B\343\344!\210\345B\346\347!\210\350B\351\352!\210\353B\354\355!\210\356B\357\360!\210\361B\362\363!\210\364B\365\366!\210\367B\370\371!\210\372B\373\374!\210\375B\376\377!\210\201@B\201A\201B!\210\201CB\201D\201E!\210\201FB\201G !\210\201HB\201I\n!\210\201JB\201K !\210\201LB\201M\f!\210\201NB\201O !\210\201PB\201Q!\210\201RB\201S.!\210\201TB\201U1!\210\201VB\201W4!\210\201XB\201Y:!\210\201ZB\201[=!\210\201\\B\201]@!\207" [current-load-list mac-pointer-arrow mac-pointer-I-beam mac-pointer-cross mac-pointer-plus mac-pointer-watch (lambda (#1=#:defconst-tmp-var) (defconst mac-pointer-arrow #1#)) 0 mac-pointer-copy-arrow (lambda (#2=#:defconst-tmp-var) (defconst mac-pointer-copy-arrow #2#)) 1 mac-pointer-alias-arrow (lambda (#3=#:defconst-tmp-var) (defconst mac-pointer-alias-arrow #3#)) 2 mac-pointer-contextual-menu-arrow (lambda (#4=#:defconst-tmp-var) (defconst mac-pointer-contextual-menu-arrow #4#)) 3 (lambda (#5=#:defconst-tmp-var) (defconst mac-pointer-I-beam #5#)) 4 (lambda (#6=#:defconst-tmp-var) (defconst mac-pointer-cross #6#)) 5 (lambda (#7=#:defconst-tmp-var) (defconst mac-pointer-plus #7#)) 6 (lambda (#8=#:defconst-tmp-var) (defconst mac-pointer-watch #8#)) 7 mac-pointer-closed-hand (lambda (#9=#:defconst-tmp-var) (defconst mac-pointer-closed-hand #9#)) 8 mac-pointer-open-hand (lambda (#10=#:defconst-tmp-var) (defconst mac-pointer-open-hand #10#)) 9 mac-pointer-pointing-hand (lambda (#11=#:defconst-tmp-var) (defconst mac-pointer-pointing-hand #11#)) 10 mac-pointer-counting-up-hand (lambda (#12=#:defconst-tmp-var) (defconst mac-pointer-counting-up-hand #12#)) 11 mac-pointer-counting-down-hand (lambda (#13=#:defconst-tmp-var) (defconst mac-pointer-counting-down-hand #13#)) 12 mac-pointer-counting-up-and-down-hand (lambda (#14=#:defconst-tmp-var) (defconst mac-pointer-counting-up-and-down-hand #14#)) 13 mac-pointer-spinning (lambda (#15=#:defconst-tmp-var) (defconst mac-pointer-spinning #15#)) 14 mac-pointer-resize-left (lambda (#16=#:defconst-tmp-var) (defconst mac-pointer-resize-left #16#)) 15 mac-pointer-resize-right (lambda (#17=#:defconst-tmp-var) (defconst mac-pointer-resize-right #17#)) 16 mac-pointer-resize-left-right (lambda (#18=#:defconst-tmp-var) (defconst mac-pointer-resize-left-right #18#)) 17 mac-pointer-not-allowed (lambda (#19=#:defconst-tmp-var) (defconst mac-pointer-not-allowed #19#)) 18 mac-pointer-resize-up (lambda (#20=#:defconst-tmp-var) (defconst mac-pointer-resize-up #20#)) 19 mac-pointer-resize-down (lambda (#21=#:defconst-tmp-var) (defconst mac-pointer-resize-down #21#)) 20 mac-pointer-resize-up-down (lambda (#22=#:defconst-tmp-var) (defconst mac-pointer-resize-up-down #22#)) 21 mac-pointer-poof (lambda (#23=#:defconst-tmp-var) (defconst mac-pointer-poof #23#)) 22 x-pointer-left-ptr (lambda (#24=#:defconst-tmp-var) (defconst x-pointer-left-ptr #24#)) x-pointer-xterm (lambda (#25=#:defconst-tmp-var) (defconst x-pointer-xterm #25#)) x-pointer-crosshair (lambda (#26=#:defconst-tmp-var) (defconst x-pointer-crosshair #26#)) x-pointer-plus (lambda (#27=#:defconst-tmp-var) (defconst x-pointer-plus #27#)) x-pointer-watch (lambda (#28=#:defconst-tmp-var) (defconst x-pointer-watch #28#)) x-pointer-hand2 (lambda (#29=#:defconst-tmp-var) (defconst x-pointer-hand2 #29#)) x-pointer-left-side (lambda (#30=#:defconst-tmp-var) (defconst x-pointer-left-side #30#)) x-pointer-right-side (lambda (#31=#:defconst-tmp-var) (defconst x-pointer-right-side #31#)) x-pointer-sb-h-double-arrow (lambda (#32=#:defconst-tmp-var) (defconst x-pointer-sb-h-double-arrow #32#)) x-pointer-top-side (lambda (#33=#:defconst-tmp-var) (defconst x-pointer-top-side #33#)) x-pointer-bottom-side (lambda (#34=#:defconst-tmp-var) (defconst x-pointer-bottom-side #34#)) x-pointer-sb-v-double-arrow (lambda (#35=#:defconst-tmp-var) (defconst x-pointer-sb-v-double-arrow #35#))] 2) #@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") (#$ . 8019)) #@58 Internal function called by `defined-colors', which see. (defalias 'xw-defined-colors #[(&optional frame) "\204\305  \306\211\f\203&\f@\fA\307 \310#\203 \nB\202 \n+\207" [frame x-colors defined-colors this-color all-colors selected-frame nil color-supported-p t] 4 (#$ . 17007)]) (byte-code "\302\303\304#\210\305 \306\307#\210\305 \310\311#\210\305 \312\313#\210\305 \314\315#\210\305 \316\317#\210\305 \320\321#\210\305 \322\323#\210\305 \324\325#\210\305 \326\327#\210\305 \330\331#\210\305 \332\333#\210\305 \334\335#\210\305 \336\337#\210\305 \340\341#\210\342\343\344\345#\210\342\346\344\345#\210\342\347\344\350#\210\342\351\344\352#\210\342\353\344\354#\210\342\355\344\356#\210\342\357\344\360#\210\342\361\362\363\362N#\207" [global-map function-key-map substitute-key-definition suspend-emacs iconify-or-deiconify-frame define-key [backspace] [127] [delete] [127] [tab] [9] [linefeed] [10] [clear] [12] [return] [13] [escape] [27] [M-backspace] [134217855] [M-delete] [134217855] [M-tab] [134217737] [M-linefeed] [134217738] [M-clear] [134217740] [M-return] [134217741] [M-escape] [134217755] put backspace ascii-character 127 delete tab 9 linefeed 10 clear 12 return 13 escape 27 ctrl modifier-value control] 5) #@52 Alist of Mac script codes vs Emacs coding systems. (defconst mac-script-code-coding-systems '((0 . mac-roman) (1 . japanese-shift-jis) (2 . chinese-big5) (3 . korean-iso-8bit) (7 . mac-cyrillic) (25 . chinese-iso-8bit) (29 . mac-centraleurroman)) (#$ . 18254)) #@254 Add a character set to display with Mac fonts. Create an entry in `mac-charset-info-alist'. XLFD-CHARSET is a string which will appear in the XLFD font name to identify the character set. MAC-TEXT-ENCODING is the correspoinding TextEncodingBase value. (defalias 'mac-add-charset-info #[(xlfd-charset mac-text-encoding) "\303\304 \211\n\236AE\"\207" [xlfd-charset mac-text-encoding mac-script-code-coding-systems add-to-list mac-charset-info-alist] 6 (#$ . 18522)]) (byte-code "\306\307\310\311\"\210\307\312\313\"\210\307\314\313\"\210\307\315\316\"\210\307\317\320\"\210\307\321\322\"\210\307\323\324\"\210\307\325\326\"\210\307\327\330\"\210\307\331\330\"\210\307\332\333\"\210\307\334\335\"\210\336\337\340\311\"\341\311 \fW\203[\n \211I\210 T\211\202J*\341\311 W\203v\n \341\\ HI\210 T\211\202a*\342\n!@\343@\311\"A\344\3456\"\210@,\336\306\341\311\346BCD \340W\203\316 \341ZH\203\265 BC\204\307 C\202\307C\203\304CBBDBD\306C T\211\202\232C\203\335CBBDBDD\237-E2\347\3502\"\210\347\351\3432\311\"\"\210\352\353\354\355\356\357\360B\361\351\362NB\363EB\364\353B\365\366BF&\210\353F\236\306\350\306G\367E!\306H\211I\203BI@\211HAGBGH@GBGIA\211I\204%*G)CEH\211J\204\\\353HBFBF\202eJH\241\210F\210,\370\353\364\371#\210\372\337\340\311\"\341\311K KW\203\213\n \211I\210 T\211\202y*\341\311L LW\203\250\n \341\\ HI\210 T\211\202\222*\342\n!@\343@\311\"A\344\3736\"\210@,\372\306\341\311\346BCD \340W\203 \341ZH\203\347 BC\204\371 C\202\371C\203\366CBBDBD\306C T\211\202\314C\203CBBDBDD\237-E2\347\3742\"\210\347\375\3432\311\"\"\210\352\376\354\355\377\201N\201OB\361\375\362NB\363EB\364\376B\365\366BF&\210\376F\236\306\374\306G\367E!\306H\211M\203xM@\211HAGBGH@GBGMA\211M\204[*G)CEH\211J\204\222\376HBFBF\202\233JH\241\210F\210,\370\376\364\201P#\210\201Q\337\201R\306\"\201S\337\330\306\"\201T$\3062\342\n!2\347\201U\3432\311\"\"\210*\201Q\337\201R\306\"\201V\337\201W\306\"\201X$\3062\342\n!2\347\201Y\3432\311\"\"\210*\306\207" [mac-charset-info-alist v encoding-vector i #:--cl-dotimes-temp-- #:--cl-dotimes-temp-- nil mac-add-charset-info "mac-roman" 0 "jisx0208.1983-sjis" 1 "jisx0201.1976-0" "big5-0" 2 "ksc5601.1989-0" 3 "mac-cyrillic" 7 "gb2312.1980-0" 25 "mac-centraleurroman" 29 "mac-symbol" 33 "adobe-fontspecific" "mac-dingbats" 34 "iso10646-1" 126 [2244 331808 331809 2249 331812 2262 2268 2273 331813 331820 2276 331821 331814 331815 2281 331961 331962 331822 2285 331823 331826 331827 331830 2291 331831 2292 2294 2293 2298 331834 331835 2300 342432 2224 331832 2211 2215 342434 2230 2271 2222 2217 342754 331833 2216 343200 331843 331854 331855 331850 343204 343205 331851 331862 343074 343089 331874 331867 331868 331869 331870 331865 331866 331877 331878 331875 2220 343098 331876 331879 343078 2219 2235 342438 2208 331880 331888 2261 331889 331884 342387 342388 342396 342397 342392 342393 2295 299306 331885 331892 331893 331896 342457 342458 331897 331894 331895 331936 342394 342398 331937 331898 331899 2241 331940 331941 2253 331965 331966 331946 2259 2260 331947 331950 2266 331951 331952 331953 331954 331955 2269 2301 331863 331963 331873 331964 331842 332391] make-vector 256 128 make-translation-table-from-vector char-table-extra-slot map-char-table #[#1=(c v) "\205 H\211\205 \nI)\207" [v encode-table c1 c] 4] 127 define-translation-table decode-mac-centraleurroman encode-mac-centraleurroman make-coding-system mac-centraleurroman 4 42 "Mac Central European Roman Encoding (MIME:x-mac-centraleurroman)." [4 20 46 1083 16 128 1 1540 1083 16 160 40449 260 32769 49215 (decode-mac-centraleurroman . translation-table-id) 49215 (utf-translation-table-for-decode . translation-table-id) 16447 -4604 22] [1 16 63 49215 (encode-mac-centraleurroman . translation-table-id) 2331 21 0 1563 21 128 795 21 158 16161 -3546 22] safe-chars translation-table valid-codes mime-charset translation-table-for-input ucs-mule-to-mule-unicode reverse coding-system-put x-mac-centraleurroman [332848 332849 332850 332851 332852 332853 332854 332855 332856 332857 332858 332859 332860 332861 332862 332863 332864 332865 332866 332867 332868 332869 332870 332871 332872 332873 332874 332875 332876 332877 332878 332879 342432 2224 333008 2211 2215 342434 2230 332838 2222 2217 342754 332834 332914 343200 332835 332915 343102 2225 343204 343205 332918 2229 333009 332840 332836 332916 332839 332919 332841 332921 332842 332922 332920 332837 2220 343098 331986 343144 343078 2219 2235 342438 2208 332843 332923 332844 332924 332917 342387 342388 342396 342397 342392 342393 2295 342398 332846 332926 332847 332927 342742 332833 332913 332911 332880 332881 332882 332883 332884 332885 332886 332887 332888 332889 332890 332891 332892 332893 332894 332895 332896 332897 332898 332899 332900 332901 332902 332903 332904 332905 332906 332907 332908 332909 332910 342604] #[#1# "\205 H\211\205 \nI)\207" [v encode-table c1 c] 4] decode-mac-cyrillic encode-mac-cyrillic mac-cyrillic "Mac Cyrillic Encoding (MIME:x-mac-cyrillic)." tab encode-table end start pairs codes non-iso-charset-alist l elt #:--cl-dolist-temp-- slot #:--cl-dotimes-temp-- #:--cl-dotimes-temp-- #:--cl-dolist-temp-- [4 20 46 1083 16 128 1 1540 1083 16 160 40449 260 32769 49215 (decode-mac-cyrillic . translation-table-id) 49215 (utf-translation-table-for-decode . translation-table-id) 16447 -4604 22] [1 16 63 49215 (encode-mac-cyrillic . translation-table-id) 2331 21 0 1563 21 128 795 21 158 16161 -3546 22] x-mac-cyrillic vconcat 32 [32 33 343072 35 343075 37 38 343085 40 41 343095 43 44 343090 46 47 0 1 2 3 4 5 6 7 56 57 58 59 60 61 62 63 343141 332657 332658 332711 332660 332661 332710 332659 332663 332665 332753 332666 332667 332668 332669 332671 332704 332664 332705 332707 332708 332709 332738 332713 332670 332712 332662 91 343124 93 343269 95 323909 332721 332722 332743 332724 332725 332742 332723 332727 332729 332757 332730 332731 332732 332733 332735 332736 332728 332737 332739 332740 332741 332758 332745 332734 332744 332726 123 124 125 343132] [342604 332754 342450 343204 342468 343102 331986 299491 299494 299493 299488 342900 342896 342897 342898 342899 2224 2225 342451 343205 2263 343101 343074 342434 2295 343200 343201 343144 342438 343664 343631 342965 342773 342737 342748 342744 343255 343253 343077 343113 343114 343235 343239 343236 343234 343238 343080 343081 343104 343079 2222 2217 342754 343087 343098 343333 2220 343111 343112 342996 342992 342993 342994 342995 299306 302792 2222 2217 342754 343089 343611 343612 343613 343617 343618 343619 343623 343624 343625 343626 323935 302793 343115 343456 343630 343457 343614 343615 343616 343620 343621 343622 343627 343628 343629 nil] mac-symbol-encoder [32 299713 299714 299715 299716 299374 299718 299719 299720 299721 299387 299390 299724 299725 299726 299727 299728 299729 299730 299731 299732 299733 299734 299735 299736 299737 299738 299739 299740 299741 299742 299743 299744 299745 299746 299747 299748 299749 299750 299751 299365 299753 299754 299755 299756 299757 299758 299759 299760 299761 299762 299763 299764 299765 299766 299767 299768 299769 299770 299771 299772 299773 299774 299775 299808 299809 299810 299811 299812 299813 299814 299815 299816 299817 299818 299819 299311 299821 299232 299823 299824 299825 299826 299250 299260 299302 299830 299319 299832 299833 299834 299835 299836 299837 299838 nil 299848 299849 299850 299851 299852 299853 299854 299855 299856 299857 299858 299859 299860 299861] 19 [299841 299842 299843 299844 299845 299846 299847 299491 299494 299493 299488 343872 343873 343874 343875 343876 343877 343878 343879 343880 343881 299862 299863 299864 299865 299866 299867 299868 299869 299870 299871 299872 299873 299874 299875 299876 299877 299878 299879 299880 299881 299882 299883 299884 299885 299886 299887 299888 299889 299890 299891 299892 342898 342900 342901 299896 299897 299898 299899 299900 299901 299902 299903 299936 299937 299938 299939 299940 299941 299942 299943 299944 299945 299946 299947 299948 299949 299950 299951 nil 299953 299954 299955 299956 299957 299958 299959 299960 299961 299962 299963 299964 299965 299966 nil] mac-dingbats-encoder] 12) #@52 Coding system derived from the system script code. (defconst mac-system-coding-system (byte-code " \236A\206\304 \305=\203\n\202\306\n\307\")\207" [mac-system-script-code mac-script-code-coding-systems base system-type mac-roman darwin coding-system-change-eol-conversion mac] 3) (#$ . 26804)) (set-selection-coding-system mac-system-coding-system) #@59 Set keyboard coding system to what is specified in EVENT. (defalias 'mac-handle-language-change #[(event) "\211A@)@\n\236A\305 \206\306!\210 \307=\205\310\f\311\312#)\207" [event x mac-script-code-coding-systems coding-system key-translation-map set-keyboard-coding-system mac-roman japanese-shift-jis define-key [128] "\\"] 5 (#$ . 27167) "e"]) (define-key special-event-map [language-change] 'mac-handle-language-change) #@22 ASCII text encoding. (defconst mac-text-encoding-ascii 1536 (#$ . 27603)) #@65 MacJapanese text encoding without Apple double-byte extensions. (defconst mac-text-encoding-mac-japanese-basic-variant 131073 (#$ . 27683)) (defalias 'mac-utxt-to-string #[(data &optional coding-system) "\204 \n\306=\205\307!\310=\205 \311\312!\205%\312 \313\f\206$#\211\203_\314\"\f =\203_\315\316\"\203F\313\202_\312 \313#\204_\317\320\321\322$\210\317\323\320\322$\210\206s\314 \324 \325=\203q\326\202r\327\"*\207" [coding-system mac-system-coding-system system-type mac-text-encoding-mac-japanese-basic-variant encoding data darwin coding-system-base japanese-shift-jis fboundp mac-code-convert-string nil decode-coding-string string-match "[\xa0\xfd-\xff]" subst-char-in-string 92 3420 t 128 byteorder 66 utf-16be utf-16le str mac-text-encoding-ascii] 6]) (defalias 'mac-string-to-utxt #[(string &optional coding-system) "\204 \306\211\307\310!\203Y\311!\312\f!>\203Y\313\314\"\f\315=\203G\316=\203G\317\320\321 #\317\322\320 \323$\210\324\325 \"\203G\306 \203X\310\326 \"\n\206U\306#) \206l\326\f\327 \330=\203j\331\202k\332\"*\207" [coding-system mac-system-coding-system encoding data string str nil fboundp mac-code-convert-string coding-system-base find-coding-systems-string coding-system-change-eol-conversion mac darwin japanese-shift-jis-mac subst-char-in-string 92 128 3420 t string-match "\\`[-]*\\'" encode-coding-string byteorder 66 utf-16be-mac utf-16le-mac system-type mac-text-encoding-mac-japanese-basic-variant] 5]) (defalias 'mac-TEXT-to-string #[(data &optional coding-system) "\204 \303\n\"\211\304!\305=\203\306\307\310\n\311$\210\207" [coding-system mac-system-coding-system data decode-coding-string coding-system-base japanese-shift-jis subst-char-in-string 128 92 t] 6]) (defalias 'mac-string-to-TEXT #[(string &optional coding-system) "\204 \306\n! \307! >\2047\f\203+\f\211@A) >\204+\fA\211\204\f\2037\f\211@A)*\310\311\"\211\312=\203I\313\314\315\n#\316\n\"\207" [coding-system mac-system-coding-system string mac-script-code-coding-systems rest encodables find-coding-systems-string coding-system-base coding-system-change-eol-conversion mac japanese-shift-jis-mac subst-char-in-string 3420 92 encode-coding-string x] 5]) (defalias 'mac-furl-to-string #[(data) "G\211\302V\203 SH\302U\203\302 SO\202)\207" [data len 0] 4]) (defalias 'mac-TIFF-to-string #[(data &optional text) "\206 \302\303!\211\304\305G\306\307 \310\311#%\210\207" [text data copy-sequence " " put-text-property 0 display create-image tiff t] 9]) #@76 The value of the CLIPBOARD selection last time we selected or pasted text. (defvar x-last-selected-text-clipboard nil (#$ . 30262)) #@76 The value of the PRIMARY X selection last time we selected or pasted text. (defvar x-last-selected-text-primary nil (#$ . 30400)) #@102 *Non-nil means cutting and pasting uses the clipboard. This is in addition to the primary selection. (custom-declare-variable 'x-select-enable-clipboard 't '(#$ . -30537) :type 'boolean :group 'killing) (defalias 'x-select-text #[(text &optional push) "\304\305\"\210\n\204\306\211\207\304\307\"\210\211\207" [text x-last-selected-text-primary x-select-enable-clipboard x-last-selected-text-clipboard x-set-selection PRIMARY nil CLIPBOARD] 3]) #@518 Return the value of a selection. The argument TYPE (default `PRIMARY') says which selection, and the argument DATA-TYPE (default `STRING') says how to convert the data. TYPE may be any symbol (but nil stands for `PRIMARY'). However, only a few symbols are commonly used. They conventionally have all upper-case names. The most often used ones, in addition to `PRIMARY', are `SECONDARY' and `CLIPBOARD'. DATA-TYPE is usually `STRING', but can also be one of the symbols in `selection-converter-alist', which see. (defalias 'x-get-selection #[(&optional type data-type) "\306\206\307 \206 \310\"\n\206 \211;\203Q\311\312\313 #\211\203Q \314=\2030\315 \f\"\202H \316=\203>\317 \f\"\202H \320=\203H\321 !\322\312 G\313 %\210 *\207" [type data-type next-selection-coding-system selection-coding-system coding data x-get-selection-internal PRIMARY STRING get-text-property 0 foreign-selection public\.utf16-plain-text mac-utxt-to-string com\.apple\.traditional-mac-plain-text mac-TEXT-to-string public\.file-url mac-furl-to-string put-text-property] 7 (#$ . 30997)]) (defalias 'x-selection-value #[(type) "\303\304\211 \204\n\203\304\305\306\217\nA\202 \203%\307\310 G\311 $\210\304\312\313\217\211\203;\307\310G\314$\210\315 \" +\207" [tiff-image text data-types (public\.utf16-plain-text com\.apple\.traditional-mac-plain-text public\.file-url) nil (byte-code "\302 @\"\207" [type data-types x-get-selection] 3) ((error)) remove-text-properties 0 (foreign-selection nil) (byte-code "\301\302\"\207" [type x-get-selection public\.tiff] 3) ((error)) (foreign-selection nil) mac-TIFF-to-string] 6]) (defalias 'x-get-selection-value #[nil "\306\211\n\204 \306\202C\307\310!\211\311\230\203\306 \203# \311\230\203)\306\211\202B =\2033\306\202B \230\203? \306\202B \211\307\312!\211\203Q\311\230\203W\306\211\202p\f=\203a\306\202p\f\230\203m\306\202p\211\306 \206x*\207" [primary-text clip-text x-select-enable-clipboard x-last-selected-text-clipboard x-last-selected-text-primary next-selection-coding-system nil x-selection-value CLIPBOARD "" PRIMARY] 3]) (byte-code "\301\302\303\304#\210\305=\203\301\306\303\307#\210\301\310\303\311\312\313 \"#\210\301\314\315\316#\210\301\317\315\320#\210\301\321\315\322#\210\301\323\315\324#\207" [system-type put CLIPBOARD mac-scrap-name "com.apple.scrap.clipboard" darwin FIND "com.apple.scrap.find" PRIMARY format "org.gnu.Emacs.%d.selection.PRIMARY" emacs-pid com\.apple\.traditional-mac-plain-text mac-ostype "TEXT" public\.utf16-plain-text "utxt" public\.tiff "TIFF" public\.file-url "furl"] 6) (defalias 'mac-select-convert-to-string #[(selection type value) "\306\307 #A\n\206 \211\205Q\204 \210\202K\310\311\312 G\313 $\210\314=\2035\315 \f\"\202J\316=\203D\317 \f\"\202J\320\321\"\210)\307 B*\207" [selection value next-selection-coding-system selection-coding-system coding str xselect-convert-to-string nil t remove-text-properties 0 (composition nil) public\.utf16-plain-text mac-string-to-utxt com\.apple\.traditional-mac-plain-text mac-string-to-TEXT error "Unknown selection type: %S" type inhibit-read-only] 6]) (defalias 'mac-select-convert-to-file-url #[(selection type value) "\306 \n# \206\n\f\211 \203 \203\307 \"  \205,\310\311\312\313 \314\"\314#P*\207" [selection type value file-name-coding-system default-file-name-coding-system coding xselect-convert-to-filename encode-coding-string "file://localhost" mapconcat url-hexify-string split-string "/" filename] 7]) (byte-code "\301\244\302\303\304\305#\210\302\306\304\307#\210\302\310\311\312#\210\302\313\311\314#\210\302\315\311\316#\210\302\317\311\320#\210\302\321\311\322#\210\302\323\311\324#\210\302\325\311\326#\210\302\327\311\330#\210\302\331\311\332#\210\302\333\311\307#\210\302\334\311\335#\210\302\336\311\337#\207" [selection-converter-alist ((public\.utf16-plain-text . mac-select-convert-to-string) (com\.apple\.traditional-mac-plain-text . mac-select-convert-to-string) (public\.file-url . mac-select-convert-to-file-url)) put core-event mac-apple-event-class "aevt" internet-event "GURL" open-application mac-apple-event-id "oapp" reopen-application "rapp" open-documents "odoc" print-documents "pdoc" open-contents "ocon" quit-application "quit" application-died "obit" show-preferences "pref" autosave-now "asav" get-url about "abou" show-hide-font-panel "shfp"] 4) (defalias 'mac-event-spec '(macro . #[(event) "\301\302E\207" [event nth 1] 3])) (defalias 'mac-event-ae '(macro . #[(event) "\301\302E\207" [event nth 2] 3])) (defalias 'mac-ae-parameter #[(ae &optional keyword type) "\204\305 :\203 @\306\232\204\307\310 \"\207\311 A\"A\312\f\203? \203?\f @\232\204?\313 @ A\f#\211\205>\f\nB *\207" [keyword ae data type-data type "----" "aevt" error "Not an Apple event: %S" assoc nil mac-coerce-ae-data] 5]) (defalias 'mac-ae-list #[(ae &optional keyword type) "\204\304\305 \306#\211\204\307\2020\n@\306\232\204\"\310\311\"\2020 \204+\nA\2020\312\313\nA\")\207" [keyword ae desc type "----" mac-ae-parameter "list" nil error "Parameter for \"%s\" is not a list" mapcar #[(type-data) "\302@A #\207" [type-data type mac-coerce-ae-data] 4]] 5]) (defalias 'mac-ae-number #[(ae keyword) "\305 \"\306\211\205'\307 @ A\310#\211\205'\311\n!\211\312U\203%\313\202&\f)*\207" [ae keyword str type-data num mac-ae-parameter nil mac-coerce-ae-data "TEXT" string-to-number 0.0 0] 5]) (defalias 'mac-bytes-to-integer #[(bytes &optional from to) "\204\306 \204 \nG Z\307\310\f\311\"!T \312_Z\306 \306W\203V\313\314\312\"\n\315 \316=\203B\202H Z\317Z\\H\"T\211\202(* \306V\203i\320\314 \" [\"\202k+\207" [from to bytes len most-positive-fixnum extended-sign-len 0 ceiling log 2 8 logior lsh byteorder 66 1 ash result i #1=#:--cl-dotimes-temp--] 7]) (defalias 'mac-ae-selection-range #[(ae) "\302\303\304#A\211\205 \305 \306\307#\305 \307\310#\305 \310\311#\305 \312\313#F)\207" [ae range-bytes mac-ae-parameter "kpos" "TEXT" mac-bytes-to-integer 2 4 8 12 16 20] 8]) (defalias 'mac-ae-text-for-search #[(ae) "\302\303\304#A\211\205\305 \306\")\207" [ae utf8-text mac-ae-parameter "stxt" "utf8" decode-coding-string utf-8] 5]) (defalias 'mac-ae-text #[(ae) "\301\302\303#A\206\f\304\305!\207" [ae mac-ae-parameter nil "TEXT" error "No text in Apple event."] 4]) (defalias 'mac-ae-frame #[(ae &optional keyword type) "\306 \n#A\211\203 G\307U\204\310\311!\202B\312\313 \314#\315 \316\f\204@ \203@\317 @\320\"\230\203: @ A\202$\f+)\207" [ae keyword type bytes frame rest mac-ae-parameter 4 error "No window reference in Apple event." mac-coerce-ae-data "long" "TEXT" frame-list nil frame-parameter window-id] 5]) (defalias 'mac-ae-script-language #[(ae keyword) "\303 \304#A\211\205\305\n\306\307#\305\n\307\310#B)\207" [ae keyword bytes mac-ae-parameter "intl" mac-bytes-to-integer 0 2 4] 6]) (defalias 'mac-bytes-to-text-range #[(bytes &optional from to) "\204\303 \204 \nG Z\304U\205-\305\n\211\306\\#\305\n\306\\\307\\#\305\n\307\\ #E\207" [from to bytes 0 10 mac-bytes-to-integer 4 8] 6]) (defalias 'mac-ae-text-range-array #[(ae keyword) "\306 \307#A\211G\310\211\n\203Y \311Y\203Y\312\n\313\311# \f\314_\311\\U\203Y\315\f\310\"\f\313W\203X \316\n\314_\311\\\314_\317\\#I\210T\211\2025* ,\207" [ae keyword bytes len nranges result mac-ae-parameter "tray" nil 2 mac-bytes-to-integer 0 10 make-vector mac-bytes-to-text-range 12 i #1=#:--cl-dotimes-temp--] 9]) #@50 Alist of Mac keyboard modifier symbols vs masks. (defconst mac-keyboard-modifier-mask-alist (mapcar #[(modifier-bit) "@\301\302A\"B\207" [modifier-bit lsh 1] 4] '((command . 8) (shift . 9) (option . 11) (control . 12) (function . 17))) (#$ . 38573)) (defalias 'mac-ae-keyboard-modifiers #[(ae) "\306\307\"\310\211\203- \310\211\203, @\311\n\fA\"\312U\204%\f@ B A\211\204* *\207" [ae modifiers modifiers-value mac-keyboard-modifier-mask-alist modifier-mask #1=#:--cl-dolist-temp-- mac-ae-number "kmod" nil logand 0] 5]) #@56 Open the documents specified by the Apple event EVENT. (defalias 'mac-ae-open-documents #[(event) "\3068\307 \310\311#\310\211\203, @\211\203%\312\313\314\315\316\n\317\"\317#P\310\"\210 A\211\204*\320 !\321 !\211\203t @ \211A@)\306 8\211\322V\203Y\323!\210\202p\322V\203p\322V\203p\324!\210b\210+\202\205\f;\203\205\325\314\326\316\f!\327#\310\330#\210+\331\332 !\207" [event ae file-name #1=#:--cl-dolist-temp-- search-text selection-range 2 mac-ae-list nil undecoded-file-name dnd-open-local-file "file://" mapconcat url-hexify-string split-string "/" mac-ae-selection-range mac-ae-text-for-search 0 goto-line set-mark re-search-forward regexp-quote "\\|" t select-frame-set-input-focus selected-frame x end start line] 9 (#$ . 39113) "e"]) #@56 Quit the application Emacs with the Apple event EVENT. (defalias 'mac-ae-quit-application #[(event) "\3028\303\216\304 *\207" [event ae 2 ((mac-resume-apple-event ae -128)) save-buffers-kill-emacs] 2 (#$ . 39900) "e"]) #@94 Open the URL specified by the Apple event EVENT. Currently the `mailto' scheme is supported. (defalias 'mac-ae-get-url #[(event) "\3038\304\305 !!\211\306H\307\230\203\310\n!\210\311\312 !\202!\313 \314\"*\207" [event ae parsed-url 2 url-generic-parse-url mac-ae-text 0 "mailto" url-mailto select-frame-set-input-focus selected-frame mac-resume-apple-event t] 4 (#$ . 40127) "e"]) (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315\316#\210\302\317\320#\207" [mac-apple-event-map make-sparse-keymap define-key [core-event open-application] 0 [core-event reopen-application] ignore [core-event open-documents] mac-ae-open-documents [core-event show-preferences] customize [core-event quit-application] mac-ae-quit-application [internet-event get-url] mac-ae-get-url [hi-command about] display-splash-screen] 4) #@236 Toggle visibility of tool-bars in response to EVENT. With no keyboard modifiers, it toggles the visibility of the frame where the tool-bar toggle button was pressed. With some modifiers, it changes global tool-bar visibility setting. (defalias 'mac-handle-toolbar-switch-mode #[(event) "\3038\304 !\203\305 \202&\306 !\307\n\310\311\n\310\"\312U\203#\313\202$\312#))\207" [event ae frame 2 mac-ae-keyboard-modifiers tool-bar-mode mac-ae-frame set-frame-parameter tool-bar-lines frame-parameter 0 1] 6 (#$ . 41018) "e"]) (byte-code "\302\303\304#\210\305\306!\203P\307\310\311\312\313\314\315\316\317\320\321\322& \210\323\310\324\"\210\325\310\311\326\327!\205+\327J#\210\323\330\331\"\210\323\332\333\"\210\302\334\330#\210\302\335\332#\210\302\336\310#\210\337 \340\341\342$\210\311\207" [mac-apple-event-map menu-bar-showhide-menu define-key [window toolbar-switch-mode] mac-handle-toolbar-switch-mode fboundp mac-set-font-panel-visible-p custom-declare-variable mac-font-panel-mode nil "Non-nil if Mac-Font-Panel mode is enabled.\nSee the command `mac-font-panel-mode' for a description of this minor-mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `mac-font-panel-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :group mac :type boolean defalias #[(&optional arg) "\302=\203 ?\202%\203\303!\304V\202% \204\305\202%\306\307\301\"\210\310\311 !\210\312\313 \2034\314\2025\315\"\210\316 \203M\317\301!\210\306\320 \203J\321\202K\322\"\210\323 \210 \207" [arg mac-font-panel-mode toggle prefix-numeric-value 0 t message "Toggling %s off; better pass an explicit argument." nil mac-set-font-panel-visible-p run-hooks mac-font-panel-mode-hook mac-font-panel-mode-on-hook mac-font-panel-mode-off-hook called-interactively-p customize-mark-as-set "Mac-Font-Panel mode %sabled" "en" "dis" force-mode-line-update] 3 "Toggle use of the font panel.\nWith numeric ARG, display the font panel if and only if ARG is positive." (list (or current-prefix-arg 'toggle))] add-minor-mode boundp mac-font-panel-mode-map mac-handle-font-panel-closed #[(event) "\300\301!\207" [mac-font-panel-mode 0] 2 "Update internal status in response to font panel closed EVENT." "e"] mac-handle-font-selection #[(event) "\3058\306 \307\"\306 \310\"\211\205\311 !\n\203\"\312\n\313_\fBB\314\315\316\317 \f$,\207" [event ae fm-font-size atsu-font-id attribute-values 2 mac-ae-number "fmsz" "auid" mac-atsu-font-face-attributes :height 10 apply set-face-attribute default selected-frame] 6 "Change default face attributes according to font selection EVENT." "e"] [font panel-closed] [font selection] [hi-command show-hide-font-panel] define-key-after [mac-font-panel-mode] (menu-item "Font Panel" mac-font-panel-mode :help "Show the font panel as a floating dialog" :button (:toggle and (default-boundp 'mac-font-panel-mode) (default-value 'mac-font-panel-mode))) showhide-speedbar] 12) #@57 Byte sequence of the current Mac TSM active input area. (defvar mac-ts-active-input-buf "" (#$ . 44041)) #@54 Number of processed update-active-input-area events. (defvar mac-ts-update-active-input-area-seqno 0 (#$ . 44152)) (byte-code "\301\302\211\"\303\304\305\306\307\310%\210\303\311\312\313\307\310%\210\303\314\315\316\307\310%\210\303\317\320\321\307\310%\210\303\322\323\324\307\310%\210\303\325\326\327\307\310%\210\303\330\331\332\307\310%\210\303\333\334\335\307\310%\210\303\336\337\340\307\310%\207" [mac-ts-active-input-overlay make-overlay 0 custom-declare-face mac-ts-caret-position ((t :inverse-video t)) "Face for caret position in Mac TSM active input area.\nThis is used when the active input area is displayed either in\nthe echo area or in a buffer where the cursor is not displayed." :group mac mac-ts-raw-text ((t :underline t)) "Face for raw text in Mac TSM active input area." mac-ts-selected-raw-text ((t :underline t)) "Face for selected raw text in Mac TSM active input area." mac-ts-converted-text ((((background dark)) :underline "gray20") (t :underline "gray80")) "Face for converted text in Mac TSM active input area." mac-ts-selected-converted-text ((t :underline t)) "Face for selected converted text in Mac TSM active input area." mac-ts-block-fill-text ((t :underline t)) "Face for block fill text in Mac TSM active input area." mac-ts-outline-text ((t :underline t)) "Face for outline text in Mac TSM active input area." mac-ts-selected-text ((t :underline t)) "Face for selected text in Mac TSM active input area." mac-ts-no-hilite ((t :inherit default)) "Face for no hilite in Mac TSM active input area."] 6) #@46 Alist of Mac TSM hilite style vs Emacs face. (defconst mac-ts-hilite-style-faces '((2 . mac-ts-raw-text) (3 . mac-ts-selected-raw-text) (4 . mac-ts-converted-text) (5 . mac-ts-selected-converted-text) (6 . mac-ts-block-fill-text) (7 . mac-ts-outline-text) (8 . mac-ts-selected-text) (9 . mac-ts-no-hilite)) (#$ . 45699)) (defalias 'mac-ts-update-active-input-buf #[(text fix-len hilite-rng update-rng) "G\306 \203 G\307\246\310U\204\f\202\302\n G\306\211\310V\203\243\307Z H\310 \211A@)X\203e \211A@)W\203e\nX\203e \211A@)OB @ TH\310 @X\203# @ \211A@)W\203# \211A@)\fGX\203#\f @ \211A@)OB\202#\310W\203\273\nX\203\273\310OB\311\312\",G\310W\203\323\313\202\365\310U\203\337\313\202\365\nV\203\351\n\310O\306OG\314\310\n\315$\210\316\317\"\210 *\207" [mac-ts-active-input-buf confirmed buf-len update-rng text rng nil 2 0 apply concat "" remove-text-properties (cursor nil) mapc #[(rng) "\3058\306U\203\307@X\203@ W\203\310@ \311\312\n%\207\307@X\205O@\211A@)W\205O\211A@) X\205O\310@\211A@)\313\3058\f\236A\n%\207" [rng buf-len mac-ts-active-input-buf x mac-ts-hilite-style-faces 2 1 0 put-text-property cursor t face] 7] segments i tail x fix-len hilite-rng] 6]) (defalias 'mac-split-string-by-property-change #[(string) "G\304\211\211\305U\204#\306 \"\n\206\305 O B\n\211\204 +\207" [string result head tail nil 0 previous-property-change] 4]) (defalias 'mac-replace-untranslated-utf-8-chars #[(string &optional to-string) "\204\302\303\304\305 !\306#\207" [to-string string "œóõ½" mapconcat #[(str) "\302\303\304#\203\n \207\207" [str to-string get-text-property 0 untranslated-utf-8] 4] mac-split-string-by-property-change ""] 4]) (defalias 'mac-keyboard-translate-char #[(ch) "\302!\203&\303 !\204 ;\204\304 !\203& GV\203& H\206'\207\207" [ch keyboard-translate-table char-valid-p char-table-p vectorp] 2]) (defalias 'mac-unread-string #[(string) "\301\302\303\304\305!\"\"\207" [string apply isearch-unread mapcar mac-keyboard-translate-char mac-replace-untranslated-utf-8-chars] 6]) #@234 Update Mac TSM active input area according to EVENT. The confirmed text is converted to Emacs input events and pushed into `unread-command-events'. The unconfirmed text is displayed either in the current buffer or in the echo area. (defalias 'mac-ts-update-active-input-area #[(event) "\3068\307 \310\"\211A\206\311\n@\312\232\203\313\202\314\315 \316\"\211@,\236A\206,\317-\320 \321\".\322 \323\"/\322 \324\"0\320 \325\"1\326213U\204T\3114\327 ./0$25\206\2376\203n\330 \206\237\331`\332\"\206\237o?\205\237\331`\333\"\203\216\331`S\333\"\331`\333\"=\206\237\331`\334\"\205\237\331`S\334\"\331`\334\"=\326\211789\335\336\3374!\311#8\340\3418G\342\3438%\2109\203\371\330 \326:\211;\203\344\344\341\342;#\204\344\345;\333;8P#;\202\3508;\346\347;\"\210\350<\351\326#\210*\202 \352<``p$\210\350<\3518#\210\353\f2-\"!\210+1T\2113. \207" [event ae type-text text decode-fun script-language 2 mac-ae-parameter "tstx" "" "TEXT" mac-TEXT-to-string mac-utxt-to-string mac-ae-script-language "tssl" mac-roman mac-ae-number "tsfx" mac-ae-text-range-array "tshi" "tsup" "tsSn" nil mac-ts-update-active-input-buf current-message get-char-property invisible display composition mapconcat #[(str) " \n\"\306\307 G\310\311\307\310 # %\210\f\204<\311\307\312 #\203<\313 \204)\2044\306\307\314\310\315 %\210\202<\306\307\314\312\313 %\210 )\207" [decode-fun str coding decoded caret-seen use-echo-area put-text-property 0 face get-text-property cursor t 1 mac-ts-caret-position cursor-type] 8] mac-split-string-by-property-change put-text-property 0 mac-ts-active-input-string t get-text-property propertize message "%s" overlay-put before-string move-overlay mac-unread-string mac-script-code-coding-systems coding fix-len hilite-rng update-rng seqno confirmed mac-ts-update-active-input-area-seqno mac-ts-active-input-buf isearch-mode cursor-in-echo-area caret-seen active-input-string use-echo-area message-log-max msg mac-ts-active-input-overlay] 7 (#$ . 47867) "e"]) #@64 Convert Unicode key EVENT to Emacs key events and unread them. (defalias 'mac-ts-unicode-for-key-event #[(event) "\3068\307 \310\311#A\312 \313\"\211@\f\236A\206\314\315\316\n \"!,\207" [event ae text script-language mac-script-code-coding-systems coding 2 mac-ae-parameter "tstx" "utxt" mac-ae-script-language "tssl" mac-roman mac-unread-string mac-utxt-to-string] 5 (#$ . 49906) "e"]) (byte-code "\301\302\303#\210\301\304\305#\207" [mac-apple-event-map define-key [text-input update-active-input-area] mac-ts-update-active-input-area [text-input unicode-for-key-event] mac-ts-unicode-for-key-event] 4) #@62 Open the file specified by the selection value for Services. (defalias 'mac-service-open-file #[nil "\301\302!!\207" [mac-service-selection find-file-existing x-selection-value] 3 (#$ . 50526) nil]) #@66 Create a new buffer containing the selection value for Services. (defalias 'mac-service-open-selection #[nil "\301\302\303!!\210\304!c\210\305\306!\210\307 \207" [mac-service-selection switch-to-buffer generate-new-buffer "*untitled*" x-selection-value sit-for 0 save-buffer] 3 (#$ . 50732) nil]) #@68 Prepare a mail buffer containing the selection value for Services. (defalias 'mac-service-mail-selection #[nil "\301 \210\302 \210\303y\210\304!\305\261\207" [mac-service-selection compose-mail rfc822-goto-eoh 1 x-selection-value "\n"] 2 (#$ . 51036) nil]) #@71 Prepare a mail buffer to be sent to the selection value for Services. (defalias 'mac-service-mail-to #[nil "\301\302!!\207" [mac-service-selection compose-mail x-selection-value] 3 (#$ . 51301) nil]) #@42 Insert the selection value for Services. (defalias 'mac-service-insert-text #[nil "\303!\n\204 c\202\304 !\210\305\306\307!!)\207" [mac-service-selection text buffer-read-only x-selection-value kill-new message substitute-command-keys "The text from the Services menu can be accessed with \\[yank]"] 3 (#$ . 51508) nil]) (byte-code "\301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\301\312\313#\207" [mac-apple-event-map define-key [service paste] mac-service-insert-text [service perform open-file] mac-service-open-file [service perform open-selection] mac-service-open-selection [service perform mail-selection] mac-service-mail-selection [service perform mail-to] mac-service-mail-to] 4) #@63 Dispatch EVENT according to the keymap `mac-apple-event-map'. (defalias 'mac-dispatch-apple-event #[(event) "\305 A@\"\306 8\307\n!\205\310 \311\"A\211\203)\312\313\f\314\"!\305\n\315\f!\" A\316 `\317\320F\240\210\310 \321\"\204E\322\n\323\315 !\324$\202I\325\326\327\217+\207" [mac-apple-event-map event binding ae service-message lookup-key 2 keymapp mac-ae-parameter "svmg" intern decode-coding-string utf-8 vector selected-window (0 . 0) 0 emacs-suspension-id command-execute nil t err (byte-code "\303\304\305 !\306$\210\307\n!\207" [binding event ae command-execute nil vector t mac-resume-apple-event] 5) ((error (byte-code "\302\303\304\305 !B#\210\306\307\"\207" [ae err mac-ae-set-reply-parameter "errs" "TEXT" error-message-string mac-resume-apple-event -10000] 6)))] 6 (#$ . 52237) "e"]) (byte-code "\301\302\303#\210\304\305\306\"\210\307\310\311\312#\207" [special-event-map define-key [mac-apple-event] mac-dispatch-apple-event add-hook after-init-hook mac-process-deferred-apple-events run-with-idle-timer 5 t mac-cleanup-expired-apple-events] 4) #@327 Which function to call to handle a drop of that type. The function takes three arguments, WINDOW, ACTION and DATA. WINDOW is where the drop occurred, ACTION is always `private' on Mac. DATA is the drop data. Unlike the x-dnd counterpart, the return value of the function is not significant. See also `mac-dnd-known-types'. (custom-declare-variable 'mac-dnd-types-alist ''(("furl" . mac-dnd-handle-furl) ("hfs " . mac-dnd-handle-hfs) ("utxt" . mac-dnd-insert-utxt) ("TEXT" . mac-dnd-insert-TEXT) ("TIFF" . mac-dnd-insert-TIFF)) '(#$ . 53322) :version "22.1" :type 'alist :group 'mac) (defalias 'mac-dnd-handle-furl #[(window action data) "\303 \304\n!#\207" [window action data dnd-handle-one-url mac-furl-to-string] 5]) (defalias 'mac-dnd-handle-hfs #[(window action data) "\305\306\307\310O\311#\312\313\314\315 \316\"\316#P\317 \f\n#*\207" [data file-name url window action mac-coerce-ae-data "fss " 10 nil undecoded-file-name "file://" mapconcat url-hexify-string split-string "/" dnd-handle-one-url] 6]) (defalias 'mac-dnd-insert-utxt #[(window action data) "\303 \304\n!#\207" [window action data dnd-insert-text mac-utxt-to-string] 5]) (defalias 'mac-dnd-insert-TEXT #[(window action data) "\303 \304\n!#\207" [window action data dnd-insert-text mac-TEXT-to-string] 5]) (defalias 'mac-dnd-insert-TIFF #[(window action data) "\303 \304\n!#\207" [window action data dnd-insert-text mac-TIFF-to-string] 5]) (defalias 'mac-dnd-drop-data #[(event frame window data type &optional action) "\204\306\307 \n\"\211A \211:\203\310 8\202!\311 `\312\313F)\3138)\f\205\236\314!\203\216\315!\203\216\316!\204\216\317!\204\216\204\204 \211:\203]\310 8\202c\311 `\312\313F)\3208\206\201\3108:\203}\3108@\202\201\3108)b\210\f#\202\236\321\322!\210\f#)+\207" [action type mac-dnd-types-alist type-info handler event private assoc 1 selected-window (0 . 0) 0 windowp window-live-p window-minibuffer-p window-dedicated-p 5 t select-frame position w mouse-yank-at-point window data dnd-open-file-other-window frame] 5]) #@31 Receive drag and drop events. (defalias 'mac-dnd-handle-drag-n-drop-event #[(event) "\211:\203 \3068\202\307 `\310\311F)\311 8)\3128\313\314\f!\203*\315\f!\210\316\317 !>\2034\320\321 !\313\211\203`@\211@\322\232\204W\323\324 \f A @\n&\210A\211\204?-\313\207" [event position action ae window item 1 selected-window (0 . 0) 0 2 nil windowp select-window option mac-ae-keyboard-modifiers copy mac-ae-list "null" mac-dnd-drop-data selected-frame #1=#:--cl-dolist-temp--] 9 (#$ . 55406) "e"]) (byte-code "\306! ;\204 \307\310 \311\312 \"\211\203 \n\313I\210\202)\314 \203+\315 \210\2021\316\317 \320#\210\321\322 B\323\322!\204B\324\322\325\"\210\326\327\"\330@\211A\307B\211C\203\303C@\211B\331ND@\307E\211F\203\271F@E\332\333G\nGW\203\257\334\335E!\333H\n\336\\\"HIHH\211J\205\231DJH\211K\203\247DHKI\210+\nT\211\202v*FA\211F\204k+CA\211C\204V,\337L\340 B\341\340\342\343#\210\344L!\210\341\340\345\346\340L\"#\210)\347L\350 B\341\350\342\351#\210\352L!\210\341\350\345\346\350L\"#\210)\353L\354 B\341\354\342\355#\210\356L!\210\341\354\345\346\354L\"#\210)\357L\360 B\341\360\342\361#\210\362L!\210\341\360\345\346\360L\"#\210)\363L\364 B\341\364\342\365#\210\366L!\210\341\364\345\346\364L\"#\210)\326\367\"M\244M\370 B\371\372\373!N\326\374\"\237\307O\211P\203\230P@\211O@OABQ\375\376B\331N\"\210*PA\211P\204x*\377\211RS\307\211TU\307V\375\201WN\"\210SA.!\207" [command-line-args x-resource-name i x-command-line-resources frame-creation-function current-load-list x-handle-args nil invocation-name string-match "[.*]" 45 x-display-list mac-clear-font-name-table x-open-connection "Mac" t x-create-frame-with-faces mac-font-encoder-list default-boundp set-default (("mac-roman" mac-roman-encoder ccl-encode-mac-roman-font "%s") ("mac-centraleurroman" encode-mac-centraleurroman ccl-encode-mac-centraleurroman-font "%s ce") ("mac-cyrillic" encode-mac-cyrillic ccl-encode-mac-cyrillic-font "%s cy") ("mac-symbol" mac-symbol-encoder ccl-encode-mac-symbol-font "symbol") ("mac-dingbats" mac-dingbats-encoder ccl-encode-mac-dingbats-font "zapf dingbats")) mapcar #[(lst) "A@\207" [lst] 1] (latin-iso8859-2 latin-iso8859-3 latin-iso8859-4 cyrillic-iso8859-5 greek-iso8859-7 hebrew-iso8859-8 latin-iso8859-9 latin-iso8859-14 latin-iso8859-15) translation-table 96 0 make-char-internal charset-info 32 [0 13 1307 19 239 49215 (mac-roman-encoder . translation-table-id) 1284 131127 7 98872 49215 (mac-roman-encoder . translation-table-id) 22] ccl-encode-mac-roman-font put variable-documentation "CCL program for Mac Roman font" (lambda (#1=#:defconst-tmp-var) (defconst ccl-encode-mac-roman-font #1#)) ccl-program-idx register-ccl-program [0 13 1307 19 239 49215 (encode-mac-centraleurroman . translation-table-id) 1284 131127 7 98872 49215 (encode-mac-centraleurroman . translation-table-id) 22] ccl-encode-mac-centraleurroman-font "CCL program for Mac Central European Roman font" (lambda (#2=#:defconst-tmp-var) (defconst ccl-encode-mac-centraleurroman-font #2#)) [0 13 1307 19 239 49215 (encode-mac-cyrillic . translation-table-id) 1284 131127 7 98872 49215 (encode-mac-cyrillic . translation-table-id) 22] ccl-encode-mac-cyrillic-font "CCL program for Mac Cyrillic font" (lambda (#3=#:defconst-tmp-var) (defconst ccl-encode-mac-cyrillic-font #3#)) [0 13 1307 19 239 49215 (mac-symbol-encoder . translation-table-id) 1284 131127 7 98872 49215 (mac-symbol-encoder . translation-table-id) 22] ccl-encode-mac-symbol-font "CCL program for Mac Symbol font" (lambda (#4=#:defconst-tmp-var) (defconst ccl-encode-mac-symbol-font #4#)) [0 13 1307 19 239 49215 (mac-dingbats-encoder . translation-table-id) 1284 131127 7 98872 49215 (mac-dingbats-encoder . translation-table-id) 22] ccl-encode-mac-dingbats-font "CCL program for Mac Dingbats font" (lambda (#5=#:defconst-tmp-var) (defconst ccl-encode-mac-dingbats-font #5#)) #[(lst) "@\3018B\207" [lst 2] 3] mac-char-fontspec-list (lambda (#6=#:defconst-tmp-var) (defconst mac-char-fontspec-list #6#)) make-char-table fontset #[(lst) "\3018@BA@B\207" [lst 3] 2] map-char-table #[(key val) "?\2067 \211\306Y\205'\307\n!\310 8\311U\204!\312 8\311=\205& @\313=?))\2067\314 !\315>\2067\f I\207" [val key char l template font 400 split-char 1 0 2 composition char-charset (ascii eight-bit-control eight-bit-graphic)] 4] ((0 nil)) charset-list encoder-list encoder #:--cl-dolist-temp-- table charset #:--cl-dolist-temp-- #:--cl-dotimes-temp-- c ucs-mule-to-mule-unicode mu mac-encoded prog font-ccl-encoder-alist template font-encoder #:--cl-dolist-temp-- font last accumulator last-char-or-range last-char last-elt #[(char elt) "\205J @@\211:\203\nA\202\n @A\f=\203? TU\203?\306 !\306 !=\203?\n:\2038\n \241\207 @ B\240\207 BC\241\210 A\211\207" [elt last last-char-or-range last-char last-elt char char-charset] 4]] 8) #@453 Add font-specs for Mac fonts to FONTSET. The added font-specs are determined by BASE-FAMILY and the value of `mac-char-fontspec-list', which is a list of (CHARACTER-OR-RANGE . (FAMILY-FORMAT . REGISTRY)). If BASE-FAMILY is nil, the font family in the added font-specs is also nil. If BASE-FAMILY is a string, `%s' in FAMILY-FORMAT is replaced with the string. Otherwise, `%s' in FAMILY-FORMAT is replaced with the ASCII font family name in FONTSET. (defalias 'fontset-add-mac-fonts #[(fontset &optional base-family) "\203\";\203\227\202\"\306 \307\"\211\203!\310\311\n!\227! H)\312\211 \312\211\203j@\211A \236A\211\204Y\205K\313A@\"AABA\fB B\314 @\f#\210A\211\2041,\312\207" [base-family fontset ascii-font xlfd-regexp-family-subnum fontspec fontspec-cache fontset-font 0 x-decompose-font-name x-resolve-font-name nil format set-fontset-font mac-char-fontspec-list char-fontspec #1=#:--cl-dolist-temp--] 6 (#$ . 60335)]) #@455 Create a fontset from a Mac roman font FONT. Optional 1st arg RESOLVED-FONT is a resolved name of FONT. If omitted, `x-resolve-font-name' is called to get the resolved name. At this time, if FONT is not available, error is signaled. Optional 2nd arg FONTSET-NAME is a string to be used in `' fields of a new fontset name. If it is omitted, an appropriate name is generated automatically. It returns a name of the created fontset. (defalias 'create-fontset-from-mac-roman-font #[(font &optional resolved-font fontset-name) "\304 \n#\305 \306\"\210 )\207" [font resolved-font fontset-name fontset create-fontset-from-ascii-font fontset-add-mac-fonts t] 4 (#$ . 61310)]) (byte-code "\306\307\"\211\203% A\310\211\203$ @\211\311\312\nA\"\241\210 A\211\204*)\313 \210\314\315\310\211\316$\203N\317\310\211\203J @\320\310\f\321#\210 A\211\204:*\202[\314\322\310\211\316$\204[\323\324!\210\325\326!\210\323\327\330\"\210\331 \210\3328\236A\206{\3329\236A\206{\333\334\335\"\310\211:;\211\203\340\336!\204\340\337!\211:\203\340\340!\211;\203\340;\310?>\203G\353>!?\354?\236\204\355?\236\203 \356\357?BB?\3608?\"8\361?\236\203-\3619\236\204-\361\211?\236AB9B9\362?\236\203G\3629\236\204G\362\211?\236AB9B9*\330@\333\363\364\"\211A\203c\365\366A\"\203c\3679B9*\310\207" [x-fixed-font-alist courier-fonts label-fonts #:--cl-dolist-temp-- charset #:--cl-dolist-temp-- assoc "Courier" nil mapcar #[(font) "\301\302\"\203\303\304\305\"\306\230\203\307\202\310\311\312$\207\207" [font string-match "\\`-adobe-courier-\\([^-]*\\)-\\(.\\)-\\(.*\\)-iso8859-1\\'" replace-match match-string 2 "o" "-*-courier-\\1-i-\\3-*-*" "-*-courier-\\1-\\2-\\3-*-*" t nil] 5] setup-default-fontset x-list-fonts "*-iso10646-1" 1 (latin-iso8859-1 latin-iso8859-2 latin-iso8859-3 latin-iso8859-4 thai-tis620 greek-iso8859-7 arabic-iso8859-6 hebrew-iso8859-8 cyrillic-iso8859-5 latin-iso8859-9 latin-iso8859-15 latin-iso8859-14 japanese-jisx0212 chinese-sisheng ipa vietnamese-viscii-lower vietnamese-viscii-upper lao ethiopic tibetan) set-fontset-font (nil . "iso10646-1") "*-iso8859-1" fontset-add-mac-fonts "fontset-default" create-fontset-from-fontset-spec "-etl-fixed-medium-r-normal-*-16-*-*-*-*-*-fontset-standard,\nascii:-*-Monaco-*-*-*-*-12-*-*-*-*-*-mac-roman" "fontset-standard" t create-fontset-from-x-resource font x-get-resource "font" "Font" query-fontset x-resolve-font-name x-decompose-font-name "fontset" new-fontset x-complement-fontset-spec "mac" "roman" create-fontset-from-mac-roman-font "startup" create-fontset-from-ascii-font "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) initial-frame-alist default-frame-alist resolved-name xlfd-fields xlfd-regexp-registry-subnum xlfd-regexp-encoding-subnum res-geometry parsed case-fold-search rv] 6) (defalias 'x-win-suspend-error #[nil "\300\301!\207" [error "Suspending an Emacs running under Mac makes no sense"] 2]) (byte-code "\306\307\310\"\210\311\312\313\314\312\"\210\315\316\317\320\"\210\321\322!\210\323 \210\324 \325\326#\210\f\204Q\327\330\331\"\210\332\333!\210\332\334!\210\313\331\335\"\210\313\336\337\"\210\313\340\341\"\210\313\342\343\"\210\313\344\345\"\210\313\346\347\"\210 \350=\204\200\351-\352.\353\351/\2110\2030@\211/\354/J1\"L\2100A\2110\204g*\3152\351\207" [interprogram-cut-function interprogram-paste-function split-window-keep-point special-event-map x-toolkit-scroll-bars system-type add-hook suspend-hook x-win-suspend-error x-select-text x-get-selection-value defalias x-cut-buffer-or-selection-value t set-default mode-line-frame-identification " " mouse-wheel-mode 1 menu-bar-enable-clipboard define-key [drag-n-drop] mac-dnd-handle-drag-n-drop-event global-set-key [vertical-scroll-bar down-mouse-1] mac-handle-scroll-bar-event global-unset-key [vertical-scroll-bar drag-mouse-1] [vertical-scroll-bar mouse-1] #[(event) "\211:\203 \3048\202\305 `\306\307F)\211@\310 8\311\n!\210 \312=\2030\313\n!b\210\314 \202_ \315=\203;\316 \202_ \317=\203G\320!\202_ \321=\203R\322 \202_ \323=\205_\313\n!b\210\324 +\207" [event position window bar-part 1 selected-window (0 . 0) 0 4 select-window up window-start mac-scroll-down-line above-handle mac-scroll-down handle scroll-bar-drag below-handle mac-scroll-up down mac-scroll-up-line] 5 "Handle scroll bar EVENT to emulate Mac Toolbox style scrolling." "e"] mac-scroll-ignore-events #[nil "\300 \242\301>?\205\f\202\207" [read-event (mouse-1 double-mouse-1 triple-mouse-1)] 2] mac-scroll-down #[nil "\300 \207" [(lambda nil (track-mouse (byte-code "\300 \210\301 \207" [mac-scroll-ignore-events scroll-down] 1)))] 1] mac-scroll-down-line #[nil "\300 \207" [(lambda nil (track-mouse (byte-code "\300 \210\301\302!\207" [mac-scroll-ignore-events scroll-down 1] 2)))] 1] mac-scroll-up #[nil "\300 \207" [(lambda nil (track-mouse (byte-code "\300 \210\301 \207" [mac-scroll-ignore-events scroll-up] 1)))] 1] mac-scroll-up-line #[nil "\300 \207" [(lambda nil (track-mouse (byte-code "\300 \210\301\302!\207" [mac-scroll-ignore-events scroll-up 1] 2)))] 1] darwin nil "sh" (system-name emacs-build-system user-login-name user-real-login-name user-full-name) decode-coding-string directory-free-space-program shell-file-name v #:--cl-dolist-temp-- mac-system-coding-system scalable-fonts-allowed] 5)