home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1994-05-19 | 22.3 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 100%
| file
| Emacs/XEmacs v19 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 72 6d 73 40 6d 6f 6c |piled by| rms@mol|
|00000020| 65 2e 67 6e 75 2e 61 69 | 2e 6d 69 74 2e 65 64 75 |e.gnu.ai|.mit.edu|
|00000030| 20 6f 6e 20 54 68 75 20 | 4d 61 79 20 31 39 20 30 | on Thu |May 19 0|
|00000040| 30 3a 32 38 3a 33 36 20 | 31 39 39 34 0a 3b 3b 3b |0:28:36 |1994.;;;|
|00000050| 20 66 72 6f 6d 20 66 69 | 6c 65 20 2f 68 6f 6d 65 | from fi|le /home|
|00000060| 2f 66 73 66 2f 72 6d 73 | 2f 65 31 39 2f 6c 69 73 |/fsf/rms|/e19/lis|
|00000070| 70 2f 66 61 63 65 73 2e | 65 6c 0a 3b 3b 3b 20 65 |p/faces.|el.;;; e|
|00000080| 6d 61 63 73 20 76 65 72 | 73 69 6f 6e 20 31 39 2e |macs ver|sion 19.|
|00000090| 32 32 2e 39 34 2e 31 2e | 0a 3b 3b 3b 20 62 79 74 |22.94.1.|.;;; byt|
|000000a0| 65 63 6f 6d 70 20 76 65 | 72 73 69 6f 6e 20 46 53 |ecomp ve|rsion FS|
|000000b0| 46 20 32 2e 31 30 0a 3b | 3b 3b 20 6f 70 74 69 6d |F 2.10.;|;; optim|
|000000c0| 69 7a 61 74 69 6f 6e 20 | 69 73 20 6f 6e 2e 0a 3b |ization |is on..;|
|000000d0| 3b 3b 20 74 68 69 73 20 | 66 69 6c 65 20 75 73 65 |;; this |file use|
|000000e0| 73 20 6f 70 63 6f 64 65 | 73 20 77 68 69 63 68 20 |s opcode|s which |
|000000f0| 64 6f 20 6e 6f 74 20 65 | 78 69 73 74 20 69 6e 20 |do not e|xist in |
|00000100| 45 6d 61 63 73 20 31 38 | 2e 0a 0a 28 69 66 20 28 |Emacs 18|...(if (|
|00000110| 61 6e 64 20 28 62 6f 75 | 6e 64 70 20 27 65 6d 61 |and (bou|ndp 'ema|
|00000120| 63 73 2d 76 65 72 73 69 | 6f 6e 29 0a 09 20 28 6f |cs-versi|on).. (o|
|00000130| 72 20 28 61 6e 64 20 28 | 62 6f 75 6e 64 70 20 27 |r (and (|boundp '|
|00000140| 65 70 6f 63 68 3a 3a 76 | 65 72 73 69 6f 6e 29 20 |epoch::v|ersion) |
|00000150| 65 70 6f 63 68 3a 3a 76 | 65 72 73 69 6f 6e 29 0a |epoch::v|ersion).|
|00000160| 09 20 20 20 20 20 28 73 | 74 72 69 6e 67 2d 6c 65 |. (s|tring-le|
|00000170| 73 73 70 20 65 6d 61 63 | 73 2d 76 65 72 73 69 6f |ssp emac|s-versio|
|00000180| 6e 20 22 31 39 22 29 29 | 29 0a 20 20 20 20 28 65 |n "19"))|). (e|
|00000190| 72 72 6f 72 20 22 60 2f | 68 6f 6d 65 2f 66 73 66 |rror "`/|home/fsf|
|000001a0| 2f 72 6d 73 2f 65 31 39 | 2f 6c 69 73 70 2f 66 61 |/rms/e19|/lisp/fa|
|000001b0| 63 65 73 2e 65 6c 27 20 | 77 61 73 20 63 6f 6d 70 |ces.el' |was comp|
|000001c0| 69 6c 65 64 20 66 6f 72 | 20 45 6d 61 63 73 20 31 |iled for| Emacs 1|
|000001d0| 39 22 29 29 0a 0a 28 62 | 79 74 65 2d 63 6f 64 65 |9"))..(b|yte-code|
|000001e0| 20 22 c0 c1 c2 5c 22 88 | c3 c1 c4 c5 23 88 c0 c6 | "...\".|....#...|
|000001f0| c7 5c 22 87 22 20 5b 64 | 65 66 61 6c 69 61 73 20 |.\"." [d|efalias |
|00000200| 69 6e 74 65 72 6e 61 6c | 2d 66 61 63 65 70 20 23 |internal|-facep #|
|00000210| 5b 28 78 29 20 22 c0 09 | 21 85 12 00 09 47 c2 55 |[(x) "..|!....G.U|
|00000220| 85 12 00 09 c3 48 c4 3d | 87 22 20 5b 76 65 63 74 |.....H.=|." [vect|
|00000230| 6f 72 70 20 78 20 38 20 | 30 20 66 61 63 65 5d 20 |orp x 8 |0 face] |
|00000240| 32 5d 20 70 75 74 20 62 | 79 74 65 2d 6f 70 74 69 |2] put b|yte-opti|
|00000250| 6d 69 7a 65 72 20 62 79 | 74 65 2d 63 6f 6d 70 69 |mizer by|te-compi|
|00000260| 6c 65 2d 69 6e 6c 69 6e | 65 2d 65 78 70 61 6e 64 |le-inlin|e-expand|
|00000270| 20 69 6e 74 65 72 6e 61 | 6c 2d 63 68 65 63 6b 2d | interna|l-check-|
|00000280| 66 61 63 65 20 28 6d 61 | 63 72 6f 20 2e 20 23 5b |face (ma|cro . #[|
|00000290| 28 66 61 63 65 29 20 22 | c0 c1 c2 0b 44 44 c4 0b |(face) "|....DD..|
|000002a0| c5 c6 c7 c8 0b 45 45 45 | 45 87 22 20 5b 77 68 69 |.....EEE|E." [whi|
|000002b0| 6c 65 20 6e 6f 74 20 69 | 6e 74 65 72 6e 61 6c 2d |le not i|nternal-|
|000002c0| 66 61 63 65 70 20 66 61 | 63 65 20 73 65 74 71 20 |facep fa|ce setq |
|000002d0| 73 69 67 6e 61 6c 20 28 | 71 75 6f 74 65 20 77 72 |signal (|quote wr|
|000002e0| 6f 6e 67 2d 74 79 70 65 | 2d 61 72 67 75 6d 65 6e |ong-type|-argumen|
|000002f0| 74 29 20 6c 69 73 74 20 | 28 71 75 6f 74 65 20 69 |t) list |(quote i|
|00000300| 6e 74 65 72 6e 61 6c 2d | 66 61 63 65 70 29 5d 20 |nternal-|facep)] |
|00000310| 39 5d 29 5d 20 34 29 0a | 28 64 65 66 61 6c 69 61 |9])] 4).|(defalia|
|00000320| 73 20 27 66 61 63 65 2d | 6e 61 6d 65 20 23 5b 28 |s 'face-|name #[(|
|00000330| 66 61 63 65 29 20 22 c0 | 09 21 c2 48 87 22 20 5b |face) ".|.!.H." [|
|00000340| 69 6e 74 65 72 6e 61 6c | 2d 67 65 74 2d 66 61 63 |internal|-get-fac|
|00000350| 65 20 66 61 63 65 20 31 | 5d 20 32 20 22 5c 0a 52 |e face 1|] 2 "\.R|
|00000360| 65 74 75 72 6e 20 74 68 | 65 20 6e 61 6d 65 20 6f |eturn th|e name o|
|00000370| 66 20 66 61 63 65 20 46 | 41 43 45 2e 22 5d 29 0a |f face F|ACE."]).|
|00000380| 28 70 75 74 20 28 71 75 | 6f 74 65 20 66 61 63 65 |(put (qu|ote face|
|00000390| 2d 6e 61 6d 65 29 20 28 | 71 75 6f 74 65 20 62 79 |-name) (|quote by|
|000003a0| 74 65 2d 6f 70 74 69 6d | 69 7a 65 72 29 20 28 71 |te-optim|izer) (q|
|000003b0| 75 6f 74 65 20 62 79 74 | 65 2d 63 6f 6d 70 69 6c |uote byt|e-compil|
|000003c0| 65 2d 69 6e 6c 69 6e 65 | 2d 65 78 70 61 6e 64 29 |e-inline|-expand)|
|000003d0| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 66 61 63 |).(defal|ias 'fac|
|000003e0| 65 2d 69 64 20 23 5b 28 | 66 61 63 65 29 20 22 c0 |e-id #[(|face) ".|
|000003f0| 09 21 c2 48 87 22 20 5b | 69 6e 74 65 72 6e 61 6c |.!.H." [|internal|
|00000400| 2d 67 65 74 2d 66 61 63 | 65 20 66 61 63 65 20 32 |-get-fac|e face 2|
|00000410| 5d 20 32 20 22 5c 0a 52 | 65 74 75 72 6e 20 74 68 |] 2 "\.R|eturn th|
|00000420| 65 20 69 6e 74 65 72 6e | 61 6c 20 49 44 20 6e 75 |e intern|al ID nu|
|00000430| 6d 62 65 72 20 6f 66 20 | 66 61 63 65 20 46 41 43 |mber of |face FAC|
|00000440| 45 2e 22 5d 29 0a 28 70 | 75 74 20 28 71 75 6f 74 |E."]).(p|ut (quot|
|00000450| 65 20 66 61 63 65 2d 69 | 64 29 20 28 71 75 6f 74 |e face-i|d) (quot|
|00000460| 65 20 62 79 74 65 2d 6f | 70 74 69 6d 69 7a 65 72 |e byte-o|ptimizer|
|00000470| 29 20 28 71 75 6f 74 65 | 20 62 79 74 65 2d 63 6f |) (quote| byte-co|
|00000480| 6d 70 69 6c 65 2d 69 6e | 6c 69 6e 65 2d 65 78 70 |mpile-in|line-exp|
|00000490| 61 6e 64 29 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |and)).(d|efalias |
|000004a0| 27 66 61 63 65 2d 66 6f | 6e 74 20 23 5b 28 66 61 |'face-fo|nt #[(fa|
|000004b0| 63 65 20 26 6f 70 74 69 | 6f 6e 61 6c 20 66 72 61 |ce &opti|onal fra|
|000004c0| 6d 65 29 20 22 c0 09 5c | 6e 5c 22 c3 48 87 22 20 |me) "..\|n\".H." |
|000004d0| 5b 69 6e 74 65 72 6e 61 | 6c 2d 67 65 74 2d 66 61 |[interna|l-get-fa|
|000004e0| 63 65 20 66 61 63 65 20 | 66 72 61 6d 65 20 33 5d |ce face |frame 3]|
|000004f0| 20 33 20 22 5c 0a 52 65 | 74 75 72 6e 20 74 68 65 | 3 "\.Re|turn the|
|00000500| 20 66 6f 6e 74 20 6e 61 | 6d 65 20 6f 66 20 66 61 | font na|me of fa|
|00000510| 63 65 20 46 41 43 45 2c | 20 6f 72 20 6e 69 6c 20 |ce FACE,| or nil |
|00000520| 69 66 20 69 74 20 69 73 | 20 75 6e 73 70 65 63 69 |if it is| unspeci|
|00000530| 66 69 65 64 2e 0a 49 66 | 20 74 68 65 20 6f 70 74 |fied..If| the opt|
|00000540| 69 6f 6e 61 6c 20 61 72 | 67 75 6d 65 6e 74 20 46 |ional ar|gument F|
|00000550| 52 41 4d 45 20 69 73 20 | 67 69 76 65 6e 2c 20 72 |RAME is |given, r|
|00000560| 65 70 6f 72 74 20 6f 6e | 20 66 61 63 65 20 46 41 |eport on| face FA|
|00000570| 43 45 20 69 6e 20 74 68 | 61 74 20 66 72 61 6d 65 |CE in th|at frame|
|00000580| 2e 0a 49 66 20 46 52 41 | 4d 45 20 69 73 20 74 2c |..If FRA|ME is t,|
|00000590| 20 72 65 70 6f 72 74 20 | 6f 6e 20 74 68 65 20 64 | report |on the d|
|000005a0| 65 66 61 75 6c 74 73 20 | 66 6f 72 20 66 61 63 65 |efaults |for face|
|000005b0| 20 46 41 43 45 20 28 66 | 6f 72 20 6e 65 77 20 66 | FACE (f|or new f|
|000005c0| 72 61 6d 65 73 29 2e 0a | 20 20 54 68 65 20 66 6f |rames)..| The fo|
|000005d0| 6e 74 20 64 65 66 61 75 | 6c 74 20 66 6f 72 20 61 |nt defau|lt for a|
|000005e0| 20 66 61 63 65 20 69 73 | 20 65 69 74 68 65 72 20 | face is| either |
|000005f0| 6e 69 6c 2c 20 6f 72 20 | 61 20 6c 69 73 74 0a 20 |nil, or |a list. |
|00000600| 20 6f 66 20 74 68 65 20 | 66 6f 72 6d 20 28 62 6f | of the |form (bo|
|00000610| 6c 64 29 2c 20 28 69 74 | 61 6c 69 63 29 20 6f 72 |ld), (it|alic) or|
|00000620| 20 28 62 6f 6c 64 20 69 | 74 61 6c 69 63 29 2e 0a | (bold i|talic)..|
|00000630| 49 66 20 46 52 41 4d 45 | 20 69 73 20 6f 6d 69 74 |If FRAME| is omit|
|00000640| 74 65 64 20 6f 72 20 6e | 69 6c 2c 20 75 73 65 20 |ted or n|il, use |
|00000650| 74 68 65 20 73 65 6c 65 | 63 74 65 64 20 66 72 61 |the sele|cted fra|
|00000660| 6d 65 2e 22 5d 29 0a 28 | 70 75 74 20 28 71 75 6f |me."]).(|put (quo|
|00000670| 74 65 20 66 61 63 65 2d | 66 6f 6e 74 29 20 28 71 |te face-|font) (q|
|00000680| 75 6f 74 65 20 62 79 74 | 65 2d 6f 70 74 69 6d 69 |uote byt|e-optimi|
|00000690| 7a 65 72 29 20 28 71 75 | 6f 74 65 20 62 79 74 65 |zer) (qu|ote byte|
|000006a0| 2d 63 6f 6d 70 69 6c 65 | 2d 69 6e 6c 69 6e 65 2d |-compile|-inline-|
|000006b0| 65 78 70 61 6e 64 29 29 | 0a 28 64 65 66 61 6c 69 |expand))|.(defali|
|000006c0| 61 73 20 27 66 61 63 65 | 2d 66 6f 72 65 67 72 6f |as 'face|-foregro|
|000006d0| 75 6e 64 20 23 5b 28 66 | 61 63 65 20 26 6f 70 74 |und #[(f|ace &opt|
|000006e0| 69 6f 6e 61 6c 20 66 72 | 61 6d 65 29 20 22 c0 09 |ional fr|ame) "..|
|000006f0| 5c 6e 5c 22 c3 48 87 22 | 20 5b 69 6e 74 65 72 6e |\n\".H."| [intern|
|00000700| 61 6c 2d 67 65 74 2d 66 | 61 63 65 20 66 61 63 65 |al-get-f|ace face|
|00000710| 20 66 72 61 6d 65 20 34 | 5d 20 33 20 22 5c 0a 52 | frame 4|] 3 "\.R|
|00000720| 65 74 75 72 6e 20 74 68 | 65 20 66 6f 72 65 67 72 |eturn th|e foregr|
|00000730| 6f 75 6e 64 20 63 6f 6c | 6f 72 20 6e 61 6d 65 20 |ound col|or name |
|00000740| 6f 66 20 66 61 63 65 20 | 46 41 43 45 2c 20 6f 72 |of face |FACE, or|
|00000750| 20 6e 69 6c 20 69 66 20 | 75 6e 73 70 65 63 69 66 | nil if |unspecif|
|00000760| 69 65 64 2e 0a 49 66 20 | 74 68 65 20 6f 70 74 69 |ied..If |the opti|
|00000770| 6f 6e 61 6c 20 61 72 67 | 75 6d 65 6e 74 20 46 52 |onal arg|ument FR|
|00000780| 41 4d 45 20 69 73 20 67 | 69 76 65 6e 2c 20 72 65 |AME is g|iven, re|
|00000790| 70 6f 72 74 20 6f 6e 20 | 66 61 63 65 20 46 41 43 |port on |face FAC|
|000007a0| 45 20 69 6e 20 74 68 61 | 74 20 66 72 61 6d 65 2e |E in tha|t frame.|
|000007b0| 0a 49 66 20 46 52 41 4d | 45 20 69 73 20 74 2c 20 |.If FRAM|E is t, |
|000007c0| 72 65 70 6f 72 74 20 6f | 6e 20 74 68 65 20 64 65 |report o|n the de|
|000007d0| 66 61 75 6c 74 73 20 66 | 6f 72 20 66 61 63 65 20 |faults f|or face |
|000007e0| 46 41 43 45 20 28 66 6f | 72 20 6e 65 77 20 66 72 |FACE (fo|r new fr|
|000007f0| 61 6d 65 73 29 2e 0a 49 | 66 20 46 52 41 4d 45 20 |ames)..I|f FRAME |
|00000800| 69 73 20 6f 6d 69 74 74 | 65 64 20 6f 72 20 6e 69 |is omitt|ed or ni|
|00000810| 6c 2c 20 75 73 65 20 74 | 68 65 20 73 65 6c 65 63 |l, use t|he selec|
|00000820| 74 65 64 20 66 72 61 6d | 65 2e 22 5d 29 0a 28 70 |ted fram|e."]).(p|
|00000830| 75 74 20 28 71 75 6f 74 | 65 20 66 61 63 65 2d 66 |ut (quot|e face-f|
|00000840| 6f 72 65 67 72 6f 75 6e | 64 29 20 28 71 75 6f 74 |oregroun|d) (quot|
|00000850| 65 20 62 79 74 65 2d 6f | 70 74 69 6d 69 7a 65 72 |e byte-o|ptimizer|
|00000860| 29 20 28 71 75 6f 74 65 | 20 62 79 74 65 2d 63 6f |) (quote| byte-co|
|00000870| 6d 70 69 6c 65 2d 69 6e | 6c 69 6e 65 2d 65 78 70 |mpile-in|line-exp|
|00000880| 61 6e 64 29 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |and)).(d|efalias |
|00000890| 27 66 61 63 65 2d 62 61 | 63 6b 67 72 6f 75 6e 64 |'face-ba|ckground|
|000008a0| 20 23 5b 28 66 61 63 65 | 20 26 6f 70 74 69 6f 6e | #[(face| &option|
|000008b0| 61 6c 20 66 72 61 6d 65 | 29 20 22 c0 09 5c 6e 5c |al frame|) "..\n\|
|000008c0| 22 c3 48 87 22 20 5b 69 | 6e 74 65 72 6e 61 6c 2d |".H." [i|nternal-|
|000008d0| 67 65 74 2d 66 61 63 65 | 20 66 61 63 65 20 66 72 |get-face| face fr|
|000008e0| 61 6d 65 20 35 5d 20 33 | 20 22 5c 0a 52 65 74 75 |ame 5] 3| "\.Retu|
|000008f0| 72 6e 20 74 68 65 20 62 | 61 63 6b 67 72 6f 75 6e |rn the b|ackgroun|
|00000900| 64 20 63 6f 6c 6f 72 20 | 6e 61 6d 65 20 6f 66 20 |d color |name of |
|00000910| 66 61 63 65 20 46 41 43 | 45 2c 20 6f 72 20 6e 69 |face FAC|E, or ni|
|00000920| 6c 20 69 66 20 75 6e 73 | 70 65 63 69 66 69 65 64 |l if uns|pecified|
|00000930| 2e 0a 49 66 20 74 68 65 | 20 6f 70 74 69 6f 6e 61 |..If the| optiona|
|00000940| 6c 20 61 72 67 75 6d 65 | 6e 74 20 46 52 41 4d 45 |l argume|nt FRAME|
|00000950| 20 69 73 20 67 69 76 65 | 6e 2c 20 72 65 70 6f 72 | is give|n, repor|
|00000960| 74 20 6f 6e 20 66 61 63 | 65 20 46 41 43 45 20 69 |t on fac|e FACE i|
|00000970| 6e 20 74 68 61 74 20 66 | 72 61 6d 65 2e 0a 49 66 |n that f|rame..If|
|00000980| 20 46 52 41 4d 45 20 69 | 73 20 74 2c 20 72 65 70 | FRAME i|s t, rep|
|00000990| 6f 72 74 20 6f 6e 20 74 | 68 65 20 64 65 66 61 75 |ort on t|he defau|
|000009a0| 6c 74 73 20 66 6f 72 20 | 66 61 63 65 20 46 41 43 |lts for |face FAC|
|000009b0| 45 20 28 66 6f 72 20 6e | 65 77 20 66 72 61 6d 65 |E (for n|ew frame|
|000009c0| 73 29 2e 0a 49 66 20 46 | 52 41 4d 45 20 69 73 20 |s)..If F|RAME is |
|000009d0| 6f 6d 69 74 74 65 64 20 | 6f 72 20 6e 69 6c 2c 20 |omitted |or nil, |
|000009e0| 75 73 65 20 74 68 65 20 | 73 65 6c 65 63 74 65 64 |use the |selected|
|000009f0| 20 66 72 61 6d 65 2e 22 | 5d 29 0a 28 70 75 74 20 | frame."|]).(put |
|00000a00| 28 71 75 6f 74 65 20 66 | 61 63 65 2d 62 61 63 6b |(quote f|ace-back|
|00000a10| 67 72 6f 75 6e 64 29 20 | 28 71 75 6f 74 65 20 62 |ground) |(quote b|
|00000a20| 79 74 65 2d 6f 70 74 69 | 6d 69 7a 65 72 29 20 28 |yte-opti|mizer) (|
|00000a30| 71 75 6f 74 65 20 62 79 | 74 65 2d 63 6f 6d 70 69 |quote by|te-compi|
|00000a40| 6c 65 2d 69 6e 6c 69 6e | 65 2d 65 78 70 61 6e 64 |le-inlin|e-expand|
|00000a50| 29 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 66 61 |)).(defa|lias 'fa|
|00000a60| 63 65 2d 75 6e 64 65 72 | 6c 69 6e 65 2d 70 20 23 |ce-under|line-p #|
|00000a70| 5b 28 66 61 63 65 20 26 | 6f 70 74 69 6f 6e 61 6c |[(face &|optional|
|00000a80| 20 66 72 61 6d 65 29 20 | 22 c0 09 5c 6e 5c 22 c3 | frame) |"..\n\".|
|00000a90| 48 87 22 20 5b 69 6e 74 | 65 72 6e 61 6c 2d 67 65 |H." [int|ernal-ge|
|00000aa0| 74 2d 66 61 63 65 20 66 | 61 63 65 20 66 72 61 6d |t-face f|ace fram|
|00000ab0| 65 20 37 5d 20 33 20 22 | 5c 0a 52 65 74 75 72 6e |e 7] 3 "|\.Return|
|00000ac0| 20 74 20 69 66 20 66 61 | 63 65 20 46 41 43 45 20 | t if fa|ce FACE |
|00000ad0| 69 73 20 75 6e 64 65 72 | 6c 69 6e 65 64 2e 0a 49 |is under|lined..I|
|00000ae0| 66 20 74 68 65 20 6f 70 | 74 69 6f 6e 61 6c 20 61 |f the op|tional a|
|00000af0| 72 67 75 6d 65 6e 74 20 | 46 52 41 4d 45 20 69 73 |rgument |FRAME is|
|00000b00| 20 67 69 76 65 6e 2c 20 | 72 65 70 6f 72 74 20 6f | given, |report o|
|00000b10| 6e 20 66 61 63 65 20 46 | 41 43 45 20 69 6e 20 74 |n face F|ACE in t|
|00000b20| 68 61 74 20 66 72 61 6d | 65 2e 0a 49 66 20 46 52 |hat fram|e..If FR|
|00000b30| 41 4d 45 20 69 73 20 74 | 2c 20 72 65 70 6f 72 74 |AME is t|, report|
|00000b40| 20 6f 6e 20 74 68 65 20 | 64 65 66 61 75 6c 74 73 | on the |defaults|
|00000b50| 20 66 6f 72 20 66 61 63 | 65 20 46 41 43 45 20 28 | for fac|e FACE (|
|00000b60| 66 6f 72 20 6e 65 77 20 | 66 72 61 6d 65 73 29 2e |for new |frames).|
|00000b70| 0a 49 66 20 46 52 41 4d | 45 20 69 73 20 6f 6d 69 |.If FRAM|E is omi|
|00000b80| 74 74 65 64 20 6f 72 20 | 6e 69 6c 2c 20 75 73 65 |tted or |nil, use|
|00000b90| 20 74 68 65 20 73 65 6c | 65 63 74 65 64 20 66 72 | the sel|ected fr|
|00000ba0| 61 6d 65 2e 22 5d 29 0a | 28 70 75 74 20 28 71 75 |ame."]).|(put (qu|
|00000bb0| 6f 74 65 20 66 61 63 65 | 2d 75 6e 64 65 72 6c 69 |ote face|-underli|
|00000bc0| 6e 65 2d 70 29 20 28 71 | 75 6f 74 65 20 62 79 74 |ne-p) (q|uote byt|
|00000bd0| 65 2d 6f 70 74 69 6d 69 | 7a 65 72 29 20 28 71 75 |e-optimi|zer) (qu|
|00000be0| 6f 74 65 20 62 79 74 65 | 2d 63 6f 6d 70 69 6c 65 |ote byte|-compile|
|00000bf0| 2d 69 6e 6c 69 6e 65 2d | 65 78 70 61 6e 64 29 29 |-inline-|expand))|
|00000c00| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 73 65 74 2d |.(defali|as 'set-|
|00000c10| 66 61 63 65 2d 66 6f 6e | 74 20 23 5b 28 66 61 63 |face-fon|t #[(fac|
|00000c20| 65 20 66 6f 6e 74 20 26 | 6f 70 74 69 6f 6e 61 6c |e font &|optional|
|00000c30| 20 66 72 61 6d 65 29 20 | 22 08 3b 83 0b 00 c1 08 | frame) |".;.....|
|00000c40| 5c 6e 0b 23 10 c4 5c 6e | c0 08 c5 0b 25 87 22 20 |\n.#..\n|....%." |
|00000c50| 5b 66 6f 6e 74 20 78 2d | 72 65 73 6f 6c 76 65 2d |[font x-|resolve-|
|00000c60| 66 6f 6e 74 2d 6e 61 6d | 65 20 66 61 63 65 20 66 |font-nam|e face f|
|00000c70| 72 61 6d 65 20 69 6e 74 | 65 72 6e 61 6c 2d 73 65 |rame int|ernal-se|
|00000c80| 74 2d 66 61 63 65 2d 31 | 20 33 5d 20 36 20 22 5c |t-face-1| 3] 6 "\|
|00000c90| 0a 43 68 61 6e 67 65 20 | 74 68 65 20 66 6f 6e 74 |.Change |the font|
|00000ca0| 20 6f 66 20 66 61 63 65 | 20 46 41 43 45 20 74 6f | of face| FACE to|
|00000cb0| 20 46 4f 4e 54 20 28 61 | 20 73 74 72 69 6e 67 29 | FONT (a| string)|
|00000cc0| 2e 0a 49 66 20 74 68 65 | 20 6f 70 74 69 6f 6e 61 |..If the| optiona|
|00000cd0| 6c 20 46 52 41 4d 45 20 | 61 72 67 75 6d 65 6e 74 |l FRAME |argument|
|00000ce0| 20 69 73 20 70 72 6f 76 | 69 64 65 64 2c 20 63 68 | is prov|ided, ch|
|00000cf0| 61 6e 67 65 20 6f 6e 6c | 79 0a 69 6e 20 74 68 61 |ange onl|y.in tha|
|00000d00| 74 20 66 72 61 6d 65 3b | 20 6f 74 68 65 72 77 69 |t frame;| otherwi|
|00000d10| 73 65 20 63 68 61 6e 67 | 65 20 65 61 63 68 20 66 |se chang|e each f|
|00000d20| 72 61 6d 65 2e 22 20 28 | 69 6e 74 65 72 6e 61 6c |rame." (|internal|
|00000d30| 2d 66 61 63 65 2d 69 6e | 74 65 72 61 63 74 69 76 |-face-in|teractiv|
|00000d40| 65 20 22 66 6f 6e 74 22 | 29 5d 29 0a 28 70 75 74 |e "font"|)]).(put|
|00000d50| 20 28 71 75 6f 74 65 20 | 73 65 74 2d 66 61 63 65 | (quote |set-face|
|00000d60| 2d 66 6f 6e 74 29 20 28 | 71 75 6f 74 65 20 62 79 |-font) (|quote by|
|00000d70| 74 65 2d 6f 70 74 69 6d | 69 7a 65 72 29 20 28 71 |te-optim|izer) (q|
|00000d80| 75 6f 74 65 20 62 79 74 | 65 2d 63 6f 6d 70 69 6c |uote byt|e-compil|
|00000d90| 65 2d 69 6e 6c 69 6e 65 | 2d 65 78 70 61 6e 64 29 |e-inline|-expand)|
|00000da0| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 73 65 74 |).(defal|ias 'set|
|00000db0| 2d 66 61 63 65 2d 66 6f | 72 65 67 72 6f 75 6e 64 |-face-fo|reground|
|00000dc0| 20 23 5b 28 66 61 63 65 | 20 63 6f 6c 6f 72 20 26 | #[(face| color &|
|00000dd0| 6f 70 74 69 6f 6e 61 6c | 20 66 72 61 6d 65 29 20 |optional| frame) |
|00000de0| 22 c0 09 c2 0b c4 0d 25 | 87 22 20 5b 69 6e 74 65 |"......%|." [inte|
|00000df0| 72 6e 61 6c 2d 73 65 74 | 2d 66 61 63 65 2d 31 20 |rnal-set|-face-1 |
|00000e00| 66 61 63 65 20 66 6f 72 | 65 67 72 6f 75 6e 64 20 |face for|eground |
|00000e10| 63 6f 6c 6f 72 20 34 20 | 66 72 61 6d 65 5d 20 36 |color 4 |frame] 6|
|00000e20| 20 22 5c 0a 43 68 61 6e | 67 65 20 74 68 65 20 66 | "\.Chan|ge the f|
|00000e30| 6f 72 65 67 72 6f 75 6e | 64 20 63 6f 6c 6f 72 20 |oregroun|d color |
|00000e40| 6f 66 20 66 61 63 65 20 | 46 41 43 45 20 74 6f 20 |of face |FACE to |
|00000e50| 43 4f 4c 4f 52 20 28 61 | 20 73 74 72 69 6e 67 29 |COLOR (a| string)|
|00000e60| 2e 0a 49 66 20 74 68 65 | 20 6f 70 74 69 6f 6e 61 |..If the| optiona|
|00000e70| 6c 20 46 52 41 4d 45 20 | 61 72 67 75 6d 65 6e 74 |l FRAME |argument|
|00000e80| 20 69 73 20 70 72 6f 76 | 69 64 65 64 2c 20 63 68 | is prov|ided, ch|
|00000e90| 61 6e 67 65 20 6f 6e 6c | 79 0a 69 6e 20 74 68 61 |ange onl|y.in tha|
|00000ea0| 74 20 66 72 61 6d 65 3b | 20 6f 74 68 65 72 77 69 |t frame;| otherwi|
|00000eb0| 73 65 20 63 68 61 6e 67 | 65 20 65 61 63 68 20 66 |se chang|e each f|
|00000ec0| 72 61 6d 65 2e 22 20 28 | 69 6e 74 65 72 6e 61 6c |rame." (|internal|
|00000ed0| 2d 66 61 63 65 2d 69 6e | 74 65 72 61 63 74 69 76 |-face-in|teractiv|
|00000ee0| 65 20 22 66 6f 72 65 67 | 72 6f 75 6e 64 22 29 5d |e "foreg|round")]|
|00000ef0| 29 0a 28 70 75 74 20 28 | 71 75 6f 74 65 20 73 65 |).(put (|quote se|
|00000f00| 74 2d 66 61 63 65 2d 66 | 6f 72 65 67 72 6f 75 6e |t-face-f|oregroun|
|00000f10| 64 29 20 28 71 75 6f 74 | 65 20 62 79 74 65 2d 6f |d) (quot|e byte-o|
|00000f20| 70 74 69 6d 69 7a 65 72 | 29 20 28 71 75 6f 74 65 |ptimizer|) (quote|
|00000f30| 20 62 79 74 65 2d 63 6f | 6d 70 69 6c 65 2d 69 6e | byte-co|mpile-in|
|00000f40| 6c 69 6e 65 2d 65 78 70 | 61 6e 64 29 29 0a 28 64 |line-exp|and)).(d|
|00000f50| 65 66 61 6c 69 61 73 20 | 27 73 65 74 2d 66 61 63 |efalias |'set-fac|
|00000f60| 65 2d 62 61 63 6b 67 72 | 6f 75 6e 64 20 23 5b 28 |e-backgr|ound #[(|
|00000f70| 66 61 63 65 20 63 6f 6c | 6f 72 20 26 6f 70 74 69 |face col|or &opti|
|00000f80| 6f 6e 61 6c 20 66 72 61 | 6d 65 29 20 22 c0 09 c2 |onal fra|me) "...|
|00000f90| 0b c4 0d 25 87 22 20 5b | 69 6e 74 65 72 6e 61 6c |...%." [|internal|
|00000fa0| 2d 73 65 74 2d 66 61 63 | 65 2d 31 20 66 61 63 65 |-set-fac|e-1 face|
|00000fb0| 20 62 61 63 6b 67 72 6f | 75 6e 64 20 63 6f 6c 6f | backgro|und colo|
|00000fc0| 72 20 35 20 66 72 61 6d | 65 5d 20 36 20 22 5c 0a |r 5 fram|e] 6 "\.|
|00000fd0| 43 68 61 6e 67 65 20 74 | 68 65 20 62 61 63 6b 67 |Change t|he backg|
|00000fe0| 72 6f 75 6e 64 20 63 6f | 6c 6f 72 20 6f 66 20 66 |round co|lor of f|
|00000ff0| 61 63 65 20 46 41 43 45 | 20 74 6f 20 43 4f 4c 4f |ace FACE| to COLO|
|00001000| 52 20 28 61 20 73 74 72 | 69 6e 67 29 2e 0a 49 66 |R (a str|ing)..If|
|00001010| 20 74 68 65 20 6f 70 74 | 69 6f 6e 61 6c 20 46 52 | the opt|ional FR|
|00001020| 41 4d 45 20 61 72 67 75 | 6d 65 6e 74 20 69 73 20 |AME argu|ment is |
|00001030| 70 72 6f 76 69 64 65 64 | 2c 20 63 68 61 6e 67 65 |provided|, change|
|00001040| 20 6f 6e 6c 79 0a 69 6e | 20 74 68 61 74 20 66 72 | only.in| that fr|
|00001050| 61 6d 65 3b 20 6f 74 68 | 65 72 77 69 73 65 20 63 |ame; oth|erwise c|
|00001060| 68 61 6e 67 65 20 65 61 | 63 68 20 66 72 61 6d 65 |hange ea|ch frame|
|00001070| 2e 22 20 28 69 6e 74 65 | 72 6e 61 6c 2d 66 61 63 |." (inte|rnal-fac|
|00001080| 65 2d 69 6e 74 65 72 61 | 63 74 69 76 65 20 22 62 |e-intera|ctive "b|
|00001090| 61 63 6b 67 72 6f 75 6e | 64 22 29 5d 29 0a 28 70 |ackgroun|d")]).(p|
|000010a0| 75 74 20 28 71 75 6f 74 | 65 20 73 65 74 2d 66 61 |ut (quot|e set-fa|
|000010b0| 63 65 2d 62 61 63 6b 67 | 72 6f 75 6e 64 29 20 28 |ce-backg|round) (|
|000010c0| 71 75 6f 74 65 20 62 79 | 74 65 2d 6f 70 74 69 6d |quote by|te-optim|
|000010d0| 69 7a 65 72 29 20 28 71 | 75 6f 74 65 20 62 79 74 |izer) (q|uote byt|
|000010e0| 65 2d 63 6f 6d 70 69 6c | 65 2d 69 6e 6c 69 6e 65 |e-compil|e-inline|
|000010f0| 2d 65 78 70 61 6e 64 29 | 29 0a 28 64 65 66 61 6c |-expand)|).(defal|
|00001100| 69 61 73 20 27 73 65 74 | 2d 66 61 63 65 2d 75 6e |ias 'set|-face-un|
|00001110| 64 65 72 6c 69 6e 65 2d | 70 20 23 5b 28 66 61 63 |derline-|p #[(fac|
|00001120| 65 20 75 6e 64 65 72 6c | 69 6e 65 2d 70 20 26 6f |e underl|ine-p &o|
|00001130| 70 74 69 6f 6e 61 6c 20 | 66 72 61 6d 65 29 20 22 |ptional |frame) "|
|00001140| c0 09 c2 0b c4 0d 25 87 | 22 20 5b 69 6e 74 65 72 |......%.|" [inter|
|00001150| 6e 61 6c 2d 73 65 74 2d | 66 61 63 65 2d 31 20 66 |nal-set-|face-1 f|
|00001160| 61 63 65 20 75 6e 64 65 | 72 6c 69 6e 65 20 75 6e |ace unde|rline un|
|00001170| 64 65 72 6c 69 6e 65 2d | 70 20 37 20 66 72 61 6d |derline-|p 7 fram|
|00001180| 65 5d 20 36 20 22 5c 0a | 53 70 65 63 69 66 79 20 |e] 6 "\.|Specify |
|00001190| 77 68 65 74 68 65 72 20 | 66 61 63 65 20 46 41 43 |whether |face FAC|
|000011a0| 45 20 69 73 20 75 6e 64 | 65 72 6c 69 6e 65 64 2e |E is und|erlined.|
|000011b0| 20 20 28 59 65 73 20 69 | 66 20 55 4e 44 45 52 4c | (Yes i|f UNDERL|
|000011c0| 49 4e 45 2d 50 20 69 73 | 20 6e 6f 6e 2d 6e 69 6c |INE-P is| non-nil|
|000011d0| 2e 29 0a 49 66 20 74 68 | 65 20 6f 70 74 69 6f 6e |.).If th|e option|
|000011e0| 61 6c 20 46 52 41 4d 45 | 20 61 72 67 75 6d 65 6e |al FRAME| argumen|
|000011f0| 74 20 69 73 20 70 72 6f | 76 69 64 65 64 2c 20 63 |t is pro|vided, c|
|00001200| 68 61 6e 67 65 20 6f 6e | 6c 79 0a 69 6e 20 74 68 |hange on|ly.in th|
|00001210| 61 74 20 66 72 61 6d 65 | 3b 20 6f 74 68 65 72 77 |at frame|; otherw|
|00001220| 69 73 65 20 63 68 61 6e | 67 65 20 65 61 63 68 20 |ise chan|ge each |
|00001230| 66 72 61 6d 65 2e 22 20 | 28 69 6e 74 65 72 6e 61 |frame." |(interna|
|00001240| 6c 2d 66 61 63 65 2d 69 | 6e 74 65 72 61 63 74 69 |l-face-i|nteracti|
|00001250| 76 65 20 22 75 6e 64 65 | 72 6c 69 6e 65 2d 70 22 |ve "unde|rline-p"|
|00001260| 20 22 75 6e 64 65 72 6c | 69 6e 65 64 22 29 5d 29 | "underl|ined")])|
|00001270| 0a 28 70 75 74 20 28 71 | 75 6f 74 65 20 73 65 74 |.(put (q|uote set|
|00001280| 2d 66 61 63 65 2d 75 6e | 64 65 72 6c 69 6e 65 2d |-face-un|derline-|
|00001290| 70 29 20 28 71 75 6f 74 | 65 20 62 79 74 65 2d 6f |p) (quot|e byte-o|
|000012a0| 70 74 69 6d 69 7a 65 72 | 29 20 28 71 75 6f 74 65 |ptimizer|) (quote|
|000012b0| 20 62 79 74 65 2d 63 6f | 6d 70 69 6c 65 2d 69 6e | byte-co|mpile-in|
|000012c0| 6c 69 6e 65 2d 65 78 70 | 61 6e 64 29 29 0a 28 64 |line-exp|and)).(d|
|000012d0| 65 66 76 61 72 20 67 6c | 6f 62 61 6c 2d 66 61 63 |efvar gl|obal-fac|
|000012e0| 65 2d 64 61 74 61 20 6e | 69 6c 20 22 5c 0a 49 6e |e-data n|il "\.In|
|000012f0| 74 65 72 6e 61 6c 20 64 | 61 74 61 20 66 6f 72 20 |ternal d|ata for |
|00001300| 66 61 63 65 20 73 75 70 | 70 6f 72 74 20 66 75 6e |face sup|port fun|
|00001310| 63 74 69 6f 6e 73 2e 20 | 20 4e 6f 74 20 66 6f 72 |ctions. | Not for|
|00001320| 20 65 78 74 65 72 6e 61 | 6c 20 75 73 65 2e 0a 54 | externa|l use..T|
|00001330| 68 69 73 20 69 73 20 61 | 6e 20 61 6c 69 73 74 20 |his is a|n alist |
|00001340| 61 73 73 6f 63 69 61 74 | 69 6e 67 20 66 61 63 65 |associat|ing face|
|00001350| 20 6e 61 6d 65 73 20 77 | 69 74 68 20 74 68 65 20 | names w|ith the |
|00001360| 64 65 66 61 75 6c 74 20 | 76 61 6c 75 65 73 20 66 |default |values f|
|00001370| 6f 72 0a 74 68 65 69 72 | 20 70 61 72 61 6d 65 74 |or.their| paramet|
|00001380| 65 72 73 2e 20 20 4e 65 | 77 6c 79 20 63 72 65 61 |ers. Ne|wly crea|
|00001390| 74 65 64 20 66 72 61 6d | 65 73 20 67 65 74 20 74 |ted fram|es get t|
|000013a0| 68 65 69 72 20 64 61 74 | 61 20 66 72 6f 6d 20 68 |heir dat|a from h|
|000013b0| 65 72 65 2e 22 29 0a 28 | 64 65 66 61 6c 69 61 73 |ere.").(|defalias|
|000013c0| 20 27 66 61 63 65 2d 6c | 69 73 74 20 23 5b 6e 69 | 'face-l|ist #[ni|
|000013d0| 6c 20 22 c0 c1 5c 6e 5c | 22 87 22 20 5b 6d 61 70 |l "..\n\|"." [map|
|000013e0| 63 61 72 20 63 61 72 20 | 67 6c 6f 62 61 6c 2d 66 |car car |global-f|
|000013f0| 61 63 65 2d 64 61 74 61 | 5d 20 33 20 22 5c 0a 52 |ace-data|] 3 "\.R|
|00001400| 65 74 75 72 6e 73 20 61 | 20 6c 69 73 74 20 6f 66 |eturns a| list of|
|00001410| 20 61 6c 6c 20 64 65 66 | 69 6e 65 64 20 66 61 63 | all def|ined fac|
|00001420| 65 20 6e 61 6d 65 73 2e | 22 5d 29 0a 28 64 65 66 |e names.|"]).(def|
|00001430| 61 6c 69 61 73 20 27 69 | 6e 74 65 72 6e 61 6c 2d |alias 'i|nternal-|
|00001440| 66 69 6e 64 2d 66 61 63 | 65 20 23 5b 28 6e 61 6d |find-fac|e #[(nam|
|00001450| 65 20 26 6f 70 74 69 6f | 6e 61 6c 20 66 72 61 6d |e &optio|nal fram|
|00001460| 65 29 20 22 08 c1 3d 83 | 14 00 5c 6e 39 84 14 00 |e) "..=.|..\n9...|
|00001470| 5c 6e 1b c4 0b 21 c5 48 | 29 12 5c 6e 39 83 30 00 |\n...!.H|).\n9.0.|
|00001480| 5c 6e 08 c1 3d 83 25 00 | 0e 06 82 2d 00 c7 08 86 |\n..=.%.|...-....|
|00001490| 2c 00 c8 20 21 9e 41 87 | 5c 6e 1e 09 ca 0e 09 21 |,.. !.A.|\n.....!|
|000014a0| 85 48 00 0e 09 47 cb 55 | 85 48 00 0e 09 cc 48 c3 |.H...G.U|.H....H.|
|000014b0| 3d 29 84 57 00 cd ce cf | 5c 6e 44 5c 22 89 12 82 |=).W....|\nD\"...|
|000014c0| 31 00 5c 6e 87 22 20 5b | 66 72 61 6d 65 20 74 20 |1.\n." [|frame t |
|000014d0| 6e 61 6d 65 20 66 61 63 | 65 20 69 6e 74 65 72 6e |name fac|e intern|
|000014e0| 61 6c 2d 67 65 74 2d 66 | 61 63 65 20 31 20 67 6c |al-get-f|ace 1 gl|
|000014f0| 6f 62 61 6c 2d 66 61 63 | 65 2d 64 61 74 61 20 66 |obal-fac|e-data f|
|00001500| 72 61 6d 65 2d 66 61 63 | 65 2d 61 6c 69 73 74 20 |rame-fac|e-alist |
|00001510| 73 65 6c 65 63 74 65 64 | 2d 66 72 61 6d 65 20 78 |selected|-frame x|
|00001520| 20 76 65 63 74 6f 72 70 | 20 38 20 30 20 73 69 67 | vectorp| 8 0 sig|
|00001530| 6e 61 6c 20 77 72 6f 6e | 67 2d 74 79 70 65 2d 61 |nal wron|g-type-a|
|00001540| 72 67 75 6d 65 6e 74 20 | 69 6e 74 65 72 6e 61 6c |rgument |internal|
|00001550| 2d 66 61 63 65 70 5d 20 | 35 20 22 5c 0a 52 65 74 |-facep] |5 "\.Ret|
|00001560| 72 69 65 76 65 20 74 68 | 65 20 66 61 63 65 20 6e |rieve th|e face n|
|00001570| 61 6d 65 64 20 4e 41 4d | 45 2e 20 20 52 65 74 75 |amed NAM|E. Retu|
|00001580| 72 6e 20 6e 69 6c 20 69 | 66 20 74 68 65 72 65 20 |rn nil i|f there |
|00001590| 69 73 20 6e 6f 20 73 75 | 63 68 20 66 61 63 65 2e |is no su|ch face.|
|000015a0| 0a 49 66 20 74 68 65 20 | 6f 70 74 69 6f 6e 61 6c |.If the |optional|
|000015b0| 20 61 72 67 75 6d 65 6e | 74 20 46 52 41 4d 45 20 | argumen|t FRAME |
|000015c0| 69 73 20 67 69 76 65 6e | 2c 20 74 68 69 73 20 67 |is given|, this g|
|000015d0| 65 74 73 20 74 68 65 20 | 66 61 63 65 20 4e 41 4d |ets the |face NAM|
|000015e0| 45 20 66 6f 72 0a 74 68 | 61 74 20 66 72 61 6d 65 |E for.th|at frame|
|000015f0| 3b 20 6f 74 68 65 72 77 | 69 73 65 2c 20 69 74 20 |; otherw|ise, it |
|00001600| 75 73 65 73 20 74 68 65 | 20 73 65 6c 65 63 74 65 |uses the| selecte|
|00001610| 64 20 66 72 61 6d 65 2e | 0a 49 66 20 46 52 41 4d |d frame.|.If FRAM|
|00001620| 45 20 69 73 20 74 68 65 | 20 73 79 6d 62 6f 6c 20 |E is the| symbol |
|00001630| 74 2c 20 74 68 65 6e 20 | 74 68 65 20 67 6c 6f 62 |t, then |the glob|
|00001640| 61 6c 2c 20 6e 6f 6e 2d | 66 72 61 6d 65 20 66 61 |al, non-|frame fa|
|00001650| 63 65 20 69 73 20 72 65 | 74 75 72 6e 65 64 2e 0a |ce is re|turned..|
|00001660| 49 66 20 4e 41 4d 45 20 | 69 73 20 61 6c 72 65 61 |If NAME |is alrea|
|00001670| 64 79 20 61 20 66 61 63 | 65 2c 20 69 74 20 69 73 |dy a fac|e, it is|
|00001680| 20 73 69 6d 70 6c 79 20 | 72 65 74 75 72 6e 65 64 | simply |returned|
|00001690| 2e 22 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |."]).(de|falias '|
|000016a0| 69 6e 74 65 72 6e 61 6c | 2d 67 65 74 2d 66 61 63 |internal|-get-fac|
|000016b0| 65 20 23 5b 28 6e 61 6d | 65 20 26 6f 70 74 69 6f |e #[(nam|e &optio|
|000016c0| 6e 61 6c 20 66 72 61 6d | 65 29 20 22 c0 09 5c 6e |nal fram|e) "..\n|
|000016d0| 5c 22 86 2b 00 09 1b c4 | 0b 21 85 1b 00 0b 47 c5 |\".+....|.!....G.|
|000016e0| 55 85 1b 00 0b c6 48 c7 | 3d 29 3f 85 2b 00 c8 c9 |U.....H.|=)?.+...|
|000016f0| ca 09 44 5c 22 89 11 82 | 08 00 87 22 20 5b 69 6e |..D\"...|..." [in|
|00001700| 74 65 72 6e 61 6c 2d 66 | 69 6e 64 2d 66 61 63 65 |ternal-f|ind-face|
|00001710| 20 6e 61 6d 65 20 66 72 | 61 6d 65 20 78 20 76 65 | name fr|ame x ve|
|00001720| 63 74 6f 72 70 20 38 20 | 30 20 66 61 63 65 20 73 |ctorp 8 |0 face s|
|00001730| 69 67 6e 61 6c 20 77 72 | 6f 6e 67 2d 74 79 70 65 |ignal wr|ong-type|
|00001740| 2d 61 72 67 75 6d 65 6e | 74 20 69 6e 74 65 72 6e |-argumen|t intern|
|00001750| 61 6c 2d 66 61 63 65 70 | 5d 20 35 20 22 5c 0a 52 |al-facep|] 5 "\.R|
|00001760| 65 74 72 69 65 76 65 20 | 74 68 65 20 66 61 63 65 |etrieve |the face|
|00001770| 20 6e 61 6d 65 64 20 4e | 41 4d 45 3b 20 65 72 72 | named N|AME; err|
|00001780| 6f 72 20 69 66 20 74 68 | 65 72 65 20 69 73 20 6e |or if th|ere is n|
|00001790| 6f 6e 65 2e 0a 49 66 20 | 74 68 65 20 6f 70 74 69 |one..If |the opti|
|000017a0| 6f 6e 61 6c 20 61 72 67 | 75 6d 65 6e 74 20 46 52 |onal arg|ument FR|
|000017b0| 41 4d 45 20 69 73 20 67 | 69 76 65 6e 2c 20 74 68 |AME is g|iven, th|
|000017c0| 69 73 20 67 65 74 73 20 | 74 68 65 20 66 61 63 65 |is gets |the face|
|000017d0| 20 4e 41 4d 45 20 66 6f | 72 0a 74 68 61 74 20 66 | NAME fo|r.that f|
|000017e0| 72 61 6d 65 3b 20 6f 74 | 68 65 72 77 69 73 65 2c |rame; ot|herwise,|
|000017f0| 20 69 74 20 75 73 65 73 | 20 74 68 65 20 73 65 6c | it uses| the sel|
|00001800| 65 63 74 65 64 20 66 72 | 61 6d 65 2e 0a 49 66 20 |ected fr|ame..If |
|00001810| 46 52 41 4d 45 20 69 73 | 20 74 68 65 20 73 79 6d |FRAME is| the sym|
|00001820| 62 6f 6c 20 74 2c 20 74 | 68 65 6e 20 74 68 65 20 |bol t, t|hen the |
|00001830| 67 6c 6f 62 61 6c 2c 20 | 6e 6f 6e 2d 66 72 61 6d |global, |non-fram|
|00001840| 65 20 66 61 63 65 20 69 | 73 20 72 65 74 75 72 6e |e face i|s return|
|00001850| 65 64 2e 0a 49 66 20 4e | 41 4d 45 20 69 73 20 61 |ed..If N|AME is a|
|00001860| 6c 72 65 61 64 79 20 61 | 20 66 61 63 65 2c 20 69 |lready a| face, i|
|00001870| 74 20 69 73 20 73 69 6d | 70 6c 79 20 72 65 74 75 |t is sim|ply retu|
|00001880| 72 6e 65 64 2e 22 5d 29 | 0a 28 62 79 74 65 2d 63 |rned."])|.(byte-c|
|00001890| 6f 64 65 20 22 c0 c1 c2 | 5c 22 88 c0 c3 c4 5c 22 |ode "...|\"....\"|
|000018a0| 88 c0 c5 c6 5c 22 87 22 | 20 5b 64 65 66 61 6c 69 |....\"."| [defali|
|000018b0| 61 73 20 69 6e 74 65 72 | 6e 61 6c 2d 73 65 74 2d |as inter|nal-set-|
|000018c0| 66 61 63 65 2d 31 20 23 | 5b 28 66 61 63 65 20 6e |face-1 #|[(face n|
|000018d0| 61 6d 65 20 76 61 6c 75 | 65 20 69 6e 64 65 78 20 |ame valu|e index |
|000018e0| 66 72 61 6d 65 29 20 22 | c0 19 5c 6e 84 4f 00 c3 |frame) "|..\n.O..|
|000018f0| 20 89 1c 83 2a 00 c5 0e | 06 1e 06 c7 0e 06 21 c8 | ...*...|......!.|
|00001900| 48 29 0e 09 0e 5c 6e 0e | 0b 5c 66 40 25 88 5c 66 |H)...\n.|.\f@%.\f|
|00001910| 41 89 14 84 0d 00 c7 0e | 06 39 83 36 00 0e 06 82 |A.......|.9.6....|
|00001920| 41 00 0e 06 1e 06 c7 0e | 06 21 c8 48 29 c0 5c 22 |A.......|.!.H).\"|
|00001930| 0e 0b 0e 5c 6e 49 88 0e | 5c 6e 29 82 72 00 5c 6e |...\nI..|\n).r.\n|
|00001940| c0 3d 84 68 00 cc 0e 06 | 1e 06 c7 0e 06 21 cd 48 |.=.h....|.....!.H|
|00001950| 29 0e 09 0e 5c 6e 5c 6e | 24 88 c7 0e 06 5c 6e 5c |)...\n\n|$....\n\|
|00001960| 22 0e 0b 0e 5c 6e 49 29 | 87 22 20 5b 74 20 69 6e |"...\nI)|." [t in|
|00001970| 68 69 62 69 74 2d 71 75 | 69 74 20 66 72 61 6d 65 |hibit-qu|it frame|
|00001980| 20 66 72 61 6d 65 2d 6c | 69 73 74 20 66 72 61 6d | frame-l|ist fram|
|00001990| 65 73 20 69 6e 74 65 72 | 6e 61 6c 2d 73 65 74 2d |es inter|nal-set-|
|000019a0| 66 61 63 65 2d 31 20 66 | 61 63 65 20 69 6e 74 65 |face-1 f|ace inte|
|000019b0| 72 6e 61 6c 2d 67 65 74 | 2d 66 61 63 65 20 31 20 |rnal-get|-face 1 |
|000019c0| 6e 61 6d 65 20 76 61 6c | 75 65 20 69 6e 64 65 78 |name val|ue index|
|000019d0| 20 73 65 74 2d 66 61 63 | 65 2d 61 74 74 72 69 62 | set-fac|e-attrib|
|000019e0| 75 74 65 2d 69 6e 74 65 | 72 6e 61 6c 20 32 5d 20 |ute-inte|rnal 2] |
|000019f0| 37 5d 20 72 65 61 64 2d | 66 61 63 65 2d 6e 61 6d |7] read-|face-nam|
|00001a00| 65 20 23 5b 28 70 72 6f | 6d 70 74 29 20 22 c0 19 |e #[(pro|mpt) "..|
|00001a10| c0 47 c2 55 83 18 00 c3 | 5c 66 c5 c6 c7 20 5c 22 |.G.U....|\f... \"|
|00001a20| c0 c8 24 89 11 82 03 00 | c9 09 21 29 87 22 20 5b |..$.....|..!)." [|
|00001a30| 6e 69 6c 20 66 61 63 65 | 20 30 20 63 6f 6d 70 6c |nil face| 0 compl|
|00001a40| 65 74 69 6e 67 2d 72 65 | 61 64 20 70 72 6f 6d 70 |eting-re|ad promp|
|00001a50| 74 20 6d 61 70 63 61 72 | 20 23 5b 28 78 29 20 22 |t mapcar| #[(x) "|
|00001a60| c0 09 21 43 87 22 20 5b | 73 79 6d 62 6f 6c 2d 6e |..!C." [|symbol-n|
|00001a70| 61 6d 65 20 78 5d 20 32 | 5d 20 66 61 63 65 2d 6c |ame x] 2|] face-l|
|00001a80| 69 73 74 20 74 20 69 6e | 74 65 72 6e 5d 20 36 5d |ist t in|tern] 6]|
|00001a90| 20 69 6e 74 65 72 6e 61 | 6c 2d 66 61 63 65 2d 69 | interna|l-face-i|
|00001aa0| 6e 74 65 72 61 63 74 69 | 76 65 20 23 5b 28 77 68 |nteracti|ve #[(wh|
|00001ab0| 61 74 20 26 6f 70 74 69 | 6f 6e 61 6c 20 62 6f 6f |at &opti|onal boo|
|00001ac0| 6c 29 20 22 c0 c1 5c 6e | 50 21 1b c4 5c 6e c5 51 |l) "..\n|P!..\n.Q|
|00001ad0| 1e 06 c7 0e 06 c8 50 21 | 1e 09 ca 0b 21 85 28 00 |......P!|....!.(.|
|00001ae0| 0b 0e 09 cb 20 5c 22 86 | 28 00 0b cc cb 20 5c 22 |.... \".|(.... \"|
|00001af0| 1e 5c 66 0e 0d 83 3f 00 | ce cf d0 0e 09 21 d1 0e |.\f...?.|.....!..|
|00001b00| 0d d2 b0 05 21 82 4c 00 | d3 0e 06 d4 d0 0e 09 21 |....!.L.|.......!|
|00001b10| d5 52 0e 5c 66 5c 22 1e | 16 0e 09 0e 16 d7 9a 3f |.R.\f\".|.......?|
|00001b20| 85 5a 00 0e 16 2d 44 87 | 22 20 5b 69 6e 74 65 72 |.Z...-D.|" [inter|
|00001b30| 6e 20 22 66 61 63 65 2d | 22 20 77 68 61 74 20 66 |n "face-|" what f|
|00001b40| 6e 20 22 53 65 74 20 22 | 20 22 20 6f 66 20 66 61 |n "Set "| " of fa|
|00001b50| 63 65 22 20 70 72 6f 6d | 70 74 20 72 65 61 64 2d |ce" prom|pt read-|
|00001b60| 66 61 63 65 2d 6e 61 6d | 65 20 22 3a 20 22 20 66 |face-nam|e ": " f|
|00001b70| 61 63 65 20 66 62 6f 75 | 6e 64 70 20 73 65 6c 65 |ace fbou|ndp sele|
|00001b80| 63 74 65 64 2d 66 72 61 | 6d 65 20 64 65 66 61 75 |cted-fra|me defau|
|00001b90| 6c 74 20 62 6f 6f 6c 20 | 79 2d 6f 72 2d 6e 2d 70 |lt bool |y-or-n-p|
|00001ba0| 20 22 53 68 6f 75 6c 64 | 20 66 61 63 65 20 22 20 | "Should| face " |
|00001bb0| 73 79 6d 62 6f 6c 2d 6e | 61 6d 65 20 22 20 62 65 |symbol-n|ame " be|
|00001bc0| 20 22 20 22 3f 20 22 20 | 72 65 61 64 2d 73 74 72 | " "? " |read-str|
|00001bd0| 69 6e 67 20 22 20 22 20 | 22 20 74 6f 3a 20 22 20 |ing " " |" to: " |
|00001be0| 76 61 6c 75 65 20 22 22 | 5d 20 36 5d 5d 20 33 29 |value ""|] 6]] 3)|
|00001bf0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 6d 61 6b 65 |.(defali|as 'make|
|00001c00| 2d 66 61 63 65 20 23 5b | 28 6e 61 6d 65 29 20 22 |-face #[|(name) "|
|00001c10| c0 09 21 86 60 00 c2 c3 | c4 5c 22 89 1d c6 c5 49 |..!.`...|.\"....I|
|00001c20| 88 0d c7 09 49 88 c8 20 | 1e 09 ca 1e 0b cc 20 1e |....I.. |...... .|
|00001c30| 0d ce 0e 0d 21 88 0d cf | 0e 0d 49 88 0e 09 83 4a |....!...|..I....J|
|00001c40| 00 d0 0e 09 40 09 d1 0d | 21 42 d2 0e 09 40 21 42 |....@...|!B...@!B|
|00001c50| 5c 22 88 0e 09 41 89 16 | 09 84 30 00 09 0d 42 0e |\"...A..|..0...B.|
|00001c60| 13 42 16 13 2b 0e 14 d5 | 3d 83 5e 00 d6 0d 21 88 |.B..+...|=.^...!.|
|00001c70| 0d 29 87 22 20 5b 69 6e | 74 65 72 6e 61 6c 2d 66 |.)." [in|ternal-f|
|00001c80| 69 6e 64 2d 66 61 63 65 | 20 6e 61 6d 65 20 6d 61 |ind-face| name ma|
|00001c90| 6b 65 2d 76 65 63 74 6f | 72 20 38 20 6e 69 6c 20 |ke-vecto|r 8 nil |
|00001ca0| 66 61 63 65 20 30 20 31 | 20 66 72 61 6d 65 2d 6c |face 0 1| frame-l|
|00001cb0| 69 73 74 20 66 72 61 6d | 65 73 20 74 20 69 6e 68 |ist fram|es t inh|
|00001cc0| 69 62 69 74 2d 71 75 69 | 74 20 69 6e 74 65 72 6e |ibit-qui|t intern|
|00001cd0| 61 6c 2d 6e 65 78 74 2d | 66 61 63 65 2d 69 64 20 |al-next-|face-id |
|00001ce0| 69 64 20 6d 61 6b 65 2d | 66 61 63 65 2d 69 6e 74 |id make-|face-int|
|00001cf0| 65 72 6e 61 6c 20 32 20 | 73 65 74 2d 66 72 61 6d |ernal 2 |set-fram|
|00001d00| 65 2d 66 61 63 65 2d 61 | 6c 69 73 74 20 63 6f 70 |e-face-a|list cop|
|00001d10| 79 2d 73 65 71 75 65 6e | 63 65 20 66 72 61 6d 65 |y-sequen|ce frame|
|00001d20| 2d 66 61 63 65 2d 61 6c | 69 73 74 20 67 6c 6f 62 |-face-al|ist glob|
|00001d30| 61 6c 2d 66 61 63 65 2d | 64 61 74 61 20 77 69 6e |al-face-|data win|
|00001d40| 64 6f 77 2d 73 79 73 74 | 65 6d 20 78 20 6d 61 6b |dow-syst|em x mak|
|00001d50| 65 2d 66 61 63 65 2d 78 | 2d 72 65 73 6f 75 72 63 |e-face-x|-resourc|
|00001d60| 65 2d 69 6e 74 65 72 6e | 61 6c 5d 20 36 20 22 5c |e-intern|al] 6 "\|
|00001d70| 0a 44 65 66 69 6e 65 20 | 61 20 6e 65 77 20 46 41 |.Define |a new FA|
|00001d80| 43 45 20 6f 6e 20 61 6c | 6c 20 66 72 61 6d 65 73 |CE on al|l frames|
|00001d90| 2e 20 20 0a 59 6f 75 20 | 63 61 6e 20 6d 6f 64 69 |. .You |can modi|
|00001da0| 66 79 20 74 68 65 20 66 | 6f 6e 74 2c 20 63 6f 6c |fy the f|ont, col|
|00001db0| 6f 72 2c 20 65 74 63 20 | 6f 66 20 74 68 69 73 20 |or, etc |of this |
|00001dc0| 66 61 63 65 20 77 69 74 | 68 20 74 68 65 20 73 65 |face wit|h the se|
|00001dd0| 74 2d 66 61 63 65 2d 20 | 66 75 6e 63 74 69 6f 6e |t-face- |function|
|00001de0| 73 2e 0a 49 66 20 74 68 | 65 20 66 61 63 65 20 61 |s..If th|e face a|
|00001df0| 6c 72 65 61 64 79 20 65 | 78 69 73 74 73 2c 20 69 |lready e|xists, i|
|00001e00| 74 20 69 73 20 75 6e 6d | 6f 64 69 66 69 65 64 2e |t is unm|odified.|
|00001e10| 22 20 22 53 4d 61 6b 65 | 20 66 61 63 65 3a 20 22 |" "SMake| face: "|
|00001e20| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 28 71 75 |]).(defa|lias (qu|
|00001e30| 6f 74 65 20 6d 61 6b 65 | 2d 66 61 63 65 2d 78 2d |ote make|-face-x-|
|00001e40| 72 65 73 6f 75 72 63 65 | 2d 69 6e 74 65 72 6e 61 |resource|-interna|
|00001e50| 6c 29 20 23 5b 28 66 61 | 63 65 20 26 6f 70 74 69 |l) #[(fa|ce &opti|
|00001e60| 6f 6e 61 6c 20 66 72 61 | 6d 65 20 73 65 74 2d 61 |onal fra|me set-a|
|00001e70| 6e 79 77 61 79 29 20 22 | 08 84 31 00 c1 20 89 1a |nyway) "|..1.. ..|
|00001e80| 83 2d 00 c3 5c 6e 40 21 | c4 3d 83 26 00 c5 0e 06 |.-..\n@!|.=.&....|
|00001e90| 1e 06 c7 0e 06 21 c8 48 | 29 5c 6e 40 0e 09 23 88 |.....!.H|)\n@..#.|
|00001ea0| 5c 6e 41 89 12 84 0b 00 | 29 82 5c 6e 01 c7 0e 06 |\nA.....|).\n....|
|00001eb0| 1e 06 c7 0e 06 21 c8 48 | 29 08 5c 22 16 06 ca 0e |.....!.H|).\"....|
|00001ec0| 06 1e 06 c7 0e 06 21 c8 | 48 29 21 1e 0b cc 0e 0b |......!.|H)!.....|
|00001ed0| cd 50 ce 5c 22 86 6d 00 | 0e 09 85 6d 00 0e 06 cf |.P.\".m.|...m....|
|00001ee0| 18 1e 06 c7 0e 06 08 5c | 22 d0 48 2a 1e 11 cc 0e |.......\|".H*....|
|00001ef0| 0b d2 50 d3 5c 22 86 8c | 00 0e 09 85 8c 00 0e 06 |..P.\"..|........|
|00001f00| cf 18 1e 06 c7 0e 06 08 | 5c 22 d4 48 2a 1e 15 cc |........|\".H*...|
|00001f10| 0e 0b d6 50 d7 5c 22 86 | ab 00 0e 09 85 ab 00 0e |...P.\".|........|
|00001f20| 06 cf 18 1e 06 c7 0e 06 | 08 5c 22 d8 48 2a 1e 19 |........|.\".H*..|
|00001f30| cc 0e 0b da 50 db 5c 22 | 86 ca 00 0e 09 85 ca 00 |....P.\"|........|
|00001f40| 0e 06 cf 18 1e 06 c7 0e | 06 08 5c 22 dc 48 2a 1e |........|..\".H*.|
|00001f50| 1d 0e 11 83 d6 00 cf de | df 8f 88 0e 15 83 e0 00 |........|........|
|00001f60| cf e0 e1 8f 88 0e 19 83 | ea 00 cf e2 e3 8f 88 0e |........|........|
|00001f70| 1d 84 f4 00 0e 09 83 09 | 01 0e 06 0e 1d 08 18 1e |........|........|
|00001f80| 24 1e 06 e5 0e 06 e6 0e | 24 dc 08 25 88 2b 2d 0e |$.......|$..%.+-.|
|00001f90| 06 87 22 20 5b 66 72 61 | 6d 65 20 66 72 61 6d 65 |.." [fra|me frame|
|00001fa0| 2d 6c 69 73 74 20 66 72 | 61 6d 65 73 20 66 72 61 |-list fr|ames fra|
|00001fb0| 6d 65 70 20 78 20 6d 61 | 6b 65 2d 66 61 63 65 2d |mep x ma|ke-face-|
|00001fc0| 78 2d 72 65 73 6f 75 72 | 63 65 2d 69 6e 74 65 72 |x-resour|ce-inter|
|00001fd0| 6e 61 6c 20 66 61 63 65 | 20 69 6e 74 65 72 6e 61 |nal face| interna|
|00001fe0| 6c 2d 67 65 74 2d 66 61 | 63 65 20 31 20 73 65 74 |l-get-fa|ce 1 set|
|00001ff0| 2d 61 6e 79 77 61 79 20 | 73 79 6d 62 6f 6c 2d 6e |-anyway |symbol-n|
|00002000| 61 6d 65 20 6e 61 6d 65 | 20 78 2d 67 65 74 2d 72 |ame name| x-get-r|
|00002010| 65 73 6f 75 72 63 65 20 | 22 2e 61 74 74 72 69 62 |esource |".attrib|
|00002020| 75 74 65 46 6f 6e 74 22 | 20 22 46 61 63 65 2e 41 |uteFont"| "Face.A|
|00002030| 74 74 72 69 62 75 74 65 | 46 6f 6e 74 22 20 6e 69 |ttribute|Font" ni|
|00002040| 6c 20 33 20 66 6e 20 22 | 2e 61 74 74 72 69 62 75 |l 3 fn "|.attribu|
|00002050| 74 65 46 6f 72 65 67 72 | 6f 75 6e 64 22 20 22 46 |teForegr|ound" "F|
|00002060| 61 63 65 2e 41 74 74 72 | 69 62 75 74 65 46 6f 72 |ace.Attr|ibuteFor|
|00002070| 65 67 72 6f 75 6e 64 22 | 20 34 20 66 67 20 22 2e |eground"| 4 fg ".|
|00002080| 61 74 74 72 69 62 75 74 | 65 42 61 63 6b 67 72 6f |attribut|eBackgro|
|00002090| 75 6e 64 22 20 22 46 61 | 63 65 2e 41 74 74 72 69 |und" "Fa|ce.Attri|
|000020a0| 62 75 74 65 42 61 63 6b | 67 72 6f 75 6e 64 22 20 |buteBack|ground" |
|000020b0| 35 20 62 67 20 22 2e 61 | 74 74 72 69 62 75 74 65 |5 bg ".a|ttribute|
|000020c0| 55 6e 64 65 72 6c 69 6e | 65 22 20 22 46 61 63 65 |Underlin|e" "Face|
|000020d0| 2e 41 74 74 72 69 62 75 | 74 65 55 6e 64 65 72 6c |.Attribu|teUnderl|
|000020e0| 69 6e 65 22 20 37 20 75 | 6c 70 20 28 62 79 74 65 |ine" 7 u|lp (byte|
|000020f0| 2d 63 6f 64 65 20 22 08 | 09 5c 6e 1a 1b 18 0b 3b |-code ".|.\n....;|
|00002100| 83 11 00 c4 0b 08 5c 6e | 23 13 c5 08 c3 0b c6 5c |......\n|#......\|
|00002110| 6e 25 88 2b c4 87 22 20 | 5b 66 61 63 65 20 66 6e |n%.+.." |[face fn|
|00002120| 20 66 72 61 6d 65 20 66 | 6f 6e 74 20 78 2d 72 65 | frame f|ont x-re|
|00002130| 73 6f 6c 76 65 2d 66 6f | 6e 74 2d 6e 61 6d 65 20 |solve-fo|nt-name |
|00002140| 69 6e 74 65 72 6e 61 6c | 2d 73 65 74 2d 66 61 63 |internal|-set-fac|
|00002150| 65 2d 31 20 33 5d 20 36 | 29 20 28 28 65 72 72 6f |e-1 3] 6|) ((erro|
|00002160| 72 20 28 6d 65 73 73 61 | 67 65 20 22 66 6f 6e 74 |r (messa|ge "font|
|00002170| 20 60 25 73 27 20 6e 6f | 74 20 66 6f 75 6e 64 20 | `%s' no|t found |
|00002180| 66 6f 72 20 66 61 63 65 | 20 60 25 73 27 22 20 66 |for face| `%s'" f|
|00002190| 6e 20 6e 61 6d 65 29 29 | 29 20 28 62 79 74 65 2d |n name))|) (byte-|
|000021a0| 63 6f 64 65 20 22 08 09 | 5c 6e 1a 1b 18 c4 08 c5 |code "..|\n......|
|000021b0| 0b c6 5c 6e 25 88 2b c4 | 87 22 20 5b 66 61 63 65 |..\n%.+.|." [face|
|000021c0| 20 66 67 20 66 72 61 6d | 65 20 63 6f 6c 6f 72 20 | fg fram|e color |
|000021d0| 69 6e 74 65 72 6e 61 6c | 2d 73 65 74 2d 66 61 63 |internal|-set-fac|
|000021e0| 65 2d 31 20 66 6f 72 65 | 67 72 6f 75 6e 64 20 34 |e-1 fore|ground 4|
|000021f0| 5d 20 36 29 20 28 28 65 | 72 72 6f 72 20 28 6d 65 |] 6) ((e|rror (me|
|00002200| 73 73 61 67 65 20 22 63 | 6f 6c 6f 72 20 60 25 73 |ssage "c|olor `%s|
|00002210| 27 20 6e 6f 74 20 61 6c | 6c 6f 63 61 74 65 64 20 |' not al|located |
|00002220| 66 6f 72 20 66 61 63 65 | 20 60 25 73 27 22 20 66 |for face| `%s'" f|
|00002230| 67 20 6e 61 6d 65 29 29 | 29 20 28 62 79 74 65 2d |g name))|) (byte-|
|00002240| 63 6f 64 65 20 22 08 09 | 5c 6e 1a 1b 18 c4 08 c5 |code "..|\n......|
|00002250| 0b c6 5c 6e 25 88 2b c4 | 87 22 20 5b 66 61 63 65 |..\n%.+.|." [face|
|00002260| 20 62 67 20 66 72 61 6d | 65 20 63 6f 6c 6f 72 20 | bg fram|e color |
|00002270| 69 6e 74 65 72 6e 61 6c | 2d 73 65 74 2d 66 61 63 |internal|-set-fac|
|00002280| 65 2d 31 20 62 61 63 6b | 67 72 6f 75 6e 64 20 35 |e-1 back|ground 5|
|00002290| 5d 20 36 29 20 28 28 65 | 72 72 6f 72 20 28 6d 65 |] 6) ((e|rror (me|
|000022a0| 73 73 61 67 65 20 22 63 | 6f 6c 6f 72 20 60 25 73 |ssage "c|olor `%s|
|000022b0| 27 20 6e 6f 74 20 61 6c | 6c 6f 63 61 74 65 64 20 |' not al|located |
|000022c0| 66 6f 72 20 66 61 63 65 | 20 60 25 73 27 22 20 62 |for face| `%s'" b|
|000022d0| 67 20 6e 61 6d 65 29 29 | 29 20 75 6e 64 65 72 6c |g name))|) underl|
|000022e0| 69 6e 65 2d 70 20 69 6e | 74 65 72 6e 61 6c 2d 73 |ine-p in|ternal-s|
|000022f0| 65 74 2d 66 61 63 65 2d | 31 20 75 6e 64 65 72 6c |et-face-|1 underl|
|00002300| 69 6e 65 5d 20 37 5d 29 | 0a 28 64 65 66 61 6c 69 |ine] 7])|.(defali|
|00002310| 61 73 20 27 63 6f 70 79 | 2d 66 61 63 65 20 23 5b |as 'copy|-face #[|
|00002320| 28 6f 6c 64 2d 66 61 63 | 65 20 6e 65 77 2d 66 61 |(old-fac|e new-fa|
|00002330| 63 65 20 26 6f 70 74 69 | 6f 6e 61 6c 20 66 72 61 |ce &opti|onal fra|
|00002340| 6d 65 20 6e 65 77 2d 66 | 72 61 6d 65 29 20 22 08 |me new-f|rame) ".|
|00002350| 84 06 00 09 10 c2 1b 09 | 84 2f 00 c4 20 89 1d 83 |........|./.. ...|
|00002360| 23 00 c6 0e 07 0e 08 0d | 40 23 88 0d 41 89 15 84 |#.......|@#..A...|
|00002370| 13 00 c6 0e 07 0e 08 c2 | 23 88 29 82 d6 00 c9 0e |........|#.).....|
|00002380| 07 09 5c 22 16 07 ca 0e | 08 08 5c 22 86 42 00 cb |..\"....|..\".B..|
|00002390| 0e 08 21 89 16 08 0e 07 | 09 19 1e 5c 66 c9 0e 5c |..!.....|...\f..\|
|000023a0| 66 09 5c 22 cd 48 2a 08 | 19 1e 0e 1e 5c 66 0e 0e |f.\".H*.|....\f..|
|000023b0| 3b 83 68 00 cf 0e 0e 0e | 5c 66 09 23 16 0e d0 0e |;.h.....|\f.#....|
|000023c0| 5c 66 ce 0e 0e cd 09 25 | 88 2b 0e 08 0e 07 09 19 |\f.....%|.+......|
|000023d0| 1e 5c 66 c9 0e 5c 66 09 | 5c 22 d1 48 2a 08 19 1e |.\f..\f.|\".H*...|
|000023e0| 12 1e 5c 66 d0 0e 5c 66 | d3 0e 12 d1 09 25 88 2b |..\f..\f|.....%.+|
|000023f0| 0e 08 0e 07 09 19 1e 5c | 66 c9 0e 5c 66 09 5c 22 |.......\|f..\f.\"|
|00002400| d4 48 2a 08 19 1e 12 1e | 5c 66 d0 0e 5c 66 d5 0e |.H*.....|\f..\f..|
|00002410| 12 d4 09 25 88 2b 0e 08 | 0e 07 09 19 1e 5c 66 c9 |...%.+..|.....\f.|
|00002420| 0e 5c 66 09 5c 22 d6 48 | 2a 08 19 1e 17 1e 5c 66 |.\f.\".H|*.....\f|
|00002430| d0 0e 5c 66 d8 0e 17 d6 | 09 25 88 2b 0e 08 29 87 |..\f....|.%.+..).|
|00002440| 22 20 5b 6e 65 77 2d 66 | 72 61 6d 65 20 66 72 61 |" [new-f|rame fra|
|00002450| 6d 65 20 74 20 69 6e 68 | 69 62 69 74 2d 71 75 69 |me t inh|ibit-qui|
|00002460| 74 20 66 72 61 6d 65 2d | 6c 69 73 74 20 66 72 61 |t frame-|list fra|
|00002470| 6d 65 73 20 63 6f 70 79 | 2d 66 61 63 65 20 6f 6c |mes copy|-face ol|
|00002480| 64 2d 66 61 63 65 20 6e | 65 77 2d 66 61 63 65 20 |d-face n|ew-face |
|00002490| 69 6e 74 65 72 6e 61 6c | 2d 67 65 74 2d 66 61 63 |internal|-get-fac|
|000024a0| 65 20 69 6e 74 65 72 6e | 61 6c 2d 66 69 6e 64 2d |e intern|al-find-|
|000024b0| 66 61 63 65 20 6d 61 6b | 65 2d 66 61 63 65 20 66 |face mak|e-face f|
|000024c0| 61 63 65 20 33 20 66 6f | 6e 74 20 78 2d 72 65 73 |ace 3 fo|nt x-res|
|000024d0| 6f 6c 76 65 2d 66 6f 6e | 74 2d 6e 61 6d 65 20 69 |olve-fon|t-name i|
|000024e0| 6e 74 65 72 6e 61 6c 2d | 73 65 74 2d 66 61 63 65 |nternal-|set-face|
|000024f0| 2d 31 20 34 20 63 6f 6c | 6f 72 20 66 6f 72 65 67 |-1 4 col|or foreg|
|00002500| 72 6f 75 6e 64 20 35 20 | 62 61 63 6b 67 72 6f 75 |round 5 |backgrou|
|00002510| 6e 64 20 37 20 75 6e 64 | 65 72 6c 69 6e 65 2d 70 |nd 7 und|erline-p|
|00002520| 20 75 6e 64 65 72 6c 69 | 6e 65 5d 20 37 20 22 5c | underli|ne] 7 "\|
|00002530| 0a 44 65 66 69 6e 65 20 | 61 20 66 61 63 65 20 6a |.Define |a face j|
|00002540| 75 73 74 20 6c 69 6b 65 | 20 4f 4c 44 2d 46 41 43 |ust like| OLD-FAC|
|00002550| 45 2c 20 77 69 74 68 20 | 6e 61 6d 65 20 4e 45 57 |E, with |name NEW|
|00002560| 2d 46 41 43 45 2e 0a 49 | 66 20 4e 45 57 2d 46 41 |-FACE..I|f NEW-FA|
|00002570| 43 45 20 61 6c 72 65 61 | 64 79 20 65 78 69 73 74 |CE alrea|dy exist|
|00002580| 73 20 61 73 20 61 20 66 | 61 63 65 2c 20 69 74 20 |s as a f|ace, it |
|00002590| 69 73 20 6d 6f 64 69 66 | 69 65 64 20 74 6f 20 62 |is modif|ied to b|
|000025a0| 65 20 6c 69 6b 65 20 4f | 4c 44 2d 46 41 43 45 2e |e like O|LD-FACE.|
|000025b0| 0a 49 66 20 69 74 20 64 | 6f 65 73 6e 27 74 20 61 |.If it d|oesn't a|
|000025c0| 6c 72 65 61 64 79 20 65 | 78 69 73 74 2c 20 69 74 |lready e|xist, it|
|000025d0| 20 69 73 20 63 72 65 61 | 74 65 64 2e 0a 0a 49 66 | is crea|ted...If|
|000025e0| 20 74 68 65 20 6f 70 74 | 69 6f 6e 61 6c 20 61 72 | the opt|ional ar|
|000025f0| 67 75 6d 65 6e 74 20 46 | 52 41 4d 45 20 69 73 20 |gument F|RAME is |
|00002600| 67 69 76 65 6e 20 61 73 | 20 61 20 66 72 61 6d 65 |given as| a frame|
|00002610| 2c 0a 4e 45 57 2d 46 41 | 43 45 20 69 73 20 63 68 |,.NEW-FA|CE is ch|
|00002620| 61 6e 67 65 64 20 6f 6e | 20 46 52 41 4d 45 20 6f |anged on| FRAME o|
|00002630| 6e 6c 79 2e 0a 49 66 20 | 46 52 41 4d 45 20 69 73 |nly..If |FRAME is|
|00002640| 20 74 2c 20 74 68 65 20 | 66 72 61 6d 65 2d 69 6e | t, the |frame-in|
|00002650| 64 65 70 65 6e 64 65 6e | 74 20 64 65 66 61 75 6c |dependen|t defaul|
|00002660| 74 20 73 70 65 63 69 66 | 69 63 61 74 69 6f 6e 20 |t specif|ication |
|00002670| 66 6f 72 20 4f 4c 44 2d | 46 41 43 45 0a 69 73 20 |for OLD-|FACE.is |
|00002680| 63 6f 70 69 65 64 20 74 | 6f 20 4e 45 57 2d 46 41 |copied t|o NEW-FA|
|00002690| 43 45 2e 0a 49 66 20 46 | 52 41 4d 45 20 69 73 20 |CE..If F|RAME is |
|000026a0| 6e 69 6c 2c 20 63 6f 70 | 79 69 6e 67 20 69 73 20 |nil, cop|ying is |
|000026b0| 64 6f 6e 65 20 66 6f 72 | 20 74 68 65 20 66 72 61 |done for| the fra|
|000026c0| 6d 65 2d 69 6e 64 65 70 | 65 6e 64 65 6e 74 20 64 |me-indep|endent d|
|000026d0| 65 66 61 75 6c 74 73 0a | 61 6e 64 20 66 6f 72 20 |efaults.|and for |
|000026e0| 65 61 63 68 20 65 78 69 | 73 74 69 6e 67 20 66 72 |each exi|sting fr|
|000026f0| 61 6d 65 2e 0a 49 66 20 | 74 68 65 20 6f 70 74 69 |ame..If |the opti|
|00002700| 6f 6e 61 6c 20 66 6f 75 | 72 74 68 20 61 72 67 75 |onal fou|rth argu|
|00002710| 6d 65 6e 74 20 4e 45 57 | 2d 46 52 41 4d 45 20 69 |ment NEW|-FRAME i|
|00002720| 73 20 67 69 76 65 6e 2c | 20 0a 63 6f 70 79 20 74 |s given,| .copy t|
|00002730| 68 65 20 69 6e 66 6f 72 | 6d 61 74 69 6f 6e 20 66 |he infor|mation f|
|00002740| 72 6f 6d 20 66 61 63 65 | 20 4f 4c 44 2d 46 41 43 |rom face| OLD-FAC|
|00002750| 45 20 6f 6e 20 66 72 61 | 6d 65 20 46 52 41 4d 45 |E on fra|me FRAME|
|00002760| 0a 74 6f 20 4e 45 57 2d | 46 41 43 45 20 6f 6e 20 |.to NEW-|FACE on |
|00002770| 66 72 61 6d 65 20 4e 45 | 57 2d 46 52 41 4d 45 2e |frame NE|W-FRAME.|
|00002780| 22 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 66 |"]).(def|alias 'f|
|00002790| 61 63 65 2d 65 71 75 61 | 6c 20 23 5b 28 66 61 63 |ace-equa|l #[(fac|
|000027a0| 65 31 20 66 61 63 65 32 | 20 26 6f 70 74 69 6f 6e |e1 face2| &option|
|000027b0| 61 6c 20 66 72 61 6d 65 | 29 20 22 c0 09 5c 6e 5c |al frame|) "..\n\|
|000027c0| 22 11 c0 0b 5c 6e 5c 22 | 13 09 5c 6e 1a 1c c0 5c |"...\n\"|..\n...\|
|000027d0| 66 5c 6e 5c 22 c5 48 2a | 0b 5c 6e 1a 1c c0 5c 66 |f\n\".H*|.\n...\f|
|000027e0| 5c 6e 5c 22 c5 48 2a 9a | 85 55 00 09 5c 6e 1a 1c |\n\".H*.|.U..\n..|
|000027f0| c0 5c 66 5c 6e 5c 22 c6 | 48 2a 0b 5c 6e 1a 1c c0 |.\f\n\".|H*.\n...|
|00002800| 5c 66 5c 6e 5c 22 c6 48 | 2a 9a 85 55 00 09 5c 6e |\f\n\".H|*..U..\n|
|00002810| 1a 1c c0 5c 66 5c 6e 5c | 22 c7 48 2a 0b 5c 6e 1a |...\f\n\|".H*.\n.|
|00002820| 1c c0 5c 66 5c 6e 5c 22 | c7 48 2a 9a 87 22 20 5b |..\f\n\"|.H*.." [|
|00002830| 69 6e 74 65 72 6e 61 6c | 2d 67 65 74 2d 66 61 63 |internal|-get-fac|
|00002840| 65 20 66 61 63 65 31 20 | 66 72 61 6d 65 20 66 61 |e face1 |frame fa|
|00002850| 63 65 32 20 66 61 63 65 | 20 34 20 35 20 33 5d 20 |ce2 face| 4 5 3] |
|00002860| 34 20 22 5c 0a 54 72 75 | 65 20 69 66 20 74 68 65 |4 "\.Tru|e if the|
|00002870| 20 66 61 63 65 73 20 46 | 41 43 45 31 20 61 6e 64 | faces F|ACE1 and|
|00002880| 20 46 41 43 45 32 20 64 | 69 73 70 6c 61 79 20 69 | FACE2 d|isplay i|
|00002890| 6e 20 74 68 65 20 73 61 | 6d 65 20 77 61 79 2e 22 |n the sa|me way."|
|000028a0| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 66 61 |]).(defa|lias 'fa|
|000028b0| 63 65 2d 64 69 66 66 65 | 72 73 2d 66 72 6f 6d 2d |ce-diffe|rs-from-|
|000028c0| 64 65 66 61 75 6c 74 2d | 70 20 23 5b 28 66 61 63 |default-|p #[(fac|
|000028d0| 65 20 26 6f 70 74 69 6f | 6e 61 6c 20 66 72 61 6d |e &optio|nal fram|
|000028e0| 65 29 20 22 c0 c1 5c 6e | 5c 22 19 c0 0b 5c 6e 5c |e) "..\n|\"...\n\|
|000028f0| 22 13 09 5c 6e 1a 1b c0 | 0b 5c 6e 5c 22 c4 48 2a |"..\n...|.\n\".H*|
|00002900| 0b 5c 6e 1a 1b c0 0b 5c | 6e 5c 22 c4 48 2a 9a 84 |.\n....\|n\".H*..|
|00002910| 33 00 0b 5c 6e 1a 1b c0 | 0b 5c 6e 5c 22 c4 48 2a |3..\n...|.\n\".H*|
|00002920| 3f 85 9c 00 09 5c 6e 1a | 1b c0 0b 5c 6e 5c 22 c5 |?....\n.|...\n\".|
|00002930| 48 2a 0b 5c 6e 1a 1b c0 | 0b 5c 6e 5c 22 c5 48 2a |H*.\n...|.\n\".H*|
|00002940| 9a 84 5c 5c 00 0b 5c 6e | 1a 1b c0 0b 5c 6e 5c 22 |..\\..\n|....\n\"|
|00002950| c5 48 2a 3f 85 9c 00 09 | 5c 6e 1a 1b c0 0b 5c 6e |.H*?....|\n....\n|
|00002960| 5c 22 c6 48 2a 0b 5c 6e | 1a 1b c0 0b 5c 6e 5c 22 |\".H*.\n|....\n\"|
|00002970| c6 48 2a 9a 84 85 00 0b | 5c 6e 1a 1b c0 0b 5c 6e |.H*.....|\n....\n|
|00002980| 5c 22 c6 48 2a 3f 85 9c | 00 09 5c 6e 1a 1b c0 0b |\".H*?..|..\n....|
|00002990| 5c 6e 5c 22 c7 48 2a 0b | 5c 6e 1a 1b c0 0b 5c 6e |\n\".H*.|\n....\n|
|000029a0| 5c 22 c7 48 2a 9a 29 3f | 87 22 20 5b 69 6e 74 65 |\".H*.)?|." [inte|
|000029b0| 72 6e 61 6c 2d 67 65 74 | 2d 66 61 63 65 20 64 65 |rnal-get|-face de|
|000029c0| 66 61 75 6c 74 20 66 72 | 61 6d 65 20 66 61 63 65 |fault fr|ame face|
|000029d0| 20 34 20 35 20 33 20 37 | 5d 20 34 20 22 5c 0a 54 | 4 5 3 7|] 4 "\.T|
|000029e0| 72 75 65 20 69 66 20 66 | 61 63 65 20 46 41 43 45 |rue if f|ace FACE|
|000029f0| 20 64 69 73 70 6c 61 79 | 73 20 64 69 66 66 65 72 | display|s differ|
|00002a00| 65 6e 74 6c 79 20 66 72 | 6f 6d 20 74 68 65 20 64 |ently fr|om the d|
|00002a10| 65 66 61 75 6c 74 20 66 | 61 63 65 2c 20 6f 6e 20 |efault f|ace, on |
|00002a20| 46 52 41 4d 45 2e 0a 41 | 20 66 61 63 65 20 69 73 |FRAME..A| face is|
|00002a30| 20 63 6f 6e 73 69 64 65 | 72 65 64 20 74 6f 20 62 | conside|red to b|
|00002a40| 65 20 60 60 74 68 65 20 | 73 61 6d 65 27 27 20 61 |e ``the |same'' a|
|00002a50| 73 20 74 68 65 20 64 65 | 66 61 75 6c 74 20 66 61 |s the de|fault fa|
|00002a60| 63 65 20 69 66 20 69 74 | 20 69 73 20 0a 61 63 74 |ce if it| is .act|
|00002a70| 75 61 6c 6c 79 20 73 70 | 65 63 69 66 69 65 64 20 |ually sp|ecified |
|00002a80| 69 6e 20 74 68 65 20 73 | 61 6d 65 20 77 61 79 20 |in the s|ame way |
|00002a90| 28 65 71 75 69 76 61 6c | 65 6e 74 20 66 6f 6e 74 |(equival|ent font|
|00002aa0| 73 2c 20 65 74 63 29 20 | 6f 72 20 69 66 20 69 74 |s, etc) |or if it|
|00002ab0| 20 69 73 20 0a 66 75 6c | 6c 79 20 75 6e 73 70 65 | is .ful|ly unspe|
|00002ac0| 63 69 66 69 65 64 2c 20 | 61 6e 64 20 74 68 75 73 |cified, |and thus|
|00002ad0| 20 69 6e 68 65 72 69 74 | 73 20 74 68 65 20 61 74 | inherit|s the at|
|00002ae0| 74 72 69 62 75 74 65 73 | 20 6f 66 20 61 6e 79 20 |tributes| of any |
|00002af0| 66 61 63 65 20 69 74 20 | 0a 69 73 20 64 69 73 70 |face it |.is disp|
|00002b00| 6c 61 79 65 64 20 6f 6e | 20 74 6f 70 20 6f 66 2e |layed on| top of.|
|00002b10| 22 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 69 |"]).(def|alias 'i|
|00002b20| 6e 76 65 72 74 2d 66 61 | 63 65 20 23 5b 28 66 61 |nvert-fa|ce #[(fa|
|00002b30| 63 65 20 26 6f 70 74 69 | 6f 6e 61 6c 20 66 72 61 |ce &opti|onal fra|
|00002b40| 6d 65 29 20 22 c0 09 5c | 6e 5c 22 89 11 5c 6e 1a |me) "..\|n\"..\n.|
|00002b50| 19 c0 09 5c 6e 5c 22 c3 | 48 2a 09 5c 6e 1a 19 c0 |...\n\".|H*.\n...|
|00002b60| 09 5c 6e 5c 22 c4 48 2a | 1d 89 1e 06 84 26 00 0d |.\n\".H*|.....&..|
|00002b70| 83 4c 00 09 0d 5c 6e 1a | 1e 07 19 c8 09 c9 0e 07 |.L...\n.|........|
|00002b80| c3 5c 6e 25 88 2b 09 0e | 06 5c 6e 1a 1e 07 19 c8 |.\n%.+..|.\n.....|
|00002b90| 09 ca 0e 07 c4 5c 6e 25 | 88 2b 82 94 00 09 cb 5c |.....\n%|.+.....\|
|00002ba0| 6e 1a 19 c0 09 5c 6e 5c | 22 c4 48 2a 86 61 00 cc |n....\n\|".H*.a..|
|00002bb0| cd 5c 6e 21 9e 41 5c 6e | 1a 1e 07 19 c8 09 c9 0e |.\n!.A\n|........|
|00002bc0| 07 c3 5c 6e 25 88 2b 09 | cb 5c 6e 1a 19 c0 09 5c |..\n%.+.|.\n....\|
|00002bd0| 6e 5c 22 c3 48 2a 86 85 | 00 ce cd 5c 6e 21 9e 41 |n\".H*..|...\n!.A|
|00002be0| 5c 6e 1a 1e 07 19 c8 09 | ca 0e 07 c4 5c 6e 25 88 |\n......|....\n%.|
|00002bf0| 2b 2a 09 87 22 20 5b 69 | 6e 74 65 72 6e 61 6c 2d |+*.." [i|nternal-|
|00002c00| 67 65 74 2d 66 61 63 65 | 20 66 61 63 65 20 66 72 |get-face| face fr|
|00002c10| 61 6d 65 20 34 20 35 20 | 62 67 20 66 67 20 63 6f |ame 4 5 |bg fg co|
|00002c20| 6c 6f 72 20 69 6e 74 65 | 72 6e 61 6c 2d 73 65 74 |lor inte|rnal-set|
|00002c30| 2d 66 61 63 65 2d 31 20 | 66 6f 72 65 67 72 6f 75 |-face-1 |foregrou|
|00002c40| 6e 64 20 62 61 63 6b 67 | 72 6f 75 6e 64 20 64 65 |nd backg|round de|
|00002c50| 66 61 75 6c 74 20 62 61 | 63 6b 67 72 6f 75 6e 64 |fault ba|ckground|
|00002c60| 2d 63 6f 6c 6f 72 20 66 | 72 61 6d 65 2d 70 61 72 |-color f|rame-par|
|00002c70| 61 6d 65 74 65 72 73 20 | 66 6f 72 65 67 72 6f 75 |ameters |foregrou|
|00002c80| 6e 64 2d 63 6f 6c 6f 72 | 5d 20 37 20 22 5c 0a 53 |nd-color|] 7 "\.S|
|00002c90| 77 61 70 20 74 68 65 20 | 66 6f 72 65 67 72 6f 75 |wap the |foregrou|
|00002ca0| 6e 64 20 61 6e 64 20 62 | 61 63 6b 67 72 6f 75 6e |nd and b|ackgroun|
|00002cb0| 64 20 63 6f 6c 6f 72 73 | 20 6f 66 20 66 61 63 65 |d colors| of face|
|00002cc0| 20 46 41 43 45 2e 0a 49 | 66 20 74 68 65 20 66 61 | FACE..I|f the fa|
|00002cd0| 63 65 20 64 6f 65 73 6e | 27 74 20 73 70 65 63 69 |ce doesn|'t speci|
|00002ce0| 66 79 20 62 6f 74 68 20 | 66 6f 72 65 67 72 6f 75 |fy both |foregrou|
|00002cf0| 6e 64 20 61 6e 64 20 62 | 61 63 6b 67 72 6f 75 6e |nd and b|ackgroun|
|00002d00| 64 2c 20 74 68 65 6e 0a | 73 65 74 20 69 74 73 20 |d, then.|set its |
|00002d10| 66 6f 72 65 67 72 6f 75 | 6e 64 20 61 6e 64 20 62 |foregrou|nd and b|
|00002d20| 61 63 6b 67 72 6f 75 6e | 64 20 74 6f 20 74 68 65 |ackgroun|d to the|
|00002d30| 20 64 65 66 61 75 6c 74 | 20 62 61 63 6b 67 72 6f | default| backgro|
|00002d40| 75 6e 64 20 61 6e 64 20 | 66 6f 72 65 67 72 6f 75 |und and |foregrou|
|00002d50| 6e 64 2e 22 20 28 6c 69 | 73 74 20 28 72 65 61 64 |nd." (li|st (read|
|00002d60| 2d 66 61 63 65 2d 6e 61 | 6d 65 20 22 49 6e 76 65 |-face-na|me "Inve|
|00002d70| 72 74 20 66 61 63 65 3a | 20 22 29 29 5d 29 0a 28 |rt face:| "))]).(|
|00002d80| 64 65 66 61 6c 69 61 73 | 20 27 69 6e 74 65 72 6e |defalias| 'intern|
|00002d90| 61 6c 2d 74 72 79 2d 66 | 61 63 65 2d 66 6f 6e 74 |al-try-f|ace-font|
|00002da0| 20 23 5b 28 66 61 63 65 | 20 66 6f 6e 74 20 26 6f | #[(face| font &o|
|00002db0| 70 74 69 6f 6e 61 6c 20 | 66 72 61 6d 65 29 20 22 |ptional |frame) "|
|00002dc0| c0 c1 c2 8f 87 22 20 5b | 6e 69 6c 20 28 62 79 74 |....." [|nil (byt|
|00002dd0| 65 2d 63 6f 64 65 20 22 | 08 09 5c 6e 1a 19 18 09 |e-code "|..\n....|
|00002de0| 3b 83 11 00 c3 09 08 5c | 6e 23 11 c4 08 c1 09 c5 |;......\|n#......|
|00002df0| 5c 6e 25 2b 87 22 20 5b | 66 61 63 65 20 66 6f 6e |\n%+." [|face fon|
|00002e00| 74 20 66 72 61 6d 65 20 | 78 2d 72 65 73 6f 6c 76 |t frame |x-resolv|
|00002e10| 65 2d 66 6f 6e 74 2d 6e | 61 6d 65 20 69 6e 74 65 |e-font-n|ame inte|
|00002e20| 72 6e 61 6c 2d 73 65 74 | 2d 66 61 63 65 2d 31 20 |rnal-set|-face-1 |
|00002e30| 33 5d 20 36 29 20 28 28 | 65 72 72 6f 72 29 29 5d |3] 6) ((|error))]|
|00002e40| 20 33 20 22 5c 0a 4c 69 | 6b 65 20 73 65 74 2d 66 | 3 "\.Li|ke set-f|
|00002e50| 61 63 65 2d 66 6f 6e 74 | 2c 20 62 75 74 20 72 65 |ace-font|, but re|
|00002e60| 74 75 72 6e 73 20 6e 69 | 6c 20 6f 6e 20 66 61 69 |turns ni|l on fai|
|00002e70| 6c 75 72 65 20 69 6e 73 | 74 65 61 64 20 6f 66 20 |lure ins|tead of |
|00002e80| 61 6e 20 65 72 72 6f 72 | 2e 22 5d 29 0a 28 62 79 |an error|."]).(by|
|00002e90| 74 65 2d 63 6f 64 65 20 | 22 c0 11 c0 12 c0 13 c0 |te-code |".......|
|00002ea0| 14 c5 c6 89 c7 c8 c9 ca | c8 cb cc cd 89 89 ce cc |........|........|
|00002eb0| c6 89 1e 0f 1e 10 1e 11 | 1e 12 1e 13 1e 14 1e 15 |........|........|
|00002ec0| 1e 16 1e 17 1e 18 1e 19 | 1e 1a 1e 1b 1e 1c 1e 1d |........|........|
|00002ed0| 1e 1e 1e 1f e0 0e 1e 0e | 1f 0e 1d 0e 1f 0e 1b 0e |........|........|
|00002ee0| 1f 0e 19 0e 1f 0e 18 0e | 1f 0e 17 0e 1f 0e 16 0e |........|........|
|00002ef0| 1f 0e 15 0e 1f 0e 14 0e | 1f 0e 13 0e 1f 0e 12 0e |........|........|
|00002f00| 1f 0e 10 0e 1f 0e 0f e1 | b0 1b 11 e2 0e 1e 0e 1f |........|........|
|00002f10| 0e 1d 0e 1f 0e 1b 0e 1f | 0e 19 e3 b0 09 12 0e 1f |........|........|
|00002f20| 0e 1a 0e 1f 51 14 0e 1f | 0e 1c 0e 1f 51 13 2e 11 |....Q...|....Q...|
|00002f30| c0 87 22 20 5b 6e 69 6c | 20 78 2d 66 6f 6e 74 2d |.." [nil| x-font-|
|00002f40| 72 65 67 65 78 70 20 78 | 2d 66 6f 6e 74 2d 72 65 |regexp x|-font-re|
|00002f50| 67 65 78 70 2d 68 65 61 | 64 20 78 2d 66 6f 6e 74 |gexp-hea|d x-font|
|00002f60| 2d 72 65 67 65 78 70 2d | 77 65 69 67 68 74 20 78 |-regexp-|weight x|
|00002f70| 2d 66 6f 6e 74 2d 72 65 | 67 65 78 70 2d 73 6c 61 |-font-re|gexp-sla|
|00002f80| 6e 74 20 22 5b 2d 3f 5d | 22 20 22 5b 5e 2d 5d 2b |nt "[-?]|" "[^-]+|
|00002f90| 22 20 22 5c 5c 28 62 6f | 6c 64 5c 5c 7c 64 65 6d |" "\\(bo|ld\\|dem|
|00002fa0| 69 62 6f 6c 64 5c 5c 7c | 6d 65 64 69 75 6d 5c 5c |ibold\\||medium\\|
|00002fb0| 29 22 20 22 5c 5c 28 5b | 5e 2d 5d 2a 5c 5c 29 22 |)" "\\([|^-]*\\)"|
|00002fc0| 20 22 5c 5c 28 5b 69 6f | 72 5d 5c 5c 29 22 20 22 | "\\([io|r]\\)" "|
|00002fd0| 5c 5c 28 5b 5e 2d 5d 3f | 5c 5c 29 22 20 22 5b 5e |\\([^-]?|\\)" "[^|
|00002fe0| 2d 5d 2a 22 20 22 5b 30 | 2d 39 5d 2b 22 20 22 5b |-]*" "[0|-9]+" "[|
|00002ff0| 30 2d 39 5d 5b 30 2d 39 | 5d 2b 22 20 22 5b 63 6d |0-9][0-9|]+" "[cm|
|00003000| 70 3f 2a 5d 22 20 65 6e | 63 6f 64 69 6e 67 20 72 |p?*]" en|coding r|
|00003010| 65 67 69 73 74 72 79 20 | 61 76 67 77 69 64 74 68 |egistry |avgwidth|
|00003020| 20 73 70 61 63 69 6e 67 | 20 72 65 73 79 20 72 65 | spacing| resy re|
|00003030| 73 78 20 70 6f 69 6e 74 | 73 69 7a 65 20 70 69 78 |sx point|size pix|
|00003040| 65 6c 73 69 7a 65 20 61 | 64 73 74 79 6c 65 20 73 |elsize a|dstyle s|
|00003050| 77 69 64 74 68 20 73 6c | 61 6e 74 5c 3f 20 73 6c |width sl|ant\? sl|
|00003060| 61 6e 74 20 77 65 69 67 | 68 74 5c 3f 20 77 65 69 |ant weig|ht\? wei|
|00003070| 67 68 74 20 66 61 6d 69 | 6c 79 20 66 6f 75 6e 64 |ght fami|ly found|
|00003080| 72 79 20 2d 20 22 5c 5c | 60 5c 5c 2a 3f 5b 2d 3f |ry - "\\|`\\*?[-?|
|00003090| 2a 5d 22 20 22 5b 2d 3f | 2a 5d 5c 5c 2a 3f 5c 5c |*]" "[-?|*]\\*?\\|
|000030a0| 27 22 20 22 5c 5c 60 5b | 2d 3f 2a 5d 22 20 22 5c |'" "\\`[|-?*]" "\|
|000030b0| 5c 28 5b 2d 2a 3f 5d 5c | 5c 7c 5c 5c 27 5c 5c 29 |\([-*?]\|\|\\'\\)|
|000030c0| 22 5d 20 32 37 29 0a 28 | 64 65 66 61 6c 69 61 73 |"] 27).(|defalias|
|000030d0| 20 27 78 2d 72 65 73 6f | 6c 76 65 2d 66 6f 6e 74 | 'x-reso|lve-font|
|000030e0| 2d 6e 61 6d 65 20 23 5b | 28 70 61 74 74 65 72 6e |-name #[|(pattern|
|000030f0| 20 26 6f 70 74 69 6f 6e | 61 6c 20 66 61 63 65 20 | &option|al face |
|00003100| 66 72 61 6d 65 29 20 22 | 08 39 84 0e 00 08 18 c1 |frame) "|.9......|
|00003110| 08 21 c2 48 29 10 0b c4 | 3d 83 16 00 c5 13 0e 06 |.!.H)...|=.......|
|00003120| 83 3e 00 c7 0e 06 08 0b | 23 89 1e 08 84 39 00 08 |.>......|#....9..|
|00003130| 83 33 00 c9 ca 08 5c 22 | 88 82 39 00 c9 cb 0e 06 |.3....\"|..9.....|
|00003140| 5c 22 88 0e 08 40 29 87 | cc cd ce 20 21 9e 41 87 |\"...@).|... !.A.|
|00003150| 22 20 5b 66 61 63 65 20 | 69 6e 74 65 72 6e 61 6c |" [face |internal|
|00003160| 2d 67 65 74 2d 66 61 63 | 65 20 31 20 66 72 61 6d |-get-fac|e 1 fram|
|00003170| 65 20 74 20 6e 69 6c 20 | 70 61 74 74 65 72 6e 20 |e t nil |pattern |
|00003180| 78 2d 6c 69 73 74 2d 66 | 6f 6e 74 73 20 66 6f 6e |x-list-f|onts fon|
|00003190| 74 73 20 65 72 72 6f 72 | 20 22 4e 6f 20 66 6f 6e |ts error| "No fon|
|000031a0| 74 73 20 6d 61 74 63 68 | 69 6e 67 20 70 61 74 74 |ts match|ing patt|
|000031b0| 65 72 6e 20 61 72 65 20 | 74 68 65 20 73 61 6d 65 |ern are |the same|
|000031c0| 20 73 69 7a 65 20 61 73 | 20 60 25 73 27 22 20 22 | size as| `%s'" "|
|000031d0| 4e 6f 20 66 6f 6e 74 73 | 20 6d 61 74 63 68 20 60 |No fonts| match `|
|000031e0| 25 73 27 22 20 66 6f 6e | 74 20 66 72 61 6d 65 2d |%s'" fon|t frame-|
|000031f0| 70 61 72 61 6d 65 74 65 | 72 73 20 73 65 6c 65 63 |paramete|rs selec|
|00003200| 74 65 64 2d 66 72 61 6d | 65 5d 20 35 20 22 5c 0a |ted-fram|e] 5 "\.|
|00003210| 52 65 74 75 72 6e 20 61 | 20 66 6f 6e 74 20 6e 61 |Return a| font na|
|00003220| 6d 65 20 6d 61 74 63 68 | 69 6e 67 20 50 41 54 54 |me match|ing PATT|
|00003230| 45 52 4e 2e 0a 41 6c 6c | 20 77 69 6c 64 63 61 72 |ERN..All| wildcar|
|00003240| 64 73 20 69 6e 20 50 41 | 54 54 45 52 4e 20 62 65 |ds in PA|TTERN be|
|00003250| 63 6f 6d 65 20 73 75 62 | 73 74 61 6e 74 69 61 74 |come sub|stantiat|
|00003260| 65 64 2e 0a 49 66 20 50 | 41 54 54 45 52 4e 20 69 |ed..If P|ATTERN i|
|00003270| 73 20 6e 69 6c 2c 20 72 | 65 74 75 72 6e 20 74 68 |s nil, r|eturn th|
|00003280| 65 20 6e 61 6d 65 20 6f | 66 20 74 68 65 20 66 72 |e name o|f the fr|
|00003290| 61 6d 65 27 73 20 62 61 | 73 65 20 66 6f 6e 74 2c |ame's ba|se font,|
|000032a0| 20 77 68 69 63 68 20 6e | 65 76 65 72 0a 63 6f 6e | which n|ever.con|
|000032b0| 74 61 69 6e 73 20 77 69 | 6c 64 63 61 72 64 73 2e |tains wi|ldcards.|
|000032c0| 0a 47 69 76 65 6e 20 6f | 70 74 69 6f 6e 61 6c 20 |.Given o|ptional |
|000032d0| 61 72 67 75 6d 65 6e 74 | 73 20 46 41 43 45 20 61 |argument|s FACE a|
|000032e0| 6e 64 20 46 52 41 4d 45 | 2c 20 74 72 79 20 74 6f |nd FRAME|, try to|
|000032f0| 20 72 65 74 75 72 6e 20 | 61 20 66 6f 6e 74 20 77 | return |a font w|
|00003300| 68 69 63 68 20 69 73 0a | 61 6c 73 6f 20 74 68 65 |hich is.|also the|
|00003310| 20 73 61 6d 65 20 73 69 | 7a 65 20 61 73 20 46 41 | same si|ze as FA|
|00003320| 43 45 20 6f 6e 20 46 52 | 41 4d 45 2e 22 5d 29 0a |CE on FR|AME."]).|
|00003330| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 c1 c2 5c |(byte-co|de "...\|
|00003340| 22 88 c0 c3 c4 5c 22 87 | 22 20 5b 64 65 66 61 6c |"....\".|" [defal|
|00003350| 69 61 73 20 78 2d 66 72 | 6f 62 2d 66 6f 6e 74 2d |ias x-fr|ob-font-|
|00003360| 77 65 69 67 68 74 20 23 | 5b 28 66 6f 6e 74 20 77 |weight #|[(font w|
|00003370| 68 69 63 68 29 20 22 c0 | 09 5c 6e 5c 22 84 15 00 |hich) ".|.\n\"...|
|00003380| c0 0b 5c 6e 5c 22 84 15 | 00 c0 5c 66 5c 6e 5c 22 |..\n\"..|..\f\n\"|
|00003390| 85 5c 22 00 5c 6e c5 c6 | 94 4f 0e 07 5c 6e c6 95 |.\".\n..|.O..\n..|
|000033a0| c8 4f 51 87 22 20 5b 73 | 74 72 69 6e 67 2d 6d 61 |.OQ." [s|tring-ma|
|000033b0| 74 63 68 20 78 2d 66 6f | 6e 74 2d 72 65 67 65 78 |tch x-fo|nt-regex|
|000033c0| 70 20 66 6f 6e 74 20 78 | 2d 66 6f 6e 74 2d 72 65 |p font x|-font-re|
|000033d0| 67 65 78 70 2d 68 65 61 | 64 20 78 2d 66 6f 6e 74 |gexp-hea|d x-font|
|000033e0| 2d 72 65 67 65 78 70 2d | 77 65 69 67 68 74 20 30 |-regexp-|weight 0|
|000033f0| 20 31 20 77 68 69 63 68 | 20 6e 69 6c 5d 20 35 5d | 1 which| nil] 5]|
|00003400| 20 78 2d 66 72 6f 62 2d | 66 6f 6e 74 2d 73 6c 61 | x-frob-|font-sla|
|00003410| 6e 74 20 23 5b 28 66 6f | 6e 74 20 77 68 69 63 68 |nt #[(fo|nt which|
|00003420| 29 20 22 c0 09 5c 6e 5c | 22 84 0e 00 c0 0b 5c 6e |) "..\n\|".....\n|
|00003430| 5c 22 83 1c 00 5c 6e c4 | c5 94 4f 0e 06 5c 6e c5 |\"...\n.|..O..\n.|
|00003440| 95 c7 4f 51 87 c0 0e 08 | 5c 6e 5c 22 83 32 00 5c |..OQ....|\n\".2.\|
|00003450| 6e c4 c9 94 4f 0e 06 5c | 6e c9 95 c7 4f 51 87 c7 |n...O..\|n...OQ..|
|00003460| 87 22 20 5b 73 74 72 69 | 6e 67 2d 6d 61 74 63 68 |." [stri|ng-match|
|00003470| 20 78 2d 66 6f 6e 74 2d | 72 65 67 65 78 70 20 66 | x-font-|regexp f|
|00003480| 6f 6e 74 20 78 2d 66 6f | 6e 74 2d 72 65 67 65 78 |ont x-fo|nt-regex|
|00003490| 70 2d 68 65 61 64 20 30 | 20 32 20 77 68 69 63 68 |p-head 0| 2 which|
|000034a0| 20 6e 69 6c 20 78 2d 66 | 6f 6e 74 2d 72 65 67 65 | nil x-f|ont-rege|
|000034b0| 78 70 2d 73 6c 61 6e 74 | 20 31 5d 20 35 5d 5d 20 |xp-slant| 1] 5]] |
|000034c0| 33 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 78 2d |3).(defa|lias 'x-|
|000034d0| 6d 61 6b 65 2d 66 6f 6e | 74 2d 62 6f 6c 64 20 23 |make-fon|t-bold #|
|000034e0| 5b 28 66 6f 6e 74 29 20 | 22 c0 09 c2 5c 22 87 22 |[(font) |"...\"."|
|000034f0| 20 5b 78 2d 66 72 6f 62 | 2d 66 6f 6e 74 2d 77 65 | [x-frob|-font-we|
|00003500| 69 67 68 74 20 66 6f 6e | 74 20 22 62 6f 6c 64 22 |ight fon|t "bold"|
|00003510| 5d 20 33 20 22 5c 0a 47 | 69 76 65 6e 20 61 6e 20 |] 3 "\.G|iven an |
|00003520| 58 20 66 6f 6e 74 20 73 | 70 65 63 69 66 69 63 61 |X font s|pecifica|
|00003530| 74 69 6f 6e 2c 20 6d 61 | 6b 65 20 61 20 62 6f 6c |tion, ma|ke a bol|
|00003540| 64 20 76 65 72 73 69 6f | 6e 20 6f 66 20 69 74 2e |d versio|n of it.|
|00003550| 0a 49 66 20 74 68 61 74 | 20 63 61 6e 27 74 20 62 |.If that| can't b|
|00003560| 65 20 64 6f 6e 65 2c 20 | 72 65 74 75 72 6e 20 6e |e done, |return n|
|00003570| 69 6c 2e 22 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |il."]).(|defalias|
|00003580| 20 27 78 2d 6d 61 6b 65 | 2d 66 6f 6e 74 2d 64 65 | 'x-make|-font-de|
|00003590| 6d 69 62 6f 6c 64 20 23 | 5b 28 66 6f 6e 74 29 20 |mibold #|[(font) |
|000035a0| 22 c0 09 c2 5c 22 87 22 | 20 5b 78 2d 66 72 6f 62 |"...\"."| [x-frob|
|000035b0| 2d 66 6f 6e 74 2d 77 65 | 69 67 68 74 20 66 6f 6e |-font-we|ight fon|
|000035c0| 74 20 22 64 65 6d 69 62 | 6f 6c 64 22 5d 20 33 20 |t "demib|old"] 3 |
|000035d0| 22 5c 0a 47 69 76 65 6e | 20 61 6e 20 58 20 66 6f |"\.Given| an X fo|
|000035e0| 6e 74 20 73 70 65 63 69 | 66 69 63 61 74 69 6f 6e |nt speci|fication|
|000035f0| 2c 20 6d 61 6b 65 20 61 | 20 64 65 6d 69 62 6f 6c |, make a| demibol|
|00003600| 64 20 76 65 72 73 69 6f | 6e 20 6f 66 20 69 74 2e |d versio|n of it.|
|00003610| 0a 49 66 20 74 68 61 74 | 20 63 61 6e 27 74 20 62 |.If that| can't b|
|00003620| 65 20 64 6f 6e 65 2c 20 | 72 65 74 75 72 6e 20 6e |e done, |return n|
|00003630| 69 6c 2e 22 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |il."]).(|defalias|
|00003640| 20 27 78 2d 6d 61 6b 65 | 2d 66 6f 6e 74 2d 75 6e | 'x-make|-font-un|
|00003650| 62 6f 6c 64 20 23 5b 28 | 66 6f 6e 74 29 20 22 c0 |bold #[(|font) ".|
|00003660| 09 c2 5c 22 87 22 20 5b | 78 2d 66 72 6f 62 2d 66 |..\"." [|x-frob-f|
|00003670| 6f 6e 74 2d 77 65 69 67 | 68 74 20 66 6f 6e 74 20 |ont-weig|ht font |
|00003680| 22 6d 65 64 69 75 6d 22 | 5d 20 33 20 22 5c 0a 47 |"medium"|] 3 "\.G|
|00003690| 69 76 65 6e 20 61 6e 20 | 58 20 66 6f 6e 74 20 73 |iven an |X font s|
|000036a0| 70 65 63 69 66 69 63 61 | 74 69 6f 6e 2c 20 6d 61 |pecifica|tion, ma|
|000036b0| 6b 65 20 61 20 6e 6f 6e | 2d 62 6f 6c 64 20 76 65 |ke a non|-bold ve|
|000036c0| 72 73 69 6f 6e 20 6f 66 | 20 69 74 2e 0a 49 66 20 |rsion of| it..If |
|000036d0| 74 68 61 74 20 63 61 6e | 27 74 20 62 65 20 64 6f |that can|'t be do|
|000036e0| 6e 65 2c 20 72 65 74 75 | 72 6e 20 6e 69 6c 2e 22 |ne, retu|rn nil."|
|000036f0| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 78 2d |]).(defa|lias 'x-|
|00003700| 6d 61 6b 65 2d 66 6f 6e | 74 2d 69 74 61 6c 69 63 |make-fon|t-italic|
|00003710| 20 23 5b 28 66 6f 6e 74 | 29 20 22 c0 09 c2 5c 22 | #[(font|) "...\"|
|00003720| 87 22 20 5b 78 2d 66 72 | 6f 62 2d 66 6f 6e 74 2d |." [x-fr|ob-font-|
|00003730| 73 6c 61 6e 74 20 66 6f | 6e 74 20 22 69 22 5d 20 |slant fo|nt "i"] |
|00003740| 33 20 22 5c 0a 47 69 76 | 65 6e 20 61 6e 20 58 20 |3 "\.Giv|en an X |
|00003750| 66 6f 6e 74 20 73 70 65 | 63 69 66 69 63 61 74 69 |font spe|cificati|
|00003760| 6f 6e 2c 20 6d 61 6b 65 | 20 61 6e 20 69 74 61 6c |on, make| an ital|
|00003770| 69 63 20 76 65 72 73 69 | 6f 6e 20 6f 66 20 69 74 |ic versi|on of it|
|00003780| 2e 0a 49 66 20 74 68 61 | 74 20 63 61 6e 27 74 20 |..If tha|t can't |
|00003790| 62 65 20 64 6f 6e 65 2c | 20 72 65 74 75 72 6e 20 |be done,| return |
|000037a0| 6e 69 6c 2e 22 5d 29 0a | 28 64 65 66 61 6c 69 61 |nil."]).|(defalia|
|000037b0| 73 20 27 78 2d 6d 61 6b | 65 2d 66 6f 6e 74 2d 6f |s 'x-mak|e-font-o|
|000037c0| 62 6c 69 71 75 65 20 23 | 5b 28 66 6f 6e 74 29 20 |blique #|[(font) |
|000037d0| 22 c0 09 c2 5c 22 87 22 | 20 5b 78 2d 66 72 6f 62 |"...\"."| [x-frob|
|000037e0| 2d 66 6f 6e 74 2d 73 6c | 61 6e 74 20 66 6f 6e 74 |-font-sl|ant font|
|000037f0| 20 22 6f 22 5d 20 33 20 | 22 5c 0a 47 69 76 65 6e | "o"] 3 |"\.Given|
|00003800| 20 61 6e 20 58 20 66 6f | 6e 74 20 73 70 65 63 69 | an X fo|nt speci|
|00003810| 66 69 63 61 74 69 6f 6e | 2c 20 6d 61 6b 65 20 61 |fication|, make a|
|00003820| 6e 20 6f 62 6c 69 71 75 | 65 20 76 65 72 73 69 6f |n obliqu|e versio|
|00003830| 6e 20 6f 66 20 69 74 2e | 0a 49 66 20 74 68 61 74 |n of it.|.If that|
|00003840| 20 63 61 6e 27 74 20 62 | 65 20 64 6f 6e 65 2c 20 | can't b|e done, |
|00003850| 72 65 74 75 72 6e 20 6e | 69 6c 2e 22 5d 29 0a 28 |return n|il."]).(|
|00003860| 64 65 66 61 6c 69 61 73 | 20 27 78 2d 6d 61 6b 65 |defalias| 'x-make|
|00003870| 2d 66 6f 6e 74 2d 75 6e | 69 74 61 6c 69 63 20 23 |-font-un|italic #|
|00003880| 5b 28 66 6f 6e 74 29 20 | 22 c0 09 c2 5c 22 87 22 |[(font) |"...\"."|
|00003890| 20 5b 78 2d 66 72 6f 62 | 2d 66 6f 6e 74 2d 73 6c | [x-frob|-font-sl|
|000038a0| 61 6e 74 20 66 6f 6e 74 | 20 22 72 22 5d 20 33 20 |ant font| "r"] 3 |
|000038b0| 22 5c 0a 47 69 76 65 6e | 20 61 6e 20 58 20 66 6f |"\.Given| an X fo|
|000038c0| 6e 74 20 73 70 65 63 69 | 66 69 63 61 74 69 6f 6e |nt speci|fication|
|000038d0| 2c 20 6d 61 6b 65 20 61 | 20 6e 6f 6e 2d 69 74 61 |, make a| non-ita|
|000038e0| 6c 69 63 20 76 65 72 73 | 69 6f 6e 20 6f 66 20 69 |lic vers|ion of i|
|000038f0| 74 2e 0a 49 66 20 74 68 | 61 74 20 63 61 6e 27 74 |t..If th|at can't|
|00003900| 20 62 65 20 64 6f 6e 65 | 2c 20 72 65 74 75 72 6e | be done|, return|
|00003910| 20 6e 69 6c 2e 22 5d 29 | 0a 28 64 65 66 61 6c 69 | nil."])|.(defali|
|00003920| 61 73 20 27 6d 61 6b 65 | 2d 66 61 63 65 2d 62 6f |as 'make|-face-bo|
|00003930| 6c 64 20 23 5b 28 66 61 | 63 65 20 26 6f 70 74 69 |ld #[(fa|ce &opti|
|00003940| 6f 6e 61 6c 20 66 72 61 | 6d 65 20 6e 6f 65 72 72 |onal fra|me noerr|
|00003950| 6f 72 29 20 22 08 c1 3d | 83 48 00 5c 6e c1 18 1a |or) "..=|.H.\n...|
|00003960| c3 5c 6e 08 5c 22 c4 48 | 2a 3c 83 48 00 5c 6e c5 |.\n.\".H|*<.H.\n.|
|00003970| 5c 6e c1 18 1a c3 5c 6e | 08 5c 22 c4 48 2a 3e 83 |\n....\n|.\".H*>.|
|00003980| 2a 00 c6 82 2b 00 c7 c1 | 18 1e 08 1a 0e 08 3b 83 |*...+...|......;.|
|00003990| 3e 00 c9 0e 08 5c 6e 08 | 23 16 08 ca 5c 6e c8 0e |>....\n.|#...\n..|
|000039a0| 08 c4 08 25 2b 87 5c 6e | 08 18 1a c3 5c 6e 08 5c |...%+.\n|....\n.\|
|000039b0| 22 c4 48 2a cb 89 1e 5c | 66 1e 08 1e 0d 08 84 85 |".H*...\|f.......|
|000039c0| 00 ce 20 1e 0f d0 5c 6e | c1 0e 11 23 88 0e 0f 83 |.. ...\n|...#....|
|000039d0| 81 00 d0 5c 6e 0e 0f 40 | 0e 11 23 88 0e 0f 41 89 |...\n..@|..#...A.|
|000039e0| 16 0f 84 6f 00 29 82 cd | 00 c3 5c 6e 08 5c 22 89 |...o.)..|..\n.\".|
|000039f0| 12 08 18 1a c3 5c 6e 08 | 5c 22 c4 48 2a 86 a3 00 |.....\n.|\".H*...|
|00003a00| 5c 6e c1 18 1a c3 5c 6e | 08 5c 22 c4 48 2a 89 16 |\n....\n|.\".H*..|
|00003a10| 08 3c 83 ad 00 cb 16 08 | 0e 08 86 c6 00 d2 08 18 |.<......|........|
|00003a20| 1a c3 5c 6e 08 5c 22 c4 | 48 2a 86 c6 00 c8 d3 08 |..\n.\".|H*......|
|00003a30| 21 9e 41 16 08 d4 5c 6e | 08 5c 22 88 0e 0d 5c 6e |!.A...\n|.\"...\n|
|00003a40| cb 18 1a c3 5c 6e 08 5c | 22 c4 48 2a 9a 3f 86 ea |....\n.\|".H*.?..|
|00003a50| 00 0e 11 3f 85 ea 00 d5 | d6 0e 08 5c 22 2b 87 22 |...?....|...\"+."|
|00003a60| 20 5b 66 72 61 6d 65 20 | 74 20 66 61 63 65 20 69 | [frame |t face i|
|00003a70| 6e 74 65 72 6e 61 6c 2d | 67 65 74 2d 66 61 63 65 |nternal-|get-face|
|00003a80| 20 33 20 69 74 61 6c 69 | 63 20 28 62 6f 6c 64 20 | 3 itali|c (bold |
|00003a90| 69 74 61 6c 69 63 29 20 | 28 62 6f 6c 64 29 20 66 |italic) |(bold) f|
|00003aa0| 6f 6e 74 20 78 2d 72 65 | 73 6f 6c 76 65 2d 66 6f |ont x-re|solve-fo|
|00003ab0| 6e 74 2d 6e 61 6d 65 20 | 69 6e 74 65 72 6e 61 6c |nt-name |internal|
|00003ac0| 2d 73 65 74 2d 66 61 63 | 65 2d 31 20 6e 69 6c 20 |-set-fac|e-1 nil |
|00003ad0| 66 32 20 6f 66 6f 6e 74 | 20 66 72 61 6d 65 2d 6c |f2 ofont| frame-l|
|00003ae0| 69 73 74 20 66 72 61 6d | 65 73 20 6d 61 6b 65 2d |ist fram|es make-|
|00003af0| 66 61 63 65 2d 62 6f 6c | 64 20 6e 6f 65 72 72 6f |face-bol|d noerro|
|00003b00| 72 20 64 65 66 61 75 6c | 74 20 66 72 61 6d 65 2d |r defaul|t frame-|
|00003b10| 70 61 72 61 6d 65 74 65 | 72 73 20 6d 61 6b 65 2d |paramete|rs make-|
|00003b20| 66 61 63 65 2d 62 6f 6c | 64 2d 69 6e 74 65 72 6e |face-bol|d-intern|
|00003b30| 61 6c 20 65 72 72 6f 72 | 20 22 4e 6f 20 62 6f 6c |al error| "No bol|
|00003b40| 64 20 76 65 72 73 69 6f | 6e 20 6f 66 20 25 53 22 |d versio|n of %S"|
|00003b50| 5d 20 37 20 22 5c 0a 4d | 61 6b 65 20 74 68 65 20 |] 7 "\.M|ake the |
|00003b60| 66 6f 6e 74 20 6f 66 20 | 74 68 65 20 67 69 76 65 |font of |the give|
|00003b70| 6e 20 66 61 63 65 20 62 | 65 20 62 6f 6c 64 2c 20 |n face b|e bold, |
|00003b80| 69 66 20 70 6f 73 73 69 | 62 6c 65 2e 20 20 0a 49 |if possi|ble. .I|
|00003b90| 66 20 4e 4f 45 52 52 4f | 52 20 69 73 20 6e 6f 6e |f NOERRO|R is non|
|00003ba0| 2d 6e 69 6c 2c 20 72 65 | 74 75 72 6e 20 6e 69 6c |-nil, re|turn nil|
|00003bb0| 20 6f 6e 20 66 61 69 6c | 75 72 65 2e 22 20 28 6c | on fail|ure." (l|
|00003bc0| 69 73 74 20 28 72 65 61 | 64 2d 66 61 63 65 2d 6e |ist (rea|d-face-n|
|00003bd0| 61 6d 65 20 22 4d 61 6b | 65 20 77 68 69 63 68 20 |ame "Mak|e which |
|00003be0| 66 61 63 65 20 62 6f 6c | 64 3a 20 22 29 29 5d 29 |face bol|d: "))])|
|00003bf0| 0a 28 64 65 66 61 6c 69 | 61 73 20 28 71 75 6f 74 |.(defali|as (quot|
|00003c00| 65 20 6d 61 6b 65 2d 66 | 61 63 65 2d 62 6f 6c 64 |e make-f|ace-bold|
|00003c10| 2d 69 6e 74 65 72 6e 61 | 6c 29 20 23 5b 28 66 61 |-interna|l) #[(fa|
|00003c20| 63 65 20 66 72 61 6d 65 | 29 20 22 c0 09 21 89 12 |ce frame|) "..!..|
|00003c30| 83 10 00 c3 5c 66 5c 6e | 0d 23 86 1d 00 c6 09 21 |....\f\n|.#.....!|
|00003c40| 89 12 85 1d 00 c3 5c 66 | 5c 6e 0d 23 87 22 20 5b |......\f|\n.#." [|
|00003c50| 78 2d 6d 61 6b 65 2d 66 | 6f 6e 74 2d 62 6f 6c 64 |x-make-f|ont-bold|
|00003c60| 20 66 6f 6e 74 20 66 32 | 20 69 6e 74 65 72 6e 61 | font f2| interna|
|00003c70| 6c 2d 74 72 79 2d 66 61 | 63 65 2d 66 6f 6e 74 20 |l-try-fa|ce-font |
|00003c80| 66 61 63 65 20 66 72 61 | 6d 65 20 78 2d 6d 61 6b |face fra|me x-mak|
|00003c90| 65 2d 66 6f 6e 74 2d 64 | 65 6d 69 62 6f 6c 64 5d |e-font-d|emibold]|
|00003ca0| 20 34 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 | 4]).(de|falias '|
|00003cb0| 6d 61 6b 65 2d 66 61 63 | 65 2d 69 74 61 6c 69 63 |make-fac|e-italic|
|00003cc0| 20 23 5b 28 66 61 63 65 | 20 26 6f 70 74 69 6f 6e | #[(face| &option|
|00003cd0| 61 6c 20 66 72 61 6d 65 | 20 6e 6f 65 72 72 6f 72 |al frame| noerror|
|00003ce0| 29 20 22 08 c1 3d 83 48 | 00 5c 6e c1 18 1a c3 5c |) "..=.H|.\n....\|
|00003cf0| 6e 08 5c 22 c4 48 2a 3c | 83 48 00 5c 6e c5 5c 6e |n.\".H*<|.H.\n.\n|
|00003d00| c1 18 1a c3 5c 6e 08 5c | 22 c4 48 2a 3e 83 2a 00 |....\n.\|".H*>.*.|
|00003d10| c6 82 2b 00 c7 c1 18 1e | 08 1a 0e 08 3b 83 3e 00 |..+.....|....;.>.|
|00003d20| c9 0e 08 5c 6e 08 23 16 | 08 ca 5c 6e c8 0e 08 c4 |...\n.#.|..\n....|
|00003d30| 08 25 2b 87 5c 6e 08 18 | 1a c3 5c 6e 08 5c 22 c4 |.%+.\n..|..\n.\".|
|00003d40| 48 2a cb 89 1e 5c 66 1e | 08 1e 0d 08 84 85 00 ce |H*...\f.|........|
|00003d50| 20 1e 0f d0 5c 6e c1 0e | 11 23 88 0e 0f 83 81 00 | ...\n..|.#......|
|00003d60| d0 5c 6e 0e 0f 40 0e 11 | 23 88 0e 0f 41 89 16 0f |.\n..@..|#...A...|
|00003d70| 84 6f 00 29 82 cd 00 c3 | 5c 6e 08 5c 22 89 12 08 |.o.)....|\n.\"...|
|00003d80| 18 1a c3 5c 6e 08 5c 22 | c4 48 2a 86 a3 00 5c 6e |...\n.\"|.H*...\n|
|00003d90| c1 18 1a c3 5c 6e 08 5c | 22 c4 48 2a 89 16 08 3c |....\n.\|".H*...<|
|00003da0| 83 ad 00 cb 16 08 0e 08 | 86 c6 00 d2 08 18 1a c3 |........|........|
|00003db0| 5c 6e 08 5c 22 c4 48 2a | 86 c6 00 c8 d3 08 21 9e |\n.\".H*|......!.|
|00003dc0| 41 16 08 d4 5c 6e 08 5c | 22 88 0e 0d 5c 6e cb 18 |A...\n.\|"...\n..|
|00003dd0| 1a c3 5c 6e 08 5c 22 c4 | 48 2a 9a 3f 86 ea 00 0e |..\n.\".|H*.?....|
|00003de0| 11 3f 85 ea 00 d5 d6 0e | 08 5c 22 2b 87 22 20 5b |.?......|.\"+." [|
|00003df0| 66 72 61 6d 65 20 74 20 | 66 61 63 65 20 69 6e 74 |frame t |face int|
|00003e00| 65 72 6e 61 6c 2d 67 65 | 74 2d 66 61 63 65 20 33 |ernal-ge|t-face 3|
|00003e10| 20 62 6f 6c 64 20 28 62 | 6f 6c 64 20 69 74 61 6c | bold (b|old ital|
|00003e20| 69 63 29 20 28 69 74 61 | 6c 69 63 29 20 66 6f 6e |ic) (ita|lic) fon|
|00003e30| 74 20 78 2d 72 65 73 6f | 6c 76 65 2d 66 6f 6e 74 |t x-reso|lve-font|
|00003e40| 2d 6e 61 6d 65 20 69 6e | 74 65 72 6e 61 6c 2d 73 |-name in|ternal-s|
|00003e50| 65 74 2d 66 61 63 65 2d | 31 20 6e 69 6c 20 66 32 |et-face-|1 nil f2|
|00003e60| 20 6f 66 6f 6e 74 20 66 | 72 61 6d 65 2d 6c 69 73 | ofont f|rame-lis|
|00003e70| 74 20 66 72 61 6d 65 73 | 20 6d 61 6b 65 2d 66 61 |t frames| make-fa|
|00003e80| 63 65 2d 69 74 61 6c 69 | 63 20 6e 6f 65 72 72 6f |ce-itali|c noerro|
|00003e90| 72 20 64 65 66 61 75 6c | 74 20 66 72 61 6d 65 2d |r defaul|t frame-|
|00003ea0| 70 61 72 61 6d 65 74 65 | 72 73 20 6d 61 6b 65 2d |paramete|rs make-|
|00003eb0| 66 61 63 65 2d 69 74 61 | 6c 69 63 2d 69 6e 74 65 |face-ita|lic-inte|
|00003ec0| 72 6e 61 6c 20 65 72 72 | 6f 72 20 22 4e 6f 20 69 |rnal err|or "No i|
|00003ed0| 74 61 6c 69 63 20 76 65 | 72 73 69 6f 6e 20 6f 66 |talic ve|rsion of|
|00003ee0| 20 25 53 22 5d 20 37 20 | 22 5c 0a 4d 61 6b 65 20 | %S"] 7 |"\.Make |
|00003ef0| 74 68 65 20 66 6f 6e 74 | 20 6f 66 20 74 68 65 20 |the font| of the |
|00003f00| 67 69 76 65 6e 20 66 61 | 63 65 20 62 65 20 69 74 |given fa|ce be it|
|00003f10| 61 6c 69 63 2c 20 69 66 | 20 70 6f 73 73 69 62 6c |alic, if| possibl|
|00003f20| 65 2e 20 20 0a 49 66 20 | 4e 4f 45 52 52 4f 52 20 |e. .If |NOERROR |
|00003f30| 69 73 20 6e 6f 6e 2d 6e | 69 6c 2c 20 72 65 74 75 |is non-n|il, retu|
|00003f40| 72 6e 20 6e 69 6c 20 6f | 6e 20 66 61 69 6c 75 72 |rn nil o|n failur|
|00003f50| 65 2e 22 20 28 6c 69 73 | 74 20 28 72 65 61 64 2d |e." (lis|t (read-|
|00003f60| 66 61 63 65 2d 6e 61 6d | 65 20 22 4d 61 6b 65 20 |face-nam|e "Make |
|00003f70| 77 68 69 63 68 20 66 61 | 63 65 20 69 74 61 6c 69 |which fa|ce itali|
|00003f80| 63 3a 20 22 29 29 5d 29 | 0a 28 64 65 66 61 6c 69 |c: "))])|.(defali|
|00003f90| 61 73 20 28 71 75 6f 74 | 65 20 6d 61 6b 65 2d 66 |as (quot|e make-f|
|00003fa0| 61 63 65 2d 69 74 61 6c | 69 63 2d 69 6e 74 65 72 |ace-ital|ic-inter|
|00003fb0| 6e 61 6c 29 20 23 5b 28 | 66 61 63 65 20 66 72 61 |nal) #[(|face fra|
|00003fc0| 6d 65 29 20 22 c0 09 21 | 89 12 83 10 00 c3 5c 66 |me) "..!|......\f|
|00003fd0| 5c 6e 0d 23 86 1d 00 c6 | 09 21 89 12 85 1d 00 c3 |\n.#....|.!......|
|00003fe0| 5c 66 5c 6e 0d 23 87 22 | 20 5b 78 2d 6d 61 6b 65 |\f\n.#."| [x-make|
|00003ff0| 2d 66 6f 6e 74 2d 69 74 | 61 6c 69 63 20 66 6f 6e |-font-it|alic fon|
|00004000| 74 20 66 32 20 69 6e 74 | 65 72 6e 61 6c 2d 74 72 |t f2 int|ernal-tr|
|00004010| 79 2d 66 61 63 65 2d 66 | 6f 6e 74 20 66 61 63 65 |y-face-f|ont face|
|00004020| 20 66 72 61 6d 65 20 78 | 2d 6d 61 6b 65 2d 66 6f | frame x|-make-fo|
|00004030| 6e 74 2d 6f 62 6c 69 71 | 75 65 5d 20 34 5d 29 0a |nt-obliq|ue] 4]).|
|00004040| 28 64 65 66 61 6c 69 61 | 73 20 27 6d 61 6b 65 2d |(defalia|s 'make-|
|00004050| 66 61 63 65 2d 62 6f 6c | 64 2d 69 74 61 6c 69 63 |face-bol|d-italic|
|00004060| 20 23 5b 28 66 61 63 65 | 20 26 6f 70 74 69 6f 6e | #[(face| &option|
|00004070| 61 6c 20 66 72 61 6d 65 | 20 6e 6f 65 72 72 6f 72 |al frame| noerror|
|00004080| 29 20 22 08 c1 3d 83 34 | 00 5c 6e c1 18 1a c3 5c |) "..=.4|.\n....\|
|00004090| 6e 08 5c 22 c4 48 2a 3c | 83 34 00 5c 6e c5 c1 18 |n.\".H*<|.4.\n...|
|000040a0| 1e 06 1a 0e 06 3b 83 2a | 00 c7 0e 06 5c 6e 08 23 |.....;.*|....\n.#|
|000040b0| 16 06 c8 5c 6e c6 0e 06 | c4 08 25 2b 87 5c 6e 08 |...\n...|..%+.\n.|
|000040c0| 18 1a c3 5c 6e 08 5c 22 | c4 48 2a c9 1e 06 1e 5c |...\n.\"|.H*....\|
|000040d0| 6e 08 84 6e 00 cb 20 1e | 5c 66 cd 5c 6e c1 0e 0e |n..n.. .|\f.\n...|
|000040e0| 23 88 0e 5c 66 83 6a 00 | cd 5c 6e 0e 5c 66 40 0e |#..\f.j.|.\n.\f@.|
|000040f0| 0e 23 88 0e 5c 66 41 89 | 16 5c 66 84 58 00 29 82 |.#..\fA.|.\f.X.).|
|00004100| b6 00 c3 5c 6e 08 5c 22 | 89 12 08 18 1a c3 5c 6e |...\n.\"|......\n|
|00004110| 08 5c 22 c4 48 2a 86 8c | 00 5c 6e c1 18 1a c3 5c |.\".H*..|.\n....\|
|00004120| 6e 08 5c 22 c4 48 2a 89 | 16 06 3c 83 96 00 c9 16 |n.\".H*.|..<.....|
|00004130| 06 0e 06 86 af 00 cf 08 | 18 1a c3 5c 6e 08 5c 22 |........|...\n.\"|
|00004140| c4 48 2a 86 af 00 c6 d0 | 08 21 9e 41 16 06 d1 5c |.H*.....|.!.A...\|
|00004150| 6e 08 5c 22 88 0e 5c 6e | 5c 6e c9 18 1a c3 5c 6e |n.\"..\n|\n....\n|
|00004160| 08 5c 22 c4 48 2a 9a 3f | 86 d3 00 0e 0e 3f 85 d3 |.\".H*.?|.....?..|
|00004170| 00 d2 d3 0e 06 5c 22 2a | 87 22 20 5b 66 72 61 6d |.....\"*|." [fram|
|00004180| 65 20 74 20 66 61 63 65 | 20 69 6e 74 65 72 6e 61 |e t face| interna|
|00004190| 6c 2d 67 65 74 2d 66 61 | 63 65 20 33 20 28 62 6f |l-get-fa|ce 3 (bo|
|000041a0| 6c 64 20 69 74 61 6c 69 | 63 29 20 66 6f 6e 74 20 |ld itali|c) font |
|000041b0| 78 2d 72 65 73 6f 6c 76 | 65 2d 66 6f 6e 74 2d 6e |x-resolv|e-font-n|
|000041c0| 61 6d 65 20 69 6e 74 65 | 72 6e 61 6c 2d 73 65 74 |ame inte|rnal-set|
|000041d0| 2d 66 61 63 65 2d 31 20 | 6e 69 6c 20 6f 66 6f 6e |-face-1 |nil ofon|
|000041e0| 74 20 66 72 61 6d 65 2d | 6c 69 73 74 20 66 72 61 |t frame-|list fra|
|000041f0| 6d 65 73 20 6d 61 6b 65 | 2d 66 61 63 65 2d 62 6f |mes make|-face-bo|
|00004200| 6c 64 2d 69 74 61 6c 69 | 63 20 6e 6f 65 72 72 6f |ld-itali|c noerro|
|00004210| 72 20 64 65 66 61 75 6c | 74 20 66 72 61 6d 65 2d |r defaul|t frame-|
|00004220| 70 61 72 61 6d 65 74 65 | 72 73 20 6d 61 6b 65 2d |paramete|rs make-|
|00004230| 66 61 63 65 2d 62 6f 6c | 64 2d 69 74 61 6c 69 63 |face-bol|d-italic|
|00004240| 2d 69 6e 74 65 72 6e 61 | 6c 20 65 72 72 6f 72 20 |-interna|l error |
|00004250| 22 4e 6f 20 62 6f 6c 64 | 20 69 74 61 6c 69 63 20 |"No bold| italic |
|00004260| 76 65 72 73 69 6f 6e 20 | 6f 66 20 25 53 22 5d 20 |version |of %S"] |
|00004270| 37 20 22 5c 0a 4d 61 6b | 65 20 74 68 65 20 66 6f |7 "\.Mak|e the fo|
|00004280| 6e 74 20 6f 66 20 74 68 | 65 20 67 69 76 65 6e 20 |nt of th|e given |
|00004290| 66 61 63 65 20 62 65 20 | 62 6f 6c 64 20 61 6e 64 |face be |bold and|
|000042a0| 20 69 74 61 6c 69 63 2c | 20 69 66 20 70 6f 73 73 | italic,| if poss|
|000042b0| 69 62 6c 65 2e 20 20 0a | 49 66 20 4e 4f 45 52 52 |ible. .|If NOERR|
|000042c0| 4f 52 20 69 73 20 6e 6f | 6e 2d 6e 69 6c 2c 20 72 |OR is no|n-nil, r|
|000042d0| 65 74 75 72 6e 20 6e 69 | 6c 20 6f 6e 20 66 61 69 |eturn ni|l on fai|
|000042e0| 6c 75 72 65 2e 22 20 28 | 6c 69 73 74 20 28 72 65 |lure." (|list (re|
|000042f0| 61 64 2d 66 61 63 65 2d | 6e 61 6d 65 20 22 4d 61 |ad-face-|name "Ma|
|00004300| 6b 65 20 77 68 69 63 68 | 20 66 61 63 65 20 62 6f |ke which| face bo|
|00004310| 6c 64 2d 69 74 61 6c 69 | 63 3a 20 22 29 29 5d 29 |ld-itali|c: "))])|
|00004320| 0a 28 64 65 66 61 6c 69 | 61 73 20 28 71 75 6f 74 |.(defali|as (quot|
|00004330| 65 20 6d 61 6b 65 2d 66 | 61 63 65 2d 62 6f 6c 64 |e make-f|ace-bold|
|00004340| 2d 69 74 61 6c 69 63 2d | 69 6e 74 65 72 6e 61 6c |-italic-|internal|
|00004350| 29 20 23 5b 28 66 61 63 | 65 20 66 72 61 6d 65 29 |) #[(fac|e frame)|
|00004360| 20 22 c0 89 19 1a c3 5c | 66 21 89 12 83 2a 00 5c | ".....\|f!...*.\|
|00004370| 66 5c 6e 9a 84 2a 00 c5 | 5c 6e 21 89 11 83 2a 00 |f\n..*..|\n!...*.|
|00004380| 5c 6e 09 9a 84 2a 00 c6 | 0e 07 09 0e 08 23 86 9b |\n...*..|.....#..|
|00004390| 00 c9 5c 66 21 89 12 83 | 50 00 5c 66 5c 6e 9a 84 |..\f!...|P.\f\n..|
|000043a0| 50 00 c5 5c 6e 21 89 11 | 83 50 00 5c 6e 09 9a 84 |P..\n!..|.P.\n...|
|000043b0| 50 00 c6 0e 07 09 0e 08 | 23 86 9b 00 c3 5c 66 21 |P.......|#....\f!|
|000043c0| 89 12 83 76 00 5c 66 5c | 6e 9a 84 76 00 ca 5c 6e |...v.\f\|n..v..\n|
|000043d0| 21 89 11 83 76 00 5c 6e | 09 9a 84 76 00 c6 0e 07 |!...v.\n|...v....|
|000043e0| 09 0e 08 23 86 9b 00 c9 | 5c 66 21 89 12 85 9b 00 |...#....|\f!.....|
|000043f0| 5c 66 5c 6e 9a 3f 85 9b | 00 ca 5c 6e 21 89 11 85 |\f\n.?..|..\n!...|
|00004400| 9b 00 5c 6e 09 9a 3f 85 | 9b 00 c6 0e 07 09 0e 08 |..\n..?.|........|
|00004410| 23 2a 87 22 20 5b 6e 69 | 6c 20 66 33 20 66 32 20 |#*." [ni|l f3 f2 |
|00004420| 78 2d 6d 61 6b 65 2d 66 | 6f 6e 74 2d 69 74 61 6c |x-make-f|ont-ital|
|00004430| 69 63 20 66 6f 6e 74 20 | 78 2d 6d 61 6b 65 2d 66 |ic font |x-make-f|
|00004440| 6f 6e 74 2d 62 6f 6c 64 | 20 69 6e 74 65 72 6e 61 |ont-bold| interna|
|00004450| 6c 2d 74 72 79 2d 66 61 | 63 65 2d 66 6f 6e 74 20 |l-try-fa|ce-font |
|00004460| 66 61 63 65 20 66 72 61 | 6d 65 20 78 2d 6d 61 6b |face fra|me x-mak|
|00004470| 65 2d 66 6f 6e 74 2d 6f | 62 6c 69 71 75 65 20 78 |e-font-o|blique x|
|00004480| 2d 6d 61 6b 65 2d 66 6f | 6e 74 2d 64 65 6d 69 62 |-make-fo|nt-demib|
|00004490| 6f 6c 64 5d 20 34 5d 29 | 0a 28 64 65 66 61 6c 69 |old] 4])|.(defali|
|000044a0| 61 73 20 27 6d 61 6b 65 | 2d 66 61 63 65 2d 75 6e |as 'make|-face-un|
|000044b0| 62 6f 6c 64 20 23 5b 28 | 66 61 63 65 20 26 6f 70 |bold #[(|face &op|
|000044c0| 74 69 6f 6e 61 6c 20 66 | 72 61 6d 65 20 6e 6f 65 |tional f|rame noe|
|000044d0| 72 72 6f 72 29 20 22 08 | c1 3d 83 44 00 5c 6e c1 |rror) ".|.=.D.\n.|
|000044e0| 18 1a c3 5c 6e 08 5c 22 | c4 48 2a 3c 83 44 00 5c |...\n.\"|.H*<.D.\|
|000044f0| 6e c5 5c 6e c1 18 1a c3 | 5c 6e 08 5c 22 c4 48 2a |n.\n....|\n.\".H*|
|00004500| 3e 85 27 00 c6 c1 18 1e | 07 1a 0e 07 3b 83 3a 00 |>.'.....|....;.:.|
|00004510| c8 0e 07 5c 6e 08 23 16 | 07 c9 5c 6e c7 0e 07 c4 |...\n.#.|..\n....|
|00004520| 08 25 2b 87 5c 6e 08 18 | 1a c3 5c 6e 08 5c 22 c4 |.%+.\n..|..\n.\".|
|00004530| 48 2a ca 89 1e 0b 1e 07 | 1e 5c 66 08 84 81 00 cd |H*......|.\f.....|
|00004540| 20 1e 0e cf 5c 6e c1 0e | 10 23 88 0e 0e 83 7d 00 | ...\n..|.#....}.|
|00004550| cf 5c 6e 0e 0e 40 0e 10 | 23 88 0e 0e 41 89 16 0e |.\n..@..|#...A...|
|00004560| 84 6b 00 29 82 d5 00 c3 | 5c 6e 08 5c 22 89 12 08 |.k.)....|\n.\"...|
|00004570| 18 1a c3 5c 6e 08 5c 22 | c4 48 2a 86 9f 00 5c 6e |...\n.\"|.H*...\n|
|00004580| c1 18 1a c3 5c 6e 08 5c | 22 c4 48 2a 89 16 0b 3c |....\n.\|".H*...<|
|00004590| 83 a9 00 ca 16 0b 0e 0b | 86 c2 00 d1 08 18 1a c3 |........|........|
|000045a0| 5c 6e 08 5c 22 c4 48 2a | 86 c2 00 c7 d2 08 21 9e |\n.\".H*|......!.|
|000045b0| 41 16 0b d3 0e 0b 21 89 | 16 07 83 d5 00 d4 5c 6e |A.....!.|......\n|
|000045c0| 0e 07 08 23 88 0e 5c 66 | 5c 6e ca 18 1a c3 5c 6e |...#..\f|\n....\n|
|000045d0| 08 5c 22 c4 48 2a 9a 3f | 86 f2 00 0e 10 3f 85 f2 |.\".H*.?|.....?..|
|000045e0| 00 d5 d6 0e 0b 5c 22 2b | 87 22 20 5b 66 72 61 6d |.....\"+|." [fram|
|000045f0| 65 20 74 20 66 61 63 65 | 20 69 6e 74 65 72 6e 61 |e t face| interna|
|00004600| 6c 2d 67 65 74 2d 66 61 | 63 65 20 33 20 69 74 61 |l-get-fa|ce 3 ita|
|00004610| 6c 69 63 20 28 69 74 61 | 6c 69 63 29 20 66 6f 6e |lic (ita|lic) fon|
|00004620| 74 20 78 2d 72 65 73 6f | 6c 76 65 2d 66 6f 6e 74 |t x-reso|lve-font|
|00004630| 2d 6e 61 6d 65 20 69 6e | 74 65 72 6e 61 6c 2d 73 |-name in|ternal-s|
|00004640| 65 74 2d 66 61 63 65 2d | 31 20 6e 69 6c 20 66 6f |et-face-|1 nil fo|
|00004650| 6e 74 31 20 6f 66 6f 6e | 74 20 66 72 61 6d 65 2d |nt1 ofon|t frame-|
|00004660| 6c 69 73 74 20 66 72 61 | 6d 65 73 20 6d 61 6b 65 |list fra|mes make|
|00004670| 2d 66 61 63 65 2d 75 6e | 62 6f 6c 64 20 6e 6f 65 |-face-un|bold noe|
|00004680| 72 72 6f 72 20 64 65 66 | 61 75 6c 74 20 66 72 61 |rror def|ault fra|
|00004690| 6d 65 2d 70 61 72 61 6d | 65 74 65 72 73 20 78 2d |me-param|eters x-|
|000046a0| 6d 61 6b 65 2d 66 6f 6e | 74 2d 75 6e 62 6f 6c 64 |make-fon|t-unbold|
|000046b0| 20 69 6e 74 65 72 6e 61 | 6c 2d 74 72 79 2d 66 61 | interna|l-try-fa|
|000046c0| 63 65 2d 66 6f 6e 74 20 | 65 72 72 6f 72 20 22 4e |ce-font |error "N|
|000046d0| 6f 20 75 6e 62 6f 6c 64 | 20 76 65 72 73 69 6f 6e |o unbold| version|
|000046e0| 20 6f 66 20 25 53 22 5d | 20 37 20 22 5c 0a 4d 61 | of %S"]| 7 "\.Ma|
|000046f0| 6b 65 20 74 68 65 20 66 | 6f 6e 74 20 6f 66 20 74 |ke the f|ont of t|
|00004700| 68 65 20 67 69 76 65 6e | 20 66 61 63 65 20 62 65 |he given| face be|
|00004710| 20 6e 6f 6e 2d 62 6f 6c | 64 2c 20 69 66 20 70 6f | non-bol|d, if po|
|00004720| 73 73 69 62 6c 65 2e 20 | 20 0a 49 66 20 4e 4f 45 |ssible. | .If NOE|
|00004730| 52 52 4f 52 20 69 73 20 | 6e 6f 6e 2d 6e 69 6c 2c |RROR is |non-nil,|
|00004740| 20 72 65 74 75 72 6e 20 | 6e 69 6c 20 6f 6e 20 66 | return |nil on f|
|00004750| 61 69 6c 75 72 65 2e 22 | 20 28 6c 69 73 74 20 28 |ailure."| (list (|
|00004760| 72 65 61 64 2d 66 61 63 | 65 2d 6e 61 6d 65 20 22 |read-fac|e-name "|
|00004770| 4d 61 6b 65 20 77 68 69 | 63 68 20 66 61 63 65 20 |Make whi|ch face |
|00004780| 6e 6f 6e 2d 62 6f 6c 64 | 3a 20 22 29 29 5d 29 0a |non-bold|: "))]).|
|00004790| 28 64 65 66 61 6c 69 61 | 73 20 27 6d 61 6b 65 2d |(defalia|s 'make-|
|000047a0| 66 61 63 65 2d 75 6e 69 | 74 61 6c 69 63 20 23 5b |face-uni|talic #[|
|000047b0| 28 66 61 63 65 20 26 6f | 70 74 69 6f 6e 61 6c 20 |(face &o|ptional |
|000047c0| 66 72 61 6d 65 20 6e 6f | 65 72 72 6f 72 29 20 22 |frame no|error) "|
|000047d0| 08 c1 3d 83 44 00 5c 6e | c1 18 1a c3 5c 6e 08 5c |..=.D.\n|....\n.\|
|000047e0| 22 c4 48 2a 3c 83 44 00 | 5c 6e c5 5c 6e c1 18 1a |".H*<.D.|\n.\n...|
|000047f0| c3 5c 6e 08 5c 22 c4 48 | 2a 3e 85 27 00 c6 c1 18 |.\n.\".H|*>.'....|
|00004800| 1e 07 1a 0e 07 3b 83 3a | 00 c8 0e 07 5c 6e 08 23 |.....;.:|....\n.#|
|00004810| 16 07 c9 5c 6e c7 0e 07 | c4 08 25 2b 87 5c 6e 08 |...\n...|..%+.\n.|
|00004820| 18 1a c3 5c 6e 08 5c 22 | c4 48 2a ca 89 1e 0b 1e |...\n.\"|.H*.....|
|00004830| 07 1e 5c 66 08 84 81 00 | cd 20 1e 0e cf 5c 6e c1 |..\f....|. ...\n.|
|00004840| 0e 10 23 88 0e 0e 83 7d | 00 cf 5c 6e 0e 0e 40 0e |..#....}|..\n..@.|
|00004850| 10 23 88 0e 0e 41 89 16 | 0e 84 6b 00 29 82 d5 00 |.#...A..|..k.)...|
|00004860| c3 5c 6e 08 5c 22 89 12 | 08 18 1a c3 5c 6e 08 5c |.\n.\"..|....\n.\|
|00004870| 22 c4 48 2a 86 9f 00 5c | 6e c1 18 1a c3 5c 6e 08 |".H*...\|n....\n.|
|00004880| 5c 22 c4 48 2a 89 16 0b | 3c 83 a9 00 ca 16 0b 0e |\".H*...|<.......|
|00004890| 0b 86 c2 00 d1 08 18 1a | c3 5c 6e 08 5c 22 c4 48 |........|.\n.\".H|
|000048a0| 2a 86 c2 00 c7 d2 08 21 | 9e 41 16 0b d3 0e 0b 21 |*......!|.A.....!|
|000048b0| 89 16 07 83 d5 00 d4 5c | 6e 0e 07 08 23 88 0e 5c |.......\|n...#..\|
|000048c0| 66 5c 6e ca 18 1a c3 5c | 6e 08 5c 22 c4 48 2a 9a |f\n....\|n.\".H*.|
|000048d0| 3f 86 f2 00 0e 10 3f 85 | f2 00 d5 d6 0e 0b 5c 22 |?.....?.|......\"|
|000048e0| 2b 87 22 20 5b 66 72 61 | 6d 65 20 74 20 66 61 63 |+." [fra|me t fac|
|000048f0| 65 20 69 6e 74 65 72 6e | 61 6c 2d 67 65 74 2d 66 |e intern|al-get-f|
|00004900| 61 63 65 20 33 20 62 6f | 6c 64 20 28 62 6f 6c 64 |ace 3 bo|ld (bold|
|00004910| 29 20 66 6f 6e 74 20 78 | 2d 72 65 73 6f 6c 76 65 |) font x|-resolve|
|00004920| 2d 66 6f 6e 74 2d 6e 61 | 6d 65 20 69 6e 74 65 72 |-font-na|me inter|
|00004930| 6e 61 6c 2d 73 65 74 2d | 66 61 63 65 2d 31 20 6e |nal-set-|face-1 n|
|00004940| 69 6c 20 66 6f 6e 74 31 | 20 6f 66 6f 6e 74 20 66 |il font1| ofont f|
|00004950| 72 61 6d 65 2d 6c 69 73 | 74 20 66 72 61 6d 65 73 |rame-lis|t frames|
|00004960| 20 6d 61 6b 65 2d 66 61 | 63 65 2d 75 6e 69 74 61 | make-fa|ce-unita|
|00004970| 6c 69 63 20 6e 6f 65 72 | 72 6f 72 20 64 65 66 61 |lic noer|ror defa|
|00004980| 75 6c 74 20 66 72 61 6d | 65 2d 70 61 72 61 6d 65 |ult fram|e-parame|
|00004990| 74 65 72 73 20 78 2d 6d | 61 6b 65 2d 66 6f 6e 74 |ters x-m|ake-font|
|000049a0| 2d 75 6e 69 74 61 6c 69 | 63 20 69 6e 74 65 72 6e |-unitali|c intern|
|000049b0| 61 6c 2d 74 72 79 2d 66 | 61 63 65 2d 66 6f 6e 74 |al-try-f|ace-font|
|000049c0| 20 65 72 72 6f 72 20 22 | 4e 6f 20 75 6e 69 74 61 | error "|No unita|
|000049d0| 6c 69 63 20 76 65 72 73 | 69 6f 6e 20 6f 66 20 25 |lic vers|ion of %|
|000049e0| 53 22 5d 20 37 20 22 5c | 0a 4d 61 6b 65 20 74 68 |S"] 7 "\|.Make th|
|000049f0| 65 20 66 6f 6e 74 20 6f | 66 20 74 68 65 20 67 69 |e font o|f the gi|
|00004a00| 76 65 6e 20 66 61 63 65 | 20 62 65 20 6e 6f 6e 2d |ven face| be non-|
|00004a10| 69 74 61 6c 69 63 2c 20 | 69 66 20 70 6f 73 73 69 |italic, |if possi|
|00004a20| 62 6c 65 2e 20 20 0a 49 | 66 20 4e 4f 45 52 52 4f |ble. .I|f NOERRO|
|00004a30| 52 20 69 73 20 6e 6f 6e | 2d 6e 69 6c 2c 20 72 65 |R is non|-nil, re|
|00004a40| 74 75 72 6e 20 6e 69 6c | 20 6f 6e 20 66 61 69 6c |turn nil| on fail|
|00004a50| 75 72 65 2e 22 20 28 6c | 69 73 74 20 28 72 65 61 |ure." (l|ist (rea|
|00004a60| 64 2d 66 61 63 65 2d 6e | 61 6d 65 20 22 4d 61 6b |d-face-n|ame "Mak|
|00004a70| 65 20 77 68 69 63 68 20 | 66 61 63 65 20 6e 6f 6e |e which |face non|
|00004a80| 2d 69 74 61 6c 69 63 3a | 20 22 29 29 5d 29 0a 28 |-italic:| "))]).(|
|00004a90| 64 65 66 76 61 72 20 6c | 69 73 74 2d 66 61 63 65 |defvar l|ist-face|
|00004aa0| 73 2d 73 61 6d 70 6c 65 | 2d 74 65 78 74 20 22 61 |s-sample|-text "a|
|00004ab0| 62 63 64 65 66 67 68 69 | 6a 6b 6c 6d 6e 6f 70 71 |bcdefghi|jklmnopq|
|00004ac0| 72 73 74 75 76 77 78 79 | 7a 20 41 42 43 44 45 46 |rstuvwxy|z ABCDEF|
|00004ad0| 47 48 49 4a 4b 4c 4d 4e | 4f 50 51 52 53 54 55 56 |GHIJKLMN|OPQRSTUV|
|00004ae0| 57 58 59 5a 22 20 22 5c | 0a 2a 54 65 78 74 20 73 |WXYZ" "\|.*Text s|
|00004af0| 74 72 69 6e 67 20 74 6f | 20 64 69 73 70 6c 61 79 |tring to| display|
|00004b00| 20 61 73 20 74 68 65 20 | 73 61 6d 70 6c 65 20 74 | as the |sample t|
|00004b10| 65 78 74 20 66 6f 72 20 | 60 6c 69 73 74 2d 66 61 |ext for |`list-fa|
|00004b20| 63 65 73 2d 64 69 73 70 | 6c 61 79 27 2e 22 29 0a |ces-disp|lay'.").|
|00004b30| 28 64 65 66 61 6c 69 61 | 73 20 27 6c 69 73 74 2d |(defalia|s 'list-|
|00004b40| 66 61 63 65 73 2d 64 69 | 73 70 6c 61 79 20 23 5b |faces-di|splay #[|
|00004b50| 6e 69 6c 20 22 c0 c1 20 | c2 5c 22 c3 c4 20 c3 89 |nil ".. |.\".. ..|
|00004b60| 1d 1e 06 1e 07 1e 08 1e | 09 ca 90 8a 0e 0b 71 88 |........|......q.|
|00004b70| cc 16 0d 0e 09 83 4d 00 | 0e 09 40 16 08 0e 09 41 |......M.|..@....A|
|00004b80| 16 09 ce cf d0 0e 08 21 | 5c 22 63 88 60 1e 11 0e |.......!|\"c.`...|
|00004b90| 12 63 88 d3 63 88 d4 0e | 11 60 53 c8 0e 08 24 88 |.c..c...|.`S...$.|
|00004ba0| 29 82 1d 00 65 62 29 91 | 88 d5 d6 ca 21 cc 5c 22 |)...eb).|....!.\"|
|00004bb0| 89 15 83 63 00 d7 0d 21 | 82 66 00 d8 20 40 16 06 |...c...!|.f.. @..|
|00004bc0| 0e 07 0e 06 3d 86 90 00 | c1 20 89 1e 09 85 8f 00 |....=...|. ......|
|00004bd0| d9 0e 09 40 0e 09 40 0e | 07 0e 06 24 88 0e 09 41 |...@..@.|...$...A|
|00004be0| 89 16 09 84 78 00 c3 29 | 2d 87 22 20 5b 73 6f 72 |....x..)|-." [sor|
|00004bf0| 74 20 66 61 63 65 2d 6c | 69 73 74 20 73 74 72 69 |t face-l|ist stri|
|00004c00| 6e 67 2d 6c 65 73 73 70 | 20 6e 69 6c 20 73 65 6c |ng-lessp| nil sel|
|00004c10| 65 63 74 65 64 2d 66 72 | 61 6d 65 20 77 69 6e 64 |ected-fr|ame wind|
|00004c20| 6f 77 20 64 69 73 70 2d | 66 72 61 6d 65 20 66 72 |ow disp-|frame fr|
|00004c30| 61 6d 65 20 66 61 63 65 | 20 66 61 63 65 73 20 22 |ame face| faces "|
|00004c40| 2a 46 61 63 65 73 2a 22 | 20 73 74 61 6e 64 61 72 |*Faces*"| standar|
|00004c50| 64 2d 6f 75 74 70 75 74 | 20 74 20 74 72 75 6e 63 |d-output| t trunc|
|00004c60| 61 74 65 2d 6c 69 6e 65 | 73 20 66 6f 72 6d 61 74 |ate-line|s format|
|00004c70| 20 22 25 32 35 73 20 22 | 20 73 79 6d 62 6f 6c 2d | "%25s "| symbol-|
|00004c80| 6e 61 6d 65 20 62 65 67 | 20 6c 69 73 74 2d 66 61 |name beg| list-fa|
|00004c90| 63 65 73 2d 73 61 6d 70 | 6c 65 2d 74 65 78 74 20 |ces-samp|le-text |
|00004ca0| 22 5c 6e 22 20 70 75 74 | 2d 74 65 78 74 2d 70 72 |"\n" put|-text-pr|
|00004cb0| 6f 70 65 72 74 79 20 67 | 65 74 2d 62 75 66 66 65 |operty g|et-buffe|
|00004cc0| 72 2d 77 69 6e 64 6f 77 | 20 67 65 74 2d 62 75 66 |r-window| get-buf|
|00004cd0| 66 65 72 20 77 69 6e 64 | 6f 77 2d 66 72 61 6d 65 |fer wind|ow-frame|
|00004ce0| 20 66 72 61 6d 65 2d 6c | 69 73 74 20 63 6f 70 79 | frame-l|ist copy|
|00004cf0| 2d 66 61 63 65 5d 20 37 | 20 22 5c 0a 4c 69 73 74 |-face] 7| "\.List|
|00004d00| 20 61 6c 6c 20 66 61 63 | 65 73 2c 20 75 73 69 6e | all fac|es, usin|
|00004d10| 67 20 74 68 65 20 73 61 | 6d 65 20 73 61 6d 70 6c |g the sa|me sampl|
|00004d20| 65 20 74 65 78 74 20 69 | 6e 20 65 61 63 68 2e 0a |e text i|n each..|
|00004d30| 54 68 65 20 73 61 6d 70 | 6c 65 20 74 65 78 74 20 |The samp|le text |
|00004d40| 69 73 20 61 20 73 74 72 | 69 6e 67 20 74 68 61 74 |is a str|ing that|
|00004d50| 20 63 6f 6d 65 73 20 66 | 72 6f 6d 20 74 68 65 20 | comes f|rom the |
|00004d60| 76 61 72 69 61 62 6c 65 | 0a 60 6c 69 73 74 2d 66 |variable|.`list-f|
|00004d70| 61 63 65 73 2d 73 61 6d | 70 6c 65 2d 74 65 78 74 |aces-sam|ple-text|
|00004d80| 27 2e 0a 0a 49 74 20 69 | 73 20 70 6f 73 73 69 62 |'...It i|s possib|
|00004d90| 6c 65 20 74 6f 20 67 69 | 76 65 20 61 20 70 61 72 |le to gi|ve a par|
|00004da0| 74 69 63 75 6c 61 72 20 | 66 61 63 65 20 6e 61 6d |ticular |face nam|
|00004db0| 65 20 64 69 66 66 65 72 | 65 6e 74 20 61 70 70 65 |e differ|ent appe|
|00004dc0| 61 72 61 6e 63 65 73 20 | 69 6e 0a 64 69 66 66 65 |arances |in.diffe|
|00004dd0| 72 65 6e 74 20 66 72 61 | 6d 65 73 2e 20 20 54 68 |rent fra|mes. Th|
|00004de0| 69 73 20 63 6f 6d 6d 61 | 6e 64 20 73 68 6f 77 73 |is comma|nd shows|
|00004df0| 20 74 68 65 20 61 70 70 | 65 61 72 61 6e 63 65 20 | the app|earance |
|00004e00| 69 6e 20 74 68 65 0a 73 | 65 6c 65 63 74 65 64 20 |in the.s|elected |
|00004e10| 66 72 61 6d 65 2e 22 20 | 6e 69 6c 5d 29 0a 28 62 |frame." |nil]).(b|
|00004e20| 79 74 65 2d 63 6f 64 65 | 20 22 c0 c1 c2 5c 22 88 |yte-code| "...\".|
|00004e30| c0 c3 c4 5c 22 88 c0 c5 | c6 5c 22 88 c0 c7 c8 5c |...\"...|.\"....\|
|00004e40| 22 88 c0 c9 ca 5c 22 88 | cb cc 20 21 cd 3d 83 25 |"....\".|.. !.=.%|
|00004e50| 00 c1 20 88 ce cf 21 87 | 22 20 5b 64 65 66 61 6c |.. ...!.|" [defal|
|00004e60| 69 61 73 20 66 61 63 65 | 2d 69 6e 69 74 69 61 6c |ias face|-initial|
|00004e70| 69 7a 65 20 23 5b 6e 69 | 6c 20 22 c0 c1 21 88 c0 |ize #[ni|l "..!..|
|00004e80| c2 21 88 c0 c3 21 88 c0 | c4 21 88 c0 c5 21 88 c0 |.!...!..|.!...!..|
|00004e90| c6 21 88 c0 c7 21 88 c0 | c8 21 88 c0 c9 21 88 c7 |.!...!..|.!...!..|
|00004ea0| 1e 5c 6e cb 0e 5c 6e 21 | cc 48 29 16 0d ce c4 cf |.\n..\n!|.H).....|
|00004eb0| 5c 22 88 d0 c5 cf 5c 22 | 88 d1 c6 cf 5c 22 88 c3 |\"....\"|....\"..|
|00004ec0| d2 cf 1e 13 1e 14 1e 5c | 6e d5 0e 5c 6e d6 0e 14 |.......\|n..\n...|
|00004ed0| d7 0e 13 25 88 2b c7 d8 | cf 1e 13 1e 14 1e 5c 6e |...%.+..|......\n|
|00004ee0| d5 0e 5c 6e d6 0e 14 d7 | 0e 13 25 88 2b c8 d9 cf |..\n....|..%.+...|
|00004ef0| 1e 13 1e 14 1e 5c 6e d5 | 0e 5c 6e d6 0e 14 d7 0e |.....\n.|.\n.....|
|00004f00| 13 25 88 2b c2 da cf 1e | 13 1e 14 1e 5c 6e d5 0e |.%.+....|....\n..|
|00004f10| 5c 6e d6 0e 14 d7 0e 13 | 25 88 2b c9 cf 89 1e 13 |\n......|%.+.....|
|00004f20| 1e 1b 1e 5c 6e d5 0e 5c | 6e c9 0e 1b dc 0e 13 25 |...\n..\|n......%|
|00004f30| 88 2b dd 20 89 1e 1e 85 | f5 00 df 0e 1e 40 21 e0 |.+. ....|.....@!.|
|00004f40| 3d 83 eb 00 0e 1e 40 0e | 21 1e 5c 22 1e 13 0e 5c |=.....@.|!.\"...\|
|00004f50| 22 83 ea 00 0e 5c 22 40 | 40 1e 5c 6e e3 0e 5c 6e |"....\"@|@.\n..\n|
|00004f60| 21 84 e0 00 e4 0e 5c 6e | 0e 5c 22 40 41 0e 13 23 |!.....\n|.\"@A..#|
|00004f70| 88 29 0e 5c 22 41 89 16 | 5c 22 84 c8 00 2a 0e 1e |.).\"A..|\"...*..|
|00004f80| 41 89 16 1e 84 b0 00 e5 | 29 87 22 20 5b 6d 61 6b |A.......|)." [mak|
|00004f90| 65 2d 66 61 63 65 20 64 | 65 66 61 75 6c 74 20 6d |e-face d|efault m|
|00004fa0| 6f 64 65 6c 69 6e 65 20 | 68 69 67 68 6c 69 67 68 |odeline |highligh|
|00004fb0| 74 20 62 6f 6c 64 20 69 | 74 61 6c 69 63 20 62 6f |t bold i|talic bo|
|00004fc0| 6c 64 2d 69 74 61 6c 69 | 63 20 72 65 67 69 6f 6e |ld-itali|c region|
|00004fd0| 20 73 65 63 6f 6e 64 61 | 72 79 2d 73 65 6c 65 63 | seconda|ry-selec|
|00004fe0| 74 69 6f 6e 20 75 6e 64 | 65 72 6c 69 6e 65 20 66 |tion und|erline f|
|00004ff0| 61 63 65 20 69 6e 74 65 | 72 6e 61 6c 2d 67 65 74 |ace inte|rnal-get|
|00005000| 2d 66 61 63 65 20 32 20 | 72 65 67 69 6f 6e 2d 66 |-face 2 |region-f|
|00005010| 61 63 65 20 6d 61 6b 65 | 2d 66 61 63 65 2d 62 6f |ace make|-face-bo|
|00005020| 6c 64 20 74 20 6d 61 6b | 65 2d 66 61 63 65 2d 69 |ld t mak|e-face-i|
|00005030| 74 61 6c 69 63 20 6d 61 | 6b 65 2d 66 61 63 65 2d |talic ma|ke-face-|
|00005040| 62 6f 6c 64 2d 69 74 61 | 6c 69 63 20 28 22 64 61 |bold-ita|lic ("da|
|00005050| 72 6b 73 65 61 67 72 65 | 65 6e 32 22 20 22 67 72 |rkseagre|en2" "gr|
|00005060| 65 65 6e 22 20 74 29 20 | 66 72 61 6d 65 20 63 6f |een" t) |frame co|
|00005070| 6c 6f 72 20 69 6e 74 65 | 72 6e 61 6c 2d 73 65 74 |lor inte|rnal-set|
|00005080| 2d 66 61 63 65 2d 31 20 | 62 61 63 6b 67 72 6f 75 |-face-1 |backgrou|
|00005090| 6e 64 20 35 20 28 22 67 | 72 61 79 22 20 74 29 20 |nd 5 ("g|ray" t) |
|000050a0| 28 22 70 61 6c 65 74 75 | 72 71 75 6f 69 73 65 22 |("paletu|rquoise"|
|000050b0| 20 22 67 72 65 65 6e 22 | 20 74 29 20 28 74 29 20 | "green"| t) (t) |
|000050c0| 75 6e 64 65 72 6c 69 6e | 65 2d 70 20 37 20 66 72 |underlin|e-p 7 fr|
|000050d0| 61 6d 65 2d 6c 69 73 74 | 20 66 72 61 6d 65 73 20 |ame-list| frames |
|000050e0| 66 72 61 6d 65 70 20 78 | 20 67 6c 6f 62 61 6c 2d |framep x| global-|
|000050f0| 66 61 63 65 2d 64 61 74 | 61 20 72 65 73 74 20 66 |face-dat|a rest f|
|00005100| 61 63 65 2d 64 69 66 66 | 65 72 73 2d 66 72 6f 6d |ace-diff|ers-from|
|00005110| 2d 64 65 66 61 75 6c 74 | 2d 70 20 66 61 63 65 2d |-default|-p face-|
|00005120| 66 69 6c 6c 2d 69 6e 20 | 6e 69 6c 5d 20 37 5d 20 |fill-in |nil] 7] |
|00005130| 78 2d 63 72 65 61 74 65 | 2d 66 72 61 6d 65 2d 77 |x-create|-frame-w|
|00005140| 69 74 68 2d 66 61 63 65 | 73 20 23 5b 28 26 6f 70 |ith-face|s #[(&op|
|00005150| 74 69 6f 6e 61 6c 20 70 | 61 72 61 6d 65 74 65 72 |tional p|arameter|
|00005160| 73 29 20 22 08 84 08 00 | c1 5c 6e 21 87 c3 5c 6e |s) "....|.\n!..\n|
|00005170| 9e 1c c1 c5 5c 6e 42 21 | 1e 06 c7 08 21 89 1e 08 |....\nB!|....!...|
|00005180| 1e 09 ca 0e 06 0e 08 5c | 22 88 cb 5c 6e 9e 86 37 |.......\|"..\n..7|
|00005190| 00 cb 0e 5c 66 9e 86 37 | 00 cd ce cf d0 5c 22 d1 |...\f..7|.....\".|
|000051a0| 9d 42 41 83 6c 00 d2 0e | 06 21 1e 13 d4 0e 06 d5 |.BA.l...|.!......|
|000051b0| d6 0e 13 9e 41 42 d6 d5 | 0e 13 9e 41 42 d7 d6 0e |....AB..|...AB...|
|000051c0| 13 9e 41 42 d8 d6 0e 13 | 9e 41 42 d9 d6 0e 13 9e |..AB....|.AB.....|
|000051d0| 41 42 af 05 5c 22 88 29 | 0e 09 83 be 00 0e 09 40 |AB..\".)|.......@|
|000051e0| 41 1e 1a 0e 09 40 db dc | 0e 09 40 41 1e 1c dd 0e |A....@..|..@A....|
|000051f0| 1c 21 de 48 29 0e 09 40 | 41 1e 1c dd 0e 1c 21 df |.!.H)..@|A.....!.|
|00005200| 48 29 cd 89 89 89 89 26 | 08 a1 88 e0 0e 09 40 40 |H).....&|......@@|
|00005210| 0e 1a 0e 06 23 88 29 e1 | 0e 09 40 41 0e 06 e2 23 |....#.).|..@A...#|
|00005220| 88 0e 09 41 89 16 09 84 | 71 00 5c 66 84 ca 00 e3 |...A....|q.\f....|
|00005230| 0e 06 21 88 82 d1 00 d4 | 0e 06 5c 66 43 5c 22 88 |..!.....|..\fC\".|
|00005240| 0e 06 2c 87 22 20 5b 67 | 6c 6f 62 61 6c 2d 66 61 |..,." [g|lobal-fa|
|00005250| 63 65 2d 64 61 74 61 20 | 78 2d 63 72 65 61 74 65 |ce-data |x-create|
|00005260| 2d 66 72 61 6d 65 20 70 | 61 72 61 6d 65 74 65 72 |-frame p|arameter|
|00005270| 73 20 76 69 73 69 62 69 | 6c 69 74 79 20 76 69 73 |s visibi|lity vis|
|00005280| 69 62 69 6c 69 74 79 2d | 73 70 65 63 20 28 76 69 |ibility-|spec (vi|
|00005290| 73 69 62 69 6c 69 74 79 | 29 20 66 72 61 6d 65 20 |sibility|) frame |
|000052a0| 63 6f 70 79 2d 61 6c 69 | 73 74 20 66 61 63 65 73 |copy-ali|st faces|
|000052b0| 20 72 65 73 74 20 73 65 | 74 2d 66 72 61 6d 65 2d | rest se|t-frame-|
|000052c0| 66 61 63 65 2d 61 6c 69 | 73 74 20 72 65 76 65 72 |face-ali|st rever|
|000052d0| 73 65 20 64 65 66 61 75 | 6c 74 2d 66 72 61 6d 65 |se defau|lt-frame|
|000052e0| 2d 61 6c 69 73 74 20 6e | 69 6c 20 78 2d 67 65 74 |-alist n|il x-get|
|000052f0| 2d 72 65 73 6f 75 72 63 | 65 20 22 72 65 76 65 72 |-resourc|e "rever|
|00005300| 73 65 56 69 64 65 6f 22 | 20 22 52 65 76 65 72 73 |seVideo"| "Revers|
|00005310| 65 56 69 64 65 6f 22 20 | 28 22 6f 6e 22 20 22 74 |eVideo" |("on" "t|
|00005320| 72 75 65 22 29 20 66 72 | 61 6d 65 2d 70 61 72 61 |rue") fr|ame-para|
|00005330| 6d 65 74 65 72 73 20 70 | 61 72 61 6d 73 20 6d 6f |meters p|arams mo|
|00005340| 64 69 66 79 2d 66 72 61 | 6d 65 2d 70 61 72 61 6d |dify-fra|me-param|
|00005350| 65 74 65 72 73 20 66 6f | 72 65 67 72 6f 75 6e 64 |eters fo|reground|
|00005360| 2d 63 6f 6c 6f 72 20 62 | 61 63 6b 67 72 6f 75 6e |-color b|ackgroun|
|00005370| 64 2d 63 6f 6c 6f 72 20 | 6d 6f 75 73 65 2d 63 6f |d-color |mouse-co|
|00005380| 6c 6f 72 20 63 75 72 73 | 6f 72 2d 63 6f 6c 6f 72 |lor curs|or-color|
|00005390| 20 62 6f 72 64 65 72 2d | 63 6f 6c 6f 72 20 67 6c | border-|color gl|
|000053a0| 6f 62 61 6c 20 76 65 63 | 74 6f 72 20 66 61 63 65 |obal vec|tor face|
|000053b0| 20 69 6e 74 65 72 6e 61 | 6c 2d 67 65 74 2d 66 61 | interna|l-get-fa|
|000053c0| 63 65 20 31 20 32 20 66 | 61 63 65 2d 66 69 6c 6c |ce 1 2 f|ace-fill|
|000053d0| 2d 69 6e 20 6d 61 6b 65 | 2d 66 61 63 65 2d 78 2d |-in make|-face-x-|
|000053e0| 72 65 73 6f 75 72 63 65 | 2d 69 6e 74 65 72 6e 61 |resource|-interna|
|000053f0| 6c 20 74 20 6d 61 6b 65 | 2d 66 72 61 6d 65 2d 76 |l t make|-frame-v|
|00005400| 69 73 69 62 6c 65 5d 20 | 31 31 5d 20 66 72 61 6d |isible] |11] fram|
|00005410| 65 2d 75 70 64 61 74 65 | 2d 66 61 63 65 73 20 23 |e-update|-faces #|
|00005420| 5b 28 66 72 61 6d 65 29 | 20 22 08 89 19 1a 5c 6e |[(frame)| "....\n|
|00005430| 85 7d 00 5c 6e 40 40 89 | 1b c4 1d 1b c6 0b 0d 5c |.}.\n@@.|.......\|
|00005440| 22 c7 48 2a 89 1e 08 3c | 83 76 00 c9 0e 08 3e ca |".H*...<|.v....>.|
|00005450| 0e 08 3e 1e 5c 6e 1e 09 | 0b cb 0d 1d 1e 08 1b 0e |..>.\n..|........|
|00005460| 08 3b 83 3f 00 cc 0e 08 | 0b 0d 23 16 08 cd 0b c8 |.;.?....|..#.....|
|00005470| 0e 08 c7 0d 25 88 2b 0e | 09 83 5c 5c 00 0e 5c 6e |....%.+.|..\\..\n|
|00005480| 83 5c 5c 00 ce 0b 0d c4 | 23 88 82 75 00 0e 09 83 |.\\.....|#..u....|
|00005490| 6a 00 cf 0b 0d c4 23 88 | 82 75 00 0e 5c 6e 83 75 |j.....#.|.u..\n.u|
|000054a0| 00 d0 0b 0d c4 23 88 2a | 5c 6e 41 12 2a 82 04 00 |.....#.*|\nA.*...|
|000054b0| 2a 87 22 20 5b 67 6c 6f | 62 61 6c 2d 66 61 63 65 |*." [glo|bal-face|
|000054c0| 2d 64 61 74 61 20 66 61 | 63 65 73 20 72 65 73 74 |-data fa|ces rest|
|000054d0| 20 66 61 63 65 20 74 20 | 66 72 61 6d 65 20 69 6e | face t |frame in|
|000054e0| 74 65 72 6e 61 6c 2d 67 | 65 74 2d 66 61 63 65 20 |ternal-g|et-face |
|000054f0| 33 20 66 6f 6e 74 20 62 | 6f 6c 64 20 69 74 61 6c |3 font b|old ital|
|00005500| 69 63 20 6e 69 6c 20 78 | 2d 72 65 73 6f 6c 76 65 |ic nil x|-resolve|
|00005510| 2d 66 6f 6e 74 2d 6e 61 | 6d 65 20 69 6e 74 65 72 |-font-na|me inter|
|00005520| 6e 61 6c 2d 73 65 74 2d | 66 61 63 65 2d 31 20 6d |nal-set-|face-1 m|
|00005530| 61 6b 65 2d 66 61 63 65 | 2d 62 6f 6c 64 2d 69 74 |ake-face|-bold-it|
|00005540| 61 6c 69 63 20 6d 61 6b | 65 2d 66 61 63 65 2d 62 |alic mak|e-face-b|
|00005550| 6f 6c 64 20 6d 61 6b 65 | 2d 66 61 63 65 2d 69 74 |old make|-face-it|
|00005560| 61 6c 69 63 5d 20 37 5d | 20 66 61 63 65 2d 66 69 |alic] 7]| face-fi|
|00005570| 6c 6c 2d 69 6e 20 23 5b | 28 66 61 63 65 20 64 61 |ll-in #[|(face da|
|00005580| 74 61 20 66 72 61 6d 65 | 29 20 22 c0 c1 c2 8f 87 |ta frame|) ".....|
|00005590| 22 20 5b 6e 69 6c 20 28 | 62 79 74 65 2d 63 6f 64 |" [nil (|byte-cod|
|000055a0| 65 20 22 08 c1 1a 1b c4 | 0b 5c 6e 5c 22 c5 48 2a |e ".....|.\n\".H*|
|000055b0| 08 c1 1a 1b c4 0b 5c 6e | 5c 22 c6 48 2a 08 c1 1a |......\n|\".H*...|
|000055c0| 1b c4 0b 5c 6e 5c 22 c7 | 48 2a 1e 08 1e 09 1e 5c |...\n\".|H*.....\|
|000055d0| 6e 0b 08 c1 1a 1b c4 0b | 5c 6e 5c 22 cb 48 2a 5c |n.......|\n\".H*\|
|000055e0| 6e 1a 1e 5c 66 1b cd 0b | ce 0e 5c 66 cb 5c 6e 25 |n..\f...|..\f.\n%|
|000055f0| 88 2b 0e 5c 6e 83 4f 00 | cf d0 0b 0e 5c 6e 5c 6e |.+.\n.O.|....\n\n|
|00005600| 24 88 0e 09 83 5c 5c 00 | cf d1 0b 0e 09 5c 6e 24 |$....\\.|.....\n$|
|00005610| 88 0e 08 3c 83 97 00 d2 | 0e 08 3e d3 0e 08 3e 1e |...<....|..>...>.|
|00005620| 13 89 1e 12 83 7e 00 0e | 13 83 7e 00 d4 0b 5c 6e |.....~..|..~...\n|
|00005630| 5c 22 82 93 00 0e 12 83 | 8a 00 d5 0b 5c 6e 5c 22 |\"......|....\n\"|
|00005640| 82 93 00 0e 13 85 93 00 | d6 0b 5c 6e 5c 22 2a 82 |........|..\n\"*.|
|00005650| bb 00 0e 08 85 bb 00 0b | 0e 08 5c 6e 1a 1e 08 1b |........|..\n....|
|00005660| 0e 08 3b 83 b2 00 d7 0e | 08 0b 5c 6e 23 16 08 cd |..;.....|..\n#...|
|00005670| 0b c8 0e 08 c7 5c 6e 25 | 2b 2b 87 22 20 5b 64 61 |.....\n%|++." [da|
|00005680| 74 61 20 6e 69 6c 20 66 | 72 61 6d 65 20 66 61 63 |ta nil f|rame fac|
|00005690| 65 20 69 6e 74 65 72 6e | 61 6c 2d 67 65 74 2d 66 |e intern|al-get-f|
|000056a0| 61 63 65 20 34 20 35 20 | 33 20 66 6f 6e 74 20 62 |ace 4 5 |3 font b|
|000056b0| 61 63 6b 67 72 6f 75 6e | 64 20 66 6f 72 65 67 72 |ackgroun|d foregr|
|000056c0| 6f 75 6e 64 20 37 20 75 | 6e 64 65 72 6c 69 6e 65 |ound 7 u|nderline|
|000056d0| 2d 70 20 69 6e 74 65 72 | 6e 61 6c 2d 73 65 74 2d |-p inter|nal-set-|
|000056e0| 66 61 63 65 2d 31 20 75 | 6e 64 65 72 6c 69 6e 65 |face-1 u|nderline|
|000056f0| 20 66 61 63 65 2d 74 72 | 79 2d 63 6f 6c 6f 72 2d | face-tr|y-color-|
|00005700| 6c 69 73 74 20 73 65 74 | 2d 66 61 63 65 2d 66 6f |list set|-face-fo|
|00005710| 72 65 67 72 6f 75 6e 64 | 20 73 65 74 2d 66 61 63 |reground| set-fac|
|00005720| 65 2d 62 61 63 6b 67 72 | 6f 75 6e 64 20 62 6f 6c |e-backgr|ound bol|
|00005730| 64 20 69 74 61 6c 69 63 | 20 6d 61 6b 65 2d 66 61 |d italic| make-fa|
|00005740| 63 65 2d 62 6f 6c 64 2d | 69 74 61 6c 69 63 20 6d |ce-bold-|italic m|
|00005750| 61 6b 65 2d 66 61 63 65 | 2d 62 6f 6c 64 20 6d 61 |ake-face|-bold ma|
|00005760| 6b 65 2d 66 61 63 65 2d | 69 74 61 6c 69 63 20 78 |ke-face-|italic x|
|00005770| 2d 72 65 73 6f 6c 76 65 | 2d 66 6f 6e 74 2d 6e 61 |-resolve|-font-na|
|00005780| 6d 65 5d 20 37 29 20 28 | 28 65 72 72 6f 72 29 29 |me] 7) (|(error))|
|00005790| 5d 20 33 5d 20 66 61 63 | 65 2d 74 72 79 2d 63 6f |] 3] fac|e-try-co|
|000057a0| 6c 6f 72 2d 6c 69 73 74 | 20 23 5b 28 66 75 6e 63 |lor-list| #[(func|
|000057b0| 74 69 6f 6e 20 66 61 63 | 65 20 63 6f 6c 6f 72 73 |tion fac|e colors|
|000057c0| 20 66 72 61 6d 65 29 20 | 22 08 3b 83 21 00 c1 20 | frame) |".;.!.. |
|000057d0| 84 11 00 08 c2 98 3f 86 | 15 00 c3 20 c4 55 3f 85 |......?.|... .U?.|
|000057e0| 84 00 0d 0e 06 08 0e 07 | 23 87 08 c8 3d 83 2e 00 |........|#...=...|
|000057f0| c9 0e 06 0e 07 5c 22 87 | ca 1e 0b 08 85 83 00 0e |.....\".|........|
|00005800| 0b 3f 85 83 00 08 40 3b | 83 54 00 c1 20 84 4d 00 |.?....@;|.T.. .M.|
|00005810| 08 40 c2 98 83 7b 00 c3 | 20 c4 55 84 7b 00 08 41 |.@...{..| .U.{..A|
|00005820| 83 61 00 ca cc cd 8f 88 | 82 7b 00 08 40 c8 3d 83 |.a......|.{..@.=.|
|00005830| 72 00 c9 0e 06 0e 07 5c | 22 88 82 7b 00 0d 0e 06 |r......\|"..{....|
|00005840| 08 40 0e 07 23 88 08 41 | 89 10 84 35 00 ca 29 87 |.@..#..A|...5..).|
|00005850| 22 20 5b 63 6f 6c 6f 72 | 73 20 78 2d 64 69 73 70 |" [color|s x-disp|
|00005860| 6c 61 79 2d 63 6f 6c 6f | 72 2d 70 20 22 67 72 61 |lay-colo|r-p "gra|
|00005870| 79 22 20 78 2d 64 69 73 | 70 6c 61 79 2d 70 6c 61 |y" x-dis|play-pla|
|00005880| 6e 65 73 20 31 20 66 75 | 6e 63 74 69 6f 6e 20 66 |nes 1 fu|nction f|
|00005890| 61 63 65 20 66 72 61 6d | 65 20 74 20 69 6e 76 65 |ace fram|e t inve|
|000058a0| 72 74 2d 66 61 63 65 20 | 6e 69 6c 20 64 6f 6e 65 |rt-face |nil done|
|000058b0| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 08 40 c1 | (byte-c|ode ".@.|
|000058c0| 3d 83 0f 00 c2 0b 5c 66 | 5c 22 88 82 16 00 0d 0b |=.....\f|\"......|
|000058d0| 08 40 5c 66 23 88 c1 16 | 06 c1 87 22 20 5b 63 6f |.@\f#...|..." [co|
|000058e0| 6c 6f 72 73 20 74 20 69 | 6e 76 65 72 74 2d 66 61 |lors t i|nvert-fa|
|000058f0| 63 65 20 66 61 63 65 20 | 66 72 61 6d 65 20 66 75 |ce face |frame fu|
|00005900| 6e 63 74 69 6f 6e 20 64 | 6f 6e 65 5d 20 34 29 20 |nction d|one] 4) |
|00005910| 28 28 65 72 72 6f 72 29 | 29 5d 20 35 5d 20 66 72 |((error)|)] 5] fr|
|00005920| 61 6d 65 70 20 73 65 6c | 65 63 74 65 64 2d 66 72 |amep sel|ected-fr|
|00005930| 61 6d 65 20 78 20 70 72 | 6f 76 69 64 65 20 66 61 |ame x pr|ovide fa|
|00005940| 63 65 73 5d 20 33 29 0a | |ces] 3).| |
+--------+-------------------------+-------------------------+--------+--------+
