/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / emacs-19.16 / lisp / icon.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 6a 69 6d 62 40 67 65 |piled by| jimb@ge|
|00000020| 65 63 68 2e 67 6e 75 2e | 61 69 2e 6d 69 74 2e 65 |ech.gnu.|ai.mit.e|
|00000030| 64 75 20 6f 6e 20 4d 6f | 6e 20 4a 75 6c 20 20 35 |du on Mo|n Jul  5|
|00000040| 20 32 33 3a 32 30 3a 35 | 32 20 31 39 39 33 0a 3b | 23:20:5|2 1993.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 67 64 |;; from |file /gd|
|00000060| 2f 67 6e 75 2f 65 6d 61 | 63 73 2f 31 39 2e 30 2f |/gnu/ema|cs/19.0/|
|00000070| 6c 69 73 70 2f 69 63 6f | 6e 2e 65 6c 0a 3b 3b 3b |lisp/ico|n.el.;;;|
|00000080| 20 65 6d 61 63 73 20 76 | 65 72 73 69 6f 6e 20 31 | emacs v|ersion 1|
|00000090| 39 2e 31 35 2e 31 36 2e | 0a 3b 3b 3b 20 62 79 74 |9.15.16.|.;;; 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 54 68 | 69 73 20 66 69 6c 65 20 |rror "Th|is file |
|000001a0| 77 61 73 20 63 6f 6d 70 | 69 6c 65 64 20 66 6f 72 |was comp|iled for|
|000001b0| 20 45 6d 61 63 73 20 31 | 39 22 29 29 0a 0a 28 64 | Emacs 1|9"))..(d|
|000001c0| 65 66 76 61 72 20 69 63 | 6f 6e 2d 6d 6f 64 65 2d |efvar ic|on-mode-|
|000001d0| 61 62 62 72 65 76 2d 74 | 61 62 6c 65 20 6e 69 6c |abbrev-t|able nil|
|000001e0| 20 22 5c 0a 41 62 62 72 | 65 76 20 74 61 62 6c 65 | "\.Abbr|ev table|
|000001f0| 20 69 6e 20 75 73 65 20 | 69 6e 20 49 63 6f 6e 2d | in use |in Icon-|
|00000200| 6d 6f 64 65 20 62 75 66 | 66 65 72 73 2e 22 29 0a |mode buf|fers.").|
|00000210| 28 64 65 66 69 6e 65 2d | 61 62 62 72 65 76 2d 74 |(define-|abbrev-t|
|00000220| 61 62 6c 65 20 28 71 75 | 6f 74 65 20 69 63 6f 6e |able (qu|ote icon|
|00000230| 2d 6d 6f 64 65 2d 61 62 | 62 72 65 76 2d 74 61 62 |-mode-ab|brev-tab|
|00000240| 6c 65 29 20 6e 69 6c 29 | 0a 28 64 65 66 76 61 72 |le) nil)|.(defvar|
|00000250| 20 69 63 6f 6e 2d 6d 6f | 64 65 2d 6d 61 70 20 6e | icon-mo|de-map n|
|00000260| 69 6c 20 22 5c 0a 4b 65 | 79 6d 61 70 20 75 73 65 |il "\.Ke|ymap use|
|00000270| 64 20 69 6e 20 49 63 6f | 6e 20 6d 6f 64 65 2e 22 |d in Ico|n mode."|
|00000280| 29 0a 28 62 79 74 65 2d | 63 6f 64 65 20 22 08 84 |).(byte-|code "..|
|00000290| 37 00 c1 20 10 c2 08 c3 | c4 23 88 c2 08 c5 c4 23 |7.. ....|.#.....#|
|000002a0| 88 c2 08 c6 c7 23 88 c2 | 08 c8 c9 23 88 c2 08 ca |.....#..|...#....|
|000002b0| cb 23 88 c2 08 cc cd 23 | 88 c2 08 ce cf 23 88 c2 |.#.....#|.....#..|
|000002c0| 08 d0 d1 23 88 c1 87 22 | 20 5b 69 63 6f 6e 2d 6d |...#..."| [icon-m|
|000002d0| 6f 64 65 2d 6d 61 70 20 | 6d 61 6b 65 2d 73 70 61 |ode-map |make-spa|
|000002e0| 72 73 65 2d 6b 65 79 6d | 61 70 20 64 65 66 69 6e |rse-keym|ap defin|
|000002f0| 65 2d 6b 65 79 20 22 7b | 22 20 65 6c 65 63 74 72 |e-key "{|" electr|
|00000300| 69 63 2d 69 63 6f 6e 2d | 62 72 61 63 65 20 22 7d |ic-icon-|brace "}|
|00000310| 22 20 22 1b 08 22 20 6d | 61 72 6b 2d 69 63 6f 6e |" ".." m|ark-icon|
|00000320| 2d 66 75 6e 63 74 69 6f | 6e 20 22 1b 01 22 20 62 |-functio|n ".." b|
|00000330| 65 67 69 6e 6e 69 6e 67 | 2d 6f 66 2d 69 63 6f 6e |eginning|-of-icon|
|00000340| 2d 64 65 66 75 6e 20 22 | 1b 05 22 20 65 6e 64 2d |-defun "|.." end-|
|00000350| 6f 66 2d 69 63 6f 6e 2d | 64 65 66 75 6e 20 22 1b |of-icon-|defun ".|
|00000360| 11 22 20 69 6e 64 65 6e | 74 2d 69 63 6f 6e 2d 65 |." inden|t-icon-e|
|00000370| 78 70 20 22 7f 22 20 62 | 61 63 6b 77 61 72 64 2d |xp "." b|ackward-|
|00000380| 64 65 6c 65 74 65 2d 63 | 68 61 72 2d 75 6e 74 61 |delete-c|har-unta|
|00000390| 62 69 66 79 20 22 09 22 | 20 69 63 6f 6e 2d 69 6e |bify "."| icon-in|
|000003a0| 64 65 6e 74 2d 63 6f 6d | 6d 61 6e 64 5d 20 34 29 |dent-com|mand] 4)|
|000003b0| 0a 28 64 65 66 76 61 72 | 20 69 63 6f 6e 2d 6d 6f |.(defvar| icon-mo|
|000003c0| 64 65 2d 73 79 6e 74 61 | 78 2d 74 61 62 6c 65 20 |de-synta|x-table |
|000003d0| 6e 69 6c 20 22 5c 0a 53 | 79 6e 74 61 78 20 74 61 |nil "\.S|yntax ta|
|000003e0| 62 6c 65 20 69 6e 20 75 | 73 65 20 69 6e 20 49 63 |ble in u|se in Ic|
|000003f0| 6f 6e 2d 6d 6f 64 65 20 | 62 75 66 66 65 72 73 2e |on-mode |buffers.|
|00000400| 22 29 0a 28 62 79 74 65 | 2d 63 6f 64 65 20 22 08 |").(byte|-code ".|
|00000410| 84 61 00 c1 20 10 c2 c3 | c4 08 23 88 c2 c5 c6 08 |.a.. ...|..#.....|
|00000420| 23 88 c2 c7 c8 08 23 88 | c2 c9 ca 08 23 88 c2 cb |#.....#.|....#...|
|00000430| ca 08 23 88 c2 cc ca 08 | 23 88 c2 cd ca 08 23 88 |..#.....|#.....#.|
|00000440| c2 ce ca 08 23 88 c2 cf | ca 08 23 88 c2 d0 ca 08 |....#...|..#.....|
|00000450| 23 88 c2 d1 ca 08 23 88 | c2 d2 ca 08 23 88 c2 d3 |#.....#.|....#...|
|00000460| ca 08 23 88 c2 d4 ca 08 | 23 88 c2 d5 d6 08 23 88 |..#.....|#.....#.|
|00000470| c1 87 22 20 5b 69 63 6f | 6e 2d 6d 6f 64 65 2d 73 |.." [ico|n-mode-s|
|00000480| 79 6e 74 61 78 2d 74 61 | 62 6c 65 20 6d 61 6b 65 |yntax-ta|ble make|
|00000490| 2d 73 79 6e 74 61 78 2d | 74 61 62 6c 65 20 6d 6f |-syntax-|table mo|
|000004a0| 64 69 66 79 2d 73 79 6e | 74 61 78 2d 65 6e 74 72 |dify-syn|tax-entr|
|000004b0| 79 20 39 32 20 22 5c 5c | 22 20 33 35 20 22 3c 22 |y 92 "\\|" 35 "<"|
|000004c0| 20 31 30 20 22 3e 22 20 | 33 36 20 22 2e 22 20 34 | 10 ">" |36 "." 4|
|000004d0| 37 20 34 32 20 34 33 20 | 34 35 20 36 31 20 33 37 |7 42 43 |45 61 37|
|000004e0| 20 36 30 20 36 32 20 33 | 38 20 31 32 34 20 33 39 | 60 62 3|8 124 39|
|000004f0| 20 22 5c 22 22 5d 20 34 | 29 0a 28 64 65 66 63 6f | "\""] 4|).(defco|
|00000500| 6e 73 74 20 69 63 6f 6e | 2d 69 6e 64 65 6e 74 2d |nst icon|-indent-|
|00000510| 6c 65 76 65 6c 20 34 20 | 22 5c 0a 2a 49 6e 64 65 |level 4 |"\.*Inde|
|00000520| 6e 74 61 74 69 6f 6e 20 | 6f 66 20 49 63 6f 6e 20 |ntation |of Icon |
|00000530| 73 74 61 74 65 6d 65 6e | 74 73 20 77 69 74 68 20 |statemen|ts with |
|00000540| 72 65 73 70 65 63 74 20 | 74 6f 20 63 6f 6e 74 61 |respect |to conta|
|00000550| 69 6e 69 6e 67 20 62 6c | 6f 63 6b 2e 22 29 0a 28 |ining bl|ock.").(|
|00000560| 64 65 66 63 6f 6e 73 74 | 20 69 63 6f 6e 2d 62 72 |defconst| icon-br|
|00000570| 61 63 65 2d 69 6d 61 67 | 69 6e 61 72 79 2d 6f 66 |ace-imag|inary-of|
|00000580| 66 73 65 74 20 30 20 22 | 5c 0a 2a 49 6d 61 67 69 |fset 0 "|\.*Imagi|
|00000590| 6e 65 64 20 69 6e 64 65 | 6e 74 61 74 69 6f 6e 20 |ned inde|ntation |
|000005a0| 6f 66 20 61 20 49 63 6f | 6e 20 6f 70 65 6e 20 62 |of a Ico|n open b|
|000005b0| 72 61 63 65 20 74 68 61 | 74 20 61 63 74 75 61 6c |race tha|t actual|
|000005c0| 6c 79 20 66 6f 6c 6c 6f | 77 73 20 61 20 73 74 61 |ly follo|ws a sta|
|000005d0| 74 65 6d 65 6e 74 2e 22 | 29 0a 28 64 65 66 63 6f |tement."|).(defco|
|000005e0| 6e 73 74 20 69 63 6f 6e | 2d 62 72 61 63 65 2d 6f |nst icon|-brace-o|
|000005f0| 66 66 73 65 74 20 30 20 | 22 5c 0a 2a 45 78 74 72 |ffset 0 |"\.*Extr|
|00000600| 61 20 69 6e 64 65 6e 74 | 61 74 69 6f 6e 20 66 6f |a indent|ation fo|
|00000610| 72 20 62 72 61 63 65 73 | 2c 20 63 6f 6d 70 61 72 |r braces|, compar|
|00000620| 65 64 20 77 69 74 68 20 | 6f 74 68 65 72 20 74 65 |ed with |other te|
|00000630| 78 74 20 69 6e 20 73 61 | 6d 65 20 63 6f 6e 74 65 |xt in sa|me conte|
|00000640| 78 74 2e 22 29 0a 28 64 | 65 66 63 6f 6e 73 74 20 |xt.").(d|efconst |
|00000650| 69 63 6f 6e 2d 63 6f 6e | 74 69 6e 75 65 64 2d 73 |icon-con|tinued-s|
|00000660| 74 61 74 65 6d 65 6e 74 | 2d 6f 66 66 73 65 74 20 |tatement|-offset |
|00000670| 34 20 22 5c 0a 2a 45 78 | 74 72 61 20 69 6e 64 65 |4 "\.*Ex|tra inde|
|00000680| 6e 74 20 66 6f 72 20 6c | 69 6e 65 73 20 6e 6f 74 |nt for l|ines not|
|00000690| 20 73 74 61 72 74 69 6e | 67 20 6e 65 77 20 73 74 | startin|g new st|
|000006a0| 61 74 65 6d 65 6e 74 73 | 2e 22 29 0a 28 64 65 66 |atements|.").(def|
|000006b0| 63 6f 6e 73 74 20 69 63 | 6f 6e 2d 63 6f 6e 74 69 |const ic|on-conti|
|000006c0| 6e 75 65 64 2d 62 72 61 | 63 65 2d 6f 66 66 73 65 |nued-bra|ce-offse|
|000006d0| 74 20 30 20 22 5c 0a 2a | 45 78 74 72 61 20 69 6e |t 0 "\.*|Extra in|
|000006e0| 64 65 6e 74 20 66 6f 72 | 20 73 75 62 73 74 61 74 |dent for| substat|
|000006f0| 65 6d 65 6e 74 73 20 74 | 68 61 74 20 73 74 61 72 |ements t|hat star|
|00000700| 74 20 77 69 74 68 20 6f | 70 65 6e 2d 62 72 61 63 |t with o|pen-brac|
|00000710| 65 73 2e 0a 54 68 69 73 | 20 69 73 20 69 6e 20 61 |es..This| is in a|
|00000720| 64 64 69 74 69 6f 6e 20 | 74 6f 20 69 63 6f 6e 2d |ddition |to icon-|
|00000730| 63 6f 6e 74 69 6e 75 65 | 64 2d 73 74 61 74 65 6d |continue|d-statem|
|00000740| 65 6e 74 2d 6f 66 66 73 | 65 74 2e 22 29 0a 28 64 |ent-offs|et.").(d|
|00000750| 65 66 63 6f 6e 73 74 20 | 69 63 6f 6e 2d 61 75 74 |efconst |icon-aut|
|00000760| 6f 2d 6e 65 77 6c 69 6e | 65 20 6e 69 6c 20 22 5c |o-newlin|e nil "\|
|00000770| 0a 2a 4e 6f 6e 2d 6e 69 | 6c 20 6d 65 61 6e 73 20 |.*Non-ni|l means |
|00000780| 61 75 74 6f 6d 61 74 69 | 63 61 6c 6c 79 20 6e 65 |automati|cally ne|
|00000790| 77 6c 69 6e 65 20 62 65 | 66 6f 72 65 20 61 6e 64 |wline be|fore and|
|000007a0| 20 61 66 74 65 72 20 62 | 72 61 63 65 73 0a 69 6e | after b|races.in|
|000007b0| 73 65 72 74 65 64 20 69 | 6e 20 49 63 6f 6e 20 63 |serted i|n Icon c|
|000007c0| 6f 64 65 2e 22 29 0a 28 | 64 65 66 63 6f 6e 73 74 |ode.").(|defconst|
|000007d0| 20 69 63 6f 6e 2d 74 61 | 62 2d 61 6c 77 61 79 73 | icon-ta|b-always|
|000007e0| 2d 69 6e 64 65 6e 74 20 | 74 20 22 5c 0a 2a 4e 6f |-indent |t "\.*No|
|000007f0| 6e 2d 6e 69 6c 20 6d 65 | 61 6e 73 20 54 41 42 20 |n-nil me|ans TAB |
|00000800| 69 6e 20 49 63 6f 6e 20 | 6d 6f 64 65 20 73 68 6f |in Icon |mode sho|
|00000810| 75 6c 64 20 61 6c 77 61 | 79 73 20 72 65 69 6e 64 |uld alwa|ys reind|
|00000820| 65 6e 74 20 74 68 65 20 | 63 75 72 72 65 6e 74 20 |ent the |current |
|00000830| 6c 69 6e 65 2c 0a 72 65 | 67 61 72 64 6c 65 73 73 |line,.re|gardless|
|00000840| 20 6f 66 20 77 68 65 72 | 65 20 69 6e 20 74 68 65 | of wher|e in the|
|00000850| 20 6c 69 6e 65 20 70 6f | 69 6e 74 20 69 73 20 77 | line po|int is w|
|00000860| 68 65 6e 20 74 68 65 20 | 54 41 42 20 63 6f 6d 6d |hen the |TAB comm|
|00000870| 61 6e 64 20 69 73 20 75 | 73 65 64 2e 22 29 0a 28 |and is u|sed.").(|
|00000880| 64 65 66 61 6c 69 61 73 | 20 27 69 63 6f 6e 2d 6d |defalias| 'icon-m|
|00000890| 6f 64 65 20 23 5b 6e 69 | 6c 20 22 c0 20 88 c1 5c |ode #[ni|l ". ..\|
|000008a0| 6e 21 88 c3 14 c5 16 06 | 0e 07 16 08 c9 0e 5c 6e |n!......|......\n|
|000008b0| 21 88 cb cc 21 88 cd 0e | 0e 50 16 0c cb cf 21 88 |!...!...|.P....!.|
|000008c0| 0e 0c 16 0f cb d0 21 88 | d1 16 10 cb d2 21 88 d3 |......!.|.....!..|
|000008d0| 16 12 cb d4 21 88 d5 16 | 14 cb d6 21 88 d7 16 16 |....!...|...!....|
|000008e0| cb d8 21 88 d9 16 18 cb | da 21 88 db 16 1a cb dc |..!.....|.!......|
|000008f0| 21 88 dd 16 1c de df 21 | 87 22 20 5b 6b 69 6c 6c |!......!|." [kill|
|00000900| 2d 61 6c 6c 2d 6c 6f 63 | 61 6c 2d 76 61 72 69 61 |-all-loc|al-varia|
|00000910| 62 6c 65 73 20 75 73 65 | 2d 6c 6f 63 61 6c 2d 6d |bles use|-local-m|
|00000920| 61 70 20 69 63 6f 6e 2d | 6d 6f 64 65 2d 6d 61 70 |ap icon-|mode-map|
|00000930| 20 69 63 6f 6e 2d 6d 6f | 64 65 20 6d 61 6a 6f 72 | icon-mo|de major|
|00000940| 2d 6d 6f 64 65 20 22 49 | 63 6f 6e 22 20 6d 6f 64 |-mode "I|con" mod|
|00000950| 65 2d 6e 61 6d 65 20 69 | 63 6f 6e 2d 6d 6f 64 65 |e-name i|con-mode|
|00000960| 2d 61 62 62 72 65 76 2d | 74 61 62 6c 65 20 6c 6f |-abbrev-|table lo|
|00000970| 63 61 6c 2d 61 62 62 72 | 65 76 2d 74 61 62 6c 65 |cal-abbr|ev-table|
|00000980| 20 73 65 74 2d 73 79 6e | 74 61 78 2d 74 61 62 6c | set-syn|tax-tabl|
|00000990| 65 20 69 63 6f 6e 2d 6d | 6f 64 65 2d 73 79 6e 74 |e icon-m|ode-synt|
|000009a0| 61 78 2d 74 61 62 6c 65 | 20 6d 61 6b 65 2d 6c 6f |ax-table| make-lo|
|000009b0| 63 61 6c 2d 76 61 72 69 | 61 62 6c 65 20 70 61 72 |cal-vari|able par|
|000009c0| 61 67 72 61 70 68 2d 73 | 74 61 72 74 20 22 5e 24 |agraph-s|tart "^$|
|000009d0| 5c 5c 7c 22 20 70 61 67 | 65 2d 64 65 6c 69 6d 69 |\\|" pag|e-delimi|
|000009e0| 74 65 72 20 70 61 72 61 | 67 72 61 70 68 2d 73 65 |ter para|graph-se|
|000009f0| 70 61 72 61 74 65 20 69 | 6e 64 65 6e 74 2d 6c 69 |parate i|ndent-li|
|00000a00| 6e 65 2d 66 75 6e 63 74 | 69 6f 6e 20 69 63 6f 6e |ne-funct|ion icon|
|00000a10| 2d 69 6e 64 65 6e 74 2d | 6c 69 6e 65 20 72 65 71 |-indent-|line req|
|00000a20| 75 69 72 65 2d 66 69 6e | 61 6c 2d 6e 65 77 6c 69 |uire-fin|al-newli|
|00000a30| 6e 65 20 74 20 63 6f 6d | 6d 65 6e 74 2d 73 74 61 |ne t com|ment-sta|
|00000a40| 72 74 20 22 23 20 22 20 | 63 6f 6d 6d 65 6e 74 2d |rt "# " |comment-|
|00000a50| 65 6e 64 20 22 22 20 63 | 6f 6d 6d 65 6e 74 2d 63 |end "" c|omment-c|
|00000a60| 6f 6c 75 6d 6e 20 33 32 | 20 63 6f 6d 6d 65 6e 74 |olumn 32| comment|
|00000a70| 2d 73 74 61 72 74 2d 73 | 6b 69 70 20 22 23 20 2a |-start-s|kip "# *|
|00000a80| 22 20 63 6f 6d 6d 65 6e | 74 2d 69 6e 64 65 6e 74 |" commen|t-indent|
|00000a90| 2d 66 75 6e 63 74 69 6f | 6e 20 69 63 6f 6e 2d 63 |-functio|n icon-c|
|00000aa0| 6f 6d 6d 65 6e 74 2d 69 | 6e 64 65 6e 74 20 72 75 |omment-i|ndent ru|
|00000ab0| 6e 2d 68 6f 6f 6b 73 20 | 69 63 6f 6e 2d 6d 6f 64 |n-hooks |icon-mod|
|00000ac0| 65 2d 68 6f 6f 6b 5d 20 | 32 20 22 5c 0a 4d 61 6a |e-hook] |2 "\.Maj|
|00000ad0| 6f 72 20 6d 6f 64 65 20 | 66 6f 72 20 65 64 69 74 |or mode |for edit|
|00000ae0| 69 6e 67 20 49 63 6f 6e | 20 63 6f 64 65 2e 0a 45 |ing Icon| code..E|
|00000af0| 78 70 72 65 73 73 69 6f | 6e 20 61 6e 64 20 6c 69 |xpressio|n and li|
|00000b00| 73 74 20 63 6f 6d 6d 61 | 6e 64 73 20 75 6e 64 65 |st comma|nds unde|
|00000b10| 72 73 74 61 6e 64 20 61 | 6c 6c 20 49 63 6f 6e 20 |rstand a|ll Icon |
|00000b20| 62 72 61 63 6b 65 74 73 | 2e 0a 54 61 62 20 69 6e |brackets|..Tab in|
|00000b30| 64 65 6e 74 73 20 66 6f | 72 20 49 63 6f 6e 20 63 |dents fo|r Icon c|
|00000b40| 6f 64 65 2e 0a 50 61 72 | 61 67 72 61 70 68 73 20 |ode..Par|agraphs |
|00000b50| 61 72 65 20 73 65 70 61 | 72 61 74 65 64 20 62 79 |are sepa|rated by|
|00000b60| 20 62 6c 61 6e 6b 20 6c | 69 6e 65 73 20 6f 6e 6c | blank l|ines onl|
|00000b70| 79 2e 0a 44 65 6c 65 74 | 65 20 63 6f 6e 76 65 72 |y..Delet|e conver|
|00000b80| 74 73 20 74 61 62 73 20 | 74 6f 20 73 70 61 63 65 |ts tabs |to space|
|00000b90| 73 20 61 73 20 69 74 20 | 6d 6f 76 65 73 20 62 61 |s as it |moves ba|
|00000ba0| 63 6b 2e 0a 5c 5c 7b 69 | 63 6f 6e 2d 6d 6f 64 65 |ck..\\{i|con-mode|
|00000bb0| 2d 6d 61 70 7d 0a 56 61 | 72 69 61 62 6c 65 73 20 |-map}.Va|riables |
|00000bc0| 63 6f 6e 74 72 6f 6c 6c | 69 6e 67 20 69 6e 64 65 |controll|ing inde|
|00000bd0| 6e 74 61 74 69 6f 6e 20 | 73 74 79 6c 65 3a 0a 20 |ntation |style:. |
|00000be0| 69 63 6f 6e 2d 74 61 62 | 2d 61 6c 77 61 79 73 2d |icon-tab|-always-|
|00000bf0| 69 6e 64 65 6e 74 0a 20 | 20 20 20 4e 6f 6e 2d 6e |indent. |   Non-n|
|00000c00| 69 6c 20 6d 65 61 6e 73 | 20 54 41 42 20 69 6e 20 |il means| TAB in |
|00000c10| 49 63 6f 6e 20 6d 6f 64 | 65 20 73 68 6f 75 6c 64 |Icon mod|e should|
|00000c20| 20 61 6c 77 61 79 73 20 | 72 65 69 6e 64 65 6e 74 | always |reindent|
|00000c30| 20 74 68 65 20 63 75 72 | 72 65 6e 74 20 6c 69 6e | the cur|rent lin|
|00000c40| 65 2c 0a 20 20 20 20 72 | 65 67 61 72 64 6c 65 73 |e,.    r|egardles|
|00000c50| 73 20 6f 66 20 77 68 65 | 72 65 20 69 6e 20 74 68 |s of whe|re in th|
|00000c60| 65 20 6c 69 6e 65 20 70 | 6f 69 6e 74 20 69 73 20 |e line p|oint is |
|00000c70| 77 68 65 6e 20 74 68 65 | 20 54 41 42 20 63 6f 6d |when the| TAB com|
|00000c80| 6d 61 6e 64 20 69 73 20 | 75 73 65 64 2e 0a 20 69 |mand is |used.. i|
|00000c90| 63 6f 6e 2d 61 75 74 6f | 2d 6e 65 77 6c 69 6e 65 |con-auto|-newline|
|00000ca0| 0a 20 20 20 20 4e 6f 6e | 2d 6e 69 6c 20 6d 65 61 |.    Non|-nil mea|
|00000cb0| 6e 73 20 61 75 74 6f 6d | 61 74 69 63 61 6c 6c 79 |ns autom|atically|
|00000cc0| 20 6e 65 77 6c 69 6e 65 | 20 62 65 66 6f 72 65 20 | newline| before |
|00000cd0| 61 6e 64 20 61 66 74 65 | 72 20 62 72 61 63 65 73 |and afte|r braces|
|00000ce0| 0a 20 20 20 20 69 6e 73 | 65 72 74 65 64 20 69 6e |.    ins|erted in|
|00000cf0| 20 49 63 6f 6e 20 63 6f | 64 65 2e 0a 20 69 63 6f | Icon co|de.. ico|
|00000d00| 6e 2d 69 6e 64 65 6e 74 | 2d 6c 65 76 65 6c 0a 20 |n-indent|-level. |
|00000d10| 20 20 20 49 6e 64 65 6e | 74 61 74 69 6f 6e 20 6f |   Inden|tation o|
|00000d20| 66 20 49 63 6f 6e 20 73 | 74 61 74 65 6d 65 6e 74 |f Icon s|tatement|
|00000d30| 73 20 77 69 74 68 69 6e | 20 73 75 72 72 6f 75 6e |s within| surroun|
|00000d40| 64 69 6e 67 20 62 6c 6f | 63 6b 2e 0a 20 20 20 20 |ding blo|ck..    |
|00000d50| 54 68 65 20 73 75 72 72 | 6f 75 6e 64 69 6e 67 20 |The surr|ounding |
|00000d60| 62 6c 6f 63 6b 27 73 20 | 69 6e 64 65 6e 74 61 74 |block's |indentat|
|00000d70| 69 6f 6e 20 69 73 20 74 | 68 65 20 69 6e 64 65 6e |ion is t|he inden|
|00000d80| 74 61 74 69 6f 6e 0a 20 | 20 20 20 6f 66 20 74 68 |tation. |   of th|
|00000d90| 65 20 6c 69 6e 65 20 6f | 6e 20 77 68 69 63 68 20 |e line o|n which |
|00000da0| 74 68 65 20 6f 70 65 6e | 2d 62 72 61 63 65 20 61 |the open|-brace a|
|00000db0| 70 70 65 61 72 73 2e 0a | 20 69 63 6f 6e 2d 63 6f |ppears..| icon-co|
|00000dc0| 6e 74 69 6e 75 65 64 2d | 73 74 61 74 65 6d 65 6e |ntinued-|statemen|
|00000dd0| 74 2d 6f 66 66 73 65 74 | 0a 20 20 20 20 45 78 74 |t-offset|.    Ext|
|00000de0| 72 61 20 69 6e 64 65 6e | 74 61 74 69 6f 6e 20 67 |ra inden|tation g|
|00000df0| 69 76 65 6e 20 74 6f 20 | 61 20 73 75 62 73 74 61 |iven to |a substa|
|00000e00| 74 65 6d 65 6e 74 2c 20 | 73 75 63 68 20 61 73 20 |tement, |such as |
|00000e10| 74 68 65 0a 20 20 20 20 | 74 68 65 6e 2d 63 6c 61 |the.    |then-cla|
|00000e20| 75 73 65 20 6f 66 20 61 | 6e 20 69 66 20 6f 72 20 |use of a|n if or |
|00000e30| 62 6f 64 79 20 6f 66 20 | 61 20 77 68 69 6c 65 2e |body of |a while.|
|00000e40| 0a 20 69 63 6f 6e 2d 63 | 6f 6e 74 69 6e 75 65 64 |. icon-c|ontinued|
|00000e50| 2d 62 72 61 63 65 2d 6f | 66 66 73 65 74 0a 20 20 |-brace-o|ffset.  |
|00000e60| 20 20 45 78 74 72 61 20 | 69 6e 64 65 6e 74 61 74 |  Extra |indentat|
|00000e70| 69 6f 6e 20 67 69 76 65 | 6e 20 74 6f 20 61 20 62 |ion give|n to a b|
|00000e80| 72 61 63 65 20 74 68 61 | 74 20 73 74 61 72 74 73 |race tha|t starts|
|00000e90| 20 61 20 73 75 62 73 74 | 61 74 65 6d 65 6e 74 2e | a subst|atement.|
|00000ea0| 0a 20 20 20 20 54 68 69 | 73 20 69 73 20 69 6e 20 |.    Thi|s is in |
|00000eb0| 61 64 64 69 74 69 6f 6e | 20 74 6f 20 60 69 63 6f |addition| to `ico|
|00000ec0| 6e 2d 63 6f 6e 74 69 6e | 75 65 64 2d 73 74 61 74 |n-contin|ued-stat|
|00000ed0| 65 6d 65 6e 74 2d 6f 66 | 66 73 65 74 27 2e 0a 20 |ement-of|fset'.. |
|00000ee0| 69 63 6f 6e 2d 62 72 61 | 63 65 2d 6f 66 66 73 65 |icon-bra|ce-offse|
|00000ef0| 74 0a 20 20 20 20 45 78 | 74 72 61 20 69 6e 64 65 |t.    Ex|tra inde|
|00000f00| 6e 74 61 74 69 6f 6e 20 | 66 6f 72 20 6c 69 6e 65 |ntation |for line|
|00000f10| 20 69 66 20 69 74 20 73 | 74 61 72 74 73 20 77 69 | if it s|tarts wi|
|00000f20| 74 68 20 61 6e 20 6f 70 | 65 6e 20 62 72 61 63 65 |th an op|en brace|
|00000f30| 2e 0a 20 69 63 6f 6e 2d | 62 72 61 63 65 2d 69 6d |.. icon-|brace-im|
|00000f40| 61 67 69 6e 61 72 79 2d | 6f 66 66 73 65 74 0a 20 |aginary-|offset. |
|00000f50| 20 20 20 41 6e 20 6f 70 | 65 6e 20 62 72 61 63 65 |   An op|en brace|
|00000f60| 20 66 6f 6c 6c 6f 77 69 | 6e 67 20 6f 74 68 65 72 | followi|ng other|
|00000f70| 20 74 65 78 74 20 69 73 | 20 74 72 65 61 74 65 64 | text is| treated|
|00000f80| 20 61 73 20 69 66 20 69 | 74 20 77 65 72 65 0a 20 | as if i|t were. |
|00000f90| 20 20 20 74 68 69 73 20 | 66 61 72 20 74 6f 20 74 |   this |far to t|
|00000fa0| 68 65 20 72 69 67 68 74 | 20 6f 66 20 74 68 65 20 |he right| of the |
|00000fb0| 73 74 61 72 74 20 6f 66 | 20 69 74 73 20 6c 69 6e |start of| its lin|
|00000fc0| 65 2e 0a 0a 54 75 72 6e | 69 6e 67 20 6f 6e 20 49 |e...Turn|ing on I|
|00000fd0| 63 6f 6e 20 6d 6f 64 65 | 20 63 61 6c 6c 73 20 74 |con mode| calls t|
|00000fe0| 68 65 20 76 61 6c 75 65 | 20 6f 66 20 74 68 65 20 |he value| of the |
|00000ff0| 76 61 72 69 61 62 6c 65 | 20 60 69 63 6f 6e 2d 6d |variable| `icon-m|
|00001000| 6f 64 65 2d 68 6f 6f 6b | 27 0a 77 69 74 68 20 6e |ode-hook|'.with n|
|00001010| 6f 20 61 72 67 73 2c 20 | 69 66 20 74 68 61 74 20 |o args, |if that |
|00001020| 76 61 6c 75 65 20 69 73 | 20 6e 6f 6e 2d 6e 69 6c |value is| non-nil|
|00001030| 2e 22 20 6e 69 6c 5d 29 | 0a 28 64 65 66 61 6c 69 |." nil])|.(defali|
|00001040| 61 73 20 28 71 75 6f 74 | 65 20 69 63 6f 6e 2d 63 |as (quot|e icon-c|
|00001050| 6f 6d 6d 65 6e 74 2d 69 | 6e 64 65 6e 74 29 20 23 |omment-i|ndent) #|
|00001060| 5b 6e 69 6c 20 22 c0 c1 | 21 83 08 00 c2 87 8a c3 |[nil "..|!.......|
|00001070| c4 78 88 6e 83 15 00 c2 | 82 17 00 69 54 0d 5d 29 |.x.n....|...iT.])|
|00001080| 87 22 20 5b 6c 6f 6f 6b | 69 6e 67 2d 61 74 20 22 |." [look|ing-at "|
|00001090| 5e 23 22 20 30 20 22 20 | 09 22 20 6e 69 6c 20 63 |^#" 0 " |." nil c|
|000010a0| 6f 6d 6d 65 6e 74 2d 63 | 6f 6c 75 6d 6e 5d 20 32 |omment-c|olumn] 2|
|000010b0| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 65 6c |]).(defa|lias 'el|
|000010c0| 65 63 74 72 69 63 2d 69 | 63 6f 6e 2d 62 72 61 63 |ectric-i|con-brac|
|000010d0| 65 20 23 5b 28 61 72 67 | 29 20 22 c0 19 5c 6e 84 |e #[(arg|) "..\n.|
|000010e0| 41 00 6c 83 41 00 8a c3 | c0 78 88 6e 29 84 1e 00 |A.l.A...|.x.n)...|
|000010f0| 0c 83 41 00 c5 20 88 c6 | 20 88 0e 07 63 88 c5 20 |..A.. ..| ...c.. |
|00001100| 88 0c 83 33 00 c6 20 88 | 60 c8 5a 11 c5 20 88 8a |...3.. .|`.Z.. ..|
|00001110| 09 83 3c 00 09 54 62 88 | c9 ca 21 88 29 09 83 52 |..<..Tb.|..!.)..R|
|00001120| 00 8a 09 62 88 cb cc 5c | 6e 21 21 29 82 57 00 cb |...b...\|n!!).W..|
|00001130| cc 5c 6e 21 21 29 87 22 | 20 5b 6e 69 6c 20 69 6e |.\n!!)."| [nil in|
|00001140| 73 65 72 74 70 6f 73 20 | 61 72 67 20 22 20 09 22 |sertpos |arg " ."|
|00001150| 20 69 63 6f 6e 2d 61 75 | 74 6f 2d 6e 65 77 6c 69 | icon-au|to-newli|
|00001160| 6e 65 20 69 63 6f 6e 2d | 69 6e 64 65 6e 74 2d 6c |ne icon-|indent-l|
|00001170| 69 6e 65 20 6e 65 77 6c | 69 6e 65 20 6c 61 73 74 |ine newl|ine last|
|00001180| 2d 63 6f 6d 6d 61 6e 64 | 2d 63 68 61 72 20 32 20 |-command|-char 2 |
|00001190| 64 65 6c 65 74 65 2d 63 | 68 61 72 20 2d 31 20 73 |delete-c|har -1 s|
|000011a0| 65 6c 66 2d 69 6e 73 65 | 72 74 2d 63 6f 6d 6d 61 |elf-inse|rt-comma|
|000011b0| 6e 64 20 70 72 65 66 69 | 78 2d 6e 75 6d 65 72 69 |nd prefi|x-numeri|
|000011c0| 63 2d 76 61 6c 75 65 5d | 20 33 20 22 5c 0a 49 6e |c-value]| 3 "\.In|
|000011d0| 73 65 72 74 20 63 68 61 | 72 61 63 74 65 72 20 61 |sert cha|racter a|
|000011e0| 6e 64 20 63 6f 72 72 65 | 63 74 20 6c 69 6e 65 27 |nd corre|ct line'|
|000011f0| 73 20 69 6e 64 65 6e 74 | 61 74 69 6f 6e 2e 22 20 |s indent|ation." |
|00001200| 22 50 22 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |"P"]).(d|efalias |
|00001210| 28 71 75 6f 74 65 20 69 | 63 6f 6e 2d 69 6e 64 65 |(quote i|con-inde|
|00001220| 6e 74 2d 63 6f 6d 6d 61 | 6e 64 29 20 23 5b 28 26 |nt-comma|nd) #[(&|
|00001230| 6f 70 74 69 6f 6e 61 6c | 20 77 68 6f 6c 65 2d 65 |optional| whole-e|
|00001240| 78 70 29 20 22 08 83 33 | 00 c1 20 c2 89 1b 1c 1d |xp) "..3|.. .....|
|00001250| 8a 0e 06 83 14 00 c7 79 | 88 60 14 c8 c9 21 88 60 |.......y|.`...!.`|
|00001260| 13 0c 62 88 c9 79 88 60 | 14 29 0b 0c 56 85 31 00 |..b..y.`|.)..V.1.|
|00001270| ca 0c 0b 0d cb 24 2b 87 | 0e 06 84 45 00 8a cc c2 |.....$+.|...E....|
|00001280| 78 88 6e 29 84 45 00 cd | 20 87 c1 20 87 22 20 5b |x.n).E..| .. ." [|
|00001290| 77 68 6f 6c 65 2d 65 78 | 70 20 69 63 6f 6e 2d 69 |whole-ex|p icon-i|
|000012a0| 6e 64 65 6e 74 2d 6c 69 | 6e 65 20 6e 69 6c 20 65 |ndent-li|ne nil e|
|000012b0| 6e 64 20 62 65 67 20 73 | 68 69 66 74 2d 61 6d 74 |nd beg s|hift-amt|
|000012c0| 20 69 63 6f 6e 2d 74 61 | 62 2d 61 6c 77 61 79 73 | icon-ta|b-always|
|000012d0| 2d 69 6e 64 65 6e 74 20 | 30 20 66 6f 72 77 61 72 |-indent |0 forwar|
|000012e0| 64 2d 73 65 78 70 20 31 | 20 69 6e 64 65 6e 74 2d |d-sexp 1| indent-|
|000012f0| 63 6f 64 65 2d 72 69 67 | 69 64 6c 79 20 22 23 22 |code-rig|idly "#"|
|00001300| 20 22 20 09 22 20 69 6e | 73 65 72 74 2d 74 61 62 | " ." in|sert-tab|
|00001310| 5d 20 35 20 6e 69 6c 20 | 22 50 22 5d 29 0a 28 64 |] 5 nil |"P"]).(d|
|00001320| 65 66 61 6c 69 61 73 20 | 27 69 63 6f 6e 2d 69 6e |efalias |'icon-in|
|00001330| 64 65 6e 74 2d 6c 69 6e | 65 20 23 5b 6e 69 6c 20 |dent-lin|e #[nil |
|00001340| 22 c0 c1 21 c1 89 89 64 | 60 5a 1a 1b 1c 1d 1e 06 |"..!...d|`Z......|
|00001350| c7 79 88 60 15 0e 06 c1 | 3d 83 5c 22 00 c8 20 16 |.y.`....|=.\".. .|
|00001360| 06 82 86 00 0e 06 c9 3d | 83 30 00 ca 20 16 06 82 |.......=|.0.. ...|
|00001370| 86 00 cb cc 21 83 3c 00 | c7 16 06 82 86 00 cd c1 |....!.<.|........|
|00001380| 77 88 0e 06 3c 83 4b 00 | 0e 06 40 16 06 cb ce 21 |w...<.K.|..@....!|
|00001390| 83 63 00 cb cf 21 84 63 | 00 8a d0 20 88 c8 20 29 |.c...!.c|... .. )|
|000013a0| 16 06 82 86 00 67 d1 55 | 84 6f 00 cb d2 21 83 79 |.....g.U|.o...!.y|
|000013b0| 00 0e 06 0e 13 5a 16 06 | 82 86 00 67 d4 55 83 86 |.....Z..|...g.U..|
|000013c0| 00 0e 06 0e 15 5c 5c 16 | 06 cd c1 77 88 0e 06 69 |.....\\.|...w...i|
|000013d0| 5a 89 14 c7 55 83 a5 00 | 64 5c 6e 5a 60 56 83 ba |Z...U...|d\nZ`V..|
|000013e0| 00 64 5c 6e 5a 62 88 82 | ba 00 0d 60 7c 88 0e 06 |.d\nZb..|...`|...|
|000013f0| 6a 88 64 5c 6e 5a 60 56 | 83 ba 00 64 5c 6e 5a 62 |j.d\nZ`V|...d\nZb|
|00001400| 88 0c 2d 87 22 20 5b 63 | 61 6c 63 75 6c 61 74 65 |..-." [c|alculate|
|00001410| 2d 69 63 6f 6e 2d 69 6e | 64 65 6e 74 20 6e 69 6c |-icon-in|dent nil|
|00001420| 20 70 6f 73 20 63 61 73 | 65 2d 66 6f 6c 64 2d 73 | pos cas|e-fold-s|
|00001430| 65 61 72 63 68 20 73 68 | 69 66 74 2d 61 6d 74 20 |earch sh|ift-amt |
|00001440| 62 65 67 20 69 6e 64 65 | 6e 74 20 30 20 63 75 72 |beg inde|nt 0 cur|
|00001450| 72 65 6e 74 2d 69 6e 64 | 65 6e 74 61 74 69 6f 6e |rent-ind|entation|
|00001460| 20 74 20 63 61 6c 63 75 | 6c 61 74 65 2d 69 63 6f | t calcu|late-ico|
|00001470| 6e 2d 69 6e 64 65 6e 74 | 2d 77 69 74 68 69 6e 2d |n-indent|-within-|
|00001480| 63 6f 6d 6d 65 6e 74 20 | 6c 6f 6f 6b 69 6e 67 2d |comment |looking-|
|00001490| 61 74 20 22 5b 20 09 5d | 2a 23 22 20 22 20 09 22 |at "[ .]|*#" " ."|
|000014a0| 20 22 65 6c 73 65 5c 5c | 62 22 20 22 65 6c 73 65 | "else\\|b" "else|
|000014b0| 5c 5c 73 5f 22 20 69 63 | 6f 6e 2d 62 61 63 6b 77 |\\s_" ic|on-backw|
|000014c0| 61 72 64 2d 74 6f 2d 73 | 74 61 72 74 2d 6f 66 2d |ard-to-s|tart-of-|
|000014d0| 69 66 20 31 32 35 20 22 | 65 6e 64 5c 5c 62 22 20 |if 125 "|end\\b" |
|000014e0| 69 63 6f 6e 2d 69 6e 64 | 65 6e 74 2d 6c 65 76 65 |icon-ind|ent-leve|
|000014f0| 6c 20 31 32 33 20 69 63 | 6f 6e 2d 62 72 61 63 65 |l 123 ic|on-brace|
|00001500| 2d 6f 66 66 73 65 74 5d | 20 37 20 22 5c 0a 49 6e |-offset]| 7 "\.In|
|00001510| 64 65 6e 74 20 63 75 72 | 72 65 6e 74 20 6c 69 6e |dent cur|rent lin|
|00001520| 65 20 61 73 20 49 63 6f | 6e 20 63 6f 64 65 2e 0a |e as Ico|n code..|
|00001530| 52 65 74 75 72 6e 20 74 | 68 65 20 61 6d 6f 75 6e |Return t|he amoun|
|00001540| 74 20 74 68 65 20 69 6e | 64 65 6e 74 61 74 69 6f |t the in|dentatio|
|00001550| 6e 20 63 68 61 6e 67 65 | 64 20 62 79 2e 22 5d 29 |n change|d by."])|
|00001560| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 63 61 6c 63 |.(defali|as 'calc|
|00001570| 75 6c 61 74 65 2d 69 63 | 6f 6e 2d 69 6e 64 65 6e |ulate-ic|on-inden|
|00001580| 74 20 23 5b 28 26 6f 70 | 74 69 6f 6e 61 6c 20 70 |t #[(&op|tional p|
|00001590| 61 72 73 65 2d 73 74 61 | 72 74 29 20 22 8a c0 79 |arse-sta|rt) "..y|
|000015a0| 88 60 c1 89 89 89 1a 1b | 1c 1d 1e 06 0e 07 83 1b |.`......|........|
|000015b0| 00 0e 07 62 88 82 1e 00 | c8 20 12 60 0e 06 57 83 |...b....|. .`..W.|
|000015c0| 36 00 60 16 07 c9 60 0e | 06 c0 23 89 14 41 40 13 |6.`...`.|..#..A@.|
|000015d0| 82 1e 00 ca 0c 38 84 42 | 00 cb 0c 38 83 48 00 cb |.....8.B|...8.H..|
|000015e0| 0c 38 82 00 01 0b 83 5b | 00 0b 66 cc 55 84 5b 00 |.8.....[|..f.U.[.|
|000015f0| 0b 54 62 88 69 82 00 01 | 5c 6e 83 71 00 cd 65 21 |.Tb.i...|\n.q..e!|
|00001600| 88 ce 20 83 6d 00 0e 0f | 82 00 01 c0 82 00 01 0b |.. .m...|........|
|00001610| 84 7a 00 c8 20 88 60 13 | 0e 06 62 88 cd 0b 21 88 |.z.. .`.|..b...!.|
|00001620| ce 20 83 a9 00 d0 0b 21 | 88 0e 0f 69 8a 0e 06 62 |. .....!|...i...b|
|00001630| 88 d1 c1 77 88 67 29 cc | 3d 83 a3 00 0e 12 82 a4 |...w.g).|=.......|
|00001640| 00 c0 5c 5c 5c 5c 82 00 | 01 0b 62 88 8a d3 d4 21 |..\\\\..|..b....!|
|00001650| 83 ba 00 d5 ca 21 88 82 | bd 00 d6 75 88 d7 c1 77 |.....!..|...u...w|
|00001660| 88 d3 d8 21 83 cd 00 d6 | 79 88 82 bd 00 60 0e 06 |...!....|y....`..|
|00001670| 57 85 d5 00 69 29 86 00 | 01 6e 83 ec 00 0e 19 c0 |W...i)..|.n......|
|00001680| 55 83 ec 00 0e 1a 0e 0f | 5c 5c 82 ee 00 0e 19 d1 |U.......|\\......|
|00001690| c1 78 88 6e 83 fa 00 c0 | 82 fc 00 0e 1b dc 20 5c |.x.n....|...... \|
|000016a0| 5c 5c 5c 2e 06 87 22 20 | 5b 30 20 6e 69 6c 20 74 |\\\..." |[0 nil t|
|000016b0| 6f 70 6c 65 76 65 6c 20 | 63 6f 6e 74 61 69 6e 69 |oplevel |containi|
|000016c0| 6e 67 2d 73 65 78 70 20 | 73 74 61 74 65 20 63 61 |ng-sexp |state ca|
|000016d0| 73 65 2d 66 6f 6c 64 2d | 73 65 61 72 63 68 20 69 |se-fold-|search i|
|000016e0| 6e 64 65 6e 74 2d 70 6f | 69 6e 74 20 70 61 72 73 |ndent-po|int pars|
|000016f0| 65 2d 73 74 61 72 74 20 | 62 65 67 69 6e 6e 69 6e |e-start |beginnin|
|00001700| 67 2d 6f 66 2d 69 63 6f | 6e 2d 64 65 66 75 6e 20 |g-of-ico|n-defun |
|00001710| 70 61 72 73 65 2d 70 61 | 72 74 69 61 6c 2d 73 65 |parse-pa|rtial-se|
|00001720| 78 70 20 33 20 34 20 31 | 32 33 20 69 63 6f 6e 2d |xp 3 4 1|23 icon-|
|00001730| 62 61 63 6b 77 61 72 64 | 2d 74 6f 2d 6e 6f 6e 63 |backward|-to-nonc|
|00001740| 6f 6d 6d 65 6e 74 20 69 | 63 6f 6e 2d 69 73 2d 63 |omment i|con-is-c|
|00001750| 6f 6e 74 69 6e 75 61 74 | 69 6f 6e 2d 6c 69 6e 65 |ontinuat|ion-line|
|00001760| 20 69 63 6f 6e 2d 63 6f | 6e 74 69 6e 75 65 64 2d | icon-co|ntinued-|
|00001770| 73 74 61 74 65 6d 65 6e | 74 2d 6f 66 66 73 65 74 |statemen|t-offset|
|00001780| 20 69 63 6f 6e 2d 62 61 | 63 6b 77 61 72 64 2d 74 | icon-ba|ckward-t|
|00001790| 6f 2d 73 74 61 72 74 2d | 6f 66 2d 63 6f 6e 74 69 |o-start-|of-conti|
|000017a0| 6e 75 65 64 2d 65 78 70 | 20 22 20 09 22 20 69 63 |nued-exp| " ." ic|
|000017b0| 6f 6e 2d 63 6f 6e 74 69 | 6e 75 65 64 2d 62 72 61 |on-conti|nued-bra|
|000017c0| 63 65 2d 6f 66 66 73 65 | 74 20 6c 6f 6f 6b 69 6e |ce-offse|t lookin|
|000017d0| 67 2d 61 74 20 22 70 72 | 6f 63 65 64 75 72 65 5c |g-at "pr|ocedure\|
|000017e0| 5c 73 20 22 20 66 6f 72 | 77 61 72 64 2d 73 65 78 |\s " for|ward-sex|
|000017f0| 70 20 31 20 22 20 09 5c | 6e 22 20 22 23 22 20 69 |p 1 " .\|n" "#" i|
|00001800| 63 6f 6e 2d 69 6e 64 65 | 6e 74 2d 6c 65 76 65 6c |con-inde|nt-level|
|00001810| 20 69 63 6f 6e 2d 62 72 | 61 63 65 2d 6f 66 66 73 | icon-br|ace-offs|
|00001820| 65 74 20 69 63 6f 6e 2d | 62 72 61 63 65 2d 69 6d |et icon-|brace-im|
|00001830| 61 67 69 6e 61 72 79 2d | 6f 66 66 73 65 74 20 63 |aginary-|offset c|
|00001840| 75 72 72 65 6e 74 2d 69 | 6e 64 65 6e 74 61 74 69 |urrent-i|ndentati|
|00001850| 6f 6e 5d 20 36 20 22 5c | 0a 52 65 74 75 72 6e 20 |on] 6 "\|.Return |
|00001860| 61 70 70 72 6f 70 72 69 | 61 74 65 20 69 6e 64 65 |appropri|ate inde|
|00001870| 6e 74 61 74 69 6f 6e 20 | 66 6f 72 20 63 75 72 72 |ntation |for curr|
|00001880| 65 6e 74 20 6c 69 6e 65 | 20 61 73 20 49 63 6f 6e |ent line| as Icon|
|00001890| 20 63 6f 64 65 2e 0a 49 | 6e 20 75 73 75 61 6c 20 | code..I|n usual |
|000018a0| 63 61 73 65 20 72 65 74 | 75 72 6e 73 20 61 6e 20 |case ret|urns an |
|000018b0| 69 6e 74 65 67 65 72 3a | 20 74 68 65 20 63 6f 6c |integer:| the col|
|000018c0| 75 6d 6e 20 74 6f 20 69 | 6e 64 65 6e 74 20 74 6f |umn to i|ndent to|
|000018d0| 2e 0a 52 65 74 75 72 6e | 73 20 6e 69 6c 20 69 66 |..Return|s nil if|
|000018e0| 20 6c 69 6e 65 20 73 74 | 61 72 74 73 20 69 6e 73 | line st|arts ins|
|000018f0| 69 64 65 20 61 20 73 74 | 72 69 6e 67 2c 20 74 20 |ide a st|ring, t |
|00001900| 69 66 20 69 6e 20 61 20 | 63 6f 6d 6d 65 6e 74 2e |if in a |comment.|
|00001910| 22 5d 29 0a 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |"]).(byt|e-code "|
|00001920| c0 11 c2 c3 c4 5c 22 88 | c2 c5 c6 5c 22 88 c2 c7 |.....\".|...\"...|
|00001930| c8 5c 22 88 c2 c9 ca 5c | 22 87 22 20 5b 28 28 22 |.\"....\|"." [(("|
|00001940| 62 79 22 20 2e 20 74 29 | 20 28 22 63 61 73 65 22 |by" . t)| ("case"|
|00001950| 20 2e 20 74 29 20 28 22 | 63 72 65 61 74 65 22 29 | . t) ("|create")|
|00001960| 20 28 22 64 6f 22 29 20 | 28 22 64 79 6e 61 6d 69 | ("do") |("dynami|
|00001970| 63 22 20 2e 20 74 29 20 | 28 22 65 6c 73 65 22 29 |c" . t) |("else")|
|00001980| 20 28 22 65 76 65 72 79 | 22 20 2e 20 74 29 20 28 | ("every|" . t) (|
|00001990| 22 69 66 22 20 2e 20 74 | 29 20 28 22 67 6c 6f 62 |"if" . t|) ("glob|
|000019a0| 61 6c 22 20 2e 20 74 29 | 20 28 22 69 6e 69 74 69 |al" . t)| ("initi|
|000019b0| 61 6c 22 20 2e 20 74 29 | 20 28 22 6c 69 6e 6b 22 |al" . t)| ("link"|
|000019c0| 20 2e 20 74 29 20 28 22 | 6c 6f 63 61 6c 22 20 2e | . t) ("|local" .|
|000019d0| 20 74 29 20 28 22 6f 66 | 22 29 20 28 22 72 65 63 | t) ("of|") ("rec|
|000019e0| 6f 72 64 22 20 2e 20 74 | 29 20 28 22 72 65 70 65 |ord" . t|) ("repe|
|000019f0| 61 74 22 20 2e 20 74 29 | 20 28 22 73 74 61 74 69 |at" . t)| ("stati|
|00001a00| 63 22 20 2e 20 74 29 20 | 28 22 74 68 65 6e 22 29 |c" . t) |("then")|
|00001a10| 20 28 22 74 6f 22 20 2e | 20 74 29 20 28 22 75 6e | ("to" .| t) ("un|
|00001a20| 74 69 6c 22 20 2e 20 74 | 29 20 28 22 77 68 69 6c |til" . t|) ("whil|
|00001a30| 65 22 20 2e 20 74 29 29 | 20 69 63 6f 6e 2d 72 65 |e" . t))| icon-re|
|00001a40| 73 77 6f 72 64 2d 61 6c | 69 73 74 20 64 65 66 61 |sword-al|ist defa|
|00001a50| 6c 69 61 73 20 69 63 6f | 6e 2d 69 73 2d 63 6f 6e |lias ico|n-is-con|
|00001a60| 74 69 6e 75 61 74 69 6f | 6e 2d 6c 69 6e 65 20 23 |tinuatio|n-line #|
|00001a70| 5b 6e 69 6c 20 22 68 89 | 18 7a 89 19 c2 3d 83 1b |[nil "h.|.z...=..|
|00001a80| 00 c3 c4 76 88 60 c5 76 | 88 60 7b 0e 06 5c 22 82 |...v.`.v|.`{..\".|
|00001a90| 1f 00 08 c7 3e 3f 2a 87 | 22 20 5b 63 68 20 63 68 |....>?*.|" [ch ch|
|00001aa0| 2d 73 79 6e 74 61 78 20 | 31 31 39 20 61 73 73 6f |-syntax |119 asso|
|00001ab0| 63 20 2d 31 20 31 20 69 | 63 6f 6e 2d 72 65 73 77 |c -1 1 i|con-resw|
|00001ac0| 6f 72 64 2d 61 6c 69 73 | 74 20 28 30 20 35 39 20 |ord-alis|t (0 59 |
|00001ad0| 31 32 35 20 31 32 33 20 | 34 31 20 39 33 20 33 34 |125 123 |41 93 34|
|00001ae0| 20 33 39 20 31 30 29 5d | 20 34 5d 20 69 63 6f 6e | 39 10)]| 4] icon|
|00001af0| 2d 62 61 63 6b 77 61 72 | 64 2d 74 6f 2d 6e 6f 6e |-backwar|d-to-non|
|00001b00| 63 6f 6d 6d 65 6e 74 20 | 23 5b 28 6c 69 6d 29 20 |comment |#[(lim) |
|00001b10| 22 c0 89 19 1a 09 3f 85 | 2e 00 c3 0c 78 88 60 12 |".....?.|....x.`.|
|00001b20| c5 79 88 c6 c7 60 5c 6e | 5c 22 38 83 28 00 0c 60 |.y...`\n|\"8.(..`|
|00001b30| 57 83 28 00 c8 c9 21 88 | 82 04 00 ca 89 11 82 05 |W.(...!.|........|
|00001b40| 00 2a 87 22 20 5b 6e 69 | 6c 20 73 74 6f 70 20 6f |.*." [ni|l stop o|
|00001b50| 70 6f 69 6e 74 20 22 20 | 09 5c 6e 0c 22 20 6c 69 |point " |.\n." li|
|00001b60| 6d 20 30 20 35 20 70 61 | 72 73 65 2d 70 61 72 74 |m 0 5 pa|rse-part|
|00001b70| 69 61 6c 2d 73 65 78 70 | 20 73 65 61 72 63 68 2d |ial-sexp| search-|
|00001b80| 62 61 63 6b 77 61 72 64 | 20 22 23 22 20 74 5d 20 |backward| "#" t] |
|00001b90| 35 5d 20 69 63 6f 6e 2d | 62 61 63 6b 77 61 72 64 |5] icon-|backward|
|00001ba0| 2d 74 6f 2d 73 74 61 72 | 74 2d 6f 66 2d 63 6f 6e |-to-star|t-of-con|
|00001bb0| 74 69 6e 75 65 64 2d 65 | 78 70 20 23 5b 28 6c 69 |tinued-e|xp #[(li|
|00001bc0| 6d 29 20 22 68 c0 3e 83 | 5c 6e 00 c1 c2 21 88 c3 |m) "h.>.|\n...!..|
|00001bd0| 79 88 c4 c5 77 88 60 0e | 06 58 83 1d 00 0e 06 54 |y...w.`.|.X.....T|
|00001be0| 62 87 c7 20 84 24 00 c3 | 87 67 7a c8 3d 83 3d 00 |b.. .$..|.gz.=.=.|
|00001bf0| c9 60 8a ca 76 88 60 29 | 7b 0e 0b 5c 22 41 83 3d |.`..v.`)|{..\"A.=|
|00001c00| 00 c3 87 c3 7f 88 cc 0e | 06 21 87 22 20 5b 28 34 |........|.!." [(4|
|00001c10| 31 20 39 33 29 20 66 6f | 72 77 61 72 64 2d 73 65 |1 93) fo|rward-se|
|00001c20| 78 70 20 2d 31 20 30 20 | 22 20 09 22 20 6e 69 6c |xp -1 0 |" ." nil|
|00001c30| 20 6c 69 6d 20 69 63 6f | 6e 2d 69 73 2d 63 6f 6e | lim ico|n-is-con|
|00001c40| 74 69 6e 75 65 64 2d 6c | 69 6e 65 20 31 31 39 20 |tinued-l|ine 119 |
|00001c50| 61 73 73 6f 63 20 31 20 | 69 63 6f 6e 2d 72 65 73 |assoc 1 |icon-res|
|00001c60| 77 6f 72 64 2d 61 6c 69 | 73 74 20 69 63 6f 6e 2d |word-ali|st icon-|
|00001c70| 62 61 63 6b 77 61 72 64 | 2d 74 6f 2d 73 74 61 72 |backward|-to-star|
|00001c80| 74 2d 6f 66 2d 63 6f 6e | 74 69 6e 75 65 64 2d 65 |t-of-con|tinued-e|
|00001c90| 78 70 5d 20 33 5d 20 69 | 63 6f 6e 2d 69 73 2d 63 |xp] 3] i|con-is-c|
|00001ca0| 6f 6e 74 69 6e 75 65 64 | 2d 6c 69 6e 65 20 23 5b |ontinued|-line #[|
|00001cb0| 6e 69 6c 20 22 8a c0 7f | 88 c1 20 29 87 22 20 5b |nil "...|.. )." [|
|00001cc0| 30 20 69 63 6f 6e 2d 69 | 73 2d 63 6f 6e 74 69 6e |0 icon-i|s-contin|
|00001cd0| 75 61 74 69 6f 6e 2d 6c | 69 6e 65 5d 20 31 5d 5d |uation-l|ine] 1]]|
|00001ce0| 20 33 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 69 | 3).(def|alias 'i|
|00001cf0| 63 6f 6e 2d 62 61 63 6b | 77 61 72 64 2d 74 6f 2d |con-back|ward-to-|
|00001d00| 73 74 61 72 74 2d 6f 66 | 2d 69 66 20 23 5b 28 26 |start-of|-if #[(&|
|00001d10| 6f 70 74 69 6f 6e 61 6c | 20 6c 69 6d 69 74 29 20 |optional| limit) |
|00001d20| 22 08 84 0b 00 8a c1 20 | 88 60 29 10 c2 c3 1c 1d |"...... |.`).....|
|00001d30| 0d c6 55 3f 85 42 00 c7 | c2 21 88 c8 c9 21 83 27 |..U?.B..|.!...!.'|
|00001d40| 00 0d 54 89 15 82 10 00 | c8 ca 21 83 34 00 0d 53 |..T.....|..!.4..S|
|00001d50| 89 15 82 10 00 60 08 57 | 83 0f 00 c6 15 08 62 88 |.....`.W|......b.|
|00001d60| 82 0f 00 2a 87 22 20 5b | 6c 69 6d 69 74 20 62 65 |...*." [|limit be|
|00001d70| 67 69 6e 6e 69 6e 67 2d | 6f 66 2d 69 63 6f 6e 2d |ginning-|of-icon-|
|00001d80| 64 65 66 75 6e 20 31 20 | 6e 69 6c 20 63 61 73 65 |defun 1 |nil case|
|00001d90| 2d 66 6f 6c 64 2d 73 65 | 61 72 63 68 20 69 66 2d |-fold-se|arch if-|
|00001da0| 6c 65 76 65 6c 20 30 20 | 62 61 63 6b 77 61 72 64 |level 0 |backward|
|00001db0| 2d 73 65 78 70 20 6c 6f | 6f 6b 69 6e 67 2d 61 74 |-sexp lo|oking-at|
|00001dc0| 20 22 65 6c 73 65 5c 5c | 62 22 20 22 69 66 5c 5c | "else\\|b" "if\\|
|00001dd0| 62 22 5d 20 33 20 22 5c | 0a 4d 6f 76 65 20 74 6f |b"] 3 "\|.Move to|
|00001de0| 20 74 68 65 20 73 74 61 | 72 74 20 6f 66 20 74 68 | the sta|rt of th|
|00001df0| 65 20 6c 61 73 74 20 5c | 22 75 6e 62 61 6c 61 6e |e last \|"unbalan|
|00001e00| 63 65 64 5c 22 20 69 66 | 2e 22 5d 29 0a 28 64 65 |ced\" if|."]).(de|
|00001e10| 66 61 6c 69 61 73 20 27 | 6d 61 72 6b 2d 69 63 6f |falias '|mark-ico|
|00001e20| 6e 2d 66 75 6e 63 74 69 | 6f 6e 20 23 5b 6e 69 6c |n-functi|on #[nil|
|00001e30| 20 22 c0 60 21 88 c1 20 | 88 c0 60 21 88 c2 79 88 | ".`!.. |..`!..y.|
|00001e40| c3 20 87 22 20 5b 70 75 | 73 68 2d 6d 61 72 6b 20 |. ." [pu|sh-mark |
|00001e50| 65 6e 64 2d 6f 66 2d 69 | 63 6f 6e 2d 64 65 66 75 |end-of-i|con-defu|
|00001e60| 6e 20 2d 31 20 62 65 67 | 69 6e 6e 69 6e 67 2d 6f |n -1 beg|inning-o|
|00001e70| 66 2d 69 63 6f 6e 2d 64 | 65 66 75 6e 5d 20 32 20 |f-icon-d|efun] 2 |
|00001e80| 22 5c 0a 50 75 74 20 6d | 61 72 6b 20 61 74 20 65 |"\.Put m|ark at e|
|00001e90| 6e 64 20 6f 66 20 49 63 | 6f 6e 20 66 75 6e 63 74 |nd of Ic|on funct|
|00001ea0| 69 6f 6e 2c 20 70 6f 69 | 6e 74 20 61 74 20 62 65 |ion, poi|nt at be|
|00001eb0| 67 69 6e 6e 69 6e 67 2e | 22 20 6e 69 6c 5d 29 0a |ginning.|" nil]).|
|00001ec0| 28 64 65 66 61 6c 69 61 | 73 20 27 62 65 67 69 6e |(defalia|s 'begin|
|00001ed0| 6e 69 6e 67 2d 6f 66 2d | 69 63 6f 6e 2d 64 65 66 |ning-of-|icon-def|
|00001ee0| 75 6e 20 23 5b 6e 69 6c | 20 22 c0 c1 65 c2 23 83 |un #[nil| "..e.#.|
|00001ef0| 0c 00 c3 c4 21 87 c5 87 | 22 20 5b 72 65 2d 73 65 |....!...|" [re-se|
|00001f00| 61 72 63 68 2d 62 61 63 | 6b 77 61 72 64 20 22 5e |arch-bac|kward "^|
|00001f10| 70 72 6f 63 65 64 75 72 | 65 5c 5c 73 20 5c 5c 7c |procedur|e\\s \\||
|00001f20| 5e 65 6e 64 5b 20 09 5c | 6e 5d 22 20 6d 6f 76 65 |^end[ .\|n]" move|
|00001f30| 20 6c 6f 6f 6b 69 6e 67 | 2d 61 74 20 22 65 22 20 | looking|-at "e" |
|00001f40| 74 5d 20 34 20 22 5c 0a | 47 6f 20 74 6f 20 74 68 |t] 4 "\.|Go to th|
|00001f50| 65 20 73 74 61 72 74 20 | 6f 66 20 74 68 65 20 65 |e start |of the e|
|00001f60| 6e 63 6c 6f 73 69 6e 67 | 20 70 72 6f 63 65 64 75 |nclosing| procedu|
|00001f70| 72 65 3b 20 72 65 74 75 | 72 6e 20 74 20 69 66 20 |re; retu|rn t if |
|00001f80| 61 74 20 74 6f 70 20 6c | 65 76 65 6c 2e 22 20 6e |at top l|evel." n|
|00001f90| 69 6c 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 28 |il]).(de|falias (|
|00001fa0| 71 75 6f 74 65 20 65 6e | 64 2d 6f 66 2d 69 63 6f |quote en|d-of-ico|
|00001fb0| 6e 2d 64 65 66 75 6e 29 | 20 23 5b 6e 69 6c 20 22 |n-defun)| #[nil "|
|00001fc0| 6f 84 07 00 c0 75 88 c1 | c2 64 c3 23 88 c0 76 88 |o....u..|.d.#..v.|
|00001fd0| c4 79 87 22 20 5b 2d 31 | 20 72 65 2d 73 65 61 72 |.y." [-1| re-sear|
|00001fe0| 63 68 2d 66 6f 72 77 61 | 72 64 20 22 5c 5c 28 5c |ch-forwa|rd "\\(\|
|00001ff0| 5c 73 20 5c 5c 7c 5e 5c | 5c 29 65 6e 64 5c 5c 28 |\s \\|^\|\)end\\(|
|00002000| 5c 5c 73 20 5c 5c 7c 24 | 5c 5c 29 22 20 6d 6f 76 |\\s \\|$|\\)" mov|
|00002010| 65 20 31 5d 20 34 20 6e | 69 6c 20 6e 69 6c 5d 29 |e 1] 4 n|il nil])|
|00002020| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 69 6e 64 65 |.(defali|as 'inde|
|00002030| 6e 74 2d 69 63 6f 6e 2d | 65 78 70 20 23 5b 6e 69 |nt-icon-|exp #[ni|
|00002040| 6c 20 22 c0 43 60 43 c0 | 89 89 89 89 89 89 89 89 |l ".C`C.|........|
|00002050| 89 89 60 c1 1a 1b 1c 1d | 1e 06 1e 07 1e 08 1e 09 |..`.....|........|
|00002060| 1e 5c 6e 1e 0b 1e 0c 1e | 0d 1e 0e 1e 0f 1e 10 8a |.\n.....|........|
|00002070| d1 d2 21 88 29 8a c0 16 | 0c 6d 3f 85 df 01 0e 0c |..!.)...|.m?.....|
|00002080| 3f 85 df 01 5c 6e 16 13 | c0 16 14 0e 14 84 a1 00 |?...\n..|........|
|00002090| 6d 83 56 00 d5 89 16 0c | 84 a1 00 0e 5c 6e 16 09 |m.V.....|....\n..|
|000020a0| d6 60 c0 7f 88 60 c0 89 | 0e 5c 6e 25 89 16 5c 6e |.`...`..|.\n%..\n|
|000020b0| 40 12 0e 5c 6e 41 41 40 | 83 83 00 0e 5c 6e 41 41 |@..\nAA@|....\nAA|
|000020c0| 40 c1 59 83 83 00 0e 5c | 6e 41 41 40 16 07 d7 0e |@.Y....\|nAA@....|
|000020d0| 09 38 83 8d 00 d8 20 88 | d9 0e 5c 6e 38 83 9a 00 |.8.... .|..\n8...|
|000020e0| d2 79 88 82 46 00 d5 89 | 16 14 83 4b 00 5c 6e c1 |.y..F...|...K.\n.|
|000020f0| 58 83 aa 00 d5 16 0c 0e | 0c 84 35 00 0e 13 5c 6e |X.......|..5...\n|
|00002100| 55 84 b9 00 c0 16 07 0e | 13 5c 6e 56 83 d3 00 0e |U.......|.\nV....|
|00002110| 10 41 16 10 0e 0f 41 16 | 0f 0e 13 53 89 16 13 82 |.A....A.|...S....|
|00002120| bb 00 0e 13 5c 6e 57 83 | ef 00 c0 0e 10 42 16 10 |....\nW.|.....B..|
|00002130| c0 0e 0f 42 16 0f 0e 13 | 54 89 16 13 82 d5 00 0e |...B....|T.......|
|00002140| 0f 40 84 07 01 0e 0f 0e | 5c 6e 41 40 86 05 01 8a |.@......|\nA@....|
|00002150| d1 da 21 88 60 29 a0 88 | d2 79 88 db c0 77 88 6c |..!.`)..|.y...w.l|
|00002160| 84 35 00 0e 10 40 83 77 | 01 0e 10 40 c1 59 83 77 |.5...@.w|...@.Y.w|
|00002170| 01 0e 0f 40 66 dc 55 84 | 31 01 0e 10 40 16 08 82 |...@f.U.|1...@...|
|00002180| 8f 01 8a dd de 21 16 06 | 67 dc 55 15 df 0b 21 88 |.....!..|g.U...!.|
|00002190| e0 20 83 5e 01 e1 0e 0f | 40 21 88 0e 5c 22 69 0d |. .^....|@!..\"i.|
|000021a0| 83 56 01 0e 23 82 57 01 | c1 5c 5c 5c 5c 16 08 82 |.V..#.W.|.\\\\...|
|000021b0| 73 01 0e 06 83 6e 01 e4 | 0b 21 88 e5 20 16 08 82 |s....n..|.!.. ...|
|000021c0| 73 01 0e 10 40 16 08 29 | 82 8f 01 e6 0e 10 40 85 |s...@..)|......@.|
|000021d0| 82 01 0e 10 40 5b 21 1e | 27 0e 10 0e 27 89 16 08 |....@[!.|'...'...|
|000021e0| a0 88 29 67 e8 55 84 9b | 01 dd e9 21 83 a2 01 0e |..)g.U..|...!....|
|000021f0| 08 0e 2a 5a 16 08 67 dc | 55 83 af 01 0e 08 0e 2b |..*Z..g.|U......+|
|00002200| 5c 5c 16 08 69 0e 08 55 | 84 c1 01 60 c1 79 88 60 |\\..i..U|...`.y.`|
|00002210| 7c 88 0e 08 6a 88 dd 0e | 2c 21 84 35 00 ed 0e 2c ||...j...|,!.5...,|
|00002220| 8a c0 7f 88 60 29 d5 23 | 83 35 00 ee 20 88 c1 79 |....`).#|.5.. ..y|
|00002230| 88 82 35 00 2e 10 87 22 | 20 5b 6e 69 6c 20 30 20 |..5...."| [nil 0 |
|00002240| 6e 65 78 74 2d 64 65 70 | 74 68 20 6f 70 6f 69 6e |next-dep|th opoin|
|00002250| 74 20 61 74 2d 64 6f 20 | 61 74 2d 62 72 61 63 65 |t at-do |at-brace|
|00002260| 20 61 74 2d 65 6c 73 65 | 20 6c 61 73 74 2d 73 65 | at-else| last-se|
|00002270| 78 70 20 74 68 69 73 2d | 69 6e 64 65 6e 74 20 6f |xp this-|indent o|
|00002280| 73 74 61 74 65 20 73 74 | 61 74 65 20 69 6e 6e 65 |state st|ate inne|
|00002290| 72 2d 6c 6f 6f 70 2d 64 | 6f 6e 65 20 6f 75 74 65 |r-loop-d|one oute|
|000022a0| 72 2d 6c 6f 6f 70 2d 64 | 6f 6e 65 20 72 65 73 74 |r-loop-d|one rest|
|000022b0| 61 72 74 20 63 61 73 65 | 2d 66 6f 6c 64 2d 73 65 |art case|-fold-se|
|000022c0| 61 72 63 68 20 63 6f 6e | 74 61 69 6e 2d 73 74 61 |arch con|tain-sta|
|000022d0| 63 6b 20 69 6e 64 65 6e | 74 2d 73 74 61 63 6b 20 |ck inden|t-stack |
|000022e0| 66 6f 72 77 61 72 64 2d | 73 65 78 70 20 31 20 6c |forward-|sexp 1 l|
|000022f0| 61 73 74 2d 64 65 70 74 | 68 20 69 6e 6e 65 72 6c |ast-dept|h innerl|
|00002300| 6f 6f 70 2d 64 6f 6e 65 | 20 74 20 70 61 72 73 65 |oop-done| t parse|
|00002310| 2d 70 61 72 74 69 61 6c | 2d 73 65 78 70 20 34 20 |-partial|-sexp 4 |
|00002320| 69 63 6f 6e 2d 69 6e 64 | 65 6e 74 2d 6c 69 6e 65 |icon-ind|ent-line|
|00002330| 20 33 20 2d 31 20 22 20 | 09 22 20 31 32 33 20 6c | 3 -1 " |." 123 l|
|00002340| 6f 6f 6b 69 6e 67 2d 61 | 74 20 22 65 6c 73 65 5c |ooking-a|t "else\|
|00002350| 5c 57 22 20 69 63 6f 6e | 2d 62 61 63 6b 77 61 72 |\W" icon|-backwar|
|00002360| 64 2d 74 6f 2d 6e 6f 6e | 63 6f 6d 6d 65 6e 74 20 |d-to-non|comment |
|00002370| 69 63 6f 6e 2d 69 73 2d | 63 6f 6e 74 69 6e 75 61 |icon-is-|continua|
|00002380| 74 69 6f 6e 2d 6c 69 6e | 65 20 69 63 6f 6e 2d 62 |tion-lin|e icon-b|
|00002390| 61 63 6b 77 61 72 64 2d | 74 6f 2d 73 74 61 72 74 |ackward-|to-start|
|000023a0| 2d 6f 66 2d 63 6f 6e 74 | 69 6e 75 65 64 2d 65 78 |-of-cont|inued-ex|
|000023b0| 70 20 69 63 6f 6e 2d 63 | 6f 6e 74 69 6e 75 65 64 |p icon-c|ontinued|
|000023c0| 2d 73 74 61 74 65 6d 65 | 6e 74 2d 6f 66 66 73 65 |-stateme|nt-offse|
|000023d0| 74 20 69 63 6f 6e 2d 63 | 6f 6e 74 69 6e 75 65 64 |t icon-c|ontinued|
|000023e0| 2d 62 72 61 63 65 2d 6f | 66 66 73 65 74 20 69 63 |-brace-o|ffset ic|
|000023f0| 6f 6e 2d 62 61 63 6b 77 | 61 72 64 2d 74 6f 2d 73 |on-backw|ard-to-s|
|00002400| 74 61 72 74 2d 6f 66 2d | 69 66 20 63 75 72 72 65 |tart-of-|if curre|
|00002410| 6e 74 2d 69 6e 64 65 6e | 74 61 74 69 6f 6e 20 63 |nt-inden|tation c|
|00002420| 61 6c 63 75 6c 61 74 65 | 2d 69 63 6f 6e 2d 69 6e |alculate|-icon-in|
|00002430| 64 65 6e 74 20 76 61 6c | 20 31 32 35 20 22 65 6e |dent val| 125 "en|
|00002440| 64 5c 5c 62 22 20 69 63 | 6f 6e 2d 69 6e 64 65 6e |d\\b" ic|on-inden|
|00002450| 74 2d 6c 65 76 65 6c 20 | 69 63 6f 6e 2d 62 72 61 |t-level |icon-bra|
|00002460| 63 65 2d 6f 66 66 73 65 | 74 20 63 6f 6d 6d 65 6e |ce-offse|t commen|
|00002470| 74 2d 73 74 61 72 74 2d | 73 6b 69 70 20 72 65 2d |t-start-|skip re-|
|00002480| 73 65 61 72 63 68 2d 66 | 6f 72 77 61 72 64 20 69 |search-f|orward i|
|00002490| 6e 64 65 6e 74 2d 66 6f | 72 2d 63 6f 6d 6d 65 6e |ndent-fo|r-commen|
|000024a0| 74 5d 20 31 36 20 22 5c | 0a 49 6e 64 65 6e 74 20 |t] 16 "\|.Indent |
|000024b0| 65 61 63 68 20 6c 69 6e | 65 20 6f 66 20 74 68 65 |each lin|e of the|
|000024c0| 20 49 63 6f 6e 20 67 72 | 6f 75 70 69 6e 67 20 66 | Icon gr|ouping f|
|000024d0| 6f 6c 6c 6f 77 69 6e 67 | 20 70 6f 69 6e 74 2e 22 |ollowing| point."|
|000024e0| 20 6e 69 6c 5d 29 0a    |                         | nil]). |        |
+--------+-------------------------+-------------------------+--------+--------+