home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1993-04-01 | 13.7 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 |
| 1%
| dexvert
| Combustion 2 Particle Library (other/combustion2ParticleLibrary)
| ext
| Unsupported |
| 100%
| file
| Emacs/XEmacs v19 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
| |
| 100%
| xdgMime
| text/x-emacs-lisp
| default (weak)
|
|
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 6a 77 7a 40 74 68 61 |piled by| jwz@tha|
|00000020| 6c 69 64 6f 6d 69 64 65 | 20 6f 6e 20 4d 6f 6e 20 |lidomide| on Mon |
|00000030| 46 65 62 20 20 31 20 31 | 38 3a 35 38 3a 30 39 20 |Feb 1 1|8:58:09 |
|00000040| 31 39 39 33 0a 3b 3b 3b | 20 66 72 6f 6d 20 66 69 |1993.;;;| from fi|
|00000050| 6c 65 20 2f 63 61 64 69 | 6c 6c 61 63 31 2f 63 6f |le /cadi|llac1/co|
|00000060| 64 65 2f 62 75 69 6c 64 | 2f 6c 65 6d 61 63 73 2f |de/build|/lemacs/|
|00000070| 6c 69 73 70 2f 6d 6f 64 | 65 73 2f 63 2d 6d 6f 64 |lisp/mod|es/c-mod|
|00000080| 65 2e 65 6c 0a 3b 3b 3b | 20 65 6d 61 63 73 20 76 |e.el.;;;| emacs v|
|00000090| 65 72 73 69 6f 6e 20 31 | 39 2e 34 2e 31 33 20 4c |ersion 1|9.4.13 L|
|000000a0| 75 63 69 64 2e 0a 3b 3b | 3b 20 62 79 74 65 63 6f |ucid..;;|; byteco|
|000000b0| 6d 70 20 76 65 72 73 69 | 6f 6e 20 32 2e 31 30 3b |mp versi|on 2.10;|
|000000c0| 20 20 31 2d 66 65 62 2d | 39 33 2e 0a 3b 3b 3b 20 | 1-feb-|93..;;; |
|000000d0| 6f 70 74 69 6d 69 7a 61 | 74 69 6f 6e 20 69 73 20 |optimiza|tion is |
|000000e0| 6f 6e 2e 0a 3b 3b 3b 20 | 74 68 69 73 20 66 69 6c |on..;;; |this fil|
|000000f0| 65 20 75 73 65 73 20 6f | 70 63 6f 64 65 73 20 77 |e uses o|pcodes w|
|00000100| 68 69 63 68 20 64 6f 20 | 6e 6f 74 20 65 78 69 73 |hich do |not exis|
|00000110| 74 20 69 6e 20 45 6d 61 | 63 73 31 38 2e 0a 0a 28 |t in Ema|cs18...(|
|00000120| 69 66 20 28 61 6e 64 20 | 28 62 6f 75 6e 64 70 20 |if (and |(boundp |
|00000130| 27 65 6d 61 63 73 2d 76 | 65 72 73 69 6f 6e 29 0a |'emacs-v|ersion).|
|00000140| 09 20 28 6f 72 20 28 61 | 6e 64 20 28 62 6f 75 6e |. (or (a|nd (boun|
|00000150| 64 70 20 27 65 70 6f 63 | 68 3a 3a 76 65 72 73 69 |dp 'epoc|h::versi|
|00000160| 6f 6e 29 20 65 70 6f 63 | 68 3a 3a 76 65 72 73 69 |on) epoc|h::versi|
|00000170| 6f 6e 29 0a 09 20 20 20 | 20 20 28 73 74 72 69 6e |on).. | (strin|
|00000180| 67 2d 6c 65 73 73 70 20 | 65 6d 61 63 73 2d 76 65 |g-lessp |emacs-ve|
|00000190| 72 73 69 6f 6e 20 22 31 | 39 22 29 29 29 0a 20 20 |rsion "1|9"))). |
|000001a0| 20 20 28 65 72 72 6f 72 | 20 22 54 68 69 73 20 66 | (error| "This f|
|000001b0| 69 6c 65 20 77 61 73 20 | 63 6f 6d 70 69 6c 65 64 |ile was |compiled|
|000001c0| 20 66 6f 72 20 45 6d 61 | 63 73 31 39 2e 22 29 29 | for Ema|cs19."))|
|000001d0| 0a 0a 28 64 65 66 76 61 | 72 20 63 2d 6d 6f 64 65 |..(defva|r c-mode|
|000001e0| 2d 61 62 62 72 65 76 2d | 74 61 62 6c 65 20 6e 69 |-abbrev-|table ni|
|000001f0| 6c 20 22 5c 0a 41 62 62 | 72 65 76 20 74 61 62 6c |l "\.Abb|rev tabl|
|00000200| 65 20 69 6e 20 75 73 65 | 20 69 6e 20 43 2d 6d 6f |e in use| in C-mo|
|00000210| 64 65 20 62 75 66 66 65 | 72 73 2e 22 29 0a 28 64 |de buffe|rs.").(d|
|00000220| 65 66 69 6e 65 2d 61 62 | 62 72 65 76 2d 74 61 62 |efine-ab|brev-tab|
|00000230| 6c 65 20 27 63 2d 6d 6f | 64 65 2d 61 62 62 72 65 |le 'c-mo|de-abbre|
|00000240| 76 2d 74 61 62 6c 65 20 | 6e 69 6c 29 0a 28 64 65 |v-table |nil).(de|
|00000250| 66 76 61 72 20 63 2d 6d | 6f 64 65 2d 6d 61 70 20 |fvar c-m|ode-map |
|00000260| 6e 69 6c 20 22 5c 0a 4b | 65 79 6d 61 70 20 75 73 |nil "\.K|eymap us|
|00000270| 65 64 20 69 6e 20 43 20 | 6d 6f 64 65 2e 22 29 0a |ed in C |mode.").|
|00000280| 28 62 79 74 65 2d 63 6f | 64 65 20 22 08 ac 83 c1 |(byte-co|de "....|
|00000290| 20 10 c2 08 c3 c4 23 88 | c2 08 c5 c4 23 88 c2 08 | .....#.|....#...|
|000002a0| c6 c7 23 88 c2 08 c8 c9 | 23 88 c2 08 ca cb 23 88 |..#.....|#.....#.|
|000002b0| c2 08 cc cd 23 88 c2 08 | ce cf 23 88 c2 08 d0 d1 |....#...|..#.....|
|000002c0| 23 88 c2 08 d2 d3 23 88 | c2 08 d4 d5 23 88 c2 08 |#.....#.|....#...|
|000002d0| d6 d7 23 87 22 20 5b 63 | 2d 6d 6f 64 65 2d 6d 61 |..#." [c|-mode-ma|
|000002e0| 70 20 6d 61 6b 65 2d 73 | 70 61 72 73 65 2d 6b 65 |p make-s|parse-ke|
|000002f0| 79 6d 61 70 20 64 65 66 | 69 6e 65 2d 6b 65 79 20 |ymap def|ine-key |
|00000300| 22 7b 22 20 65 6c 65 63 | 74 72 69 63 2d 63 2d 62 |"{" elec|tric-c-b|
|00000310| 72 61 63 65 20 22 7d 22 | 20 22 3b 22 20 65 6c 65 |race "}"| ";" ele|
|00000320| 63 74 72 69 63 2d 63 2d | 73 65 6d 69 20 22 23 22 |ctric-c-|semi "#"|
|00000330| 20 65 6c 65 63 74 72 69 | 63 2d 63 2d 73 68 61 72 | electri|c-c-shar|
|00000340| 70 2d 73 69 67 6e 20 22 | 3a 22 20 65 6c 65 63 74 |p-sign "|:" elect|
|00000350| 72 69 63 2d 63 2d 74 65 | 72 6d 69 6e 61 74 6f 72 |ric-c-te|rminator|
|00000360| 20 22 1b 7b 22 20 63 2d | 69 6e 73 65 72 74 2d 62 | ".{" c-|insert-b|
|00000370| 72 61 63 65 73 20 22 1b | 08 22 20 6d 61 72 6b 2d |races ".|." mark-|
|00000380| 63 2d 66 75 6e 63 74 69 | 6f 6e 20 22 1b 11 22 20 |c-functi|on ".." |
|00000390| 69 6e 64 65 6e 74 2d 63 | 2d 65 78 70 20 22 1b 71 |indent-c|-exp ".q|
|000003a0| 22 20 63 2d 66 69 6c 6c | 2d 70 61 72 61 67 72 61 |" c-fill|-paragra|
|000003b0| 70 68 20 22 7f 22 20 62 | 61 63 6b 77 61 72 64 2d |ph "." b|ackward-|
|000003c0| 64 65 6c 65 74 65 2d 63 | 68 61 72 2d 75 6e 74 61 |delete-c|har-unta|
|000003d0| 62 69 66 79 20 22 09 22 | 20 63 2d 69 6e 64 65 6e |bify "."| c-inden|
|000003e0| 74 2d 63 6f 6d 6d 61 6e | 64 5d 20 34 29 0a 28 61 |t-comman|d] 4).(a|
|000003f0| 75 74 6f 6c 6f 61 64 20 | 27 63 2d 6d 61 63 72 6f |utoload |'c-macro|
|00000400| 2d 65 78 70 61 6e 64 20 | 22 63 6d 61 63 65 78 70 |-expand |"cmacexp|
|00000410| 22 20 22 5c 0a 44 69 73 | 70 6c 61 79 20 74 68 65 |" "\.Dis|play the|
|00000420| 20 72 65 73 75 6c 74 20 | 6f 66 20 65 78 70 61 6e | result |of expan|
|00000430| 64 69 6e 67 20 61 6c 6c | 20 43 20 6d 61 63 72 6f |ding all| C macro|
|00000440| 73 20 6f 63 63 75 72 72 | 69 6e 67 20 69 6e 20 74 |s occurr|ing in t|
|00000450| 68 65 20 72 65 67 69 6f | 6e 2e 0a 54 68 65 20 65 |he regio|n..The e|
|00000460| 78 70 61 6e 73 69 6f 6e | 20 69 73 20 65 6e 74 69 |xpansion| is enti|
|00000470| 72 65 6c 79 20 63 6f 72 | 72 65 63 74 20 62 65 63 |rely cor|rect bec|
|00000480| 61 75 73 65 20 69 74 20 | 75 73 65 73 20 74 68 65 |ause it |uses the|
|00000490| 20 43 20 70 72 65 70 72 | 6f 63 65 73 73 6f 72 2e | C prepr|ocessor.|
|000004a0| 22 20 74 29 0a 28 64 65 | 66 76 61 72 20 63 2d 6d |" t).(de|fvar c-m|
|000004b0| 6f 64 65 2d 73 79 6e 74 | 61 78 2d 74 61 62 6c 65 |ode-synt|ax-table|
|000004c0| 20 6e 69 6c 20 22 5c 0a | 53 79 6e 74 61 78 20 74 | nil "\.|Syntax t|
|000004d0| 61 62 6c 65 20 69 6e 20 | 75 73 65 20 69 6e 20 43 |able in |use in C|
|000004e0| 2d 6d 6f 64 65 20 62 75 | 66 66 65 72 73 2e 22 29 |-mode bu|ffers.")|
|000004f0| 0a 28 62 79 74 65 2d 63 | 6f 64 65 20 22 08 ac cb |.(byte-c|ode "...|
|00000500| c1 20 10 c2 c3 c4 08 23 | 88 c2 c5 c6 08 23 88 c2 |. .....#|.....#..|
|00000510| c7 c8 08 23 88 c2 c9 ca | 08 23 88 c2 cb ca 08 23 |...#....|.#.....#|
|00000520| 88 c2 cc ca 08 23 88 c2 | cd ca 08 23 88 c2 ce ca |.....#..|...#....|
|00000530| 08 23 88 c2 cf ca 08 23 | 88 c2 d0 ca 08 23 88 c2 |.#.....#|.....#..|
|00000540| d1 ca 08 23 88 c2 d2 d3 | 08 23 88 c1 87 22 20 5b |...#....|.#..." [|
|00000550| 63 2d 6d 6f 64 65 2d 73 | 79 6e 74 61 78 2d 74 61 |c-mode-s|yntax-ta|
|00000560| 62 6c 65 20 6d 61 6b 65 | 2d 73 79 6e 74 61 78 2d |ble make|-syntax-|
|00000570| 74 61 62 6c 65 20 6d 6f | 64 69 66 79 2d 73 79 6e |table mo|dify-syn|
|00000580| 74 61 78 2d 65 6e 74 72 | 79 20 39 32 20 22 5c 5c |tax-entr|y 92 "\\|
|00000590| 22 20 34 37 20 22 2e 20 | 31 34 22 20 34 32 20 22 |" 47 ". |14" 42 "|
|000005a0| 2e 20 32 33 22 20 34 33 | 20 22 2e 22 20 34 35 20 |. 23" 43| "." 45 |
|000005b0| 36 31 20 33 37 20 36 30 | 20 36 32 20 33 38 20 31 |61 37 60| 62 38 1|
|000005c0| 32 34 20 33 39 20 22 5c | 22 22 5d 20 34 29 0a 28 |24 39 "\|""] 4).(|
|000005d0| 64 65 66 63 6f 6e 73 74 | 20 63 2d 69 6e 64 65 6e |defconst| c-inden|
|000005e0| 74 2d 6c 65 76 65 6c 20 | 32 20 22 5c 0a 2a 49 6e |t-level |2 "\.*In|
|000005f0| 64 65 6e 74 61 74 69 6f | 6e 20 6f 66 20 43 20 73 |dentatio|n of C s|
|00000600| 74 61 74 65 6d 65 6e 74 | 73 20 77 69 74 68 20 72 |tatement|s with r|
|00000610| 65 73 70 65 63 74 20 74 | 6f 20 63 6f 6e 74 61 69 |espect t|o contai|
|00000620| 6e 69 6e 67 20 62 6c 6f | 63 6b 2e 22 29 0a 28 64 |ning blo|ck.").(d|
|00000630| 65 66 63 6f 6e 73 74 20 | 63 2d 62 72 61 63 65 2d |efconst |c-brace-|
|00000640| 69 6d 61 67 69 6e 61 72 | 79 2d 6f 66 66 73 65 74 |imaginar|y-offset|
|00000650| 20 30 20 22 5c 0a 2a 49 | 6d 61 67 69 6e 65 64 20 | 0 "\.*I|magined |
|00000660| 69 6e 64 65 6e 74 61 74 | 69 6f 6e 20 6f 66 20 61 |indentat|ion of a|
|00000670| 20 43 20 6f 70 65 6e 20 | 62 72 61 63 65 20 74 68 | C open |brace th|
|00000680| 61 74 20 61 63 74 75 61 | 6c 6c 79 20 66 6f 6c 6c |at actua|lly foll|
|00000690| 6f 77 73 20 61 20 73 74 | 61 74 65 6d 65 6e 74 2e |ows a st|atement.|
|000006a0| 22 29 0a 28 64 65 66 63 | 6f 6e 73 74 20 63 2d 62 |").(defc|onst c-b|
|000006b0| 72 61 63 65 2d 6f 66 66 | 73 65 74 20 30 20 22 5c |race-off|set 0 "\|
|000006c0| 0a 2a 45 78 74 72 61 20 | 69 6e 64 65 6e 74 61 74 |.*Extra |indentat|
|000006d0| 69 6f 6e 20 66 6f 72 20 | 62 72 61 63 65 73 2c 20 |ion for |braces, |
|000006e0| 63 6f 6d 70 61 72 65 64 | 20 77 69 74 68 20 6f 74 |compared| with ot|
|000006f0| 68 65 72 20 74 65 78 74 | 20 69 6e 20 73 61 6d 65 |her text| in same|
|00000700| 20 63 6f 6e 74 65 78 74 | 2e 22 29 0a 28 64 65 66 | context|.").(def|
|00000710| 63 6f 6e 73 74 20 63 2d | 61 72 67 64 65 63 6c 2d |const c-|argdecl-|
|00000720| 69 6e 64 65 6e 74 20 35 | 20 22 5c 0a 2a 49 6e 64 |indent 5| "\.*Ind|
|00000730| 65 6e 74 61 74 69 6f 6e | 20 6c 65 76 65 6c 20 6f |entation| level o|
|00000740| 66 20 64 65 63 6c 61 72 | 61 74 69 6f 6e 73 20 6f |f declar|ations o|
|00000750| 66 20 43 20 66 75 6e 63 | 74 69 6f 6e 20 61 72 67 |f C func|tion arg|
|00000760| 75 6d 65 6e 74 73 2e 22 | 29 0a 28 64 65 66 63 6f |uments."|).(defco|
|00000770| 6e 73 74 20 63 2d 6c 61 | 62 65 6c 2d 6f 66 66 73 |nst c-la|bel-offs|
|00000780| 65 74 20 2d 32 20 22 5c | 0a 2a 4f 66 66 73 65 74 |et -2 "\|.*Offset|
|00000790| 20 6f 66 20 43 20 6c 61 | 62 65 6c 20 6c 69 6e 65 | of C la|bel line|
|000007a0| 73 20 61 6e 64 20 63 61 | 73 65 20 73 74 61 74 65 |s and ca|se state|
|000007b0| 6d 65 6e 74 73 20 72 65 | 6c 61 74 69 76 65 20 74 |ments re|lative t|
|000007c0| 6f 20 75 73 75 61 6c 20 | 69 6e 64 65 6e 74 61 74 |o usual |indentat|
|000007d0| 69 6f 6e 2e 22 29 0a 28 | 64 65 66 63 6f 6e 73 74 |ion.").(|defconst|
|000007e0| 20 63 2d 63 6f 6e 74 69 | 6e 75 65 64 2d 73 74 61 | c-conti|nued-sta|
|000007f0| 74 65 6d 65 6e 74 2d 6f | 66 66 73 65 74 20 32 20 |tement-o|ffset 2 |
|00000800| 22 5c 0a 2a 45 78 74 72 | 61 20 69 6e 64 65 6e 74 |"\.*Extr|a indent|
|00000810| 20 66 6f 72 20 6c 69 6e | 65 73 20 6e 6f 74 20 73 | for lin|es not s|
|00000820| 74 61 72 74 69 6e 67 20 | 6e 65 77 20 73 74 61 74 |tarting |new stat|
|00000830| 65 6d 65 6e 74 73 2e 22 | 29 0a 28 64 65 66 63 6f |ements."|).(defco|
|00000840| 6e 73 74 20 63 2d 63 6f | 6e 74 69 6e 75 65 64 2d |nst c-co|ntinued-|
|00000850| 62 72 61 63 65 2d 6f 66 | 66 73 65 74 20 30 20 22 |brace-of|fset 0 "|
|00000860| 5c 0a 2a 45 78 74 72 61 | 20 69 6e 64 65 6e 74 20 |\.*Extra| indent |
|00000870| 66 6f 72 20 73 75 62 73 | 74 61 74 65 6d 65 6e 74 |for subs|tatement|
|00000880| 73 20 74 68 61 74 20 73 | 74 61 72 74 20 77 69 74 |s that s|tart wit|
|00000890| 68 20 6f 70 65 6e 2d 62 | 72 61 63 65 73 2e 0a 54 |h open-b|races..T|
|000008a0| 68 69 73 20 69 73 20 69 | 6e 20 61 64 64 69 74 69 |his is i|n additi|
|000008b0| 6f 6e 20 74 6f 20 63 2d | 63 6f 6e 74 69 6e 75 65 |on to c-|continue|
|000008c0| 64 2d 73 74 61 74 65 6d | 65 6e 74 2d 6f 66 66 73 |d-statem|ent-offs|
|000008d0| 65 74 2e 22 29 0a 28 64 | 65 66 63 6f 6e 73 74 20 |et.").(d|efconst |
|000008e0| 63 2d 61 75 74 6f 2d 6e | 65 77 6c 69 6e 65 20 6e |c-auto-n|ewline n|
|000008f0| 69 6c 20 22 5c 0a 2a 4e | 6f 6e 2d 6e 69 6c 20 6d |il "\.*N|on-nil m|
|00000900| 65 61 6e 73 20 61 75 74 | 6f 6d 61 74 69 63 61 6c |eans aut|omatical|
|00000910| 6c 79 20 6e 65 77 6c 69 | 6e 65 20 62 65 66 6f 72 |ly newli|ne befor|
|00000920| 65 20 61 6e 64 20 61 66 | 74 65 72 20 62 72 61 63 |e and af|ter brac|
|00000930| 65 73 2c 0a 61 6e 64 20 | 61 66 74 65 72 20 63 6f |es,.and |after co|
|00000940| 6c 6f 6e 73 20 61 6e 64 | 20 73 65 6d 69 63 6f 6c |lons and| semicol|
|00000950| 6f 6e 73 2c 20 69 6e 73 | 65 72 74 65 64 20 69 6e |ons, ins|erted in|
|00000960| 20 43 20 63 6f 64 65 2e | 0a 49 66 20 79 6f 75 20 | C code.|.If you |
|00000970| 64 6f 20 6e 6f 74 20 77 | 61 6e 74 20 61 20 6c 65 |do not w|ant a le|
|00000980| 61 64 69 6e 67 20 6e 65 | 77 6c 69 6e 65 20 62 65 |ading ne|wline be|
|00000990| 66 6f 72 65 20 62 72 61 | 63 65 73 20 74 68 65 6e |fore bra|ces then|
|000009a0| 20 75 73 65 3a 0a 20 20 | 28 64 65 66 69 6e 65 2d | use:. |(define-|
|000009b0| 6b 65 79 20 63 2d 6d 6f | 64 65 2d 6d 61 70 20 5c |key c-mo|de-map \|
|000009c0| 22 7b 5c 22 20 27 65 6c | 65 63 74 72 69 63 2d 63 |"{\" 'el|ectric-c|
|000009d0| 2d 73 65 6d 69 29 22 29 | 0a 28 64 65 66 63 6f 6e |-semi)")|.(defcon|
|000009e0| 73 74 20 63 2d 74 61 62 | 2d 61 6c 77 61 79 73 2d |st c-tab|-always-|
|000009f0| 69 6e 64 65 6e 74 20 74 | 20 22 5c 0a 2a 4e 6f 6e |indent t| "\.*Non|
|00000a00| 2d 6e 69 6c 20 6d 65 61 | 6e 73 20 54 41 42 20 69 |-nil mea|ns TAB i|
|00000a10| 6e 20 43 20 6d 6f 64 65 | 20 73 68 6f 75 6c 64 20 |n C mode| should |
|00000a20| 61 6c 77 61 79 73 20 72 | 65 69 6e 64 65 6e 74 20 |always r|eindent |
|00000a30| 74 68 65 20 63 75 72 72 | 65 6e 74 20 6c 69 6e 65 |the curr|ent line|
|00000a40| 2c 0a 72 65 67 61 72 64 | 6c 65 73 73 20 6f 66 20 |,.regard|less of |
|00000a50| 77 68 65 72 65 20 69 6e | 20 74 68 65 20 6c 69 6e |where in| the lin|
|00000a60| 65 20 70 6f 69 6e 74 20 | 69 73 20 77 68 65 6e 20 |e point |is when |
|00000a70| 74 68 65 20 54 41 42 20 | 63 6f 6d 6d 61 6e 64 20 |the TAB |command |
|00000a80| 69 73 20 75 73 65 64 2e | 22 29 0a 28 66 73 65 74 |is used.|").(fset|
|00000a90| 20 27 63 2d 6d 6f 64 65 | 20 23 5b 6e 69 6c 20 22 | 'c-mode| #[nil "|
|00000aa0| c0 20 88 c1 5c 6e 21 88 | c3 14 c5 16 06 0e 07 16 |. ..\n!.|........|
|00000ab0| 08 c9 0e 5c 6e 21 88 cb | cc 21 88 cd 0e 0e 50 16 |...\n!..|.!....P.|
|00000ac0| 0c cb cf 21 88 0e 0c 16 | 0f cb d0 21 88 d1 16 10 |...!....|...!....|
|00000ad0| cb d2 21 88 d3 16 12 cb | d4 21 88 d5 16 14 cb d6 |..!.....|.!......|
|00000ae0| 21 88 d1 16 16 cb d7 21 | 88 d8 16 17 cb d9 21 88 |!......!|......!.|
|00000af0| da 16 19 cb db 21 88 dc | 16 1b cb dd 21 88 de 16 |.....!..|....!...|
|00000b00| 1d cb df 21 88 e0 16 1f | cb e1 21 88 d1 16 21 e2 |...!....|..!...!.|
|00000b10| e3 21 87 22 20 5b 6b 69 | 6c 6c 2d 61 6c 6c 2d 6c |.!." [ki|ll-all-l|
|00000b20| 6f 63 61 6c 2d 76 61 72 | 69 61 62 6c 65 73 20 75 |ocal-var|iables u|
|00000b30| 73 65 2d 6c 6f 63 61 6c | 2d 6d 61 70 20 63 2d 6d |se-local|-map c-m|
|00000b40| 6f 64 65 2d 6d 61 70 20 | 63 2d 6d 6f 64 65 20 6d |ode-map |c-mode m|
|00000b50| 61 6a 6f 72 2d 6d 6f 64 | 65 20 22 43 22 20 6d 6f |ajor-mod|e "C" mo|
|00000b60| 64 65 2d 6e 61 6d 65 20 | 63 2d 6d 6f 64 65 2d 61 |de-name |c-mode-a|
|00000b70| 62 62 72 65 76 2d 74 61 | 62 6c 65 20 6c 6f 63 61 |bbrev-ta|ble loca|
|00000b80| 6c 2d 61 62 62 72 65 76 | 2d 74 61 62 6c 65 20 73 |l-abbrev|-table s|
|00000b90| 65 74 2d 73 79 6e 74 61 | 78 2d 74 61 62 6c 65 20 |et-synta|x-table |
|00000ba0| 63 2d 6d 6f 64 65 2d 73 | 79 6e 74 61 78 2d 74 61 |c-mode-s|yntax-ta|
|00000bb0| 62 6c 65 20 6d 61 6b 65 | 2d 6c 6f 63 61 6c 2d 76 |ble make|-local-v|
|00000bc0| 61 72 69 61 62 6c 65 20 | 70 61 72 61 67 72 61 70 |ariable |paragrap|
|00000bd0| 68 2d 73 74 61 72 74 20 | 22 5e 24 5c 5c 7c 22 20 |h-start |"^$\\|" |
|00000be0| 70 61 67 65 2d 64 65 6c | 69 6d 69 74 65 72 20 70 |page-del|imiter p|
|00000bf0| 61 72 61 67 72 61 70 68 | 2d 73 65 70 61 72 61 74 |aragraph|-separat|
|00000c00| 65 20 70 61 72 61 67 72 | 61 70 68 2d 69 67 6e 6f |e paragr|aph-igno|
|00000c10| 72 65 2d 66 69 6c 6c 2d | 70 72 65 66 69 78 20 74 |re-fill-|prefix t|
|00000c20| 20 69 6e 64 65 6e 74 2d | 6c 69 6e 65 2d 66 75 6e | indent-|line-fun|
|00000c30| 63 74 69 6f 6e 20 63 2d | 69 6e 64 65 6e 74 2d 6c |ction c-|indent-l|
|00000c40| 69 6e 65 20 69 6e 64 65 | 6e 74 2d 72 65 67 69 6f |ine inde|nt-regio|
|00000c50| 6e 2d 66 75 6e 63 74 69 | 6f 6e 20 63 2d 69 6e 64 |n-functi|on c-ind|
|00000c60| 65 6e 74 2d 72 65 67 69 | 6f 6e 20 72 65 71 75 69 |ent-regi|on requi|
|00000c70| 72 65 2d 66 69 6e 61 6c | 2d 6e 65 77 6c 69 6e 65 |re-final|-newline|
|00000c80| 20 63 6f 6d 6d 65 6e 74 | 2d 73 74 61 72 74 20 22 | comment|-start "|
|00000c90| 2f 2a 20 22 20 63 6f 6d | 6d 65 6e 74 2d 65 6e 64 |/* " com|ment-end|
|00000ca0| 20 22 20 2a 2f 22 20 63 | 6f 6d 6d 65 6e 74 2d 63 | " */" c|omment-c|
|00000cb0| 6f 6c 75 6d 6e 20 33 32 | 20 63 6f 6d 6d 65 6e 74 |olumn 32| comment|
|00000cc0| 2d 73 74 61 72 74 2d 73 | 6b 69 70 20 22 2f 5c 5c |-start-s|kip "/\\|
|00000cd0| 2a 2b 20 2a 22 20 63 6f | 6d 6d 65 6e 74 2d 69 6e |*+ *" co|mment-in|
|00000ce0| 64 65 6e 74 2d 68 6f 6f | 6b 20 63 2d 63 6f 6d 6d |dent-hoo|k c-comm|
|00000cf0| 65 6e 74 2d 69 6e 64 65 | 6e 74 20 70 61 72 73 65 |ent-inde|nt parse|
|00000d00| 2d 73 65 78 70 2d 69 67 | 6e 6f 72 65 2d 63 6f 6d |-sexp-ig|nore-com|
|00000d10| 6d 65 6e 74 73 20 72 75 | 6e 2d 68 6f 6f 6b 73 20 |ments ru|n-hooks |
|00000d20| 63 2d 6d 6f 64 65 2d 68 | 6f 6f 6b 5d 20 32 20 22 |c-mode-h|ook] 2 "|
|00000d30| 5c 0a 4d 61 6a 6f 72 20 | 6d 6f 64 65 20 66 6f 72 |\.Major |mode for|
|00000d40| 20 65 64 69 74 69 6e 67 | 20 43 20 63 6f 64 65 2e | editing| C code.|
|00000d50| 0a 45 78 70 72 65 73 73 | 69 6f 6e 20 61 6e 64 20 |.Express|ion and |
|00000d60| 6c 69 73 74 20 63 6f 6d | 6d 61 6e 64 73 20 75 6e |list com|mands un|
|00000d70| 64 65 72 73 74 61 6e 64 | 20 61 6c 6c 20 43 20 62 |derstand| all C b|
|00000d80| 72 61 63 6b 65 74 73 2e | 0a 54 61 62 20 69 6e 64 |rackets.|.Tab ind|
|00000d90| 65 6e 74 73 20 66 6f 72 | 20 43 20 63 6f 64 65 2e |ents for| C code.|
|00000da0| 0a 43 6f 6d 6d 65 6e 74 | 73 20 61 72 65 20 64 65 |.Comment|s are de|
|00000db0| 6c 69 6d 69 74 65 64 20 | 77 69 74 68 20 2f 2a 20 |limited |with /* |
|00000dc0| 2e 2e 2e 20 2a 2f 2e 0a | 50 61 72 61 67 72 61 70 |... */..|Paragrap|
|00000dd0| 68 73 20 61 72 65 20 73 | 65 70 61 72 61 74 65 64 |hs are s|eparated|
|00000de0| 20 62 79 20 62 6c 61 6e | 6b 20 6c 69 6e 65 73 20 | by blan|k lines |
|00000df0| 6f 6e 6c 79 2e 0a 44 65 | 6c 65 74 65 20 63 6f 6e |only..De|lete con|
|00000e00| 76 65 72 74 73 20 74 61 | 62 73 20 74 6f 20 73 70 |verts ta|bs to sp|
|00000e10| 61 63 65 73 20 61 73 20 | 69 74 20 6d 6f 76 65 73 |aces as |it moves|
|00000e20| 20 62 61 63 6b 2e 0a 5c | 5c 7b 63 2d 6d 6f 64 65 | back..\|\{c-mode|
|00000e30| 2d 6d 61 70 7d 0a 56 61 | 72 69 61 62 6c 65 73 20 |-map}.Va|riables |
|00000e40| 63 6f 6e 74 72 6f 6c 6c | 69 6e 67 20 69 6e 64 65 |controll|ing inde|
|00000e50| 6e 74 61 74 69 6f 6e 20 | 73 74 79 6c 65 3a 0a 20 |ntation |style:. |
|00000e60| 63 2d 74 61 62 2d 61 6c | 77 61 79 73 2d 69 6e 64 |c-tab-al|ways-ind|
|00000e70| 65 6e 74 0a 20 20 20 20 | 4e 6f 6e 2d 6e 69 6c 20 |ent. |Non-nil |
|00000e80| 6d 65 61 6e 73 20 54 41 | 42 20 69 6e 20 43 20 6d |means TA|B in C m|
|00000e90| 6f 64 65 20 73 68 6f 75 | 6c 64 20 61 6c 77 61 79 |ode shou|ld alway|
|00000ea0| 73 20 72 65 69 6e 64 65 | 6e 74 20 74 68 65 20 63 |s reinde|nt the c|
|00000eb0| 75 72 72 65 6e 74 20 6c | 69 6e 65 2c 0a 20 20 20 |urrent l|ine,. |
|00000ec0| 20 72 65 67 61 72 64 6c | 65 73 73 20 6f 66 20 77 | regardl|ess of w|
|00000ed0| 68 65 72 65 20 69 6e 20 | 74 68 65 20 6c 69 6e 65 |here in |the line|
|00000ee0| 20 70 6f 69 6e 74 20 69 | 73 20 77 68 65 6e 20 74 | point i|s when t|
|00000ef0| 68 65 20 54 41 42 20 63 | 6f 6d 6d 61 6e 64 20 69 |he TAB c|ommand i|
|00000f00| 73 20 75 73 65 64 2e 0a | 20 63 2d 61 75 74 6f 2d |s used..| c-auto-|
|00000f10| 6e 65 77 6c 69 6e 65 0a | 20 20 20 20 4e 6f 6e 2d |newline.| Non-|
|00000f20| 6e 69 6c 20 6d 65 61 6e | 73 20 61 75 74 6f 6d 61 |nil mean|s automa|
|00000f30| 74 69 63 61 6c 6c 79 20 | 6e 65 77 6c 69 6e 65 20 |tically |newline |
|00000f40| 62 65 66 6f 72 65 20 61 | 6e 64 20 61 66 74 65 72 |before a|nd after|
|00000f50| 20 62 72 61 63 65 73 2c | 0a 20 20 20 20 61 6e 64 | braces,|. and|
|00000f60| 20 61 66 74 65 72 20 63 | 6f 6c 6f 6e 73 20 61 6e | after c|olons an|
|00000f70| 64 20 73 65 6d 69 63 6f | 6c 6f 6e 73 2c 20 69 6e |d semico|lons, in|
|00000f80| 73 65 72 74 65 64 20 69 | 6e 20 43 20 63 6f 64 65 |serted i|n C code|
|00000f90| 2e 0a 20 63 2d 69 6e 64 | 65 6e 74 2d 6c 65 76 65 |.. c-ind|ent-leve|
|00000fa0| 6c 0a 20 20 20 20 49 6e | 64 65 6e 74 61 74 69 6f |l. In|dentatio|
|00000fb0| 6e 20 6f 66 20 43 20 73 | 74 61 74 65 6d 65 6e 74 |n of C s|tatement|
|00000fc0| 73 20 77 69 74 68 69 6e | 20 73 75 72 72 6f 75 6e |s within| surroun|
|00000fd0| 64 69 6e 67 20 62 6c 6f | 63 6b 2e 0a 20 20 20 20 |ding blo|ck.. |
|00000fe0| 54 68 65 20 73 75 72 72 | 6f 75 6e 64 69 6e 67 20 |The surr|ounding |
|00000ff0| 62 6c 6f 63 6b 27 73 20 | 69 6e 64 65 6e 74 61 74 |block's |indentat|
|00001000| 69 6f 6e 20 69 73 20 74 | 68 65 20 69 6e 64 65 6e |ion is t|he inden|
|00001010| 74 61 74 69 6f 6e 0a 20 | 20 20 20 6f 66 20 74 68 |tation. | of th|
|00001020| 65 20 6c 69 6e 65 20 6f | 6e 20 77 68 69 63 68 20 |e line o|n which |
|00001030| 74 68 65 20 6f 70 65 6e | 2d 62 72 61 63 65 20 61 |the open|-brace a|
|00001040| 70 70 65 61 72 73 2e 0a | 20 63 2d 63 6f 6e 74 69 |ppears..| c-conti|
|00001050| 6e 75 65 64 2d 73 74 61 | 74 65 6d 65 6e 74 2d 6f |nued-sta|tement-o|
|00001060| 66 66 73 65 74 0a 20 20 | 20 20 45 78 74 72 61 20 |ffset. | Extra |
|00001070| 69 6e 64 65 6e 74 61 74 | 69 6f 6e 20 67 69 76 65 |indentat|ion give|
|00001080| 6e 20 74 6f 20 61 20 73 | 75 62 73 74 61 74 65 6d |n to a s|ubstatem|
|00001090| 65 6e 74 2c 20 73 75 63 | 68 20 61 73 20 74 68 65 |ent, suc|h as the|
|000010a0| 0a 20 20 20 20 74 68 65 | 6e 2d 63 6c 61 75 73 65 |. the|n-clause|
|000010b0| 20 6f 66 20 61 6e 20 69 | 66 20 6f 72 20 62 6f 64 | of an i|f or bod|
|000010c0| 79 20 6f 66 20 61 20 77 | 68 69 6c 65 2e 0a 20 63 |y of a w|hile.. c|
|000010d0| 2d 63 6f 6e 74 69 6e 75 | 65 64 2d 62 72 61 63 65 |-continu|ed-brace|
|000010e0| 2d 6f 66 66 73 65 74 0a | 20 20 20 20 45 78 74 72 |-offset.| Extr|
|000010f0| 61 20 69 6e 64 65 6e 74 | 61 74 69 6f 6e 20 67 69 |a indent|ation gi|
|00001100| 76 65 6e 20 74 6f 20 61 | 20 62 72 61 63 65 20 74 |ven to a| brace t|
|00001110| 68 61 74 20 73 74 61 72 | 74 73 20 61 20 73 75 62 |hat star|ts a sub|
|00001120| 73 74 61 74 65 6d 65 6e | 74 2e 0a 20 20 20 20 54 |statemen|t.. T|
|00001130| 68 69 73 20 69 73 20 69 | 6e 20 61 64 64 69 74 69 |his is i|n additi|
|00001140| 6f 6e 20 74 6f 20 63 2d | 63 6f 6e 74 69 6e 75 65 |on to c-|continue|
|00001150| 64 2d 73 74 61 74 65 6d | 65 6e 74 2d 6f 66 66 73 |d-statem|ent-offs|
|00001160| 65 74 2e 0a 20 63 2d 62 | 72 61 63 65 2d 6f 66 66 |et.. c-b|race-off|
|00001170| 73 65 74 0a 20 20 20 20 | 45 78 74 72 61 20 69 6e |set. |Extra in|
|00001180| 64 65 6e 74 61 74 69 6f | 6e 20 66 6f 72 20 6c 69 |dentatio|n for li|
|00001190| 6e 65 20 69 66 20 69 74 | 20 73 74 61 72 74 73 20 |ne if it| starts |
|000011a0| 77 69 74 68 20 61 6e 20 | 6f 70 65 6e 20 62 72 61 |with an |open bra|
|000011b0| 63 65 2e 0a 20 63 2d 62 | 72 61 63 65 2d 69 6d 61 |ce.. c-b|race-ima|
|000011c0| 67 69 6e 61 72 79 2d 6f | 66 66 73 65 74 0a 20 20 |ginary-o|ffset. |
|000011d0| 20 20 41 6e 20 6f 70 65 | 6e 20 62 72 61 63 65 20 | An ope|n brace |
|000011e0| 66 6f 6c 6c 6f 77 69 6e | 67 20 6f 74 68 65 72 20 |followin|g other |
|000011f0| 74 65 78 74 20 69 73 20 | 74 72 65 61 74 65 64 20 |text is |treated |
|00001200| 61 73 20 69 66 20 69 74 | 20 77 65 72 65 0a 20 20 |as if it| were. |
|00001210| 20 20 74 68 69 73 20 66 | 61 72 20 74 6f 20 74 68 | this f|ar to th|
|00001220| 65 20 72 69 67 68 74 20 | 6f 66 20 74 68 65 20 73 |e right |of the s|
|00001230| 74 61 72 74 20 6f 66 20 | 69 74 73 20 6c 69 6e 65 |tart of |its line|
|00001240| 2e 0a 20 63 2d 61 72 67 | 64 65 63 6c 2d 69 6e 64 |.. c-arg|decl-ind|
|00001250| 65 6e 74 0a 20 20 20 20 | 49 6e 64 65 6e 74 61 74 |ent. |Indentat|
|00001260| 69 6f 6e 20 6c 65 76 65 | 6c 20 6f 66 20 64 65 63 |ion leve|l of dec|
|00001270| 6c 61 72 61 74 69 6f 6e | 73 20 6f 66 20 43 20 66 |laration|s of C f|
|00001280| 75 6e 63 74 69 6f 6e 20 | 61 72 67 75 6d 65 6e 74 |unction |argument|
|00001290| 73 2e 0a 20 63 2d 6c 61 | 62 65 6c 2d 6f 66 66 73 |s.. c-la|bel-offs|
|000012a0| 65 74 0a 20 20 20 20 45 | 78 74 72 61 20 69 6e 64 |et. E|xtra ind|
|000012b0| 65 6e 74 61 74 69 6f 6e | 20 66 6f 72 20 6c 69 6e |entation| for lin|
|000012c0| 65 20 74 68 61 74 20 69 | 73 20 61 20 6c 61 62 65 |e that i|s a labe|
|000012d0| 6c 2c 20 6f 72 20 63 61 | 73 65 20 6f 72 20 64 65 |l, or ca|se or de|
|000012e0| 66 61 75 6c 74 2e 0a 0a | 53 65 74 74 69 6e 67 73 |fault...|Settings|
|000012f0| 20 66 6f 72 20 4b 26 52 | 20 61 6e 64 20 42 53 44 | for K&R| and BSD|
|00001300| 20 69 6e 64 65 6e 74 61 | 74 69 6f 6e 20 73 74 79 | indenta|tion sty|
|00001310| 6c 65 73 20 61 72 65 0a | 20 20 63 2d 69 6e 64 65 |les are.| c-inde|
|00001320| 6e 74 2d 6c 65 76 65 6c | 20 20 20 20 20 20 20 20 |nt-level| |
|00001330| 20 20 20 20 20 20 20 20 | 35 20 20 20 20 38 0a 20 | |5 8. |
|00001340| 20 63 2d 63 6f 6e 74 69 | 6e 75 65 64 2d 73 74 61 | c-conti|nued-sta|
|00001350| 74 65 6d 65 6e 74 2d 6f | 66 66 73 65 74 20 20 35 |tement-o|ffset 5|
|00001360| 20 20 20 20 38 0a 20 20 | 63 2d 62 72 61 63 65 2d | 8. |c-brace-|
|00001370| 6f 66 66 73 65 74 20 20 | 20 20 20 20 20 20 20 20 |offset | |
|00001380| 20 20 20 20 20 2d 35 20 | 20 20 2d 38 0a 20 20 63 | -5 | -8. c|
|00001390| 2d 61 72 67 64 65 63 6c | 2d 69 6e 64 65 6e 74 20 |-argdecl|-indent |
|000013a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 30 20 20 | | 0 |
|000013b0| 20 20 38 0a 20 20 63 2d | 6c 61 62 65 6c 2d 6f 66 | 8. c-|label-of|
|000013c0| 66 73 65 74 20 20 20 20 | 20 20 20 20 20 20 20 20 |fset | |
|000013d0| 20 20 20 2d 35 20 20 20 | 2d 38 0a 0a 54 75 72 6e | -5 |-8..Turn|
|000013e0| 69 6e 67 20 6f 6e 20 43 | 20 6d 6f 64 65 20 63 61 |ing on C| mode ca|
|000013f0| 6c 6c 73 20 74 68 65 20 | 76 61 6c 75 65 20 6f 66 |lls the |value of|
|00001400| 20 74 68 65 20 76 61 72 | 69 61 62 6c 65 20 63 2d | the var|iable c-|
|00001410| 6d 6f 64 65 2d 68 6f 6f | 6b 20 77 69 74 68 20 6e |mode-hoo|k with n|
|00001420| 6f 20 61 72 67 73 2c 0a | 69 66 20 74 68 61 74 20 |o args,.|if that |
|00001430| 76 61 6c 75 65 20 69 73 | 20 6e 6f 6e 2d 6e 69 6c |value is| non-nil|
|00001440| 2e 22 20 6e 69 6c 5d 29 | 0a 28 66 73 65 74 20 27 |." nil])|.(fset '|
|00001450| 63 2d 63 6f 6d 6d 65 6e | 74 2d 69 6e 64 65 6e 74 |c-commen|t-indent|
|00001460| 20 23 5b 6e 69 6c 20 22 | c0 c1 21 ab 82 c2 87 60 | #[nil "|..!....`|
|00001470| 1b 8a c2 79 88 c0 c4 21 | ab 88 c5 c6 21 88 69 54 |...y...!|....!.iT|
|00001480| aa a5 c0 c7 21 ac 85 c0 | c8 21 ab 83 c9 aa 98 0b |....!...|.!......|
|00001490| 62 88 ca cb 78 88 0e 0c | c2 55 ab 86 6e ab 83 c2 |b...x...|.U..n...|
|000014a0| aa 85 69 54 0e 0c 5d 2a | 87 22 20 5b 6c 6f 6f 6b |..iT..]*|." [look|
|000014b0| 69 6e 67 2d 61 74 20 22 | 5e 2f 5c 5c 2a 22 20 30 |ing-at "|^/\\*" 0|
|000014c0| 20 6f 70 6f 69 6e 74 20 | 22 5b 20 09 5d 2a 7d 5b | opoint |"[ .]*}[|
|000014d0| 20 09 5d 2a 5c 5c 28 24 | 5c 5c 7c 2f 5c 5c 2a 5c | .]*\\($|\\|/\\*\|
|000014e0| 5c 29 22 20 73 65 61 72 | 63 68 2d 66 6f 72 77 61 |\)" sear|ch-forwa|
|000014f0| 72 64 20 22 7d 22 20 22 | 5e 23 5b 20 09 5d 2a 65 |rd "}" "|^#[ .]*e|
|00001500| 6e 64 69 66 5b 20 09 5d | 2a 22 20 22 5e 23 5b 20 |ndif[ .]|*" "^#[ |
|00001510| 09 5d 2a 65 6c 73 65 5b | 20 09 5d 2a 22 20 37 20 |.]*else[| .]*" 7 |
|00001520| 22 20 09 22 20 6e 69 6c | 20 63 6f 6d 6d 65 6e 74 |" ." nil| comment|
|00001530| 2d 63 6f 6c 75 6d 6e 5d | 20 32 5d 29 0a 28 66 73 |-column]| 2]).(fs|
|00001540| 65 74 20 27 63 2d 66 69 | 6c 6c 2d 70 61 72 61 67 |et 'c-fi|ll-parag|
|00001550| 72 61 70 68 20 23 5b 28 | 26 6f 70 74 69 6f 6e 61 |raph #[(|&optiona|
|00001560| 6c 20 61 72 67 29 20 22 | 8a c0 79 88 c1 c2 77 88 |l arg) "|..y...w.|
|00001570| c3 0c 21 29 89 1d ac 86 | c6 20 c7 3d ab d9 8a c0 |..!)....|. .=....|
|00001580| 79 88 c3 c8 21 ab 8a c9 | 0c 21 88 ca 69 cb 5c 22 |y...!...|.!..i.\"|
|00001590| aa 90 0d ab 83 cc 79 88 | 60 cd ce c7 21 c7 5c 22 |......y.|`...!.\"|
|000015a0| 88 60 7b 29 0e 0f d0 50 | 0e 11 d0 50 1e 11 1e 0f |.`{)...P|...P....|
|000015b0| 1e 12 8c 65 8a d3 d4 c2 | d5 23 88 cc 79 88 60 29 |...e....|.#..y.`)|
|000015c0| 7d 88 d6 0e 17 21 88 8a | d3 d4 21 88 c0 79 88 c3 |}....!..|..!..y..|
|000015d0| d8 21 ad 82 d9 20 2d aa | 84 d6 0e 17 21 29 87 22 |.!... -.|....!)."|
|000015e0| 20 5b 30 20 22 20 09 22 | 20 6e 69 6c 20 6c 6f 6f | [0 " ."| nil loo|
|000015f0| 6b 69 6e 67 2d 61 74 20 | 63 6f 6d 6d 65 6e 74 2d |king-at |comment-|
|00001600| 73 74 61 72 74 2d 73 6b | 69 70 20 66 69 72 73 74 |start-sk|ip first|
|00001610| 2d 6c 69 6e 65 20 63 61 | 6c 63 75 6c 61 74 65 2d |-line ca|lculate-|
|00001620| 63 2d 69 6e 64 65 6e 74 | 20 74 20 22 5b 20 09 5d |c-indent| t "[ .]|
|00001630| 2a 2f 5c 5c 2a 2e 2a 5c | 5c 2a 2f 22 20 72 65 2d |*/\\*.*\|\*/" re-|
|00001640| 73 65 61 72 63 68 2d 66 | 6f 72 77 61 72 64 20 6d |search-f|orward m|
|00001650| 61 6b 65 2d 73 74 72 69 | 6e 67 20 33 32 20 31 20 |ake-stri|ng 32 1 |
|00001660| 6d 6f 76 65 2d 74 6f 2d | 63 6f 6c 75 6d 6e 20 63 |move-to-|column c|
|00001670| 61 6c 63 75 6c 61 74 65 | 2d 63 2d 69 6e 64 65 6e |alculate|-c-inden|
|00001680| 74 2d 77 69 74 68 69 6e | 2d 63 6f 6d 6d 65 6e 74 |t-within|-comment|
|00001690| 20 70 61 72 61 67 72 61 | 70 68 2d 73 74 61 72 74 | paragra|ph-start|
|000016a0| 20 22 5c 5c 7c 5e 5b 20 | 09 5d 2a 2f 5c 5c 2a 5b | "\\|^[ |.]*/\\*[|
|000016b0| 20 09 5d 2a 24 5c 5c 7c | 5e 5b 20 09 5d 2a 5c 5c | .]*$\\||^[ .]*\\|
|000016c0| 2a 2f 5b 20 09 5d 2a 24 | 5c 5c 7c 5e 5b 5e 20 09 |*/[ .]*$|\\|^[^ .|
|000016d0| 2f 2a 5d 22 20 70 61 72 | 61 67 72 61 70 68 2d 73 |/*]" par|agraph-s|
|000016e0| 65 70 61 72 61 74 65 20 | 66 69 6c 6c 2d 70 72 65 |eparate |fill-pre|
|000016f0| 66 69 78 20 73 65 61 72 | 63 68 2d 66 6f 72 77 61 |fix sear|ch-forwa|
|00001700| 72 64 20 22 2a 2f 22 20 | 6d 6f 76 65 20 66 69 6c |rd "*/" |move fil|
|00001710| 6c 2d 70 61 72 61 67 72 | 61 70 68 20 61 72 67 20 |l-paragr|aph arg |
|00001720| 22 5b 20 09 5d 2a 5c 5c | 2a 2f 22 20 64 65 6c 65 |"[ .]*\\|*/" dele|
|00001730| 74 65 2d 69 6e 64 65 6e | 74 61 74 69 6f 6e 5d 20 |te-inden|tation] |
|00001740| 36 20 22 5c 0a 4c 69 6b | 65 20 5c 5c 5b 66 69 6c |6 "\.Lik|e \\[fil|
|00001750| 6c 2d 70 61 72 61 67 72 | 61 70 68 5d 20 62 75 74 |l-paragr|aph] but|
|00001760| 20 68 61 6e 64 6c 65 20 | 43 20 63 6f 6d 6d 65 6e | handle |C commen|
|00001770| 74 73 2e 0a 49 66 20 70 | 6f 69 6e 74 20 69 73 20 |ts..If p|oint is |
|00001780| 69 6e 73 69 64 65 20 61 | 20 63 6f 6d 6d 65 6e 74 |inside a| comment|
|00001790| 2c 20 74 68 65 20 63 75 | 72 72 65 6e 74 20 70 61 |, the cu|rrent pa|
|000017a0| 72 61 67 72 61 70 68 20 | 6f 66 20 74 68 65 20 63 |ragraph |of the c|
|000017b0| 6f 6d 6d 65 6e 74 0a 69 | 73 20 66 69 6c 6c 65 64 |omment.i|s filled|
|000017c0| 2c 20 70 72 65 73 65 72 | 76 69 6e 67 20 74 68 65 |, preser|ving the|
|000017d0| 20 63 6f 6d 6d 65 6e 74 | 20 69 6e 64 65 6e 74 61 | comment| indenta|
|000017e0| 74 69 6f 6e 20 6f 72 20 | 6c 69 6e 65 2d 73 74 61 |tion or |line-sta|
|000017f0| 72 74 69 6e 67 20 64 65 | 63 6f 72 61 74 69 6f 6e |rting de|coration|
|00001800| 73 2e 22 20 22 50 22 5d | 29 0a 28 66 73 65 74 20 |s." "P"]|).(fset |
|00001810| 27 65 6c 65 63 74 72 69 | 63 2d 63 2d 62 72 61 63 |'electri|c-c-brac|
|00001820| 65 20 23 5b 28 61 72 67 | 29 20 22 c0 19 5c 6e ac |e #[(arg|) "..\n.|
|00001830| b6 6c ab b3 8a c3 c0 78 | 88 6e 29 ac 89 0c ab a7 |.l.....x|.n).....|
|00001840| c5 20 88 c6 20 88 0e 07 | 63 88 c5 20 88 0c ab 8a |. .. ...|c.. ....|
|00001850| c6 20 88 60 c8 5a 11 c5 | 20 88 8a 09 ab 84 09 54 |. .`.Z..| ......T|
|00001860| 62 88 c9 ca 21 88 29 09 | ab 8c 8a 09 62 88 cb cc |b...!.).|....b...|
|00001870| 5c 6e 21 21 29 aa 91 0e | 07 cd 56 ab 86 0e 07 ce |\n!!)...|..V.....|
|00001880| 5a 16 07 cb cc 5c 6e 21 | 21 29 87 22 20 5b 6e 69 |Z....\n!|!)." [ni|
|00001890| 6c 20 69 6e 73 65 72 74 | 70 6f 73 20 61 72 67 20 |l insert|pos arg |
|000018a0| 22 20 09 22 20 63 2d 61 | 75 74 6f 2d 6e 65 77 6c |" ." c-a|uto-newl|
|000018b0| 69 6e 65 20 63 2d 69 6e | 64 65 6e 74 2d 6c 69 6e |ine c-in|dent-lin|
|000018c0| 65 20 6e 65 77 6c 69 6e | 65 20 6c 61 73 74 2d 63 |e newlin|e last-c|
|000018d0| 6f 6d 6d 61 6e 64 2d 63 | 68 61 72 20 32 20 64 65 |ommand-c|har 2 de|
|000018e0| 6c 65 74 65 2d 63 68 61 | 72 20 2d 31 20 73 65 6c |lete-cha|r -1 sel|
|000018f0| 66 2d 69 6e 73 65 72 74 | 2d 63 6f 6d 6d 61 6e 64 |f-insert|-command|
|00001900| 20 70 72 65 66 69 78 2d | 6e 75 6d 65 72 69 63 2d | prefix-|numeric-|
|00001910| 76 61 6c 75 65 20 31 32 | 37 20 31 32 38 5d 20 33 |value 12|7 128] 3|
|00001920| 20 22 5c 0a 49 6e 73 65 | 72 74 20 63 68 61 72 61 | "\.Inse|rt chara|
|00001930| 63 74 65 72 20 61 6e 64 | 20 63 6f 72 72 65 63 74 |cter and| correct|
|00001940| 20 6c 69 6e 65 27 73 20 | 69 6e 64 65 6e 74 61 74 | line's |indentat|
|00001950| 69 6f 6e 2e 22 20 22 50 | 22 5d 29 0a 28 62 79 74 |ion." "P|"]).(byt|
|00001960| 65 2d 63 6f 64 65 20 22 | c0 c1 4d 88 c2 c3 4d 87 |e-code "|..M...M.|
|00001970| 22 20 5b 63 2d 69 6e 73 | 65 72 74 2d 62 72 61 63 |" [c-ins|ert-brac|
|00001980| 6b 65 74 73 20 23 5b 6e | 69 6c 20 22 c0 63 88 8a |kets #[n|il ".c..|
|00001990| c1 63 29 87 22 20 5b 39 | 31 20 39 33 5d 20 31 20 |.c)." [9|1 93] 1 |
|000019a0| 6e 69 6c 20 6e 69 6c 5d | 20 63 2d 69 6e 73 65 72 |nil nil]| c-inser|
|000019b0| 74 2d 62 72 61 63 65 73 | 20 23 5b 6e 69 6c 20 22 |t-braces| #[nil "|
|000019c0| c0 c1 21 88 c2 20 88 c3 | 20 88 8a c2 20 88 c4 63 |..!.. ..| ... ..c|
|000019d0| 88 c3 20 29 87 22 20 5b | 65 6c 65 63 74 72 69 63 |.. )." [|electric|
|000019e0| 2d 63 2d 62 72 61 63 65 | 20 31 20 6e 65 77 6c 69 |-c-brace| 1 newli|
|000019f0| 6e 65 20 63 2d 69 6e 64 | 65 6e 74 2d 6c 69 6e 65 |ne c-ind|ent-line|
|00001a00| 20 31 32 35 5d 20 32 20 | 6e 69 6c 20 6e 69 6c 5d | 125] 2 |nil nil]|
|00001a10| 5d 20 32 29 0a 28 66 73 | 65 74 20 27 65 6c 65 63 |] 2).(fs|et 'elec|
|00001a20| 74 72 69 63 2d 63 2d 73 | 68 61 72 70 2d 73 69 67 |tric-c-s|harp-sig|
|00001a30| 6e 20 23 5b 28 61 72 67 | 29 20 22 8a c0 c1 78 88 |n #[(arg|) "...x.|
|00001a40| 6e 29 ab 87 c1 1a c3 0c | 21 29 87 c5 c6 0c 21 21 |n)......|!)....!!|
|00001a50| 87 22 20 5b 22 20 09 22 | 20 6e 69 6c 20 63 2d 61 |." [" ."| nil c-a|
|00001a60| 75 74 6f 2d 6e 65 77 6c | 69 6e 65 20 65 6c 65 63 |uto-newl|ine elec|
|00001a70| 74 72 69 63 2d 63 2d 74 | 65 72 6d 69 6e 61 74 6f |tric-c-t|erminato|
|00001a80| 72 20 61 72 67 20 73 65 | 6c 66 2d 69 6e 73 65 72 |r arg se|lf-inser|
|00001a90| 74 2d 63 6f 6d 6d 61 6e | 64 20 70 72 65 66 69 78 |t-comman|d prefix|
|00001aa0| 2d 6e 75 6d 65 72 69 63 | 2d 76 61 6c 75 65 5d 20 |-numeric|-value] |
|00001ab0| 33 20 22 5c 0a 49 6e 73 | 65 72 74 20 63 68 61 72 |3 "\.Ins|ert char|
|00001ac0| 61 63 74 65 72 20 61 6e | 64 20 63 6f 72 72 65 63 |acter an|d correc|
|00001ad0| 74 20 6c 69 6e 65 27 73 | 20 69 6e 64 65 6e 74 61 |t line's| indenta|
|00001ae0| 74 69 6f 6e 2e 22 20 22 | 50 22 5d 29 0a 28 66 73 |tion." "|P"]).(fs|
|00001af0| 65 74 20 27 65 6c 65 63 | 74 72 69 63 2d 63 2d 73 |et 'elec|tric-c-s|
|00001b00| 65 6d 69 20 23 5b 28 61 | 72 67 29 20 22 08 ab 84 |emi #[(a|rg) "...|
|00001b10| c1 5c 6e 21 87 c3 c4 5c | 6e 21 21 87 22 20 5b 63 |.\n!...\|n!!." [c|
|00001b20| 2d 61 75 74 6f 2d 6e 65 | 77 6c 69 6e 65 20 65 6c |-auto-ne|wline el|
|00001b30| 65 63 74 72 69 63 2d 63 | 2d 74 65 72 6d 69 6e 61 |ectric-c|-termina|
|00001b40| 74 6f 72 20 61 72 67 20 | 73 65 6c 66 2d 69 6e 73 |tor arg |self-ins|
|00001b50| 65 72 74 2d 63 6f 6d 6d | 61 6e 64 20 70 72 65 66 |ert-comm|and pref|
|00001b60| 69 78 2d 6e 75 6d 65 72 | 69 63 2d 76 61 6c 75 65 |ix-numer|ic-value|
|00001b70| 5d 20 33 20 22 5c 0a 49 | 6e 73 65 72 74 20 63 68 |] 3 "\.I|nsert ch|
|00001b80| 61 72 61 63 74 65 72 20 | 61 6e 64 20 63 6f 72 72 |aracter |and corr|
|00001b90| 65 63 74 20 6c 69 6e 65 | 27 73 20 69 6e 64 65 6e |ect line|'s inden|
|00001ba0| 74 61 74 69 6f 6e 2e 22 | 20 22 50 22 5d 29 0a 28 |tation."| "P"]).(|
|00001bb0| 66 73 65 74 20 27 65 6c | 65 63 74 72 69 63 2d 63 |fset 'el|ectric-c|
|00001bc0| 2d 74 65 72 6d 69 6e 61 | 74 6f 72 20 23 5b 28 61 |-termina|tor #[(a|
|00001bd0| 72 67 29 20 22 c0 60 19 | 1a 0b ac ed 6c ab ea 8a |rg) ".`.|....l...|
|00001be0| c4 79 88 c5 c0 77 88 67 | c6 55 ae b4 0e 07 c8 3d |.y...w.g|.U.....=|
|00001bf0| ab 94 c9 ca 21 ac 8f 8a | cb c0 77 88 c5 c0 77 88 |....!...|..w...w.|
|00001c00| 60 09 57 29 ae 9a cc 20 | 88 cd 60 09 5c 22 1e 0e |`.W)... |..`.\"..|
|00001c10| cf 0e 0e 38 ae 8a d0 0e | 0e 38 ae 84 d1 0e 0e 38 |...8....|.8.....8|
|00001c20| 29 29 ac a6 0e 07 63 88 | d2 20 88 0e 13 ab 8e d4 |))....c.|. ......|
|00001c30| 20 ac 8a d5 20 88 60 d6 | 5a 12 d2 20 88 8a 5c 6e | ... .`.|Z.. ..\n|
|00001c40| ab 84 5c 6e 54 62 88 d7 | d8 21 88 29 5c 6e ab 8c |..\nTb..|.!.)\n..|
|00001c50| 8a 5c 6e 62 88 d9 da 0b | 21 21 29 aa 85 d9 da 0b |.\nb....|!!).....|
|00001c60| 21 21 2a 87 22 20 5b 6e | 69 6c 20 65 6e 64 20 69 |!!*." [n|il end i|
|00001c70| 6e 73 65 72 74 70 6f 73 | 20 61 72 67 20 30 20 22 |nsertpos| arg 0 "|
|00001c80| 20 09 22 20 33 35 20 6c | 61 73 74 2d 63 6f 6d 6d | ." 35 l|ast-comm|
|00001c90| 61 6e 64 2d 63 68 61 72 | 20 35 38 20 6c 6f 6f 6b |and-char| 58 look|
|00001ca0| 69 6e 67 2d 61 74 20 22 | 63 61 73 65 5b 20 09 27 |ing-at "|case[ .'|
|00001cb0| 2f 28 5d 22 20 22 61 2d | 7a 41 2d 5a 30 2d 39 5f |/(]" "a-|zA-Z0-9_|
|00001cc0| 24 22 20 62 65 67 69 6e | 6e 69 6e 67 2d 6f 66 2d |$" begin|ning-of-|
|00001cd0| 64 65 66 75 6e 20 70 61 | 72 73 65 2d 70 61 72 74 |defun pa|rse-part|
|00001ce0| 69 61 6c 2d 73 65 78 70 | 20 70 70 73 20 33 20 34 |ial-sexp| pps 3 4|
|00001cf0| 20 35 20 63 2d 69 6e 64 | 65 6e 74 2d 6c 69 6e 65 | 5 c-ind|ent-line|
|00001d00| 20 63 2d 61 75 74 6f 2d | 6e 65 77 6c 69 6e 65 20 | c-auto-|newline |
|00001d10| 63 2d 69 6e 73 69 64 65 | 2d 70 61 72 65 6e 73 2d |c-inside|-parens-|
|00001d20| 70 20 6e 65 77 6c 69 6e | 65 20 32 20 64 65 6c 65 |p newlin|e 2 dele|
|00001d30| 74 65 2d 63 68 61 72 20 | 2d 31 20 73 65 6c 66 2d |te-char |-1 self-|
|00001d40| 69 6e 73 65 72 74 2d 63 | 6f 6d 6d 61 6e 64 20 70 |insert-c|ommand p|
|00001d50| 72 65 66 69 78 2d 6e 75 | 6d 65 72 69 63 2d 76 61 |refix-nu|meric-va|
|00001d60| 6c 75 65 5d 20 33 20 22 | 5c 0a 49 6e 73 65 72 74 |lue] 3 "|\.Insert|
|00001d70| 20 63 68 61 72 61 63 74 | 65 72 20 61 6e 64 20 63 | charact|er and c|
|00001d80| 6f 72 72 65 63 74 20 6c | 69 6e 65 27 73 20 69 6e |orrect l|ine's in|
|00001d90| 64 65 6e 74 61 74 69 6f | 6e 2e 22 20 22 50 22 5d |dentatio|n." "P"]|
|00001da0| 29 0a 28 66 73 65 74 20 | 27 63 2d 69 6e 73 69 64 |).(fset |'c-insid|
|00001db0| 65 2d 70 61 72 65 6e 73 | 2d 70 20 23 5b 6e 69 6c |e-parens|-p #[nil|
|00001dc0| 20 22 c0 c1 c2 8f 87 22 | 20 5b 6e 69 6c 20 28 62 | "....."| [nil (b|
|00001dd0| 79 74 65 2d 63 6f 64 65 | 20 22 8a 8c 60 c0 20 88 |yte-code| "..`. .|
|00001de0| 60 7d 88 64 62 88 c1 60 | c2 c3 23 ae 81 65 66 c4 |`}.db..`|..#..ef.|
|00001df0| 55 2a 87 22 20 5b 62 65 | 67 69 6e 6e 69 6e 67 2d |U*." [be|ginning-|
|00001e00| 6f 66 2d 64 65 66 75 6e | 20 73 63 61 6e 2d 6c 69 |of-defun| scan-li|
|00001e10| 73 74 73 20 2d 31 20 31 | 20 34 30 5d 20 34 29 20 |sts -1 1| 40] 4) |
|00001e20| 28 28 65 72 72 6f 72 29 | 29 5d 20 33 5d 29 0a 28 |((error)|)] 3]).(|
|00001e30| 66 73 65 74 20 27 63 2d | 69 6e 64 65 6e 74 2d 63 |fset 'c-|indent-c|
|00001e40| 6f 6d 6d 61 6e 64 20 23 | 5b 28 26 6f 70 74 69 6f |ommand #|[(&optio|
|00001e50| 6e 61 6c 20 77 68 6f 6c | 65 2d 65 78 70 29 20 22 |nal whol|e-exp) "|
|00001e60| 08 ab b5 c1 20 c2 89 1b | 1c 1d 8a 0e 06 ab 83 c7 |.... ...|........|
|00001e70| 79 88 8a c8 79 88 60 14 | 29 60 0c 57 ab 8c c9 c8 |y...y.`.|)`.W....|
|00001e80| 21 88 60 13 ca c2 77 88 | aa 6f 29 0b 0c 56 ad 86 |!.`...w.|.o)..V..|
|00001e90| cb 0c 0b 0d cc 24 2b 87 | 0e 06 ac 8c 8a cd c2 78 |.....$+.|.......x|
|00001ea0| 88 6e 29 ac 83 ce 20 87 | c1 20 87 22 20 5b 77 68 |.n)... .|. ." [wh|
|00001eb0| 6f 6c 65 2d 65 78 70 20 | 63 2d 69 6e 64 65 6e 74 |ole-exp |c-indent|
|00001ec0| 2d 6c 69 6e 65 20 6e 69 | 6c 20 65 6e 64 20 62 65 |-line ni|l end be|
|00001ed0| 67 20 73 68 69 66 74 2d | 61 6d 74 20 63 2d 74 61 |g shift-|amt c-ta|
|00001ee0| 62 2d 61 6c 77 61 79 73 | 2d 69 6e 64 65 6e 74 20 |b-always|-indent |
|00001ef0| 30 20 31 20 66 6f 72 77 | 61 72 64 2d 73 65 78 70 |0 1 forw|ard-sexp|
|00001f00| 20 22 20 09 5c 6e 22 20 | 69 6e 64 65 6e 74 2d 63 | " .\n" |indent-c|
|00001f10| 6f 64 65 2d 72 69 67 69 | 64 6c 79 20 22 23 22 20 |ode-rigi|dly "#" |
|00001f20| 22 20 09 22 20 69 6e 73 | 65 72 74 2d 74 61 62 5d |" ." ins|ert-tab]|
|00001f30| 20 35 20 22 5c 0a 49 6e | 64 65 6e 74 20 63 75 72 | 5 "\.In|dent cur|
|00001f40| 72 65 6e 74 20 6c 69 6e | 65 20 61 73 20 43 20 63 |rent lin|e as C c|
|00001f50| 6f 64 65 2c 20 6f 72 20 | 69 6e 20 73 6f 6d 65 20 |ode, or |in some |
|00001f60| 63 61 73 65 73 20 69 6e | 73 65 72 74 20 61 20 74 |cases in|sert a t|
|00001f70| 61 62 20 63 68 61 72 61 | 63 74 65 72 2e 0a 49 66 |ab chara|cter..If|
|00001f80| 20 63 2d 74 61 62 2d 61 | 6c 77 61 79 73 2d 69 6e | c-tab-a|lways-in|
|00001f90| 64 65 6e 74 20 69 73 20 | 6e 6f 6e 2d 6e 69 6c 20 |dent is |non-nil |
|00001fa0| 28 74 68 65 20 64 65 66 | 61 75 6c 74 29 2c 20 61 |(the def|ault), a|
|00001fb0| 6c 77 61 79 73 20 69 6e | 64 65 6e 74 20 63 75 72 |lways in|dent cur|
|00001fc0| 72 65 6e 74 20 6c 69 6e | 65 2e 0a 4f 74 68 65 72 |rent lin|e..Other|
|00001fd0| 77 69 73 65 2c 20 69 6e | 64 65 6e 74 20 74 68 65 |wise, in|dent the|
|00001fe0| 20 63 75 72 72 65 6e 74 | 20 6c 69 6e 65 20 6f 6e | current| line on|
|00001ff0| 6c 79 20 69 66 20 70 6f | 69 6e 74 20 69 73 20 61 |ly if po|int is a|
|00002000| 74 20 74 68 65 20 6c 65 | 66 74 20 6d 61 72 67 69 |t the le|ft margi|
|00002010| 6e 0a 6f 72 20 69 6e 20 | 74 68 65 20 6c 69 6e 65 |n.or in |the line|
|00002020| 27 73 20 69 6e 64 65 6e | 74 61 74 69 6f 6e 3b 20 |'s inden|tation; |
|00002030| 6f 74 68 65 72 77 69 73 | 65 20 69 6e 73 65 72 74 |otherwis|e insert|
|00002040| 20 61 20 74 61 62 2e 0a | 0a 41 20 6e 75 6d 65 72 | a tab..|.A numer|
|00002050| 69 63 20 61 72 67 75 6d | 65 6e 74 2c 20 72 65 67 |ic argum|ent, reg|
|00002060| 61 72 64 6c 65 73 73 20 | 6f 66 20 69 74 73 20 76 |ardless |of its v|
|00002070| 61 6c 75 65 2c 0a 6d 65 | 61 6e 73 20 69 6e 64 65 |alue,.me|ans inde|
|00002080| 6e 74 20 72 69 67 69 64 | 6c 79 20 61 6c 6c 20 74 |nt rigid|ly all t|
|00002090| 68 65 20 6c 69 6e 65 73 | 20 6f 66 20 74 68 65 20 |he lines| of the |
|000020a0| 65 78 70 72 65 73 73 69 | 6f 6e 20 73 74 61 72 74 |expressi|on start|
|000020b0| 69 6e 67 20 61 66 74 65 | 72 20 70 6f 69 6e 74 0a |ing afte|r point.|
|000020c0| 73 6f 20 74 68 61 74 20 | 74 68 69 73 20 6c 69 6e |so that |this lin|
|000020d0| 65 20 62 65 63 6f 6d 65 | 73 20 70 72 6f 70 65 72 |e become|s proper|
|000020e0| 6c 79 20 69 6e 64 65 6e | 74 65 64 2e 0a 54 68 65 |ly inden|ted..The|
|000020f0| 20 72 65 6c 61 74 69 76 | 65 20 69 6e 64 65 6e 74 | relativ|e indent|
|00002100| 61 74 69 6f 6e 20 61 6d | 6f 6e 67 20 74 68 65 20 |ation am|ong the |
|00002110| 6c 69 6e 65 73 20 6f 66 | 20 74 68 65 20 65 78 70 |lines of| the exp|
|00002120| 72 65 73 73 69 6f 6e 20 | 61 72 65 20 70 72 65 73 |ression |are pres|
|00002130| 65 72 76 65 64 2e 22 20 | 22 50 22 5d 29 0a 28 66 |erved." |"P"]).(f|
|00002140| 73 65 74 20 27 63 2d 69 | 6e 64 65 6e 74 2d 6c 69 |set 'c-i|ndent-li|
|00002150| 6e 65 20 23 5b 6e 69 6c | 20 22 c0 c1 21 c1 89 89 |ne #[nil| "..!...|
|00002160| 64 60 5a 1a 1b 1c 1d 1e | 06 c7 79 88 60 15 0e 06 |d`Z.....|..y.`...|
|00002170| c1 3d ab 87 c8 20 16 06 | 82 aa 00 0e 06 c9 3d ab |.=... ..|......=.|
|00002180| 86 ca 20 16 06 aa fd cb | cc 21 ab 85 c7 16 06 aa |.. .....|.!......|
|00002190| f3 cd c1 77 88 0e 06 3c | ab 85 0e 06 40 16 06 cb |...w...<|....@...|
|000021a0| ce 21 ac 90 cb cf 21 ab | 96 8a d0 d1 21 88 cb d2 |.!....!.|....!...|
|000021b0| 21 29 ab 8b d1 0e 06 0e | 13 5c 5c 5d 16 06 aa c5 |!)......|.\\]....|
|000021c0| cb d4 21 ab 90 cb d5 21 | ac 8b 8a d6 20 88 c8 20 |..!....!|.... .. |
|000021d0| 29 16 06 aa b0 cb d7 21 | ab 91 8a d8 20 29 ab 8b |)......!|.... )..|
|000021e0| 8a d8 20 88 c8 20 29 16 | 06 aa 9a 67 d9 55 ab 89 |.. .. ).|...g.U..|
|000021f0| 0e 06 0e 1a 5a 16 06 aa | 8c 67 db 55 ab 87 0e 06 |....Z...|.g.U....|
|00002200| 0e 1c 5c 5c 16 06 cd c1 | 77 88 0e 06 69 5a 89 14 |..\\....|w...iZ..|
|00002210| c7 55 ab 8e 64 5c 6e 5a | 60 56 ab 9b 64 5c 6e 5a |.U..d\nZ|`V..d\nZ|
|00002220| 62 88 aa 94 0d 60 7c 88 | 0e 06 6a 88 64 5c 6e 5a |b....`|.|..j.d\nZ|
|00002230| 60 56 ab 85 64 5c 6e 5a | 62 88 0c 2d 87 22 20 5b |`V..d\nZ|b..-." [|
|00002240| 63 61 6c 63 75 6c 61 74 | 65 2d 63 2d 69 6e 64 65 |calculat|e-c-inde|
|00002250| 6e 74 20 6e 69 6c 20 70 | 6f 73 20 63 61 73 65 2d |nt nil p|os case-|
|00002260| 66 6f 6c 64 2d 73 65 61 | 72 63 68 20 73 68 69 66 |fold-sea|rch shif|
|00002270| 74 2d 61 6d 74 20 62 65 | 67 20 69 6e 64 65 6e 74 |t-amt be|g indent|
|00002280| 20 30 20 63 75 72 72 65 | 6e 74 2d 69 6e 64 65 6e | 0 curre|nt-inden|
|00002290| 74 61 74 69 6f 6e 20 74 | 20 63 61 6c 63 75 6c 61 |tation t| calcula|
|000022a0| 74 65 2d 63 2d 69 6e 64 | 65 6e 74 2d 77 69 74 68 |te-c-ind|ent-with|
|000022b0| 69 6e 2d 63 6f 6d 6d 65 | 6e 74 20 6c 6f 6f 6b 69 |in-comme|nt looki|
|000022c0| 6e 67 2d 61 74 20 22 5b | 20 09 5d 2a 23 22 20 22 |ng-at "[| .]*#" "|
|000022d0| 20 09 22 20 22 63 61 73 | 65 5b 20 09 27 2f 28 5d | ." "cas|e[ .'/(]|
|000022e0| 22 20 22 5b 41 2d 5a 61 | 2d 7a 5d 22 20 66 6f 72 |" "[A-Za|-z]" for|
|000022f0| 77 61 72 64 2d 73 65 78 | 70 20 31 20 22 3a 22 20 |ward-sex|p 1 ":" |
|00002300| 63 2d 6c 61 62 65 6c 2d | 6f 66 66 73 65 74 20 22 |c-label-|offset "|
|00002310| 65 6c 73 65 5c 5c 62 22 | 20 22 65 6c 73 65 5c 5c |else\\b"| "else\\|
|00002320| 73 5f 22 20 63 2d 62 61 | 63 6b 77 61 72 64 2d 74 |s_" c-ba|ckward-t|
|00002330| 6f 2d 73 74 61 72 74 2d | 6f 66 2d 69 66 20 22 77 |o-start-|of-if "w|
|00002340| 68 69 6c 65 5c 5c 62 22 | 20 63 2d 62 61 63 6b 77 |hile\\b"| c-backw|
|00002350| 61 72 64 2d 74 6f 2d 73 | 74 61 72 74 2d 6f 66 2d |ard-to-s|tart-of-|
|00002360| 64 6f 20 31 32 35 20 63 | 2d 69 6e 64 65 6e 74 2d |do 125 c|-indent-|
|00002370| 6c 65 76 65 6c 20 31 32 | 33 20 63 2d 62 72 61 63 |level 12|3 c-brac|
|00002380| 65 2d 6f 66 66 73 65 74 | 5d 20 37 20 22 5c 0a 49 |e-offset|] 7 "\.I|
|00002390| 6e 64 65 6e 74 20 63 75 | 72 72 65 6e 74 20 6c 69 |ndent cu|rrent li|
|000023a0| 6e 65 20 61 73 20 43 20 | 63 6f 64 65 2e 0a 52 65 |ne as C |code..Re|
|000023b0| 74 75 72 6e 20 74 68 65 | 20 61 6d 6f 75 6e 74 20 |turn the| amount |
|000023c0| 74 68 65 20 69 6e 64 65 | 6e 74 61 74 69 6f 6e 20 |the inde|ntation |
|000023d0| 63 68 61 6e 67 65 64 20 | 62 79 2e 22 5d 29 0a 28 |changed |by."]).(|
|000023e0| 66 73 65 74 20 27 63 61 | 6c 63 75 6c 61 74 65 2d |fset 'ca|lculate-|
|000023f0| 63 2d 69 6e 64 65 6e 74 | 20 23 5b 28 26 6f 70 74 |c-indent| #[(&opt|
|00002400| 69 6f 6e 61 6c 20 70 61 | 72 73 65 2d 73 74 61 72 |ional pa|rse-star|
|00002410| 74 29 20 22 8a c0 79 88 | 60 c1 89 89 1a 1b 1c 1d |t) "..y.|`.......|
|00002420| 0e 06 ab 86 0e 06 62 88 | aa 83 c7 20 88 60 0d 57 |......b.|... .`.W|
|00002430| ab 8f 60 16 06 c8 60 0d | c0 23 89 13 41 40 12 aa |..`...`.|.#..A@..|
|00002440| 6c c9 0b 38 ac 85 ca 0b | 38 ab 86 ca 0b 38 82 77 |l..8....|8....8.w|
|00002450| 01 5c 6e ac c5 0d 62 88 | cb c1 77 88 67 cc 55 ab |.\n...b.|..w.g.U.|
|00002460| 84 c0 82 77 01 cd 0e 06 | ae 81 65 21 88 8a ce cf |...w....|..e!....|
|00002470| c1 d0 23 88 d1 d2 21 ab | 9c d1 d3 21 ab 97 c0 95 |..#...!.|...!....|
|00002480| 53 62 88 d4 d5 21 88 60 | 0d 57 ab 89 67 d6 3e ac |Sb...!.`|.W..g.>.|
|00002490| 84 0e 17 aa 81 c0 29 82 | 77 01 5c 6e 66 cc 55 ac |......).|w.\nf.U.|
|000024a0| 88 5c 6e 54 62 88 69 82 | 77 01 0d 62 88 cd 5c 6e |.\nTb.i.|w..b..\n|
|000024b0| 21 88 68 d8 3d ac 96 68 | d9 3d ab a6 60 da 5a 66 |!.h.=..h|.=..`.Zf|
|000024c0| db 3d ac 89 60 da 5a 66 | 7a dc 3e ab 95 68 d8 3d |.=..`.Zf|z.>..h.=|
|000024d0| ab 87 dd 75 88 de 5c 6e | 21 88 c0 79 88 cd 5c 6e |...u..\n|!..y..\n|
|000024e0| 21 88 aa 50 68 df 3e ac | ac 8a 0d 62 88 cb c1 77 |!..Ph.>.|...b...w|
|000024f0| 88 67 e0 55 29 ac 9e de | 5c 6e 21 88 0e 21 69 8a |.g.U)...|\n!..!i.|
|00002500| 0d 62 88 cb c1 77 88 67 | 29 cc 3d ab 84 0e 5c 22 |.b...w.g|).=...\"|
|00002510| aa 81 c0 5c 5c 5c 5c aa | fc 5c 6e 62 88 8a d5 75 |...\\\\.|.\nb...u|
|00002520| 88 c0 1e 23 e4 c1 77 88 | d1 e5 21 ab a8 67 e6 55 |...#..w.|..!..g.U|
|00002530| ab 85 d5 79 88 aa 6d 67 | e7 55 ab 8b da 75 88 e8 |...y..mg|.U...u..|
|00002540| e9 c1 d0 23 88 aa 5d 8a | c1 7f 88 60 16 23 29 e8 |...#..].|...`.#).|
|00002550| ea 21 88 aa 4f 60 0d 57 | ad 8e 0e 23 60 56 ab 87 |.!..O`.W|...#`V..|
|00002560| eb 20 0e 2c 5a aa 81 69 | 2a ae ab 6e ab 8d 0e 2d |. .,Z..i|*..n...-|
|00002570| c0 55 ab 87 0e 2e 0e 21 | 5c 5c aa 82 0e 2d cb c1 |.U.....!|\\...-..|
|00002580| 78 88 6e ab 83 c0 aa 82 | 0e 2f 68 f0 3d ab 84 d4 |x.n.....|./h.=...|
|00002590| dd 21 88 eb 20 5c 5c 5c | 5c 2d 87 22 20 5b 30 20 |.!.. \\\|\-." [0 |
|000025a0| 6e 69 6c 20 63 6f 6e 74 | 61 69 6e 69 6e 67 2d 73 |nil cont|aining-s|
|000025b0| 65 78 70 20 73 74 61 74 | 65 20 63 61 73 65 2d 66 |exp stat|e case-f|
|000025c0| 6f 6c 64 2d 73 65 61 72 | 63 68 20 69 6e 64 65 6e |old-sear|ch inden|
|000025d0| 74 2d 70 6f 69 6e 74 20 | 70 61 72 73 65 2d 73 74 |t-point |parse-st|
|000025e0| 61 72 74 20 62 65 67 69 | 6e 6e 69 6e 67 2d 6f 66 |art begi|nning-of|
|000025f0| 2d 64 65 66 75 6e 20 70 | 61 72 73 65 2d 70 61 72 |-defun p|arse-par|
|00002600| 74 69 61 6c 2d 73 65 78 | 70 20 33 20 34 20 22 20 |tial-sex|p 3 4 " |
|00002610| 09 22 20 31 32 33 20 63 | 2d 62 61 63 6b 77 61 72 |." 123 c|-backwar|
|00002620| 64 2d 74 6f 2d 6e 6f 6e | 63 6f 6d 6d 65 6e 74 20 |d-to-non|comment |
|00002630| 72 65 2d 73 65 61 72 63 | 68 2d 62 61 63 6b 77 61 |re-searc|h-backwa|
|00002640| 72 64 20 22 5e 5b 5e 20 | 0c 09 5c 6e 23 5d 22 20 |rd "^[^ |..\n#]" |
|00002650| 6d 6f 76 65 20 6c 6f 6f | 6b 69 6e 67 2d 61 74 20 |move loo|king-at |
|00002660| 22 5c 5c 73 77 5c 5c 7c | 5c 5c 73 5f 22 20 22 5b |"\\sw\\||\\s_" "[|
|00002670| 5e 5c 22 5c 6e 3d 5d 2a | 28 22 20 66 6f 72 77 61 |^\"\n=]*|(" forwa|
|00002680| 72 64 2d 73 65 78 70 20 | 31 20 28 34 34 20 35 39 |rd-sexp |1 (44 59|
|00002690| 29 20 63 2d 61 72 67 64 | 65 63 6c 2d 69 6e 64 65 |) c-argd|ecl-inde|
|000026a0| 6e 74 20 34 34 20 35 38 | 20 32 20 33 39 20 28 31 |nt 44 58| 2 39 (1|
|000026b0| 31 39 20 39 35 29 20 2d | 31 20 63 2d 62 61 63 6b |19 95) -|1 c-back|
|000026c0| 77 61 72 64 2d 74 6f 2d | 73 74 61 72 74 2d 6f 66 |ward-to-|start-of|
|000026d0| 2d 63 6f 6e 74 69 6e 75 | 65 64 2d 65 78 70 20 28 |-continu|ed-exp (|
|000026e0| 6e 69 6c 20 34 34 20 35 | 39 20 31 32 35 20 31 32 |nil 44 5|9 125 12|
|000026f0| 33 29 20 31 32 35 20 63 | 2d 63 6f 6e 74 69 6e 75 |3) 125 c|-continu|
|00002700| 65 64 2d 73 74 61 74 65 | 6d 65 6e 74 2d 6f 66 66 |ed-state|ment-off|
|00002710| 73 65 74 20 63 2d 63 6f | 6e 74 69 6e 75 65 64 2d |set c-co|ntinued-|
|00002720| 62 72 61 63 65 2d 6f 66 | 66 73 65 74 20 63 6f 6c |brace-of|fset col|
|00002730| 6f 6e 2d 6c 69 6e 65 2d | 65 6e 64 20 22 20 09 5c |on-line-|end " .\|
|00002740| 6e 22 20 22 23 5c 5c 7c | 2f 5c 5c 2a 5c 5c 7c 63 |n" "#\\||/\\*\\|c|
|00002750| 61 73 65 5b 20 09 5c 6e | 27 2f 28 5d 2e 2a 3a 5c |ase[ .\n|'/(].*:\|
|00002760| 5c 7c 5b 61 2d 7a 41 2d | 5a 30 2d 39 5f 24 5d 2a |\|[a-zA-|Z0-9_$]*|
|00002770| 3a 22 20 33 35 20 34 37 | 20 73 65 61 72 63 68 2d |:" 35 47| search-|
|00002780| 66 6f 72 77 61 72 64 20 | 22 2a 2f 22 20 22 3a 22 |forward |"*/" ":"|
|00002790| 20 63 75 72 72 65 6e 74 | 2d 69 6e 64 65 6e 74 61 | current|-indenta|
|000027a0| 74 69 6f 6e 20 63 2d 6c | 61 62 65 6c 2d 6f 66 66 |tion c-l|abel-off|
|000027b0| 73 65 74 20 63 2d 69 6e | 64 65 6e 74 2d 6c 65 76 |set c-in|dent-lev|
|000027c0| 65 6c 20 63 2d 62 72 61 | 63 65 2d 6f 66 66 73 65 |el c-bra|ce-offse|
|000027d0| 74 20 63 2d 62 72 61 63 | 65 2d 69 6d 61 67 69 6e |t c-brac|e-imagin|
|000027e0| 61 72 79 2d 6f 66 66 73 | 65 74 20 34 31 5d 20 35 |ary-offs|et 41] 5|
|000027f0| 20 22 5c 0a 52 65 74 75 | 72 6e 20 61 70 70 72 6f | "\.Retu|rn appro|
|00002800| 70 72 69 61 74 65 20 69 | 6e 64 65 6e 74 61 74 69 |priate i|ndentati|
|00002810| 6f 6e 20 66 6f 72 20 63 | 75 72 72 65 6e 74 20 6c |on for c|urrent l|
|00002820| 69 6e 65 20 61 73 20 43 | 20 63 6f 64 65 2e 0a 49 |ine as C| code..I|
|00002830| 6e 20 75 73 75 61 6c 20 | 63 61 73 65 20 72 65 74 |n usual |case ret|
|00002840| 75 72 6e 73 20 61 6e 20 | 69 6e 74 65 67 65 72 3a |urns an |integer:|
|00002850| 20 74 68 65 20 63 6f 6c | 75 6d 6e 20 74 6f 20 69 | the col|umn to i|
|00002860| 6e 64 65 6e 74 20 74 6f | 2e 0a 52 65 74 75 72 6e |ndent to|..Return|
|00002870| 73 20 6e 69 6c 20 69 66 | 20 6c 69 6e 65 20 73 74 |s nil if| line st|
|00002880| 61 72 74 73 20 69 6e 73 | 69 64 65 20 61 20 73 74 |arts ins|ide a st|
|00002890| 72 69 6e 67 2c 20 74 20 | 69 66 20 69 6e 20 61 20 |ring, t |if in a |
|000028a0| 63 6f 6d 6d 65 6e 74 2e | 22 5d 29 0a 28 66 73 65 |comment.|"]).(fse|
|000028b0| 74 20 27 63 61 6c 63 75 | 6c 61 74 65 2d 63 2d 69 |t 'calcu|late-c-i|
|000028c0| 6e 64 65 6e 74 2d 77 69 | 74 68 69 6e 2d 63 6f 6d |ndent-wi|thin-com|
|000028d0| 6d 65 6e 74 20 23 5b 28 | 26 6f 70 74 69 6f 6e 61 |ment #[(|&optiona|
|000028e0| 6c 20 61 66 74 65 72 2d | 73 74 61 72 29 20 22 c0 |l after-|star) ".|
|000028f0| 89 19 1a 8a c3 79 88 c4 | c0 77 88 67 c5 55 11 c6 |.....y..|.w.g.U..|
|00002900| c0 78 88 60 12 c3 79 88 | c4 c0 77 88 0e 07 ab 89 |.x.`..y.|..w.....|
|00002910| c8 c9 21 ab 84 ca cb 21 | 88 ca cc 5c 6e cd 23 ab |..!....!|...\n.#.|
|00002920| 8c 09 ab 89 0e 07 ac 85 | c3 94 54 62 88 c8 ce 21 |........|..Tb...!|
|00002930| ab 89 68 c5 55 ab 84 69 | 54 aa 81 69 2b 87 22 20 |..h.U..i|T..i+." |
|00002940| 5b 6e 69 6c 20 73 74 61 | 72 2d 73 74 61 72 74 20 |[nil sta|r-start |
|00002950| 65 6e 64 20 30 20 22 20 | 09 22 20 34 32 20 22 20 |end 0 " |." 42 " |
|00002960| 09 5c 6e 22 20 61 66 74 | 65 72 2d 73 74 61 72 20 |.\n" aft|er-star |
|00002970| 6c 6f 6f 6b 69 6e 67 2d | 61 74 20 22 5c 5c 2a 22 |looking-|at "\\*"|
|00002980| 20 72 65 2d 73 65 61 72 | 63 68 2d 66 6f 72 77 61 | re-sear|ch-forwa|
|00002990| 72 64 20 22 5c 5c 2a 5b | 20 09 5d 2a 22 20 22 2f |rd "\\*[| .]*" "/|
|000029a0| 5c 5c 2a 5b 20 09 5d 2a | 22 20 74 20 22 5b 20 09 |\\*[ .]*|" t "[ .|
|000029b0| 5d 2a 24 22 5d 20 34 20 | 22 5c 0a 52 65 74 75 72 |]*$"] 4 |"\.Retur|
|000029c0| 6e 20 74 68 65 20 69 6e | 64 65 6e 74 61 74 69 6f |n the in|dentatio|
|000029d0| 6e 20 61 6d 6f 75 6e 74 | 20 66 6f 72 20 6c 69 6e |n amount| for lin|
|000029e0| 65 20 69 6e 73 69 64 65 | 20 61 20 62 6c 6f 63 6b |e inside| a block|
|000029f0| 20 63 6f 6d 6d 65 6e 74 | 2e 0a 4e 6f 6e 2d 6e 69 | comment|..Non-ni|
|00002a00| 6c 20 61 72 67 20 41 46 | 54 45 52 2d 53 54 41 52 |l arg AF|TER-STAR|
|00002a10| 20 6d 65 61 6e 73 2c 20 | 69 66 20 6c 69 6e 65 73 | means, |if lines|
|00002a20| 20 69 6e 20 74 68 65 20 | 63 6f 6d 6d 65 6e 74 20 | in the |comment |
|00002a30| 68 61 76 65 20 61 20 6c | 65 61 64 69 6e 67 20 73 |have a l|eading s|
|00002a40| 74 61 72 2c 0a 72 65 74 | 75 72 6e 20 74 68 65 20 |tar,.ret|urn the |
|00002a50| 69 6e 64 65 6e 74 61 74 | 69 6f 6e 20 6f 66 20 74 |indentat|ion of t|
|00002a60| 68 65 20 74 65 78 74 20 | 74 68 61 74 20 77 6f 75 |he text |that wou|
|00002a70| 6c 64 20 66 6f 6c 6c 6f | 77 20 74 68 69 73 20 73 |ld follo|w this s|
|00002a80| 74 61 72 2e 22 5d 29 0a | 28 62 79 74 65 2d 63 6f |tar."]).|(byte-co|
|00002a90| 64 65 20 22 c0 c1 4d 88 | c2 c3 4d 87 22 20 5b 63 |de "..M.|..M." [c|
|00002aa0| 2d 62 61 63 6b 77 61 72 | 64 2d 74 6f 2d 6e 6f 6e |-backwar|d-to-non|
|00002ab0| 63 6f 6d 6d 65 6e 74 20 | 23 5b 28 6c 69 6d 29 20 |comment |#[(lim) |
|00002ac0| 22 c0 89 19 1a 09 3f ad | ca c3 0c 78 88 60 12 60 |".....?.|...x.`.`|
|00002ad0| 0c c5 5c 5c 59 ab 92 8a | c6 75 88 c7 c8 21 29 ab |..\\Y...|.u...!).|
|00002ae0| 88 c9 ca 0c cb 23 88 aa | 5d 60 0c 58 ae 9d 8a cc |.....#..|]`.X....|
|00002af0| 79 88 60 c5 5a 66 cd 3d | ab 88 ce 75 88 cc 79 88 |y.`.Zf.=|...u..y.|
|00002b00| aa 6d cf c0 77 88 c7 d0 | 21 29 3f 89 11 ac 37 cc |.m..w...|!)?...7.|
|00002b10| 79 88 aa 32 2a 87 22 20 | 5b 6e 69 6c 20 73 74 6f |y..2*." |[nil sto|
|00002b20| 70 20 6f 70 6f 69 6e 74 | 20 22 20 09 5c 6e 0c 22 |p opoint| " .\n."|
|00002b30| 20 6c 69 6d 20 32 20 2d | 32 20 6c 6f 6f 6b 69 6e | lim 2 -|2 lookin|
|00002b40| 67 2d 61 74 20 22 5c 5c | 2a 2f 22 20 73 65 61 72 |g-at "\\|*/" sear|
|00002b50| 63 68 2d 62 61 63 6b 77 | 61 72 64 20 22 2f 2a 22 |ch-backw|ard "/*"|
|00002b60| 20 6d 6f 76 65 20 30 20 | 39 32 20 2d 31 20 22 20 | move 0 |92 -1 " |
|00002b70| 09 22 20 22 23 22 5d 20 | 35 5d 20 63 2d 62 61 63 |." "#"] |5] c-bac|
|00002b80| 6b 77 61 72 64 2d 74 6f | 2d 73 74 61 72 74 2d 6f |kward-to|-start-o|
|00002b90| 66 2d 63 6f 6e 74 69 6e | 75 65 64 2d 65 78 70 20 |f-contin|ued-exp |
|00002ba0| 23 5b 28 6c 69 6d 29 20 | 22 68 c0 3e ab 84 c1 c2 |#[(lim) |"h.>....|
|00002bb0| 21 88 c3 79 88 60 0c 58 | ab 84 0c 54 62 88 c5 c6 |!..y.`.X|...Tb...|
|00002bc0| 77 87 22 20 5b 28 34 31 | 20 33 34 29 20 66 6f 72 |w." [(41| 34) for|
|00002bd0| 77 61 72 64 2d 73 65 78 | 70 20 2d 31 20 30 20 6c |ward-sex|p -1 0 l|
|00002be0| 69 6d 20 22 20 09 22 20 | 6e 69 6c 5d 20 32 5d 5d |im " ." |nil] 2]]|
|00002bf0| 20 32 29 0a 28 66 73 65 | 74 20 27 63 2d 62 61 63 | 2).(fse|t 'c-bac|
|00002c00| 6b 77 61 72 64 2d 74 6f | 2d 73 74 61 72 74 2d 6f |kward-to|-start-o|
|00002c10| 66 2d 69 66 20 23 5b 28 | 26 6f 70 74 69 6f 6e 61 |f-if #[(|&optiona|
|00002c20| 6c 20 6c 69 6d 69 74 29 | 20 22 08 ac 87 8a c1 20 |l limit)| "..... |
|00002c30| 88 60 29 10 c2 c3 1c 1d | 6f 3f ad aa 0d c6 55 3f |.`).....|o?....U?|
|00002c40| ad a4 c7 c2 21 88 c8 c9 | 21 ab 85 0d 54 15 aa 68 |....!...|!...T..h|
|00002c50| c8 ca 21 ab 85 0d 53 15 | aa 5e 60 08 57 ab 59 c6 |..!...S.|.^`.W.Y.|
|00002c60| 15 08 62 88 aa 52 2a 87 | 22 20 5b 6c 69 6d 69 74 |..b..R*.|" [limit|
|00002c70| 20 62 65 67 69 6e 6e 69 | 6e 67 2d 6f 66 2d 64 65 | beginni|ng-of-de|
|00002c80| 66 75 6e 20 31 20 6e 69 | 6c 20 63 61 73 65 2d 66 |fun 1 ni|l case-f|
|00002c90| 6f 6c 64 2d 73 65 61 72 | 63 68 20 69 66 2d 6c 65 |old-sear|ch if-le|
|00002ca0| 76 65 6c 20 30 20 62 61 | 63 6b 77 61 72 64 2d 73 |vel 0 ba|ckward-s|
|00002cb0| 65 78 70 20 6c 6f 6f 6b | 69 6e 67 2d 61 74 20 22 |exp look|ing-at "|
|00002cc0| 65 6c 73 65 5c 5c 62 22 | 20 22 69 66 5c 5c 62 22 |else\\b"| "if\\b"|
|00002cd0| 5d 20 32 20 22 5c 0a 4d | 6f 76 65 20 74 6f 20 74 |] 2 "\.M|ove to t|
|00002ce0| 68 65 20 73 74 61 72 74 | 20 6f 66 20 74 68 65 20 |he start| of the |
|00002cf0| 6c 61 73 74 20 60 60 75 | 6e 62 61 6c 61 6e 63 65 |last ``u|nbalance|
|00002d00| 64 27 27 20 69 66 2e 22 | 5d 29 0a 28 66 73 65 74 |d'' if."|]).(fset|
|00002d10| 20 27 63 2d 62 61 63 6b | 77 61 72 64 2d 74 6f 2d | 'c-back|ward-to-|
|00002d20| 73 74 61 72 74 2d 6f 66 | 2d 64 6f 20 23 5b 28 26 |start-of|-do #[(&|
|00002d30| 6f 70 74 69 6f 6e 61 6c | 20 6c 69 6d 69 74 29 20 |optional| limit) |
|00002d40| 22 08 ac 87 8a c1 20 88 | 60 29 10 c2 60 c3 1c 1d |"..... .|`)..`...|
|00002d50| 1e 06 0c ac c9 60 1e 07 | c3 c8 c9 8f 88 0c ac bb |.....`..|........|
|00002d60| ca cb 21 ab 84 cc 14 aa | b2 8a cd ce 21 88 0e 06 |..!.....|....!...|
|00002d70| ac 85 68 cf 55 ae 93 d0 | d1 0e 07 c2 0e 06 ab 88 |..h.U...|........|
|00002d80| 68 cf 55 ac 83 d2 aa 81 | ce 24 29 ab 84 d3 14 aa |h.U.....|.$).....|
|00002d90| 8a c3 16 06 60 08 57 ab | 82 d3 14 29 aa 34 0c cc |....`.W.|...).4..|
|00002da0| 3d ab 83 c2 aa 84 0d 62 | 88 c3 2b 87 22 20 5b 6c |=......b|..+." [l|
|00002db0| 69 6d 69 74 20 62 65 67 | 69 6e 6e 69 6e 67 2d 6f |imit beg|inning-o|
|00002dc0| 66 2d 64 65 66 75 6e 20 | 74 20 6e 69 6c 20 64 6f |f-defun |t nil do|
|00002dd0| 6e 65 20 73 74 61 72 74 | 70 6f 73 20 66 69 72 73 |ne start|pos firs|
|00002de0| 74 20 6e 65 78 74 2d 73 | 74 61 72 74 20 28 62 61 |t next-s|tart (ba|
|00002df0| 63 6b 77 61 72 64 2d 73 | 65 78 70 20 31 29 20 28 |ckward-s|exp 1) (|
|00002e00| 28 65 72 72 6f 72 20 28 | 62 79 74 65 2d 63 6f 64 |(error (|byte-cod|
|00002e10| 65 20 22 c0 11 c0 87 22 | 20 5b 66 61 69 6c 20 64 |e "...."| [fail d|
|00002e20| 6f 6e 65 5d 20 31 29 29 | 29 20 6c 6f 6f 6b 69 6e |one] 1))|) lookin|
|00002e30| 67 2d 61 74 20 22 64 6f | 5c 5c 62 22 20 73 75 63 |g-at "do|\\b" suc|
|00002e40| 63 65 65 64 20 66 6f 72 | 77 61 72 64 2d 73 65 78 |ceed for|ward-sex|
|00002e50| 70 20 31 20 31 32 35 20 | 73 65 61 72 63 68 2d 66 |p 1 125 |search-f|
|00002e60| 6f 72 77 61 72 64 20 22 | 3b 22 20 32 20 66 61 69 |orward "|;" 2 fai|
|00002e70| 6c 5d 20 36 20 22 5c 0a | 49 66 20 70 6f 69 6e 74 |l] 6 "\.|If point|
|00002e80| 20 66 6f 6c 6c 6f 77 73 | 20 61 20 60 64 6f 27 20 | follows| a `do' |
|00002e90| 73 74 61 74 65 6d 65 6e | 74 2c 20 6d 6f 76 65 20 |statemen|t, move |
|00002ea0| 74 6f 20 62 65 67 69 6e | 6e 69 6e 67 20 6f 66 20 |to begin|ning of |
|00002eb0| 69 74 20 61 6e 64 20 72 | 65 74 75 72 6e 20 60 74 |it and r|eturn `t|
|00002ec0| 27 2e 0a 4f 74 68 65 72 | 77 69 73 65 20 72 65 74 |'..Other|wise ret|
|00002ed0| 75 72 6e 20 60 6e 69 6c | 27 20 61 6e 64 20 64 6f |urn `nil|' and do|
|00002ee0| 6e 27 74 20 6d 6f 76 65 | 20 70 6f 69 6e 74 2e 22 |n't move| point."|
|00002ef0| 5d 29 0a 28 66 73 65 74 | 20 27 6d 61 72 6b 2d 63 |]).(fset| 'mark-c|
|00002f00| 2d 66 75 6e 63 74 69 6f | 6e 20 23 5b 6e 69 6c 20 |-functio|n #[nil |
|00002f10| 22 c0 60 21 88 c1 20 88 | c0 60 21 88 c2 20 88 c3 |".`!.. .|.`!.. ..|
|00002f20| 20 88 c4 20 87 22 20 5b | 70 75 73 68 2d 6d 61 72 | .. ." [|push-mar|
|00002f30| 6b 20 65 6e 64 2d 6f 66 | 2d 64 65 66 75 6e 20 62 |k end-of|-defun b|
|00002f40| 65 67 69 6e 6e 69 6e 67 | 2d 6f 66 2d 64 65 66 75 |eginning|-of-defu|
|00002f50| 6e 20 62 61 63 6b 77 61 | 72 64 2d 70 61 72 61 67 |n backwa|rd-parag|
|00002f60| 72 61 70 68 20 7a 6d 61 | 63 73 2d 61 63 74 69 76 |raph zma|cs-activ|
|00002f70| 61 74 65 2d 72 65 67 69 | 6f 6e 5d 20 32 20 22 5c |ate-regi|on] 2 "\|
|00002f80| 0a 50 75 74 20 6d 61 72 | 6b 20 61 74 20 65 6e 64 |.Put mar|k at end|
|00002f90| 20 6f 66 20 43 20 66 75 | 6e 63 74 69 6f 6e 2c 20 | of C fu|nction, |
|00002fa0| 70 6f 69 6e 74 20 61 74 | 20 62 65 67 69 6e 6e 69 |point at| beginni|
|00002fb0| 6e 67 2e 22 20 6e 69 6c | 5d 29 0a 28 66 73 65 74 |ng." nil|]).(fset|
|00002fc0| 20 27 69 6e 64 65 6e 74 | 2d 63 2d 65 78 70 20 23 | 'indent|-c-exp #|
|00002fd0| 5b 28 26 6f 70 74 69 6f | 6e 61 6c 20 65 6e 64 70 |[(&optio|nal endp|
|00002fe0| 6f 73 29 20 22 c0 43 19 | 60 1a 0b ab 98 c0 1c 8a |os) ".C.|`.......|
|00002ff0| c5 75 88 c6 20 88 60 14 | 29 8c 0c 60 7d 88 c0 c7 |.u.. .`.|)..`}...|
|00003000| c8 8f 2a aa 81 60 43 1e | 09 c0 1e 5c 6e c0 1e 0b |..*..`C.|...\n...|
|00003010| c0 1e 0c c0 1e 0d c0 1e | 0e c0 1e 0f c0 1e 10 c0 |........|........|
|00003020| 1e 11 c0 1e 12 c0 1e 13 | c0 1e 14 c0 1e 15 d6 1e |........|........|
|00003030| 17 8a d8 c5 21 88 29 8a | 60 1e 19 da 0e 1b 8a c0 |....!.).|`.......|
|00003040| 7f 88 60 29 dc 23 ab a0 | dd 0e 19 60 c0 89 0e 0e |..`).#..|...`....|
|00003050| 25 1e 1e df 0e 1e 38 3f | ad 85 e0 0e 1e 38 3f 29 |%.....8?|.....8?)|
|00003060| ab 86 e1 20 88 d6 79 88 | 2a 8a c0 16 0c 6d 3f 85 |... ..y.|*....m?.|
|00003070| 9e 02 0b ab 85 60 0b 57 | aa 83 0e 0c 3f 85 9e 02 |.....`.W|....?...|
|00003080| 0e 17 16 15 c0 16 0d 0e | 0d ac cf 6d ab 86 dc 89 |........|...m....|
|00003090| 16 0c ac c6 0e 0e 16 0f | dd 60 c0 7f 88 60 c0 89 |........|.`...`..|
|000030a0| 0e 0e 25 89 16 0e 40 16 | 17 0e 0e 41 41 40 ab 90 |..%...@.|...AA@..|
|000030b0| 0e 0e 41 41 40 d6 59 ab | 87 0e 0e 41 41 40 16 11 |..AA@.Y.|...AA@..|
|000030c0| e2 0e 0f 38 ab 83 e3 20 | 88 df 0e 0e 38 ab 85 c5 |...8... |....8...|
|000030d0| 79 88 aa 33 dc 89 16 0d | ab 31 0b ab ab 0e 17 d6 |y..3....|.1......|
|000030e0| 57 ab a5 e4 09 c0 43 5c | 22 11 e4 0e 09 c0 43 5c |W.....C\|".....C\|
|000030f0| 22 16 09 0e 17 54 16 17 | 0e 15 54 16 15 e5 0e 0e |"....T..|..T.....|
|00003100| 9b e5 0e 0e 38 54 a0 88 | aa 55 0b 3f ad 84 0e 17 |....8T..|.U.?....|
|00003110| d6 58 89 16 0c 84 87 00 | 0e 15 e5 0e 0e 38 56 ab |.X......|.....8V.|
|00003120| 90 09 41 11 0e 09 41 16 | 09 0e 15 53 89 16 15 aa |..A...A.|...S....|
|00003130| 69 0e 15 0e 17 55 ac 83 | c0 16 11 0e 15 0e 17 57 |i....U..|.......W|
|00003140| ab 92 c0 09 42 11 c0 0e | 09 42 16 09 0e 15 54 89 |....B...|.B....T.|
|00003150| 16 15 aa 69 0e 09 40 ac | 91 0e 09 0e 0e 41 40 ae |...i..@.|.....A@.|
|00003160| 87 8a d8 e6 21 88 60 29 | a0 88 c5 79 88 e7 c0 77 |....!.`)|...y...w|
|00003170| 88 6c 84 87 00 09 40 ab | e9 09 40 d6 59 ab e3 0e |.l....@.|..@.Y...|
|00003180| 09 40 66 e8 55 ac 86 09 | 40 16 10 aa ec 8a e9 ea |.@f.U...|@.......|
|00003190| 21 16 12 67 e8 55 16 13 | e9 eb 21 16 14 ec 5c 6e |!..g.U..|..!...\n|
|000031a0| 21 88 68 ed 3e ac 98 ee | 0e 09 40 21 88 0e 2f 69 |!.h.>...|..@!../i|
|000031b0| 0e 13 ab 84 0e 30 aa 81 | d6 5c 5c 5c 5c 16 10 aa |.....0..|.\\\\...|
|000031c0| a1 0e 12 ab 8a f1 5c 6e | 21 88 f2 20 16 10 aa 93 |......\n|!.. ....|
|000031d0| 0e 14 ab 8b f3 5c 6e 21 | ab 86 f2 20 16 10 aa 84 |.....\n!|... ....|
|000031e0| 09 40 16 10 29 aa 97 f4 | 09 40 ab 85 09 40 5b aa |.@..)...|.@...@[.|
|000031f0| 81 5c 6e 21 1e 35 09 0e | 35 89 16 10 a0 88 29 e9 |.\n!.5..|5.....).|
|00003200| f6 21 ac 90 e9 f7 21 ab | 94 8a d8 c5 21 88 e9 f8 |.!....!.|....!...|
|00003210| 21 29 ab 89 c5 0e 10 0e | 39 5c 5c 5d 16 10 67 fa |!)......|9\\]..g.|
|00003220| 55 ab 87 0e 10 0e 3b 5a | 16 10 67 e8 55 ab 87 0e |U.....;Z|..g.U...|
|00003230| 10 0e 3c 5c 5c 16 10 6c | ab 83 d6 16 10 69 0e 10 |..<\\..l|.....i..|
|00003240| 55 ac 90 67 fd 55 ac 8b | 60 d6 79 88 60 7c 88 0e |U..g.U..|`.y.`|..|
|00003250| 10 6a 88 e9 0e 1b 21 84 | 87 00 60 1e 19 da 0e 1b |.j....!.|..`.....|
|00003260| 8a c0 7f 88 60 29 dc 23 | ab a0 dd 0e 19 60 c0 89 |....`).#|.....`..|
|00003270| 0e 0e 25 1e 1e df 0e 1e | 38 3f ad 85 e0 0e 1e 38 |..%.....|8?.....8|
|00003280| 3f 29 ab 86 e1 20 88 d6 | 79 88 29 82 87 00 2e 11 |?)... ..|y.).....|
|00003290| 87 22 20 5b 6e 69 6c 20 | 69 6e 64 65 6e 74 2d 73 |." [nil |indent-s|
|000032a0| 74 61 63 6b 20 6f 70 6f | 69 6e 74 20 65 6e 64 70 |tack opo|int endp|
|000032b0| 6f 73 20 66 75 6e 62 65 | 67 20 31 20 62 65 67 69 |os funbe|g 1 begi|
|000032c0| 6e 6e 69 6e 67 2d 6f 66 | 2d 64 65 66 75 6e 20 28 |nning-of|-defun (|
|000032d0| 62 79 74 65 2d 63 6f 64 | 65 20 22 8a c0 c1 21 88 |byte-cod|e "...!.|
|000032e0| 60 29 87 22 20 5b 62 61 | 63 6b 77 61 72 64 2d 75 |`)." [ba|ckward-u|
|000032f0| 70 2d 6c 69 73 74 20 31 | 5d 20 32 29 20 28 28 65 |p-list 1|] 2) ((e|
|00003300| 72 72 6f 72 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |rror (by|te-code |
|00003310| 22 08 11 60 87 22 20 5b | 66 75 6e 62 65 67 20 6f |"..`." [|funbeg o|
|00003320| 70 6f 69 6e 74 5d 20 31 | 29 29 29 20 63 6f 6e 74 |point] 1|))) cont|
|00003330| 61 69 6e 2d 73 74 61 63 | 6b 20 63 61 73 65 2d 66 |ain-stac|k case-f|
|00003340| 6f 6c 64 2d 73 65 61 72 | 63 68 20 72 65 73 74 61 |old-sear|ch resta|
|00003350| 72 74 20 6f 75 74 65 72 | 2d 6c 6f 6f 70 2d 64 6f |rt outer|-loop-do|
|00003360| 6e 65 20 69 6e 6e 65 72 | 2d 6c 6f 6f 70 2d 64 6f |ne inner|-loop-do|
|00003370| 6e 65 20 73 74 61 74 65 | 20 6f 73 74 61 74 65 20 |ne state| ostate |
|00003380| 74 68 69 73 2d 69 6e 64 | 65 6e 74 20 6c 61 73 74 |this-ind|ent last|
|00003390| 2d 73 65 78 70 20 61 74 | 2d 65 6c 73 65 20 61 74 |-sexp at|-else at|
|000033a0| 2d 62 72 61 63 65 20 61 | 74 2d 77 68 69 6c 65 20 |-brace a|t-while |
|000033b0| 6c 61 73 74 2d 64 65 70 | 74 68 20 30 20 6e 65 78 |last-dep|th 0 nex|
|000033c0| 74 2d 64 65 70 74 68 20 | 66 6f 72 77 61 72 64 2d |t-depth |forward-|
|000033d0| 73 65 78 70 20 62 65 67 | 20 72 65 2d 73 65 61 72 |sexp beg| re-sear|
|000033e0| 63 68 2d 66 6f 72 77 61 | 72 64 20 63 6f 6d 6d 65 |ch-forwa|rd comme|
|000033f0| 6e 74 2d 73 74 61 72 74 | 2d 73 6b 69 70 20 74 20 |nt-start|-skip t |
|00003400| 70 61 72 73 65 2d 70 61 | 72 74 69 61 6c 2d 73 65 |parse-pa|rtial-se|
|00003410| 78 70 20 6e 65 77 2d 73 | 74 61 74 65 20 33 20 35 |xp new-s|tate 3 5|
|00003420| 20 69 6e 64 65 6e 74 2d | 66 6f 72 2d 63 6f 6d 6d | indent-|for-comm|
|00003430| 65 6e 74 20 34 20 63 2d | 69 6e 64 65 6e 74 2d 6c |ent 4 c-|indent-l|
|00003440| 69 6e 65 20 61 70 70 65 | 6e 64 20 36 20 2d 31 20 |ine appe|nd 6 -1 |
|00003450| 22 20 09 22 20 31 32 33 | 20 6c 6f 6f 6b 69 6e 67 |" ." 123| looking|
|00003460| 2d 61 74 20 22 65 6c 73 | 65 5c 5c 57 22 20 22 77 |-at "els|e\\W" "w|
|00003470| 68 69 6c 65 5c 5c 62 22 | 20 63 2d 62 61 63 6b 77 |hile\\b"| c-backw|
|00003480| 61 72 64 2d 74 6f 2d 6e | 6f 6e 63 6f 6d 6d 65 6e |ard-to-n|oncommen|
|00003490| 74 20 28 6e 69 6c 20 34 | 34 20 35 39 20 31 32 35 |t (nil 4|4 59 125|
|000034a0| 20 35 38 20 31 32 33 29 | 20 63 2d 62 61 63 6b 77 | 58 123)| c-backw|
|000034b0| 61 72 64 2d 74 6f 2d 73 | 74 61 72 74 2d 6f 66 2d |ard-to-s|tart-of-|
|000034c0| 63 6f 6e 74 69 6e 75 65 | 64 2d 65 78 70 20 63 2d |continue|d-exp c-|
|000034d0| 63 6f 6e 74 69 6e 75 65 | 64 2d 73 74 61 74 65 6d |continue|d-statem|
|000034e0| 65 6e 74 2d 6f 66 66 73 | 65 74 20 63 2d 63 6f 6e |ent-offs|et c-con|
|000034f0| 74 69 6e 75 65 64 2d 62 | 72 61 63 65 2d 6f 66 66 |tinued-b|race-off|
|00003500| 73 65 74 20 63 2d 62 61 | 63 6b 77 61 72 64 2d 74 |set c-ba|ckward-t|
|00003510| 6f 2d 73 74 61 72 74 2d | 6f 66 2d 69 66 20 63 75 |o-start-|of-if cu|
|00003520| 72 72 65 6e 74 2d 69 6e | 64 65 6e 74 61 74 69 6f |rrent-in|dentatio|
|00003530| 6e 20 63 2d 62 61 63 6b | 77 61 72 64 2d 74 6f 2d |n c-back|ward-to-|
|00003540| 73 74 61 72 74 2d 6f 66 | 2d 64 6f 20 63 61 6c 63 |start-of|-do calc|
|00003550| 75 6c 61 74 65 2d 63 2d | 69 6e 64 65 6e 74 20 76 |ulate-c-|indent v|
|00003560| 61 6c 20 22 63 61 73 65 | 5b 20 09 27 2f 28 5d 22 |al "case|[ .'/(]"|
|00003570| 20 22 5b 41 2d 5a 61 2d | 7a 5d 22 20 22 3a 22 20 | "[A-Za-|z]" ":" |
|00003580| 63 2d 6c 61 62 65 6c 2d | 6f 66 66 73 65 74 20 31 |c-label-|offset 1|
|00003590| 32 35 20 63 2d 69 6e 64 | 65 6e 74 2d 6c 65 76 65 |25 c-ind|ent-leve|
|000035a0| 6c 20 63 2d 62 72 61 63 | 65 2d 6f 66 66 73 65 74 |l c-brac|e-offset|
|000035b0| 20 33 35 5d 20 37 20 22 | 5c 0a 49 6e 64 65 6e 74 | 35] 7 "|\.Indent|
|000035c0| 20 65 61 63 68 20 6c 69 | 6e 65 20 6f 66 20 74 68 | each li|ne of th|
|000035d0| 65 20 43 20 67 72 6f 75 | 70 69 6e 67 20 66 6f 6c |e C grou|ping fol|
|000035e0| 6c 6f 77 69 6e 67 20 70 | 6f 69 6e 74 2e 0a 49 66 |lowing p|oint..If|
|000035f0| 20 6f 70 74 69 6f 6e 61 | 6c 20 61 72 67 20 45 4e | optiona|l arg EN|
|00003600| 44 50 4f 53 20 69 73 20 | 67 69 76 65 6e 2c 20 69 |DPOS is |given, i|
|00003610| 6e 64 65 6e 74 20 65 61 | 63 68 20 6c 69 6e 65 2c |ndent ea|ch line,|
|00003620| 20 73 74 6f 70 70 69 6e | 67 20 77 68 65 6e 0a 45 | stoppin|g when.E|
|00003630| 4e 44 50 4f 53 20 69 73 | 20 65 6e 63 6f 75 6e 74 |NDPOS is| encount|
|00003640| 65 72 65 64 2e 22 20 6e | 69 6c 5d 29 0a 28 66 73 |ered." n|il]).(fs|
|00003650| 65 74 20 27 63 2d 69 6e | 64 65 6e 74 2d 72 65 67 |et 'c-in|dent-reg|
|00003660| 69 6f 6e 20 23 5b 28 73 | 74 61 72 74 20 65 6e 64 |ion #[(s|tart end|
|00003670| 29 20 22 8a 08 62 88 c1 | 5c 6e 21 1b 6e ab 86 6c |) "..b..|\n!.n..l|
|00003680| ac 83 c4 20 88 c5 0b 21 | 88 0b c6 89 93 2a 87 22 |... ...!|.....*."|
|00003690| 20 5b 73 74 61 72 74 20 | 63 6f 70 79 2d 6d 61 72 | [start |copy-mar|
|000036a0| 6b 65 72 20 65 6e 64 20 | 65 6e 64 6d 61 72 6b 20 |ker end |endmark |
|000036b0| 63 2d 69 6e 64 65 6e 74 | 2d 6c 69 6e 65 20 69 6e |c-indent|-line in|
|000036c0| 64 65 6e 74 2d 63 2d 65 | 78 70 20 6e 69 6c 5d 20 |dent-c-e|xp nil] |
|000036d0| 33 5d 29 0a | |3]). | |
+--------+-------------------------+-------------------------+--------+--------+
