/ Linux Cubed Series 2: Applications / Linux Cubed Series 2 - Applications.iso / editors / emacs / xemacs / xemacs-1.006 / xemacs-1 / lib / xemacs-19.13 / lisp / packages / edit-faces.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|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 63 74 68 6f 6d 70 40 |piled by| cthomp@|
|00000020| 77 69 6c 6c 6f 77 2e 63 | 73 2e 75 69 75 63 2e 65 |willow.c|s.uiuc.e|
|00000030| 64 75 20 6f 6e 20 54 75 | 65 20 41 75 67 20 32 39 |du on Tu|e Aug 29|
|00000040| 20 31 34 3a 31 32 3a 33 | 37 20 31 39 39 35 0a 3b | 14:12:3|7 1995.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 78 65 |;; from |file /xe|
|00000060| 6d 61 63 73 2f 78 65 6d | 61 63 73 2d 31 39 2e 31 |macs/xem|acs-19.1|
|00000070| 33 2d 72 65 6c 65 61 73 | 65 2f 65 64 69 74 6f 72 |3-releas|e/editor|
|00000080| 2f 6c 69 73 70 2f 70 61 | 63 6b 61 67 65 73 2f 65 |/lisp/pa|ckages/e|
|00000090| 64 69 74 2d 66 61 63 65 | 73 2e 65 6c 0a 3b 3b 3b |dit-face|s.el.;;;|
|000000a0| 20 65 6d 61 63 73 20 76 | 65 72 73 69 6f 6e 20 31 | emacs v|ersion 1|
|000000b0| 39 2e 31 33 20 58 45 6d | 61 63 73 20 4c 75 63 69 |9.13 XEm|acs Luci|
|000000c0| 64 2e 0a 3b 3b 3b 20 62 | 79 74 65 63 6f 6d 70 20 |d..;;; b|ytecomp |
|000000d0| 76 65 72 73 69 6f 6e 20 | 32 2e 32 35 3b 20 31 2d |version |2.25; 1-|
|000000e0| 53 65 70 2d 39 34 2e 0a | 3b 3b 3b 20 6f 70 74 69 |Sep-94..|;;; opti|
|000000f0| 6d 69 7a 61 74 69 6f 6e | 20 69 73 20 6f 6e 2e 0a |mization| is on..|
|00000100| 3b 3b 3b 20 74 68 69 73 | 20 66 69 6c 65 20 75 73 |;;; this| file us|
|00000110| 65 73 20 6f 70 63 6f 64 | 65 73 20 77 68 69 63 68 |es opcod|es which|
|00000120| 20 64 6f 20 6e 6f 74 20 | 65 78 69 73 74 20 69 6e | do not |exist in|
|00000130| 20 45 6d 61 63 73 20 31 | 38 2e 0a 0a 28 69 66 20 | Emacs 1|8...(if |
|00000140| 28 61 6e 64 20 28 62 6f | 75 6e 64 70 20 27 65 6d |(and (bo|undp 'em|
|00000150| 61 63 73 2d 76 65 72 73 | 69 6f 6e 29 0a 09 20 28 |acs-vers|ion).. (|
|00000160| 6f 72 20 28 61 6e 64 20 | 28 62 6f 75 6e 64 70 20 |or (and |(boundp |
|00000170| 27 65 70 6f 63 68 3a 3a | 76 65 72 73 69 6f 6e 29 |'epoch::|version)|
|00000180| 20 65 70 6f 63 68 3a 3a | 76 65 72 73 69 6f 6e 29 | epoch::|version)|
|00000190| 0a 09 20 20 20 20 20 28 | 73 74 72 69 6e 67 2d 6c |..     (|string-l|
|000001a0| 65 73 73 70 20 65 6d 61 | 63 73 2d 76 65 72 73 69 |essp ema|cs-versi|
|000001b0| 6f 6e 20 22 31 39 22 29 | 29 29 0a 20 20 20 20 28 |on "19")|)).    (|
|000001c0| 65 72 72 6f 72 20 22 54 | 68 69 73 20 66 69 6c 65 |error "T|his file|
|000001d0| 20 77 61 73 20 63 6f 6d | 70 69 6c 65 64 20 66 6f | was com|piled fo|
|000001e0| 72 20 45 6d 61 63 73 20 | 31 39 2e 22 29 29 0a 0a |r Emacs |19."))..|
|000001f0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 c1 21 84 |(byte-co|de "..!.|
|00000200| 94 00 c2 20 1b c4 0b 21 | 88 c5 0b c6 c7 23 88 c5 |... ...!|.....#..|
|00000210| 0b c8 c9 23 88 c5 0b ca | cb 23 88 c5 0b cc cd 23 |...#....|.#.....#|
|00000220| 88 c5 0b ce c7 23 88 c5 | 0b cf c9 23 88 c5 0b d0 |.....#..|...#....|
|00000230| d1 23 88 c5 0b d2 d3 23 | 88 c5 0b d4 d5 23 88 c5 |.#.....#|.....#..|
|00000240| 0b d6 d5 23 88 c5 0b d7 | d8 23 88 c5 0b d9 da 23 |...#....|.#.....#|
|00000250| 88 c5 0b db dc 23 88 c5 | 0b dd de 23 88 c5 0b df |.....#..|...#....|
|00000260| e0 23 88 c5 0b e1 e2 23 | 88 c5 0b e3 e4 23 88 c5 |.#.....#|.....#..|
|00000270| 0b e5 e2 23 88 c5 0b e6 | e4 23 88 c5 0b e7 e8 23 |...#....|.#.....#|
|00000280| 88 c5 0b e9 ea 23 88 c5 | 0b eb ec 23 88 0b 29 11 |.....#..|...#..).|
|00000290| c0 ed 21 ac 83 ee 16 2d | ef f0 21 ac 89 f1 f0 21 |..!....-|..!....!|
|000002a0| 88 f2 f0 f3 5c 22 88 c0 | 87 22 20 5b 62 6f 75 6e |....\"..|." [boun|
|000002b0| 64 70 20 65 64 69 74 2d | 66 61 63 65 73 2d 6d 61 |dp edit-|faces-ma|
|000002c0| 70 20 6d 61 6b 65 2d 73 | 70 61 72 73 65 2d 6b 65 |p make-s|parse-ke|
|000002d0| 79 6d 61 70 20 6d 61 70 | 20 73 75 70 70 72 65 73 |ymap map| suppres|
|000002e0| 73 2d 6b 65 79 6d 61 70 | 20 64 65 66 69 6e 65 2d |s-keymap| define-|
|000002f0| 6b 65 79 20 22 3c 22 20 | 65 66 2d 73 6d 61 6c 6c |key "<" |ef-small|
|00000300| 65 72 20 22 3e 22 20 65 | 66 2d 6c 61 72 67 65 72 |er ">" e|f-larger|
|00000310| 20 22 63 22 20 65 66 2d | 63 6f 70 79 2d 6f 74 68 | "c" ef-|copy-oth|
|00000320| 65 72 2d 66 61 63 65 20 | 22 43 22 20 65 66 2d 63 |er-face |"C" ef-c|
|00000330| 6f 70 79 2d 74 68 69 73 | 2d 66 61 63 65 20 22 73 |opy-this|-face "s|
|00000340| 22 20 22 6c 22 20 22 62 | 22 20 65 66 2d 62 6f 6c |" "l" "b|" ef-bol|
|00000350| 64 20 22 69 22 20 65 66 | 2d 69 74 61 6c 69 63 20 |d "i" ef|-italic |
|00000360| 22 65 22 20 65 66 2d 66 | 6f 6e 74 20 22 66 22 20 |"e" ef-f|ont "f" |
|00000370| 22 75 22 20 65 66 2d 75 | 6e 64 65 72 6c 69 6e 65 |"u" ef-u|nderline|
|00000380| 20 22 74 22 20 65 66 2d | 74 72 75 65 66 6f 6e 74 | "t" ef-|truefont|
|00000390| 20 22 46 22 20 65 66 2d | 66 6f 72 65 67 72 6f 75 | "F" ef-|foregrou|
|000003a0| 6e 64 20 22 42 22 20 65 | 66 2d 62 61 63 6b 67 72 |nd "B" e|f-backgr|
|000003b0| 6f 75 6e 64 20 22 64 22 | 20 65 66 2d 64 65 6c 65 |ound "d"| ef-dele|
|000003c0| 74 65 20 22 6e 22 20 65 | 66 2d 6e 65 78 74 20 22 |te "n" e|f-next "|
|000003d0| 70 22 20 65 66 2d 70 72 | 65 76 20 22 20 22 20 22 |p" ef-pr|ev " " "|
|000003e0| 7f 22 20 22 67 22 20 65 | 64 69 74 2d 66 61 63 65 |." "g" e|dit-face|
|000003f0| 73 20 22 71 22 20 65 66 | 2d 71 75 69 74 20 22 03 |s "q" ef|-quit ".|
|00000400| 03 22 20 62 75 72 79 2d | 62 75 66 66 65 72 20 65 |." bury-|buffer e|
|00000410| 64 69 74 2d 66 61 63 65 | 73 2d 6d 65 6e 75 20 28 |dit-face|s-menu (|
|00000420| 22 45 64 69 74 2d 46 61 | 63 65 73 22 20 5b 22 43 |"Edit-Fa|ces" ["C|
|00000430| 6f 70 79 20 6f 74 68 65 | 72 20 66 61 63 65 2e 2e |opy othe|r face..|
|00000440| 2e 22 20 65 66 2d 63 6f | 70 79 2d 6f 74 68 65 72 |." ef-co|py-other|
|00000450| 2d 66 61 63 65 20 74 5d | 20 5b 22 43 6f 70 79 20 |-face t]| ["Copy |
|00000460| 74 68 69 73 20 66 61 63 | 65 2e 2e 2e 22 20 65 66 |this fac|e..." ef|
|00000470| 2d 63 6f 70 79 2d 74 68 | 69 73 2d 66 61 63 65 20 |-copy-th|is-face |
|00000480| 74 5d 20 5b 22 4d 61 6b | 65 20 73 6d 61 6c 6c 65 |t] ["Mak|e smalle|
|00000490| 72 22 20 65 66 2d 73 6d | 61 6c 6c 65 72 20 74 5d |r" ef-sm|aller t]|
|000004a0| 20 5b 22 4d 61 6b 65 20 | 6c 61 72 67 65 72 22 20 | ["Make |larger" |
|000004b0| 65 66 2d 6c 61 72 67 65 | 72 20 74 5d 20 5b 22 54 |ef-large|r t] ["T|
|000004c0| 6f 67 67 6c 65 20 62 6f | 6c 64 22 20 65 66 2d 62 |oggle bo|ld" ef-b|
|000004d0| 6f 6c 64 20 74 5d 20 5b | 22 54 6f 67 67 6c 65 20 |old t] [|"Toggle |
|000004e0| 69 74 61 6c 69 63 22 20 | 65 66 2d 69 74 61 6c 69 |italic" |ef-itali|
|000004f0| 63 20 74 5d 20 5b 22 54 | 6f 67 67 6c 65 20 75 6e |c t] ["T|oggle un|
|00000500| 64 65 72 6c 69 6e 65 22 | 20 65 66 2d 75 6e 64 65 |derline"| ef-unde|
|00000510| 72 6c 69 6e 65 20 74 5d | 20 5b 22 51 75 65 72 79 |rline t]| ["Query|
|00000520| 20 74 72 75 65 20 66 6f | 6e 74 22 20 65 66 2d 74 | true fo|nt" ef-t|
|00000530| 72 75 65 66 6f 6e 74 20 | 74 5d 20 5b 22 53 65 74 |ruefont |t] ["Set|
|00000540| 20 66 6f 6e 74 22 20 65 | 66 2d 66 6f 6e 74 20 74 | font" e|f-font t|
|00000550| 5d 20 5b 22 53 65 74 20 | 66 6f 72 65 67 72 6f 75 |] ["Set |foregrou|
|00000560| 6e 64 22 20 65 66 2d 66 | 6f 72 65 67 72 6f 75 6e |nd" ef-f|oregroun|
|00000570| 64 20 74 5d 20 5b 22 53 | 65 74 20 62 61 63 6b 67 |d t] ["S|et backg|
|00000580| 72 6f 75 6e 64 22 20 65 | 66 2d 62 61 63 6b 67 72 |round" e|f-backgr|
|00000590| 6f 75 6e 64 20 74 5d 20 | 5b 22 51 75 69 74 22 20 |ound t] |["Quit" |
|000005a0| 65 66 2d 71 75 69 74 20 | 74 5d 29 20 66 69 6e 64 |ef-quit |t]) find|
|000005b0| 2d 66 61 63 65 20 75 6e | 64 65 72 6c 69 6e 65 20 |-face un|derline |
|000005c0| 6d 61 6b 65 2d 66 61 63 | 65 20 73 65 74 2d 66 61 |make-fac|e set-fa|
|000005d0| 63 65 2d 75 6e 64 65 72 | 6c 69 6e 65 2d 70 20 74 |ce-under|line-p t|
|000005e0| 5d 20 34 29 0a 28 66 73 | 65 74 20 27 65 64 69 74 |] 4).(fs|et 'edit|
|000005f0| 2d 66 61 63 65 73 20 23 | 5b 6e 69 6c 20 22 c0 c1 |-faces #|[nil "..|
|00000600| c2 21 21 88 c3 14 c5 16 | 06 c7 16 08 0e 09 16 5c |.!!.....|.......\|
|00000610| 6e 0e 0b ab 8f cc cb 21 | cd 0e 0b 21 4c 88 ce c3 |n......!|...!L...|
|00000620| 0e 09 5c 22 88 cf 20 88 | d0 d1 20 d2 5c 22 c3 1e |..\".. .|.. .\"..|
|00000630| 13 1e 14 d5 d6 21 88 0e | 14 40 89 16 13 ab 8d d5 |.....!..|.@......|
|00000640| 0e 13 21 88 0e 14 41 89 | 16 14 aa 6d 2a 65 62 88 |..!...A.|...m*eb.|
|00000650| d6 14 d7 0e 18 21 87 22 | 20 5b 70 6f 70 2d 74 6f |.....!."| [pop-to|
|00000660| 2d 62 75 66 66 65 72 20 | 67 65 74 2d 62 75 66 66 |-buffer |get-buff|
|00000670| 65 72 2d 63 72 65 61 74 | 65 20 22 2a 45 64 69 74 |er-creat|e "*Edit|
|00000680| 20 46 61 63 65 73 2a 22 | 20 6e 69 6c 20 62 75 66 | Faces*"| nil buf|
|00000690| 66 65 72 2d 72 65 61 64 | 2d 6f 6e 6c 79 20 65 64 |fer-read|-only ed|
|000006a0| 69 74 2d 66 61 63 65 73 | 20 6d 61 6a 6f 72 2d 6d |it-faces| major-m|
|000006b0| 6f 64 65 20 22 45 64 69 | 74 2d 46 61 63 65 73 22 |ode "Edi|t-Faces"|
|000006c0| 20 6d 6f 64 65 2d 6e 61 | 6d 65 20 65 64 69 74 2d | mode-na|me edit-|
|000006d0| 66 61 63 65 73 2d 6d 65 | 6e 75 20 6d 6f 64 65 2d |faces-me|nu mode-|
|000006e0| 70 6f 70 75 70 2d 6d 65 | 6e 75 20 63 75 72 72 65 |popup-me|nu curre|
|000006f0| 6e 74 2d 6d 65 6e 75 62 | 61 72 20 6d 61 6b 65 2d |nt-menub|ar make-|
|00000700| 6c 6f 63 61 6c 2d 76 61 | 72 69 61 62 6c 65 20 63 |local-va|riable c|
|00000710| 6f 70 79 2d 73 65 71 75 | 65 6e 63 65 20 61 64 64 |opy-sequ|ence add|
|00000720| 2d 73 75 62 6d 65 6e 75 | 20 65 72 61 73 65 2d 62 |-submenu| erase-b|
|00000730| 75 66 66 65 72 20 73 6f | 72 74 20 66 61 63 65 2d |uffer so|rt face-|
|00000740| 6c 69 73 74 20 23 5b 28 | 78 20 79 29 20 22 c0 09 |list #[(|x y) "..|
|00000750| 21 c0 5c 6e 21 99 87 22 | 20 5b 73 79 6d 62 6f 6c |!.\n!.."| [symbol|
|00000760| 2d 6e 61 6d 65 20 78 20 | 79 5d 20 33 5d 20 66 61 |-name x |y] 3] fa|
|00000770| 63 65 20 66 6c 69 73 74 | 20 65 66 2d 75 70 64 61 |ce flist| ef-upda|
|00000780| 74 65 2d 66 61 63 65 2d | 64 65 73 63 72 69 70 74 |te-face-|descript|
|00000790| 69 6f 6e 20 74 20 75 73 | 65 2d 6c 6f 63 61 6c 2d |ion t us|e-local-|
|000007a0| 6d 61 70 20 65 64 69 74 | 2d 66 61 63 65 73 2d 6d |map edit|-faces-m|
|000007b0| 61 70 5d 20 34 20 22 5c | 0a 41 6c 74 65 72 20 66 |ap] 4 "\|.Alter f|
|000007c0| 61 63 65 20 63 68 61 72 | 61 63 74 65 72 69 73 74 |ace char|acterist|
|000007d0| 69 63 73 20 62 79 20 65 | 64 69 74 69 6e 67 20 61 |ics by e|diting a|
|000007e0| 20 6c 69 73 74 20 6f 66 | 20 64 65 66 69 6e 65 64 | list of| defined|
|000007f0| 20 66 61 63 65 73 2e 0a | 50 6f 70 73 20 75 70 20 | faces..|Pops up |
|00000800| 61 20 62 75 66 66 65 72 | 20 63 6f 6e 74 61 69 6e |a buffer| contain|
|00000810| 69 6e 67 20 61 20 6c 69 | 73 74 20 6f 66 20 64 65 |ing a li|st of de|
|00000820| 66 69 6e 65 64 20 66 61 | 63 65 73 2e 0a 0a 45 64 |fined fa|ces...Ed|
|00000830| 69 74 69 6e 67 20 63 6f | 6d 6d 61 6e 64 73 3a 0a |iting co|mmands:.|
|00000840| 0a 5c 5c 7b 65 64 69 74 | 2d 66 61 63 65 73 2d 6d |.\\{edit|-faces-m|
|00000850| 61 70 7d 22 20 6e 69 6c | 5d 29 0a 28 66 73 65 74 |ap}" nil|]).(fset|
|00000860| 20 27 65 66 2d 75 70 64 | 61 74 65 2d 66 61 63 65 | 'ef-upd|ate-face|
|00000870| 2d 64 65 73 63 72 69 70 | 74 69 6f 6e 20 23 5b 28 |-descrip|tion #[(|
|00000880| 66 61 63 65 20 26 6f 70 | 74 69 6f 6e 61 6c 20 72 |face &op|tional r|
|00000890| 65 70 6c 61 63 65 29 20 | 22 c0 c1 89 89 89 89 1a |eplace) |".......|
|000008a0| 1b 1c 1d 1e 06 1e 07 0e | 08 c9 3d ab 8d ca cb 0e |........|..=.....|
|000008b0| 07 cc cd ce cf 25 d0 5c | 22 aa e2 0e 11 ac 84 0e |.....%.\|".......|
|000008c0| 08 16 11 65 62 88 d2 d3 | d4 0e 11 21 d5 51 c1 d6 |...eb...|...!.Q..|
|000008d0| 23 ab 8a d6 79 88 60 d7 | 79 88 60 7c 88 d8 0e 08 |#...y.`.|y.`|....|
|000008e0| 21 15 d9 0e 08 21 14 da | 0e 08 21 13 ca cb 0e 07 |!....!..|..!.....|
|000008f0| d4 0e 08 21 0d ad 83 db | 0d 21 0c ad 83 db 0c 21 |...!....|.!.....!|
|00000900| 0b ad 83 dc 0b 21 25 0e | 08 5c 22 12 dd 5c 6e de |.....!%.|.\"..\n.|
|00000910| c9 23 88 dd 5c 6e df c9 | 23 88 0e 11 ad 82 e0 79 |.#..\n..|#......y|
|00000920| 2e 06 87 22 20 5b 22 25 | 2d 32 35 73 20 25 2d 31 |..." ["%|-25s %-1|
|00000930| 35 73 20 25 2d 31 35 73 | 5c 6e 20 20 20 20 25 73 |5s %-15s|\n    %s|
|00000940| 5c 6e 22 20 6e 69 6c 20 | 65 78 20 66 6f 6e 74 20 |\n" nil |ex font |
|00000950| 62 67 20 66 67 20 62 75 | 66 66 65 72 2d 72 65 61 |bg fg bu|ffer-rea|
|00000960| 64 2d 6f 6e 6c 79 20 66 | 6d 74 20 66 61 63 65 20 |d-only f|mt face |
|00000970| 74 20 69 6e 73 65 72 74 | 2d 66 61 63 65 20 66 6f |t insert|-face fo|
|00000980| 72 6d 61 74 20 22 46 61 | 63 65 22 20 22 46 6f 72 |rmat "Fa|ce" "For|
|00000990| 65 67 72 6f 75 6e 64 22 | 20 22 42 61 63 6b 67 72 |eground"| "Backgr|
|000009a0| 6f 75 6e 64 22 20 22 46 | 6f 6e 74 20 53 70 65 63 |ound" "F|ont Spec|
|000009b0| 22 20 75 6e 64 65 72 6c | 69 6e 65 20 72 65 70 6c |" underl|ine repl|
|000009c0| 61 63 65 20 72 65 2d 73 | 65 61 72 63 68 2d 66 6f |ace re-s|earch-fo|
|000009d0| 72 77 61 72 64 20 22 5e | 22 20 73 79 6d 62 6f 6c |rward "^|" symbol|
|000009e0| 2d 6e 61 6d 65 20 22 20 | 22 20 30 20 32 20 66 61 |-name " |" 0 2 fa|
|000009f0| 63 65 2d 66 6f 72 65 67 | 72 6f 75 6e 64 2d 69 6e |ce-foreg|round-in|
|00000a00| 73 74 61 6e 63 65 20 66 | 61 63 65 2d 62 61 63 6b |stance f|ace-back|
|00000a10| 67 72 6f 75 6e 64 2d 69 | 6e 73 74 61 6e 63 65 20 |ground-i|nstance |
|00000a20| 66 61 63 65 2d 66 6f 6e | 74 2d 69 6e 73 74 61 6e |face-fon|t-instan|
|00000a30| 63 65 20 63 6f 6c 6f 72 | 2d 69 6e 73 74 61 6e 63 |ce color|-instanc|
|00000a40| 65 2d 6e 61 6d 65 20 66 | 6f 6e 74 2d 69 6e 73 74 |e-name f|ont-inst|
|00000a50| 61 6e 63 65 2d 6e 61 6d | 65 20 73 65 74 2d 65 78 |ance-nam|e set-ex|
|00000a60| 74 65 6e 74 2d 70 72 6f | 70 65 72 74 79 20 65 66 |tent-pro|perty ef|
|00000a70| 61 63 65 20 73 74 61 72 | 74 2d 6f 70 65 6e 20 2d |ace star|t-open -|
|00000a80| 31 5d 20 38 20 22 5c 0a | 47 69 76 65 6e 20 61 20 |1] 8 "\.|Given a |
|00000a90| 66 61 63 65 2c 20 69 6e | 73 65 72 74 73 20 61 20 |face, in|serts a |
|00000aa0| 64 65 73 63 72 69 70 74 | 69 6f 6e 20 6f 66 20 74 |descript|ion of t|
|00000ab0| 68 61 74 20 66 61 63 65 | 20 69 6e 74 6f 20 74 68 |hat face| into th|
|00000ac0| 65 20 63 75 72 72 65 6e | 74 20 62 75 66 66 65 72 |e curren|t buffer|
|00000ad0| 2e 0a 49 6e 73 65 72 74 | 73 20 61 20 64 65 73 63 |..Insert|s a desc|
|00000ae0| 72 69 70 74 69 76 65 20 | 68 65 61 64 65 72 20 69 |riptive |header i|
|00000af0| 66 20 70 61 73 73 65 64 | 20 60 74 27 2e 22 5d 29 |f passed| `t'."])|
|00000b00| 0a 28 66 73 65 74 20 27 | 65 66 2d 66 61 63 65 2d |.(fset '|ef-face-|
|00000b10| 61 72 67 20 23 5b 6e 69 | 6c 20 22 08 ab 84 c1 08 |arg #[ni|l ".....|
|00000b20| 21 88 c2 60 54 c3 c4 23 | 89 1d ac 84 c6 c7 21 88 |!..`T..#|......!.|
|00000b30| c8 0d 21 29 87 22 20 5b | 63 75 72 72 65 6e 74 2d |..!)." [|current-|
|00000b40| 6d 6f 75 73 65 2d 65 76 | 65 6e 74 20 6d 6f 75 73 |mouse-ev|ent mous|
|00000b50| 65 2d 73 65 74 2d 70 6f | 69 6e 74 20 65 78 74 65 |e-set-po|int exte|
|00000b60| 6e 74 2d 61 74 20 6e 69 | 6c 20 65 66 61 63 65 20 |nt-at ni|l eface |
|00000b70| 65 78 20 65 72 72 6f 72 | 20 22 54 68 65 72 65 20 |ex error| "There |
|00000b80| 69 73 20 6e 6f 20 66 61 | 63 65 20 74 6f 20 65 64 |is no fa|ce to ed|
|00000b90| 69 74 20 6f 6e 20 74 68 | 69 73 20 6c 69 6e 65 2e |it on th|is line.|
|00000ba0| 22 20 65 78 74 65 6e 74 | 2d 66 61 63 65 5d 20 35 |" extent|-face] 5|
|00000bb0| 5d 29 0a 28 66 73 65 74 | 20 27 65 66 2d 64 65 6c |]).(fset| 'ef-del|
|00000bc0| 65 74 65 20 23 5b 28 61 | 72 67 29 20 22 08 ab 84 |ete #[(a|rg) "...|
|00000bd0| c1 08 21 88 c2 0b 21 c4 | 89 1d 1e 06 1e 07 0e 07 |..!...!.|........|
|00000be0| 89 53 16 07 c8 55 3f ad | 9b c9 60 54 c4 ca 23 89 |.S...U?.|..`T..#.|
|00000bf0| 15 ac 84 cb cc 21 88 cd | 0d 21 ce 0d 21 7c 88 cf |.....!..|.!..!|..|
|00000c00| 20 88 aa 5a 2b 87 22 20 | 5b 63 75 72 72 65 6e 74 | ..Z+." |[current|
|00000c10| 2d 6d 6f 75 73 65 2d 65 | 76 65 6e 74 20 6d 6f 75 |-mouse-e|vent mou|
|00000c20| 73 65 2d 73 65 74 2d 70 | 6f 69 6e 74 20 61 62 73 |se-set-p|oint abs|
|00000c30| 20 61 72 67 20 6e 69 6c | 20 65 78 20 62 75 66 66 | arg nil| ex buff|
|00000c40| 65 72 2d 72 65 61 64 2d | 6f 6e 6c 79 20 63 6f 75 |er-read-|only cou|
|00000c50| 6e 74 20 30 20 65 78 74 | 65 6e 74 2d 61 74 20 65 |nt 0 ext|ent-at e|
|00000c60| 66 61 63 65 20 65 72 72 | 6f 72 20 22 54 68 65 72 |face err|or "Ther|
|00000c70| 65 20 69 73 20 6e 6f 20 | 66 61 63 65 20 74 6f 20 |e is no |face to |
|00000c80| 64 65 6c 65 74 65 20 6f | 6e 20 74 68 69 73 20 6c |delete o|n this l|
|00000c90| 69 6e 65 2e 22 20 65 78 | 74 65 6e 74 2d 73 74 61 |ine." ex|tent-sta|
|00000ca0| 72 74 2d 70 6f 73 69 74 | 69 6f 6e 20 65 78 74 65 |rt-posit|ion exte|
|00000cb0| 6e 74 2d 65 6e 64 2d 70 | 6f 73 69 74 69 6f 6e 20 |nt-end-p|osition |
|00000cc0| 64 65 6c 65 74 65 2d 62 | 6c 61 6e 6b 2d 6c 69 6e |delete-b|lank-lin|
|00000cd0| 65 73 5d 20 35 20 22 5c | 0a 44 65 6c 65 74 65 20 |es] 5 "\|.Delete |
|00000ce0| 74 68 65 20 66 61 63 65 | 20 6f 6e 20 74 68 65 20 |the face| on the |
|00000cf0| 63 75 72 72 65 6e 74 20 | 6c 69 6e 65 20 66 72 6f |current |line fro|
|00000d00| 6d 20 74 68 65 20 2a 45 | 64 69 74 20 46 61 63 65 |m the *E|dit Face|
|00000d10| 73 2a 20 62 75 66 66 65 | 72 2e 0a 54 68 65 20 66 |s* buffe|r..The f|
|00000d20| 61 63 65 20 69 73 20 6e | 6f 74 20 61 6c 74 65 72 |ace is n|ot alter|
|00000d30| 65 64 2e 20 20 54 68 65 | 20 62 75 66 66 65 72 20 |ed.  The| buffer |
|00000d40| 63 61 6e 20 62 65 20 72 | 65 67 65 6e 65 72 61 74 |can be r|egenerat|
|00000d50| 65 64 20 61 67 61 69 6e | 20 77 69 74 68 0a 4d 2d |ed again| with.M-|
|00000d60| 78 20 65 64 69 74 2d 66 | 61 63 65 73 2e 22 20 22 |x edit-f|aces." "|
|00000d70| 70 22 5d 29 0a 28 66 73 | 65 74 20 27 65 66 2d 6e |p"]).(fs|et 'ef-n|
|00000d80| 65 78 74 20 23 5b 28 61 | 72 67 29 20 22 08 c1 56 |ext #[(a|rg) "..V|
|00000d90| c2 08 21 c3 1c 1d 1e 06 | 0d 89 53 15 c1 55 3f ad |..!.....|..S..U?.|
|00000da0| a2 c7 60 54 c3 c8 23 89 | 14 ab 6d 0e 06 ab 8a c9 |..`T..#.|..m.....|
|00000db0| 0c 21 62 88 ca 79 88 aa | 5f cb 0c 21 62 88 cc 79 |.!b..y..|_..!b..y|
|00000dc0| 88 aa 55 2b 87 22 20 5b | 61 72 67 20 30 20 61 62 |..U+." [|arg 0 ab|
|00000dd0| 73 20 6e 69 6c 20 65 78 | 20 63 6f 75 6e 74 20 66 |s nil ex| count f|
|00000de0| 77 64 20 65 78 74 65 6e | 74 2d 61 74 20 65 66 61 |wd exten|t-at efa|
|00000df0| 63 65 20 65 78 74 65 6e | 74 2d 65 6e 64 2d 70 6f |ce exten|t-end-po|
|00000e00| 73 69 74 69 6f 6e 20 31 | 20 65 78 74 65 6e 74 2d |sition 1| extent-|
|00000e10| 73 74 61 72 74 2d 70 6f | 73 69 74 69 6f 6e 20 2d |start-po|sition -|
|00000e20| 32 5d 20 35 20 22 5c 0a | 4d 6f 76 65 20 66 6f 72 |2] 5 "\.|Move for|
|00000e30| 77 61 72 64 20 41 52 47 | 20 65 6e 74 72 69 65 73 |ward ARG| entries|
|00000e40| 20 69 6e 20 74 68 65 20 | 66 61 63 65 20 74 61 62 | in the |face tab|
|00000e50| 6c 65 22 20 22 70 22 5d | 29 0a 28 66 73 65 74 20 |le" "p"]|).(fset |
|00000e60| 27 65 66 2d 70 72 65 76 | 20 23 5b 28 61 72 67 29 |'ef-prev| #[(arg)|
|00000e70| 20 22 c0 09 5b 21 87 22 | 20 5b 65 66 2d 6e 65 78 | "..[!."| [ef-nex|
|00000e80| 74 20 61 72 67 5d 20 32 | 20 22 5c 0a 4d 6f 76 65 |t arg] 2| "\.Move|
|00000e90| 20 66 6f 72 77 61 72 64 | 20 41 52 47 20 65 6e 74 | forward| ARG ent|
|00000ea0| 72 69 65 73 20 69 6e 20 | 74 68 65 20 66 61 63 65 |ries in |the face|
|00000eb0| 20 74 61 62 6c 65 22 20 | 22 70 22 5d 29 0a 28 62 | table" |"p"]).(b|
|00000ec0| 79 74 65 2d 63 6f 64 65 | 20 22 c0 c1 4d 88 c2 c3 |yte-code| "..M...|
|00000ed0| 4d 88 c4 c5 4d 88 c6 c7 | 4d 88 c8 c9 4d 88 ca cb |M...M...|M...M...|
|00000ee0| 4d 88 cc cd 4d 88 ce cf | 4d 88 d0 d1 4d 88 d2 d3 |M...M...|M...M...|
|00000ef0| 4d 88 d4 d5 4d 88 d6 d7 | 4d 88 d8 d9 4d 88 da db |M...M...|M...M...|
|00000f00| 4d 88 dc dd 4d 87 22 20 | 5b 65 66 2d 73 6d 61 6c |M...M." |[ef-smal|
|00000f10| 6c 65 72 20 23 5b 28 66 | 61 63 65 29 20 22 c0 09 |ler #[(f|ace) "..|
|00000f20| 21 88 c2 09 21 87 22 20 | 5b 6d 61 6b 65 2d 66 61 |!...!." |[make-fa|
|00000f30| 63 65 2d 73 6d 61 6c 6c | 65 72 20 66 61 63 65 20 |ce-small|er face |
|00000f40| 65 66 2d 75 70 64 61 74 | 65 2d 66 61 63 65 2d 64 |ef-updat|e-face-d|
|00000f50| 65 73 63 72 69 70 74 69 | 6f 6e 5d 20 32 20 6e 69 |escripti|on] 2 ni|
|00000f60| 6c 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 20 |l (byte-|code ". |
|00000f70| 43 87 22 20 5b 65 66 2d | 66 61 63 65 2d 61 72 67 |C." [ef-|face-arg|
|00000f80| 5d 20 31 29 5d 20 65 66 | 2d 6c 61 72 67 65 72 20 |] 1)] ef|-larger |
|00000f90| 23 5b 28 66 61 63 65 29 | 20 22 c0 09 21 88 c2 09 |#[(face)| "..!...|
|00000fa0| 21 87 22 20 5b 6d 61 6b | 65 2d 66 61 63 65 2d 6c |!." [mak|e-face-l|
|00000fb0| 61 72 67 65 72 20 66 61 | 63 65 20 65 66 2d 75 70 |arger fa|ce ef-up|
|00000fc0| 64 61 74 65 2d 66 61 63 | 65 2d 64 65 73 63 72 69 |date-fac|e-descri|
|00000fd0| 70 74 69 6f 6e 5d 20 32 | 20 6e 69 6c 20 28 62 79 |ption] 2| nil (by|
|00000fe0| 74 65 2d 63 6f 64 65 20 | 22 c0 20 43 87 22 20 5b |te-code |". C." [|
|00000ff0| 65 66 2d 66 61 63 65 2d | 61 72 67 5d 20 31 29 5d |ef-face-|arg] 1)]|
|00001000| 20 65 66 2d 66 61 63 65 | 2d 66 6f 6e 74 2d 69 6e | ef-face|-font-in|
|00001010| 64 69 72 65 63 74 20 23 | 5b 28 66 61 63 65 29 20 |direct #|[(face) |
|00001020| 22 c0 09 21 89 1a ae 83 | c0 c3 21 29 87 22 20 5b |"..!....|..!)." [|
|00001030| 66 61 63 65 2d 66 6f 6e | 74 2d 69 6e 73 74 61 6e |face-fon|t-instan|
|00001040| 63 65 20 66 61 63 65 20 | 66 6f 6e 74 20 64 65 66 |ce face |font def|
|00001050| 61 75 6c 74 5d 20 33 5d | 20 65 66 2d 66 61 63 65 |ault] 3]| ef-face|
|00001060| 2d 62 6f 6c 64 2d 70 20 | 23 5b 28 66 61 63 65 29 |-bold-p |#[(face)|
|00001070| 20 22 c0 09 21 1a c3 c4 | c5 5c 6e 21 5c 22 29 3f | "..!...|.\n!\")?|
|00001080| 3f 87 22 20 5b 65 66 2d | 66 61 63 65 2d 66 6f 6e |?." [ef-|face-fon|
|00001090| 74 2d 69 6e 64 69 72 65 | 63 74 20 66 61 63 65 20 |t-indire|ct face |
|000010a0| 66 6f 6e 74 20 73 74 72 | 69 6e 67 2d 6d 61 74 63 |font str|ing-matc|
|000010b0| 68 20 22 2d 62 6f 6c 64 | 2d 22 20 66 6f 6e 74 2d |h "-bold|-" font-|
|000010c0| 69 6e 73 74 61 6e 63 65 | 2d 6e 61 6d 65 5d 20 34 |instance|-name] 4|
|000010d0| 5d 20 65 66 2d 66 61 63 | 65 2d 69 74 61 6c 69 63 |] ef-fac|e-italic|
|000010e0| 2d 70 20 23 5b 28 66 61 | 63 65 29 20 22 c0 09 21 |-p #[(fa|ce) "..!|
|000010f0| 1a c3 c4 c5 5c 6e 21 5c | 22 29 3f 3f 87 22 20 5b |....\n!\|")??." [|
|00001100| 65 66 2d 66 61 63 65 2d | 66 6f 6e 74 2d 69 6e 64 |ef-face-|font-ind|
|00001110| 69 72 65 63 74 20 66 61 | 63 65 20 66 6f 6e 74 20 |irect fa|ce font |
|00001120| 73 74 72 69 6e 67 2d 6d | 61 74 63 68 20 22 2d 5b |string-m|atch "-[|
|00001130| 69 6f 5d 2d 22 20 66 6f | 6e 74 2d 69 6e 73 74 61 |io]-" fo|nt-insta|
|00001140| 6e 63 65 2d 6e 61 6d 65 | 5d 20 34 5d 20 65 66 2d |nce-name|] 4] ef-|
|00001150| 62 6f 6c 64 20 23 5b 28 | 66 61 63 65 29 20 22 c0 |bold #[(|face) ".|
|00001160| 09 21 ab 86 c2 09 21 88 | aa 84 c3 09 21 88 c4 09 |.!....!.|....!...|
|00001170| 21 87 22 20 5b 65 66 2d | 66 61 63 65 2d 62 6f 6c |!." [ef-|face-bol|
|00001180| 64 2d 70 20 66 61 63 65 | 20 6d 61 6b 65 2d 66 61 |d-p face| make-fa|
|00001190| 63 65 2d 75 6e 62 6f 6c | 64 20 6d 61 6b 65 2d 66 |ce-unbol|d make-f|
|000011a0| 61 63 65 2d 62 6f 6c 64 | 20 65 66 2d 75 70 64 61 |ace-bold| ef-upda|
|000011b0| 74 65 2d 66 61 63 65 2d | 64 65 73 63 72 69 70 74 |te-face-|descript|
|000011c0| 69 6f 6e 5d 20 32 20 6e | 69 6c 20 28 62 79 74 65 |ion] 2 n|il (byte|
|000011d0| 2d 63 6f 64 65 20 22 c0 | 20 43 87 22 20 5b 65 66 |-code ".| C." [ef|
|000011e0| 2d 66 61 63 65 2d 61 72 | 67 5d 20 31 29 5d 20 65 |-face-ar|g] 1)] e|
|000011f0| 66 2d 69 74 61 6c 69 63 | 20 23 5b 28 66 61 63 65 |f-italic| #[(face|
|00001200| 29 20 22 c0 09 21 ab 86 | c2 09 21 88 aa 84 c3 09 |) "..!..|..!.....|
|00001210| 21 88 c4 09 21 87 22 20 | 5b 65 66 2d 66 61 63 65 |!...!." |[ef-face|
|00001220| 2d 69 74 61 6c 69 63 2d | 70 20 66 61 63 65 20 6d |-italic-|p face m|
|00001230| 61 6b 65 2d 66 61 63 65 | 2d 75 6e 69 74 61 6c 69 |ake-face|-unitali|
|00001240| 63 20 6d 61 6b 65 2d 66 | 61 63 65 2d 69 74 61 6c |c make-f|ace-ital|
|00001250| 69 63 20 65 66 2d 75 70 | 64 61 74 65 2d 66 61 63 |ic ef-up|date-fac|
|00001260| 65 2d 64 65 73 63 72 69 | 70 74 69 6f 6e 5d 20 32 |e-descri|ption] 2|
|00001270| 20 6e 69 6c 20 28 62 79 | 74 65 2d 63 6f 64 65 20 | nil (by|te-code |
|00001280| 22 c0 20 43 87 22 20 5b | 65 66 2d 66 61 63 65 2d |". C." [|ef-face-|
|00001290| 61 72 67 5d 20 31 29 5d | 20 65 66 2d 75 6e 64 65 |arg] 1)]| ef-unde|
|000012a0| 72 6c 69 6e 65 20 23 5b | 28 66 61 63 65 29 20 22 |rline #[|(face) "|
|000012b0| c0 09 c2 09 21 3f 5c 22 | 88 c3 09 21 87 22 20 5b |....!?\"|...!." [|
|000012c0| 73 65 74 2d 66 61 63 65 | 2d 75 6e 64 65 72 6c 69 |set-face|-underli|
|000012d0| 6e 65 2d 70 20 66 61 63 | 65 20 66 61 63 65 2d 75 |ne-p fac|e face-u|
|000012e0| 6e 64 65 72 6c 69 6e 65 | 2d 70 20 65 66 2d 75 70 |nderline|-p ef-up|
|000012f0| 64 61 74 65 2d 66 61 63 | 65 2d 64 65 73 63 72 69 |date-fac|e-descri|
|00001300| 70 74 69 6f 6e 5d 20 34 | 20 6e 69 6c 20 28 62 79 |ption] 4| nil (by|
|00001310| 74 65 2d 63 6f 64 65 20 | 22 c0 20 43 87 22 20 5b |te-code |". C." [|
|00001320| 65 66 2d 66 61 63 65 2d | 61 72 67 5d 20 31 29 5d |ef-face-|arg] 1)]|
|00001330| 20 65 66 2d 74 72 75 65 | 66 6f 6e 74 20 23 5b 28 | ef-true|font #[(|
|00001340| 66 61 63 65 29 20 22 c0 | 09 21 c2 09 21 1b 89 1c |face) ".|.!..!...|
|00001350| ab 89 c5 c6 0b c7 0c 21 | 23 aa 84 c5 c8 0b 5c 22 |.......!|#.....\"|
|00001360| 2a 87 22 20 5b 66 61 63 | 65 2d 66 6f 6e 74 2d 69 |*." [fac|e-font-i|
|00001370| 6e 73 74 61 6e 63 65 20 | 66 61 63 65 20 73 79 6d |nstance |face sym|
|00001380| 62 6f 6c 2d 6e 61 6d 65 | 20 6e 61 6d 65 20 66 6f |bol-name| name fo|
|00001390| 6e 74 20 6d 65 73 73 61 | 67 65 20 22 54 72 75 65 |nt messa|ge "True|
|000013a0| 20 66 6f 6e 74 20 66 6f | 72 20 60 25 73 27 3a 20 | font fo|r `%s': |
|000013b0| 25 73 22 20 66 6f 6e 74 | 2d 69 6e 73 74 61 6e 63 |%s" font|-instanc|
|000013c0| 65 2d 74 72 75 65 6e 61 | 6d 65 20 22 54 68 65 20 |e-truena|me "The |
|000013d0| 66 61 63 65 20 60 25 73 | 27 20 64 6f 65 73 20 6e |face `%s|' does n|
|000013e0| 6f 74 20 68 61 76 65 20 | 69 74 73 20 6f 77 6e 20 |ot have |its own |
|000013f0| 66 6f 6e 74 2e 22 5d 20 | 36 20 6e 69 6c 20 28 62 |font."] |6 nil (b|
|00001400| 79 74 65 2d 63 6f 64 65 | 20 22 c0 20 43 87 22 20 |yte-code| ". C." |
|00001410| 5b 65 66 2d 66 61 63 65 | 2d 61 72 67 5d 20 31 29 |[ef-face|-arg] 1)|
|00001420| 5d 20 65 66 2d 66 6f 72 | 65 67 72 6f 75 6e 64 20 |] ef-for|eground |
|00001430| 23 5b 28 66 61 63 65 20 | 63 6f 6c 6f 72 29 20 22 |#[(face |color) "|
|00001440| c0 09 5c 6e 5c 22 88 c3 | 09 21 87 22 20 5b 73 65 |..\n\"..|.!." [se|
|00001450| 74 2d 66 61 63 65 2d 66 | 6f 72 65 67 72 6f 75 6e |t-face-f|oregroun|
|00001460| 64 20 66 61 63 65 20 63 | 6f 6c 6f 72 20 65 66 2d |d face c|olor ef-|
|00001470| 75 70 64 61 74 65 2d 66 | 61 63 65 2d 64 65 73 63 |update-f|ace-desc|
|00001480| 72 69 70 74 69 6f 6e 5d | 20 33 20 6e 69 6c 20 28 |ription]| 3 nil (|
|00001490| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 20 19 c2 09 |byte-cod|e ". ...|
|000014a0| 21 1b c4 c5 c6 0b 5c 22 | 21 1e 07 09 0e 07 2b 44 |!.....\"|!.....+D|
|000014b0| 87 22 20 5b 65 66 2d 66 | 61 63 65 2d 61 72 67 20 |." [ef-f|ace-arg |
|000014c0| 66 20 73 79 6d 62 6f 6c | 2d 6e 61 6d 65 20 6e 61 |f symbol|-name na|
|000014d0| 6d 65 20 72 65 61 64 2d | 63 6f 6c 6f 72 20 66 6f |me read-|color fo|
|000014e0| 72 6d 61 74 20 22 46 6f | 72 65 67 72 6f 75 6e 64 |rmat "Fo|reground|
|000014f0| 20 63 6f 6c 6f 72 20 66 | 6f 72 20 60 25 73 27 3a | color f|or `%s':|
|00001500| 20 22 20 63 5d 20 34 29 | 5d 20 65 66 2d 62 61 63 | " c] 4)|] ef-bac|
|00001510| 6b 67 72 6f 75 6e 64 20 | 23 5b 28 66 61 63 65 20 |kground |#[(face |
|00001520| 63 6f 6c 6f 72 29 20 22 | c0 09 5c 6e 5c 22 88 c3 |color) "|..\n\"..|
|00001530| 09 21 87 22 20 5b 73 65 | 74 2d 66 61 63 65 2d 62 |.!." [se|t-face-b|
|00001540| 61 63 6b 67 72 6f 75 6e | 64 20 66 61 63 65 20 63 |ackgroun|d face c|
|00001550| 6f 6c 6f 72 20 65 66 2d | 75 70 64 61 74 65 2d 66 |olor ef-|update-f|
|00001560| 61 63 65 2d 64 65 73 63 | 72 69 70 74 69 6f 6e 5d |ace-desc|ription]|
|00001570| 20 33 20 6e 69 6c 20 28 | 62 79 74 65 2d 63 6f 64 | 3 nil (|byte-cod|
|00001580| 65 20 22 c0 20 19 c2 09 | 21 1b c4 c5 c6 0b 5c 22 |e ". ...|!.....\"|
|00001590| 21 1e 07 09 0e 07 2b 44 | 87 22 20 5b 65 66 2d 66 |!.....+D|." [ef-f|
|000015a0| 61 63 65 2d 61 72 67 20 | 66 20 73 79 6d 62 6f 6c |ace-arg |f symbol|
|000015b0| 2d 6e 61 6d 65 20 6e 61 | 6d 65 20 72 65 61 64 2d |-name na|me read-|
|000015c0| 63 6f 6c 6f 72 20 66 6f | 72 6d 61 74 20 22 42 61 |color fo|rmat "Ba|
|000015d0| 63 6b 67 72 6f 75 6e 64 | 20 63 6f 6c 6f 72 20 66 |ckground| color f|
|000015e0| 6f 72 20 60 25 73 27 3a | 20 22 20 63 5d 20 34 29 |or `%s':| " c] 4)|
|000015f0| 5d 20 65 66 2d 63 6f 70 | 79 2d 6f 74 68 65 72 2d |] ef-cop|y-other-|
|00001600| 66 61 63 65 20 23 5b 28 | 73 72 63 20 64 73 74 29 |face #[(|src dst)|
|00001610| 20 22 c0 09 5c 6e 5c 22 | 88 c3 5c 6e 89 5c 22 87 | "..\n\"|..\n.\".|
|00001620| 22 20 5b 63 6f 70 79 2d | 66 61 63 65 20 73 72 63 |" [copy-|face src|
|00001630| 20 64 73 74 20 65 66 2d | 75 70 64 61 74 65 2d 66 | dst ef-|update-f|
|00001640| 61 63 65 2d 64 65 73 63 | 72 69 70 74 69 6f 6e 5d |ace-desc|ription]|
|00001650| 20 33 20 6e 69 6c 20 28 | 62 79 74 65 2d 63 6f 64 | 3 nil (|byte-cod|
|00001660| 65 20 22 c0 20 19 c2 09 | 21 1b c4 c5 c6 0b 5c 22 |e ". ...|!.....\"|
|00001670| c7 5c 22 09 2a 44 87 22 | 20 5b 65 66 2d 66 61 63 |.\".*D."| [ef-fac|
|00001680| 65 2d 61 72 67 20 66 20 | 73 79 6d 62 6f 6c 2d 6e |e-arg f |symbol-n|
|00001690| 61 6d 65 20 6e 61 6d 65 | 20 72 65 61 64 2d 66 61 |ame name| read-fa|
|000016a0| 63 65 20 66 6f 72 6d 61 | 74 20 22 4d 61 6b 65 20 |ce forma|t "Make |
|000016b0| 60 25 73 27 20 61 20 63 | 6f 70 79 20 6f 66 20 77 |`%s' a c|opy of w|
|000016c0| 68 61 74 20 66 61 63 65 | 3f 3a 20 22 20 74 5d 20 |hat face|?: " t] |
|000016d0| 34 29 5d 20 65 66 2d 63 | 6f 70 79 2d 74 68 69 73 |4)] ef-c|opy-this|
|000016e0| 2d 66 61 63 65 20 23 5b | 28 73 72 63 20 64 73 74 |-face #[|(src dst|
|000016f0| 29 20 22 c0 09 5c 6e 5c | 22 88 c3 5c 6e 89 5c 22 |) "..\n\|"..\n.\"|
|00001700| 87 22 20 5b 63 6f 70 79 | 2d 66 61 63 65 20 73 72 |." [copy|-face sr|
|00001710| 63 20 64 73 74 20 65 66 | 2d 75 70 64 61 74 65 2d |c dst ef|-update-|
|00001720| 66 61 63 65 2d 64 65 73 | 63 72 69 70 74 69 6f 6e |face-des|cription|
|00001730| 5d 20 33 20 6e 69 6c 20 | 28 62 79 74 65 2d 63 6f |] 3 nil |(byte-co|
|00001740| 64 65 20 22 c0 20 19 c2 | 09 21 1b 09 c4 c5 c6 0b |de ". ..|.!......|
|00001750| 5c 22 21 2a 44 87 22 20 | 5b 65 66 2d 66 61 63 65 |\"!*D." |[ef-face|
|00001760| 2d 61 72 67 20 66 20 73 | 79 6d 62 6f 6c 2d 6e 61 |-arg f s|ymbol-na|
|00001770| 6d 65 20 6e 61 6d 65 20 | 72 65 61 64 2d 66 61 63 |me name |read-fac|
|00001780| 65 20 66 6f 72 6d 61 74 | 20 22 43 6f 70 79 20 60 |e format| "Copy `|
|00001790| 25 73 27 20 6f 6e 74 6f | 20 77 68 61 74 20 66 61 |%s' onto| what fa|
|000017a0| 63 65 3f 3a 20 22 5d 20 | 35 29 5d 20 65 66 2d 66 |ce?: "] |5)] ef-f|
|000017b0| 6f 6e 74 20 23 5b 28 66 | 61 63 65 20 66 6f 6e 74 |ont #[(f|ace font|
|000017c0| 29 20 22 c0 09 21 c2 1b | 1c c5 09 0e 06 c7 98 ad |) "..!..|........|
|000017d0| 84 09 c8 3d 3f 3f ad 82 | 0e 06 5c 22 88 c9 09 21 |...=??..|..\"...!|
|000017e0| 88 ca c2 cb cc cd 20 5c | 22 5c 22 89 13 ad 9a ce |...... \|"\".....|
|000017f0| cf 21 ad 95 0b ad 92 0b | 40 11 0b 41 13 c5 09 0e |.!......|@..A....|
|00001800| 06 5c 22 88 c9 09 21 88 | aa 6b 2a 87 22 20 5b 66 |.\"...!.|.k*." [f|
|00001810| 61 63 65 2d 66 6f 6e 74 | 2d 69 6e 73 74 61 6e 63 |ace-font|-instanc|
|00001820| 65 20 66 61 63 65 20 6e | 69 6c 20 6f 74 68 65 72 |e face n|il other|
|00001830| 73 20 6f 66 6f 6e 74 20 | 73 65 74 2d 66 61 63 65 |s ofont |set-face|
|00001840| 2d 66 6f 6e 74 20 66 6f | 6e 74 20 22 22 20 64 65 |-font fo|nt "" de|
|00001850| 66 61 75 6c 74 20 65 66 | 2d 75 70 64 61 74 65 2d |fault ef|-update-|
|00001860| 66 61 63 65 2d 64 65 73 | 63 72 69 70 74 69 6f 6e |face-des|cription|
|00001870| 20 64 65 6c 71 20 6d 61 | 70 63 61 72 20 23 5b 28 | delq ma|pcar #[(|
|00001880| 66 29 20 22 c0 09 21 5c | 6e 9a ad 81 09 87 22 20 |f) "..!\|n....." |
|00001890| 5b 66 61 63 65 2d 66 6f | 6e 74 2d 69 6e 73 74 61 |[face-fo|nt-insta|
|000018a0| 6e 63 65 20 66 20 6f 66 | 6f 6e 74 5d 20 32 5d 20 |nce f of|ont] 2] |
|000018b0| 66 61 63 65 2d 6c 69 73 | 74 20 79 2d 6f 72 2d 6e |face-lis|t y-or-n|
|000018c0| 2d 70 20 22 4d 61 6b 65 | 20 74 68 65 20 73 61 6d |-p "Make| the sam|
|000018d0| 65 20 66 6f 6e 74 20 63 | 68 61 6e 67 65 20 66 6f |e font c|hange fo|
|000018e0| 72 20 6f 74 68 65 72 20 | 66 61 63 65 73 3f 20 22 |r other |faces? "|
|000018f0| 5d 20 36 20 6e 69 6c 20 | 28 62 79 74 65 2d 63 6f |] 6 nil |(byte-co|
|00001900| 64 65 20 22 c0 20 19 c2 | 09 21 1b c4 09 21 1d c6 |de ". ..|.!...!..|
|00001910| c7 c8 0b 5c 22 0d ad 83 | c9 0d 21 5c 22 1e 5c 6e |...\"...|..!\".\n|
|00001920| 09 0e 5c 6e 2c 44 87 22 | 20 5b 65 66 2d 66 61 63 |..\n,D."| [ef-fac|
|00001930| 65 2d 61 72 67 20 66 20 | 73 79 6d 62 6f 6c 2d 6e |e-arg f |symbol-n|
|00001940| 61 6d 65 20 6e 61 6d 65 | 20 66 61 63 65 2d 66 6f |ame name| face-fo|
|00001950| 6e 74 2d 69 6e 73 74 61 | 6e 63 65 20 66 6f 6e 74 |nt-insta|nce font|
|00001960| 20 72 65 61 64 2d 73 74 | 72 69 6e 67 20 66 6f 72 | read-st|ring for|
|00001970| 6d 61 74 20 22 46 6f 6e | 74 20 66 6f 72 20 60 25 |mat "Fon|t for `%|
|00001980| 73 27 3a 20 22 20 66 6f | 6e 74 2d 69 6e 73 74 61 |s': " fo|nt-insta|
|00001990| 6e 63 65 2d 6e 61 6d 65 | 20 6e 66 5d 20 34 29 5d |nce-name| nf] 4)]|
|000019a0| 20 65 66 2d 71 75 69 74 | 20 23 5b 6e 69 6c 20 22 | ef-quit| #[nil "|
|000019b0| c0 c1 c2 5c 22 ac 83 c3 | 20 88 c4 c5 21 87 22 20 |...\"...| ...!." |
|000019c0| 5b 6f 6e 65 2d 77 69 6e | 64 6f 77 2d 70 20 74 20 |[one-win|dow-p t |
|000019d0| 30 20 64 65 6c 65 74 65 | 2d 77 69 6e 64 6f 77 20 |0 delete|-window |
|000019e0| 6b 69 6c 6c 2d 62 75 66 | 66 65 72 20 22 2a 45 64 |kill-buf|fer "*Ed|
|000019f0| 69 74 20 46 61 63 65 73 | 2a 22 5d 20 33 20 6e 69 |it Faces|*"] 3 ni|
|00001a00| 6c 20 6e 69 6c 5d 5d 20 | 32 29 0a                |l nil]] |2).     |
+--------+-------------------------+-------------------------+--------+--------+