home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1995-08-29 | 27.8 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
| |
| 55%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
| |
| 44%
| TrID
| Summation Document Image Information Load File
| default (weak)
| |
| 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 63 74 68 6f 6d 70 40 |piled by| cthomp@|
|00000020| 77 69 6c 6c 6f 77 2e 63 | 73 2e 75 69 75 63 2e 65 |willow.c|s.uiuc.e|
|00000030| 64 75 20 6f 6e 20 54 75 | 65 20 41 75 67 20 32 39 |du on Tu|e Aug 29|
|00000040| 20 31 34 3a 30 39 3a 32 | 38 20 31 39 39 35 0a 3b | 14:09:2|8 1995.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 78 65 |;; from |file /xe|
|00000060| 6d 61 63 73 2f 78 65 6d | 61 63 73 2d 31 39 2e 31 |macs/xem|acs-19.1|
|00000070| 33 2d 72 65 6c 65 61 73 | 65 2f 65 64 69 74 6f 72 |3-releas|e/editor|
|00000080| 2f 6c 69 73 70 2f 6d 6f | 64 65 73 2f 70 61 73 63 |/lisp/mo|des/pasc|
|00000090| 61 6c 2e 65 6c 0a 3b 3b | 3b 20 65 6d 61 63 73 20 |al.el.;;|; emacs |
|000000a0| 76 65 72 73 69 6f 6e 20 | 31 39 2e 31 33 20 58 45 |version |19.13 XE|
|000000b0| 6d 61 63 73 20 4c 75 63 | 69 64 2e 0a 3b 3b 3b 20 |macs Luc|id..;;; |
|000000c0| 62 79 74 65 63 6f 6d 70 | 20 76 65 72 73 69 6f 6e |bytecomp| version|
|000000d0| 20 32 2e 32 35 3b 20 31 | 2d 53 65 70 2d 39 34 2e | 2.25; 1|-Sep-94.|
|000000e0| 0a 3b 3b 3b 20 6f 70 74 | 69 6d 69 7a 61 74 69 6f |.;;; opt|imizatio|
|000000f0| 6e 20 69 73 20 6f 6e 2e | 0a 3b 3b 3b 20 74 68 69 |n is on.|.;;; thi|
|00000100| 73 20 66 69 6c 65 20 75 | 73 65 73 20 6f 70 63 6f |s file u|ses opco|
|00000110| 64 65 73 20 77 68 69 63 | 68 20 64 6f 20 6e 6f 74 |des whic|h do not|
|00000120| 20 65 78 69 73 74 20 69 | 6e 20 45 6d 61 63 73 20 | exist i|n Emacs |
|00000130| 31 38 2e 0a 0a 28 69 66 | 20 28 61 6e 64 20 28 62 |18...(if| (and (b|
|00000140| 6f 75 6e 64 70 20 27 65 | 6d 61 63 73 2d 76 65 72 |oundp 'e|macs-ver|
|00000150| 73 69 6f 6e 29 0a 09 20 | 28 6f 72 20 28 61 6e 64 |sion).. |(or (and|
|00000160| 20 28 62 6f 75 6e 64 70 | 20 27 65 70 6f 63 68 3a | (boundp| 'epoch:|
|00000170| 3a 76 65 72 73 69 6f 6e | 29 20 65 70 6f 63 68 3a |:version|) epoch:|
|00000180| 3a 76 65 72 73 69 6f 6e | 29 0a 09 20 20 20 20 20 |:version|).. |
|00000190| 28 73 74 72 69 6e 67 2d | 6c 65 73 73 70 20 65 6d |(string-|lessp em|
|000001a0| 61 63 73 2d 76 65 72 73 | 69 6f 6e 20 22 31 39 22 |acs-vers|ion "19"|
|000001b0| 29 29 29 0a 20 20 20 20 | 28 65 72 72 6f 72 20 22 |))). |(error "|
|000001c0| 54 68 69 73 20 66 69 6c | 65 20 77 61 73 20 63 6f |This fil|e was co|
|000001d0| 6d 70 69 6c 65 64 20 66 | 6f 72 20 45 6d 61 63 73 |mpiled f|or Emacs|
|000001e0| 20 31 39 2e 22 29 29 0a | 0a 28 64 65 66 63 6f 6e | 19.")).|.(defcon|
|000001f0| 73 74 20 70 61 73 63 61 | 6c 2d 6d 6f 64 65 2d 76 |st pasca|l-mode-v|
|00000200| 65 72 73 69 6f 6e 20 22 | 32 2e 34 22 20 22 5c 0a |ersion "|2.4" "\.|
|00000210| 56 65 72 73 69 6f 6e 20 | 6f 66 20 60 70 61 73 63 |Version |of `pasc|
|00000220| 61 6c 2e 65 6c 27 2e 22 | 29 0a 28 64 65 66 76 61 |al.el'."|).(defva|
|00000230| 72 20 70 61 73 63 61 6c | 2d 6d 6f 64 65 2d 61 62 |r pascal|-mode-ab|
|00000240| 62 72 65 76 2d 74 61 62 | 6c 65 20 6e 69 6c 20 22 |brev-tab|le nil "|
|00000250| 5c 0a 41 62 62 72 65 76 | 20 74 61 62 6c 65 20 69 |\.Abbrev| table i|
|00000260| 6e 20 75 73 65 20 69 6e | 20 50 61 73 63 61 6c 2d |n use in| Pascal-|
|00000270| 6d 6f 64 65 20 62 75 66 | 66 65 72 73 2e 22 29 0a |mode buf|fers.").|
|00000280| 28 64 65 66 69 6e 65 2d | 61 62 62 72 65 76 2d 74 |(define-|abbrev-t|
|00000290| 61 62 6c 65 20 27 70 61 | 73 63 61 6c 2d 6d 6f 64 |able 'pa|scal-mod|
|000002a0| 65 2d 61 62 62 72 65 76 | 2d 74 61 62 6c 65 20 6e |e-abbrev|-table n|
|000002b0| 69 6c 29 0a 28 64 65 66 | 76 61 72 20 70 61 73 63 |il).(def|var pasc|
|000002c0| 61 6c 2d 6d 6f 64 65 2d | 6d 61 70 20 6e 69 6c 20 |al-mode-|map nil |
|000002d0| 22 5c 0a 4b 65 79 6d 61 | 70 20 75 73 65 64 20 69 |"\.Keyma|p used i|
|000002e0| 6e 20 50 61 73 63 61 6c | 20 6d 6f 64 65 2e 22 29 |n Pascal| mode.")|
|000002f0| 0a 28 62 79 74 65 2d 63 | 6f 64 65 20 22 08 ac f5 |.(byte-c|ode "...|
|00000300| c1 20 10 c2 08 c3 c4 23 | 88 c2 08 c5 c4 23 88 c2 |. .....#|.....#..|
|00000310| 08 c6 c7 23 88 c2 08 c8 | c9 23 88 c2 08 ca cb 23 |...#....|.#.....#|
|00000320| 88 c2 08 cc cd 23 88 c2 | 08 ce cf 23 88 c2 08 d0 |.....#..|...#....|
|00000330| d1 23 88 c2 08 d2 d3 23 | 88 c2 08 d4 d5 23 88 c2 |.#.....#|.....#..|
|00000340| 08 d6 d7 23 88 c2 08 d8 | d9 23 88 c2 08 da db 23 |...#....|.#.....#|
|00000350| 88 c2 08 dc dd 23 88 c2 | 08 de df 23 88 c2 08 e0 |.....#..|...#....|
|00000360| e1 23 88 c2 08 e2 e3 23 | 88 c2 08 e4 e5 23 88 c2 |.#.....#|.....#..|
|00000370| 08 e6 e7 23 88 e8 e9 21 | ac 83 ea 16 29 eb 16 2c |...#...!|....)..,|
|00000380| ed 16 2e ef 16 30 f1 16 | 32 f3 16 34 f5 16 36 f7 |.....0..|2..4..6.|
|00000390| 16 38 f9 16 3a fb 16 3c | fd 16 3e ff 16 40 c1 87 |.8..:..<|..>..@..|
|000003a0| 22 20 5b 70 61 73 63 61 | 6c 2d 6d 6f 64 65 2d 6d |" [pasca|l-mode-m|
|000003b0| 61 70 20 6d 61 6b 65 2d | 73 70 61 72 73 65 2d 6b |ap make-|sparse-k|
|000003c0| 65 79 6d 61 70 20 64 65 | 66 69 6e 65 2d 6b 65 79 |eymap de|fine-key|
|000003d0| 20 22 3b 22 20 65 6c 65 | 63 74 72 69 63 2d 70 61 | ";" ele|ctric-pa|
|000003e0| 73 63 61 6c 2d 73 65 6d | 69 2d 6f 72 2d 64 6f 74 |scal-sem|i-or-dot|
|000003f0| 20 22 2e 22 20 22 3a 22 | 20 65 6c 65 63 74 72 69 | "." ":"| electri|
|00000400| 63 2d 70 61 73 63 61 6c | 2d 63 6f 6c 6f 6e 20 22 |c-pascal|-colon "|
|00000410| 3d 22 20 65 6c 65 63 74 | 72 69 63 2d 70 61 73 63 |=" elect|ric-pasc|
|00000420| 61 6c 2d 65 71 75 61 6c | 20 22 23 22 20 65 6c 65 |al-equal| "#" ele|
|00000430| 63 74 72 69 63 2d 70 61 | 73 63 61 6c 2d 68 61 73 |ctric-pa|scal-has|
|00000440| 68 20 22 0d 22 20 65 6c | 65 63 74 72 69 63 2d 70 |h "." el|ectric-p|
|00000450| 61 73 63 61 6c 2d 74 65 | 72 6d 69 6e 61 74 65 2d |ascal-te|rminate-|
|00000460| 6c 69 6e 65 20 22 09 22 | 20 65 6c 65 63 74 72 69 |line "."| electri|
|00000470| 63 2d 70 61 73 63 61 6c | 2d 74 61 62 20 22 89 22 |c-pascal|-tab "."|
|00000480| 20 70 61 73 63 61 6c 2d | 63 6f 6d 70 6c 65 74 65 | pascal-|complete|
|00000490| 2d 77 6f 72 64 20 22 bf | 22 20 70 61 73 63 61 6c |-word ".|" pascal|
|000004a0| 2d 73 68 6f 77 2d 63 6f | 6d 70 6c 65 74 69 6f 6e |-show-co|mpletion|
|000004b0| 73 20 22 7f 22 20 62 61 | 63 6b 77 61 72 64 2d 64 |s "." ba|ckward-d|
|000004c0| 65 6c 65 74 65 2d 63 68 | 61 72 2d 75 6e 74 61 62 |elete-ch|ar-untab|
|000004d0| 69 66 79 20 22 88 22 20 | 70 61 73 63 61 6c 2d 6d |ify "." |pascal-m|
|000004e0| 61 72 6b 2d 64 65 66 75 | 6e 20 22 03 02 22 20 70 |ark-defu|n ".." p|
|000004f0| 61 73 63 61 6c 2d 69 6e | 73 65 72 74 2d 62 6c 6f |ascal-in|sert-blo|
|00000500| 63 6b 20 22 aa 22 20 70 | 61 73 63 61 6c 2d 73 74 |ck "." p|ascal-st|
|00000510| 61 72 2d 63 6f 6d 6d 65 | 6e 74 20 22 03 03 22 20 |ar-comme|nt ".." |
|00000520| 70 61 73 63 61 6c 2d 63 | 6f 6d 6d 65 6e 74 2d 61 |pascal-c|omment-a|
|00000530| 72 65 61 20 22 03 15 22 | 20 70 61 73 63 61 6c 2d |rea ".."| pascal-|
|00000540| 75 6e 63 6f 6d 6d 65 6e | 74 2d 61 72 65 61 20 22 |uncommen|t-area "|
|00000550| 81 22 20 70 61 73 63 61 | 6c 2d 62 65 67 2d 6f 66 |." pasca|l-beg-of|
|00000560| 2d 64 65 66 75 6e 20 22 | 85 22 20 70 61 73 63 61 |-defun "|." pasca|
|00000570| 6c 2d 65 6e 64 2d 6f 66 | 2d 64 65 66 75 6e 20 22 |l-end-of|-defun "|
|00000580| 03 04 22 20 70 61 73 63 | 61 6c 2d 67 6f 74 6f 2d |.." pasc|al-goto-|
|00000590| 64 65 66 75 6e 20 22 03 | 0f 22 20 70 61 73 63 61 |defun ".|." pasca|
|000005a0| 6c 2d 6f 75 74 6c 69 6e | 65 20 62 6f 75 6e 64 70 |l-outlin|e boundp|
|000005b0| 20 70 61 73 63 61 6c 2d | 6b 65 79 77 6f 72 64 73 | pascal-|keywords|
|000005c0| 20 28 22 61 6e 64 22 20 | 22 61 72 72 61 79 22 20 | ("and" |"array" |
|000005d0| 22 62 65 67 69 6e 22 20 | 22 63 61 73 65 22 20 22 |"begin" |"case" "|
|000005e0| 63 6f 6e 73 74 22 20 22 | 64 69 76 22 20 22 64 6f |const" "|div" "do|
|000005f0| 22 20 22 64 6f 77 6e 74 | 6f 22 20 22 65 6c 73 65 |" "downt|o" "else|
|00000600| 22 20 22 65 6e 64 22 20 | 22 66 69 6c 65 22 20 22 |" "end" |"file" "|
|00000610| 66 6f 72 22 20 22 66 75 | 6e 63 74 69 6f 6e 22 20 |for" "fu|nction" |
|00000620| 22 67 6f 74 6f 22 20 22 | 69 66 22 20 22 69 6e 22 |"goto" "|if" "in"|
|00000630| 20 22 6c 61 62 65 6c 22 | 20 22 6d 6f 64 22 20 22 | "label"| "mod" "|
|00000640| 6e 69 6c 22 20 22 6e 6f | 74 22 20 22 6f 66 22 20 |nil" "no|t" "of" |
|00000650| 22 6f 72 22 20 22 70 61 | 63 6b 65 64 22 20 22 70 |"or" "pa|cked" "p|
|00000660| 72 6f 63 65 64 75 72 65 | 22 20 22 70 72 6f 67 72 |rocedure|" "progr|
|00000670| 61 6d 22 20 22 72 65 63 | 6f 72 64 22 20 22 72 65 |am" "rec|ord" "re|
|00000680| 70 65 61 74 22 20 22 73 | 65 74 22 20 22 74 68 65 |peat" "s|et" "the|
|00000690| 6e 22 20 22 74 6f 22 20 | 22 74 79 70 65 22 20 22 |n" "to" |"type" "|
|000006a0| 75 6e 74 69 6c 22 20 22 | 76 61 72 22 20 22 77 68 |until" "|var" "wh|
|000006b0| 69 6c 65 22 20 22 77 69 | 74 68 22 20 22 67 65 74 |ile" "wi|th" "get|
|000006c0| 22 20 22 70 75 74 22 20 | 22 69 6e 70 75 74 22 20 |" "put" |"input" |
|000006d0| 22 6f 75 74 70 75 74 22 | 20 22 72 65 61 64 22 20 |"output"| "read" |
|000006e0| 22 72 65 61 64 6c 6e 22 | 20 22 72 65 73 65 74 22 |"readln"| "reset"|
|000006f0| 20 22 72 65 77 72 69 74 | 65 22 20 22 77 72 69 74 | "rewrit|e" "writ|
|00000700| 65 22 20 22 77 72 69 74 | 65 6c 6e 22 29 20 22 5c |e" "writ|eln") "\|
|00000710| 5c 3c 5b 61 2d 7a 41 2d | 5a 5f 5d 5b 61 2d 7a 41 |\<[a-zA-|Z_][a-zA|
|00000720| 2d 5a 5f 30 2d 39 2e 5d | 2a 5c 5c 3e 22 20 70 61 |-Z_0-9.]|*\\>" pa|
|00000730| 73 63 61 6c 2d 73 79 6d | 62 6f 6c 2d 72 65 20 22 |scal-sym|bol-re "|
|00000740| 5c 5c 3c 5c 5c 28 62 65 | 67 69 6e 5c 5c 7c 63 61 |\\<\\(be|gin\\|ca|
|00000750| 73 65 5c 5c 7c 72 65 63 | 6f 72 64 5c 5c 7c 72 65 |se\\|rec|ord\\|re|
|00000760| 70 65 61 74 5c 5c 29 5c | 5c 3e 22 20 70 61 73 63 |peat\\)\|\>" pasc|
|00000770| 61 6c 2d 62 65 67 2d 62 | 6c 6f 63 6b 2d 72 65 20 |al-beg-b|lock-re |
|00000780| 22 5c 5c 3c 5c 5c 28 65 | 6e 64 5c 5c 7c 75 6e 74 |"\\<\\(e|nd\\|unt|
|00000790| 69 6c 5c 5c 29 5c 5c 3e | 22 20 70 61 73 63 61 6c |il\\)\\>|" pascal|
|000007a0| 2d 65 6e 64 2d 62 6c 6f | 63 6b 2d 72 65 20 22 5c |-end-blo|ck-re "\|
|000007b0| 5c 3c 5c 5c 28 63 6f 6e | 73 74 5c 5c 7c 6c 61 62 |\<\\(con|st\\|lab|
|000007c0| 65 6c 5c 5c 7c 74 79 70 | 65 5c 5c 7c 76 61 72 5c |el\\|typ|e\\|var\|
|000007d0| 5c 29 5c 5c 3e 22 20 70 | 61 73 63 61 6c 2d 64 65 |\)\\>" p|ascal-de|
|000007e0| 63 6c 61 72 61 74 69 6f | 6e 2d 72 65 20 22 5c 5c |claratio|n-re "\\|
|000007f0| 3c 5c 5c 28 66 75 6e 63 | 74 69 6f 6e 5c 5c 7c 70 |<\\(func|tion\\|p|
|00000800| 72 6f 63 65 64 75 72 65 | 5c 5c 7c 70 72 6f 67 72 |rocedure|\\|progr|
|00000810| 61 6d 5c 5c 29 5c 5c 3e | 22 20 70 61 73 63 61 6c |am\\)\\>|" pascal|
|00000820| 2d 64 65 66 75 6e 2d 72 | 65 20 22 5c 5c 3c 5c 5c |-defun-r|e "\\<\\|
|00000830| 28 69 66 5c 5c 7c 65 6c | 73 65 5c 5c 7c 66 6f 72 |(if\\|el|se\\|for|
|00000840| 5c 5c 7c 77 68 69 6c 65 | 5c 5c 7c 77 69 74 68 5c |\\|while|\\|with\|
|00000850| 5c 29 5c 5c 3e 22 20 70 | 61 73 63 61 6c 2d 73 75 |\)\\>" p|ascal-su|
|00000860| 62 2d 62 6c 6f 63 6b 2d | 72 65 20 22 5c 5c 3c 5c |b-block-|re "\\<\|
|00000870| 5c 28 62 65 67 69 6e 5c | 5c 7c 65 6e 64 5c 5c 7c |\(begin\|\|end\\||
|00000880| 75 6e 74 69 6c 5c 5c 7c | 65 6c 73 65 5c 5c 29 5c |until\\||else\\)\|
|00000890| 5c 3e 22 20 70 61 73 63 | 61 6c 2d 6e 6f 69 6e 64 |\>" pasc|al-noind|
|000008a0| 65 6e 74 2d 72 65 20 22 | 5c 5c 3c 5c 5c 28 62 65 |ent-re "|\\<\\(be|
|000008b0| 67 69 6e 5c 5c 7c 72 65 | 70 65 61 74 5c 5c 7c 74 |gin\\|re|peat\\|t|
|000008c0| 68 65 6e 5c 5c 7c 64 6f | 5c 5c 7c 65 6c 73 65 5c |hen\\|do|\\|else\|
|000008d0| 5c 29 5c 5c 3e 22 20 70 | 61 73 63 61 6c 2d 6e 6f |\)\\>" p|ascal-no|
|000008e0| 73 65 6d 69 2d 72 65 20 | 22 5c 5c 3c 5c 5c 28 6c |semi-re |"\\<\\(l|
|000008f0| 61 62 65 6c 5c 5c 7c 76 | 61 72 5c 5c 7c 74 79 70 |abel\\|v|ar\\|typ|
|00000900| 65 5c 5c 7c 63 6f 6e 73 | 74 5c 5c 7c 75 6e 74 69 |e\\|cons|t\\|unti|
|00000910| 6c 5c 5c 7c 65 6e 64 5c | 5c 7c 62 65 67 69 6e 5c |l\\|end\|\|begin\|
|00000920| 5c 7c 72 65 70 65 61 74 | 5c 5c 7c 65 6c 73 65 5c |\|repeat|\\|else\|
|00000930| 5c 29 5c 5c 3e 22 20 70 | 61 73 63 61 6c 2d 61 75 |\)\\>" p|ascal-au|
|00000940| 74 6f 69 6e 64 65 6e 74 | 2d 6c 69 6e 65 73 2d 72 |toindent|-lines-r|
|00000950| 65 20 22 7b 2d 2d 2d 2d | 2d 5c 5c 2f 2d 2d 2d 2d |e "{----|-\\/----|
|00000960| 2d 20 45 58 43 4c 55 44 | 45 44 20 2d 2d 2d 2d 2d |- EXCLUD|ED -----|
|00000970| 5c 5c 2f 2d 2d 2d 2d 2d | 22 20 70 61 73 63 61 6c |\\/-----|" pascal|
|00000980| 2d 65 78 63 6c 75 64 65 | 2d 73 74 72 2d 73 74 61 |-exclude|-str-sta|
|00000990| 72 74 20 22 20 2d 2d 2d | 2d 2d 2f 5c 5c 2d 2d 2d |rt " ---|--/\\---|
|000009a0| 2d 2d 20 45 58 43 4c 55 | 44 45 44 20 2d 2d 2d 2d |-- EXCLU|DED ----|
|000009b0| 2d 2f 5c 5c 2d 2d 2d 2d | 2d 7d 22 20 70 61 73 63 |-/\\----|-}" pasc|
|000009c0| 61 6c 2d 65 78 63 6c 75 | 64 65 2d 73 74 72 2d 65 |al-exclu|de-str-e|
|000009d0| 6e 64 5d 20 34 29 0a 28 | 64 65 66 76 61 72 20 70 |nd] 4).(|defvar p|
|000009e0| 61 73 63 61 6c 2d 6d 6f | 64 65 2d 73 79 6e 74 61 |ascal-mo|de-synta|
|000009f0| 78 2d 74 61 62 6c 65 20 | 6e 69 6c 20 22 5c 0a 53 |x-table |nil "\.S|
|00000a00| 79 6e 74 61 78 20 74 61 | 62 6c 65 20 69 6e 20 75 |yntax ta|ble in u|
|00000a10| 73 65 20 69 6e 20 50 61 | 73 63 61 6c 2d 6d 6f 64 |se in Pa|scal-mod|
|00000a20| 65 20 62 75 66 66 65 72 | 73 2e 22 29 0a 28 62 79 |e buffer|s.").(by|
|00000a30| 74 65 2d 63 6f 64 65 20 | 22 08 ac e3 c1 20 10 c2 |te-code |".... ..|
|00000a40| c3 c4 08 23 88 c2 c5 c6 | 08 23 88 c2 c7 c8 08 23 |...#....|.#.....#|
|00000a50| 88 c2 c9 ca 08 23 88 c2 | cb cc 08 23 88 c2 cd ce |.....#..|...#....|
|00000a60| 08 23 88 c2 cf d0 08 23 | 88 c2 d1 d0 08 23 88 c2 |.#.....#|.....#..|
|00000a70| d2 d0 08 23 88 c2 d3 d0 | 08 23 88 c2 d4 d0 08 23 |...#....|.#.....#|
|00000a80| 88 c2 d5 d0 08 23 88 c2 | d6 d0 08 23 88 c2 d7 d0 |.....#..|...#....|
|00000a90| 08 23 88 c2 d8 d9 08 23 | 88 c2 da db 08 23 88 c1 |.#.....#|.....#..|
|00000aa0| 87 22 20 5b 70 61 73 63 | 61 6c 2d 6d 6f 64 65 2d |." [pasc|al-mode-|
|00000ab0| 73 79 6e 74 61 78 2d 74 | 61 62 6c 65 20 6d 61 6b |syntax-t|able mak|
|00000ac0| 65 2d 73 79 6e 74 61 78 | 2d 74 61 62 6c 65 20 6d |e-syntax|-table m|
|00000ad0| 6f 64 69 66 79 2d 73 79 | 6e 74 61 78 2d 65 6e 74 |odify-sy|ntax-ent|
|00000ae0| 72 79 20 39 32 20 22 5c | 5c 22 20 34 30 20 22 28 |ry 92 "\|\" 40 "(|
|00000af0| 29 31 22 20 34 31 20 22 | 29 28 34 22 20 34 32 20 |)1" 41 "|)(4" 42 |
|00000b00| 22 2e 20 32 33 22 20 31 | 32 33 20 22 3c 22 20 31 |". 23" 1|23 "<" 1|
|00000b10| 32 35 20 22 3e 22 20 34 | 33 20 22 2e 22 20 34 35 |25 ">" 4|3 "." 45|
|00000b20| 20 36 31 20 33 37 20 36 | 30 20 36 32 20 33 38 20 | 61 37 6|0 62 38 |
|00000b30| 31 32 34 20 39 35 20 22 | 77 22 20 33 39 20 22 5c |124 95 "|w" 39 "\|
|00000b40| 22 22 5d 20 34 29 0a 28 | 64 65 66 76 61 72 20 70 |""] 4).(|defvar p|
|00000b50| 61 73 63 61 6c 2d 69 6e | 64 65 6e 74 2d 6c 65 76 |ascal-in|dent-lev|
|00000b60| 65 6c 20 33 20 22 5c 0a | 2a 49 6e 64 65 6e 74 61 |el 3 "\.|*Indenta|
|00000b70| 74 69 6f 6e 20 6f 66 20 | 50 61 73 63 61 6c 20 73 |tion of |Pascal s|
|00000b80| 74 61 74 65 6d 65 6e 74 | 73 20 77 69 74 68 20 72 |tatement|s with r|
|00000b90| 65 73 70 65 63 74 20 74 | 6f 20 63 6f 6e 74 61 69 |espect t|o contai|
|00000ba0| 6e 69 6e 67 20 62 6c 6f | 63 6b 2e 22 29 0a 28 64 |ning blo|ck.").(d|
|00000bb0| 65 66 76 61 72 20 70 61 | 73 63 61 6c 2d 63 61 73 |efvar pa|scal-cas|
|00000bc0| 65 2d 69 6e 64 65 6e 74 | 20 32 20 22 5c 0a 2a 49 |e-indent| 2 "\.*I|
|00000bd0| 6e 64 65 6e 74 61 74 69 | 6f 6e 20 66 6f 72 20 63 |ndentati|on for c|
|00000be0| 61 73 65 20 73 74 61 74 | 65 6d 65 6e 74 73 2e 22 |ase stat|ements."|
|00000bf0| 29 0a 28 64 65 66 76 61 | 72 20 70 61 73 63 61 6c |).(defva|r pascal|
|00000c00| 2d 61 75 74 6f 2d 6e 65 | 77 6c 69 6e 65 20 6e 69 |-auto-ne|wline ni|
|00000c10| 6c 20 22 5c 0a 2a 4e 6f | 6e 2d 6e 69 6c 20 6d 65 |l "\.*No|n-nil me|
|00000c20| 61 6e 73 20 61 75 74 6f | 6d 61 74 69 63 61 6c 6c |ans auto|maticall|
|00000c30| 79 20 6e 65 77 6c 69 6e | 65 20 61 66 74 65 72 20 |y newlin|e after |
|00000c40| 73 69 6d 63 6f 6c 6f 6e | 73 20 61 6e 64 20 74 68 |simcolon|s and th|
|00000c50| 65 20 70 75 6e 63 74 61 | 74 69 6f 6e 20 6d 61 72 |e puncta|tion mar|
|00000c60| 6b 0a 61 66 74 65 72 20 | 61 6e 20 65 6e 64 2e 22 |k.after |an end."|
|00000c70| 29 0a 28 64 65 66 76 61 | 72 20 70 61 73 63 61 6c |).(defva|r pascal|
|00000c80| 2d 74 61 62 2d 61 6c 77 | 61 79 73 2d 69 6e 64 65 |-tab-alw|ays-inde|
|00000c90| 6e 74 20 74 20 22 5c 0a | 2a 4e 6f 6e 2d 6e 69 6c |nt t "\.|*Non-nil|
|00000ca0| 20 6d 65 61 6e 73 20 54 | 41 42 20 69 6e 20 50 61 | means T|AB in Pa|
|00000cb0| 73 63 61 6c 20 6d 6f 64 | 65 20 73 68 6f 75 6c 64 |scal mod|e should|
|00000cc0| 20 61 6c 77 61 79 73 20 | 72 65 69 6e 64 65 6e 74 | always |reindent|
|00000cd0| 20 74 68 65 20 63 75 72 | 72 65 6e 74 20 6c 69 6e | the cur|rent lin|
|00000ce0| 65 2c 0a 72 65 67 61 72 | 64 6c 65 73 73 20 6f 66 |e,.regar|dless of|
|00000cf0| 20 77 68 65 72 65 20 69 | 6e 20 74 68 65 20 6c 69 | where i|n the li|
|00000d00| 6e 65 20 70 6f 69 6e 74 | 20 69 73 20 77 68 65 6e |ne point| is when|
|00000d10| 20 74 68 65 20 54 41 42 | 20 63 6f 6d 6d 61 6e 64 | the TAB| command|
|00000d20| 20 69 73 20 75 73 65 64 | 2e 22 29 0a 28 64 65 66 | is used|.").(def|
|00000d30| 76 61 72 20 70 61 73 63 | 61 6c 2d 61 75 74 6f 2d |var pasc|al-auto-|
|00000d40| 65 6e 64 63 6f 6d 6d 65 | 6e 74 73 20 74 20 22 5c |endcomme|nts t "\|
|00000d50| 0a 2a 4e 6f 6e 2d 6e 69 | 6c 20 6d 65 61 6e 73 20 |.*Non-ni|l means |
|00000d60| 61 20 63 6f 6d 6d 65 6e | 74 20 7b 20 2e 2e 2e 20 |a commen|t { ... |
|00000d70| 7d 20 69 73 20 73 65 74 | 20 61 66 74 65 72 20 74 |} is set| after t|
|00000d80| 68 65 20 65 6e 64 73 20 | 77 68 69 63 68 20 65 6e |he ends |which en|
|00000d90| 64 73 20 63 61 73 65 73 | 20 61 6e 64 0a 66 75 6e |ds cases| and.fun|
|00000da0| 63 74 69 6f 6e 73 2e 20 | 54 68 65 20 6e 61 6d 65 |ctions. |The name|
|00000db0| 20 6f 66 20 74 68 65 20 | 66 75 6e 63 74 69 6f 6e | of the |function|
|00000dc0| 20 6f 72 20 63 61 73 65 | 20 77 69 6c 6c 20 62 65 | or case| will be|
|00000dd0| 20 73 65 74 20 62 65 74 | 77 65 65 6e 20 74 68 65 | set bet|ween the|
|00000de0| 20 62 72 61 63 65 73 2e | 22 29 0a 28 64 65 66 76 | braces.|").(defv|
|00000df0| 61 72 20 70 61 73 63 61 | 6c 2d 61 75 74 6f 2d 6c |ar pasca|l-auto-l|
|00000e00| 69 6e 65 75 70 20 27 28 | 61 6c 6c 29 20 22 5c 0a |ineup '(|all) "\.|
|00000e10| 2a 4c 69 73 74 20 6f 66 | 20 63 6f 6e 74 65 78 74 |*List of| context|
|00000e20| 73 20 77 68 65 72 65 20 | 61 75 74 6f 20 6c 69 6e |s where |auto lin|
|00000e30| 65 75 70 20 6f 66 20 3a | 27 73 20 6f 72 20 3d 27 |eup of :|'s or ='|
|00000e40| 73 20 73 68 6f 75 6c 64 | 20 62 65 20 64 6f 6e 65 |s should| be done|
|00000e50| 2e 0a 45 6c 65 6d 65 6e | 74 73 20 63 61 6e 20 62 |..Elemen|ts can b|
|00000e60| 65 20 6f 66 20 74 79 70 | 65 3a 20 27 70 61 72 61 |e of typ|e: 'para|
|00000e70| 6d 6c 69 73 74 27 2c 20 | 27 64 65 63 6c 61 72 61 |mlist', |'declara|
|00000e80| 74 69 6f 6e 27 20 6f 72 | 20 27 63 61 73 65 27 2c |tion' or| 'case',|
|00000e90| 20 77 68 69 63 68 20 77 | 69 6c 6c 0a 64 6f 20 61 | which w|ill.do a|
|00000ea0| 75 74 6f 20 6c 69 6e 65 | 75 70 20 69 6e 20 70 61 |uto line|up in pa|
|00000eb0| 72 61 6d 65 74 65 72 6c | 69 73 74 2c 20 64 65 63 |rameterl|ist, dec|
|00000ec0| 6c 61 72 61 74 69 6f 6e | 73 20 6f 72 20 63 61 73 |laration|s or cas|
|00000ed0| 65 2d 73 74 61 74 65 6d | 65 6e 74 73 0a 72 65 73 |e-statem|ents.res|
|00000ee0| 70 65 63 74 69 76 65 6c | 79 2e 20 54 68 65 20 77 |pectivel|y. The w|
|00000ef0| 6f 72 64 20 27 61 6c 6c | 27 20 77 69 6c 6c 20 64 |ord 'all|' will d|
|00000f00| 6f 20 61 6c 6c 20 6c 69 | 6e 65 75 70 73 2e 20 27 |o all li|neups. '|
|00000f10| 28 63 61 73 65 20 70 61 | 72 61 6d 6c 69 73 74 29 |(case pa|ramlist)|
|00000f20| 20 66 6f 72 0a 69 6e 73 | 74 61 6e 63 65 20 77 69 | for.ins|tance wi|
|00000f30| 6c 6c 20 64 6f 20 6c 69 | 6e 65 75 70 20 69 6e 20 |ll do li|neup in |
|00000f40| 63 61 73 65 2d 73 74 61 | 74 65 6d 65 6e 74 73 20 |case-sta|tements |
|00000f50| 61 6e 64 20 70 61 72 61 | 6d 65 74 65 72 6c 69 73 |and para|meterlis|
|00000f60| 74 2c 20 77 68 69 6c 65 | 20 27 28 61 6c 6c 29 0a |t, while| '(all).|
|00000f70| 77 69 6c 6c 20 64 6f 20 | 61 6c 6c 20 6c 69 6e 65 |will do |all line|
|00000f80| 75 70 73 2e 22 29 0a 28 | 64 65 66 76 61 72 20 70 |ups.").(|defvar p|
|00000f90| 61 73 63 61 6c 2d 74 6f | 67 67 6c 65 2d 63 6f 6d |ascal-to|ggle-com|
|00000fa0| 70 6c 65 74 69 6f 6e 73 | 20 6e 69 6c 20 22 5c 0a |pletions| nil "\.|
|00000fb0| 2a 4e 6f 6e 2d 6e 69 6c | 20 6d 65 61 6e 73 20 74 |*Non-nil| means t|
|00000fc0| 68 61 74 20 5c 5c 3c 70 | 61 73 63 61 6c 2d 6d 6f |hat \\<p|ascal-mo|
|00000fd0| 64 65 2d 6d 61 70 3e 5c | 5c 5b 70 61 73 63 61 6c |de-map>\|\[pascal|
|00000fe0| 2d 63 6f 6d 70 6c 65 74 | 65 2d 6c 61 62 65 6c 5d |-complet|e-label]|
|00000ff0| 20 73 68 6f 75 6c 64 20 | 6e 6f 74 20 64 69 73 70 | should |not disp|
|00001000| 6c 61 79 20 61 20 63 6f | 6d 70 6c 65 74 69 6f 6e |lay a co|mpletion|
|00001010| 20 62 75 66 66 65 72 20 | 77 68 65 6e 0a 74 68 65 | buffer |when.the|
|00001020| 20 6c 61 62 65 6c 20 63 | 6f 75 6c 64 6e 27 74 20 | label c|ouldn't |
|00001030| 62 65 20 63 6f 6d 70 6c | 65 74 65 64 2c 20 62 75 |be compl|eted, bu|
|00001040| 74 20 69 6e 73 74 65 61 | 64 20 74 6f 67 67 6c 65 |t instea|d toggle|
|00001050| 20 74 68 65 20 70 6f 73 | 73 69 62 6c 65 20 63 6f | the pos|sible co|
|00001060| 6d 70 6c 65 74 69 6f 6e | 73 0a 77 69 74 68 20 72 |mpletion|s.with r|
|00001070| 65 70 65 61 74 65 64 20 | 5c 5c 5b 70 61 73 63 61 |epeated |\\[pasca|
|00001080| 6c 2d 63 6f 6d 70 6c 65 | 74 65 2d 6c 61 62 65 6c |l-comple|te-label|
|00001090| 5d 27 73 2e 22 29 0a 28 | 64 65 66 76 61 72 20 70 |]'s.").(|defvar p|
|000010a0| 61 73 63 61 6c 2d 74 79 | 70 65 2d 6b 65 79 77 6f |ascal-ty|pe-keywo|
|000010b0| 72 64 73 20 27 28 22 61 | 72 72 61 79 22 20 22 66 |rds '("a|rray" "f|
|000010c0| 69 6c 65 22 20 22 70 61 | 63 6b 65 64 22 20 22 63 |ile" "pa|cked" "c|
|000010d0| 68 61 72 22 20 22 69 6e | 74 65 67 65 72 22 20 22 |har" "in|teger" "|
|000010e0| 72 65 61 6c 22 20 22 73 | 74 72 69 6e 67 22 20 22 |real" "s|tring" "|
|000010f0| 72 65 63 6f 72 64 22 29 | 20 22 5c 0a 2a 4b 65 79 |record")| "\.*Key|
|00001100| 77 6f 72 64 73 20 66 6f | 72 20 74 79 70 65 73 20 |words fo|r types |
|00001110| 75 73 65 64 20 77 68 65 | 6e 20 63 6f 6d 70 6c 65 |used whe|n comple|
|00001120| 74 69 6e 67 20 61 20 77 | 6f 72 64 20 69 6e 20 61 |ting a w|ord in a|
|00001130| 20 64 65 63 6c 61 72 61 | 74 69 6f 6e 20 6f 72 20 | declara|tion or |
|00001140| 70 61 72 6d 6c 69 73 74 | 2e 0a 28 65 67 2e 20 69 |parmlist|..(eg. i|
|00001150| 6e 74 65 67 65 72 2c 20 | 72 65 61 6c 2c 20 63 68 |nteger, |real, ch|
|00001160| 61 72 2e 29 20 20 54 68 | 65 20 74 79 70 65 73 20 |ar.) Th|e types |
|00001170| 64 65 66 69 6e 65 64 20 | 77 69 74 68 69 6e 20 74 |defined |within t|
|00001180| 68 65 20 50 61 73 63 61 | 6c 20 70 72 6f 67 72 61 |he Pasca|l progra|
|00001190| 6d 0a 77 69 6c 6c 20 62 | 65 20 63 6f 6d 70 6c 65 |m.will b|e comple|
|000011a0| 74 65 64 20 72 75 6e 74 | 69 6d 65 2c 20 61 6e 64 |ted runt|ime, and|
|000011b0| 20 73 68 6f 75 6c 64 20 | 6e 6f 74 20 62 65 20 61 | should |not be a|
|000011c0| 64 64 65 64 20 74 6f 20 | 74 68 69 73 20 6c 69 73 |dded to |this lis|
|000011d0| 74 2e 22 29 0a 28 64 65 | 66 76 61 72 20 70 61 73 |t.").(de|fvar pas|
|000011e0| 63 61 6c 2d 73 74 61 72 | 74 2d 6b 65 79 77 6f 72 |cal-star|t-keywor|
|000011f0| 64 73 20 27 28 22 62 65 | 67 69 6e 22 20 22 65 6e |ds '("be|gin" "en|
|00001200| 64 22 20 22 66 75 6e 63 | 74 69 6f 6e 22 20 22 70 |d" "func|tion" "p|
|00001210| 72 6f 63 65 64 75 72 65 | 22 20 22 72 65 70 65 61 |rocedure|" "repea|
|00001220| 74 22 20 22 75 6e 74 69 | 6c 22 20 22 77 68 69 6c |t" "unti|l" "whil|
|00001230| 65 22 20 22 72 65 61 64 | 22 20 22 72 65 61 64 6c |e" "read|" "readl|
|00001240| 6e 22 20 22 72 65 73 65 | 74 22 20 22 72 65 77 72 |n" "rese|t" "rewr|
|00001250| 69 74 65 22 20 22 77 72 | 69 74 65 22 20 22 77 72 |ite" "wr|ite" "wr|
|00001260| 69 74 65 6c 6e 22 29 20 | 22 5c 0a 2a 4b 65 79 77 |iteln") |"\.*Keyw|
|00001270| 6f 72 64 73 20 74 6f 20 | 63 6f 6d 70 6c 65 74 65 |ords to |complete|
|00001280| 20 77 68 65 6e 20 73 74 | 61 6e 64 69 6e 67 20 61 | when st|anding a|
|00001290| 74 20 74 68 65 20 66 69 | 72 73 74 20 77 6f 72 64 |t the fi|rst word|
|000012a0| 20 6f 66 20 61 20 73 74 | 61 74 65 6d 65 6e 74 2e | of a st|atement.|
|000012b0| 0a 28 65 67 2e 20 62 65 | 67 69 6e 2c 20 72 65 70 |.(eg. be|gin, rep|
|000012c0| 65 61 74 2c 20 75 6e 74 | 69 6c 2c 20 72 65 61 64 |eat, unt|il, read|
|000012d0| 6c 6e 2e 29 0a 54 68 65 | 20 70 72 6f 63 65 64 75 |ln.).The| procedu|
|000012e0| 72 65 73 20 61 6e 64 20 | 76 61 72 69 61 62 6c 65 |res and |variable|
|000012f0| 73 20 64 65 66 69 6e 65 | 64 20 77 69 74 68 69 6e |s define|d within|
|00001300| 20 74 68 65 20 50 61 73 | 63 61 6c 20 70 72 6f 67 | the Pas|cal prog|
|00001310| 72 61 6d 0a 77 69 6c 6c | 20 62 65 20 63 6f 6d 70 |ram.will| be comp|
|00001320| 6c 65 74 65 64 20 72 75 | 6e 74 69 6d 65 20 61 6e |leted ru|ntime an|
|00001330| 64 20 73 68 6f 75 6c 64 | 20 6e 6f 74 20 62 65 20 |d should| not be |
|00001340| 61 64 64 65 64 20 74 6f | 20 74 68 69 73 20 6c 69 |added to| this li|
|00001350| 73 74 2e 22 29 0a 28 64 | 65 66 76 61 72 20 70 61 |st.").(d|efvar pa|
|00001360| 73 63 61 6c 2d 73 65 70 | 61 72 61 74 6f 72 2d 6b |scal-sep|arator-k|
|00001370| 65 79 77 6f 72 64 73 20 | 27 28 22 64 6f 77 6e 74 |eywords |'("downt|
|00001380| 6f 22 20 22 65 6c 73 65 | 22 20 22 6d 6f 64 22 20 |o" "else|" "mod" |
|00001390| 22 64 69 76 22 20 22 74 | 68 65 6e 22 29 20 22 5c |"div" "t|hen") "\|
|000013a0| 0a 2a 4b 65 79 77 6f 72 | 64 73 20 74 6f 20 63 6f |.*Keywor|ds to co|
|000013b0| 6d 70 6c 65 74 65 20 77 | 68 65 6e 20 4e 4f 54 20 |mplete w|hen NOT |
|000013c0| 73 74 61 6e 64 69 6e 67 | 20 61 74 20 74 68 65 20 |standing| at the |
|000013d0| 66 69 72 73 74 20 77 6f | 72 64 20 6f 66 20 61 20 |first wo|rd of a |
|000013e0| 73 74 61 74 65 6d 65 6e | 74 2e 0a 28 65 67 2e 20 |statemen|t..(eg. |
|000013f0| 64 6f 77 6e 74 6f 2c 20 | 65 6c 73 65 2c 20 6d 6f |downto, |else, mo|
|00001400| 64 2c 20 74 68 65 6e 2e | 29 20 0a 56 61 72 69 61 |d, then.|) .Varia|
|00001410| 62 6c 65 73 20 61 6e 64 | 20 66 75 6e 63 74 69 6f |bles and| functio|
|00001420| 6e 20 6e 61 6d 65 73 20 | 64 65 66 69 6e 65 64 20 |n names |defined |
|00001430| 77 69 74 68 69 6e 20 74 | 68 65 0a 50 61 73 63 61 |within t|he.Pasca|
|00001440| 6c 20 70 72 6f 67 72 61 | 6d 20 61 72 65 20 63 6f |l progra|m are co|
|00001450| 6d 70 6c 65 74 65 64 20 | 72 75 6e 74 69 6d 65 20 |mpleted |runtime |
|00001460| 61 6e 64 20 73 68 6f 75 | 6c 64 20 6e 6f 74 20 62 |and shou|ld not b|
|00001470| 65 20 61 64 64 65 64 20 | 74 6f 20 74 68 69 73 20 |e added |to this |
|00001480| 6c 69 73 74 2e 22 29 0a | 28 62 79 74 65 2d 63 6f |list.").|(byte-co|
|00001490| 64 65 20 22 c0 c1 4d 88 | c0 c2 4e c3 3e ac 85 c4 |de "..M.|..N.>...|
|000014a0| c5 c0 5c 22 88 c6 c0 c2 | c7 23 88 c8 c9 4d 88 c8 |..\"....|.#...M..|
|000014b0| c2 4e c3 3e ac 85 c4 c5 | c8 5c 22 88 c6 c8 c2 c7 |.N.>....|.\".....|
|000014c0| 23 88 ca cb 4d 88 cc cd | 4d 88 ce cf 4d 88 ce c2 |#...M...|M...M...|
|000014d0| 4e c3 3e ac 85 c4 c5 ce | 5c 22 88 c6 ce c2 c7 23 |N.>.....|\".....#|
|000014e0| 87 22 20 5b 70 61 73 63 | 61 6c 2d 67 65 74 2d 62 |." [pasc|al-get-b|
|000014f0| 65 67 2d 6f 66 2d 6c 69 | 6e 65 20 23 5b 28 26 6f |eg-of-li|ne #[(&o|
|00001500| 70 74 69 6f 6e 61 6c 20 | 61 72 67 29 20 22 8a c0 |ptional |arg) "..|
|00001510| 09 21 88 60 29 87 22 20 | 5b 62 65 67 69 6e 6e 69 |.!.`)." |[beginni|
|00001520| 6e 67 2d 6f 66 2d 6c 69 | 6e 65 20 61 72 67 5d 20 |ng-of-li|ne arg] |
|00001530| 32 5d 20 62 79 74 65 2d | 6f 70 74 69 6d 69 7a 65 |2] byte-|optimize|
|00001540| 72 20 28 6e 69 6c 20 62 | 79 74 65 2d 63 6f 6d 70 |r (nil b|yte-comp|
|00001550| 69 6c 65 2d 69 6e 6c 69 | 6e 65 2d 65 78 70 61 6e |ile-inli|ne-expan|
|00001560| 64 29 20 65 72 72 6f 72 | 20 22 25 73 20 61 6c 72 |d) error| "%s alr|
|00001570| 65 61 64 79 20 68 61 73 | 20 61 20 62 79 74 65 2d |eady has| a byte-|
|00001580| 6f 70 74 69 6d 69 7a 65 | 72 2c 20 63 61 6e 27 74 |optimize|r, can't|
|00001590| 20 6d 61 6b 65 20 69 74 | 20 69 6e 6c 69 6e 65 22 | make it| inline"|
|000015a0| 20 70 75 74 20 62 79 74 | 65 2d 63 6f 6d 70 69 6c | put byt|e-compil|
|000015b0| 65 2d 69 6e 6c 69 6e 65 | 2d 65 78 70 61 6e 64 20 |e-inline|-expand |
|000015c0| 70 61 73 63 61 6c 2d 67 | 65 74 2d 65 6e 64 2d 6f |pascal-g|et-end-o|
|000015d0| 66 2d 6c 69 6e 65 20 23 | 5b 28 26 6f 70 74 69 6f |f-line #|[(&optio|
|000015e0| 6e 61 6c 20 61 72 67 29 | 20 22 8a 08 7f 88 60 29 |nal arg)| "....`)|
|000015f0| 87 22 20 5b 61 72 67 5d | 20 31 5d 20 70 61 73 63 |." [arg]| 1] pasc|
|00001600| 61 6c 2d 64 65 63 6c 61 | 72 61 74 69 6f 6e 2d 65 |al-decla|ration-e|
|00001610| 6e 64 20 23 5b 6e 69 6c | 20 22 c0 19 09 c2 56 ad |nd #[nil| "....V.|
|00001620| a0 c3 c4 8a c5 7f 88 60 | 29 c6 23 ad 94 c0 94 ab |.......`|).#.....|
|00001630| 86 09 54 89 11 aa 66 c5 | 94 ab 61 09 53 89 11 aa |..T...f.|..a.S...|
|00001640| 5c 5c 29 87 22 20 5b 31 | 20 6e 65 73 74 20 30 20 |\\)." [1| nest 0 |
|00001650| 72 65 2d 73 65 61 72 63 | 68 2d 66 6f 72 77 61 72 |re-searc|h-forwar|
|00001660| 64 20 22 5b 3a 3d 5d 5c | 5c 7c 5c 5c 28 5c 5c 3c |d "[:=]\|\|\\(\\<|
|00001670| 72 65 63 6f 72 64 5c 5c | 3e 5c 5c 29 5c 5c 7c 5c |record\\|>\\)\\|\|
|00001680| 5c 28 5c 5c 3c 65 6e 64 | 5c 5c 3e 5c 5c 29 22 20 |\(\\<end|\\>\\)" |
|00001690| 32 20 74 5d 20 35 5d 20 | 70 61 73 63 61 6c 2d 64 |2 t] 5] |pascal-d|
|000016a0| 65 63 6c 61 72 61 74 69 | 6f 6e 2d 62 65 67 20 23 |eclarati|on-beg #|
|000016b0| 5b 6e 69 6c 20 22 c0 19 | 09 c2 56 ab ac c3 c4 c2 |[nil "..|..V.....|
|000016c0| 1d 8a c6 0d 21 88 60 2a | c7 23 ab 9d c0 94 ab 85 |....!.`*|.#......|
|000016d0| c2 89 11 aa 64 c8 94 ab | 86 09 53 89 11 aa 5a c9 |....d...|..S...Z.|
|000016e0| 94 ab 55 09 54 89 11 aa | 50 09 c2 55 29 87 22 20 |..U.T...|P..U)." |
|000016f0| 5b 31 20 6e 65 73 74 20 | 30 20 72 65 2d 73 65 61 |[1 nest |0 re-sea|
|00001700| 72 63 68 2d 62 61 63 6b | 77 61 72 64 20 22 5b 3a |rch-back|ward "[:|
|00001710| 3d 5d 5c 5c 7c 5c 5c 3c | 5c 5c 28 74 79 70 65 5c |=]\\|\\<|\\(type\|
|00001720| 5c 7c 76 61 72 5c 5c 7c | 6c 61 62 65 6c 5c 5c 7c |\|var\\||label\\||
|00001730| 63 6f 6e 73 74 5c 5c 29 | 5c 5c 3e 5c 5c 7c 5c 5c |const\\)|\\>\\|\\|
|00001740| 28 5c 5c 3c 72 65 63 6f | 72 64 5c 5c 3e 5c 5c 29 |(\\<reco|rd\\>\\)|
|00001750| 5c 5c 7c 5c 5c 28 5c 5c | 3c 65 6e 64 5c 5c 3e 5c |\\|\\(\\|<end\\>\|
|00001760| 5c 29 22 20 61 72 67 20 | 62 65 67 69 6e 6e 69 6e |\)" arg |beginnin|
|00001770| 67 2d 6f 66 2d 6c 69 6e | 65 20 74 20 32 20 33 5d |g-of-lin|e t 2 3]|
|00001780| 20 35 5d 20 70 61 73 63 | 61 6c 2d 77 69 74 68 69 | 5] pasc|al-withi|
|00001790| 6e 2d 73 74 72 69 6e 67 | 20 23 5b 6e 69 6c 20 22 |n-string| #[nil "|
|000017a0| 8a c0 c1 c2 1b 8a c4 0b | 21 88 60 2a 60 5c 22 38 |........|!.`*`\"8|
|000017b0| 29 87 22 20 5b 33 20 70 | 61 72 73 65 2d 70 61 72 |)." [3 p|arse-par|
|000017c0| 74 69 61 6c 2d 73 65 78 | 70 20 6e 69 6c 20 61 72 |tial-sex|p nil ar|
|000017d0| 67 20 62 65 67 69 6e 6e | 69 6e 67 2d 6f 66 2d 6c |g beginn|ing-of-l|
|000017e0| 69 6e 65 5d 20 34 5d 5d | 20 34 29 0a 28 66 73 65 |ine] 4]]| 4).(fse|
|000017f0| 74 20 27 70 61 73 63 61 | 6c 2d 6d 6f 64 65 20 23 |t 'pasca|l-mode #|
|00001800| 5b 6e 69 6c 20 22 c0 20 | 88 c1 5c 6e 21 88 c3 14 |[nil ". |..\n!...|
|00001810| c5 16 06 0e 07 16 08 c9 | 0e 5c 6e 21 88 cb cc 21 |........|.\n!...!|
|00001820| 88 cd 16 0c ce 16 0f cb | d0 21 88 d1 16 10 cb d2 |........|.!......|
|00001830| 21 88 d3 16 12 cb d4 21 | 88 d5 16 14 cb d6 21 88 |!......!|......!.|
|00001840| d7 16 16 d8 d9 21 87 22 | 20 5b 6b 69 6c 6c 2d 61 |.....!."| [kill-a|
|00001850| 6c 6c 2d 6c 6f 63 61 6c | 2d 76 61 72 69 61 62 6c |ll-local|-variabl|
|00001860| 65 73 20 75 73 65 2d 6c | 6f 63 61 6c 2d 6d 61 70 |es use-l|ocal-map|
|00001870| 20 70 61 73 63 61 6c 2d | 6d 6f 64 65 2d 6d 61 70 | pascal-|mode-map|
|00001880| 20 70 61 73 63 61 6c 2d | 6d 6f 64 65 20 6d 61 6a | pascal-|mode maj|
|00001890| 6f 72 2d 6d 6f 64 65 20 | 22 50 61 73 63 61 6c 22 |or-mode |"Pascal"|
|000018a0| 20 6d 6f 64 65 2d 6e 61 | 6d 65 20 70 61 73 63 61 | mode-na|me pasca|
|000018b0| 6c 2d 6d 6f 64 65 2d 61 | 62 62 72 65 76 2d 74 61 |l-mode-a|bbrev-ta|
|000018c0| 62 6c 65 20 6c 6f 63 61 | 6c 2d 61 62 62 72 65 76 |ble loca|l-abbrev|
|000018d0| 2d 74 61 62 6c 65 20 73 | 65 74 2d 73 79 6e 74 61 |-table s|et-synta|
|000018e0| 78 2d 74 61 62 6c 65 20 | 70 61 73 63 61 6c 2d 6d |x-table |pascal-m|
|000018f0| 6f 64 65 2d 73 79 6e 74 | 61 78 2d 74 61 62 6c 65 |ode-synt|ax-table|
|00001900| 20 6d 61 6b 65 2d 6c 6f | 63 61 6c 2d 76 61 72 69 | make-lo|cal-vari|
|00001910| 61 62 6c 65 20 69 6e 64 | 65 6e 74 2d 6c 69 6e 65 |able ind|ent-line|
|00001920| 2d 66 75 6e 63 74 69 6f | 6e 20 70 61 73 63 61 6c |-functio|n pascal|
|00001930| 2d 69 6e 64 65 6e 74 2d | 6c 69 6e 65 20 70 61 73 |-indent-|line pas|
|00001940| 63 61 6c 2d 69 6e 64 65 | 6e 74 2d 63 6f 6d 6d 65 |cal-inde|nt-comme|
|00001950| 6e 74 20 63 6f 6d 6d 65 | 6e 74 2d 69 6e 64 65 6e |nt comme|nt-inden|
|00001960| 74 2d 66 75 6e 63 74 69 | 6f 6e 20 70 61 72 73 65 |t-functi|on parse|
|00001970| 2d 73 65 78 70 2d 69 67 | 6e 6f 72 65 2d 63 6f 6d |-sexp-ig|nore-com|
|00001980| 6d 65 6e 74 73 20 6e 69 | 6c 20 63 61 73 65 2d 66 |ments ni|l case-f|
|00001990| 6f 6c 64 2d 73 65 61 72 | 63 68 20 74 20 63 6f 6d |old-sear|ch t com|
|000019a0| 6d 65 6e 74 2d 73 74 61 | 72 74 2d 73 6b 69 70 20 |ment-sta|rt-skip |
|000019b0| 22 28 5c 5c 2a 2b 20 2a | 5c 5c 7c 7b 20 2a 22 20 |"(\\*+ *|\\|{ *" |
|000019c0| 63 6f 6d 6d 65 6e 74 2d | 65 6e 64 20 22 7d 22 20 |comment-|end "}" |
|000019d0| 72 75 6e 2d 68 6f 6f 6b | 73 20 70 61 73 63 61 6c |run-hook|s pascal|
|000019e0| 2d 6d 6f 64 65 2d 68 6f | 6f 6b 5d 20 32 20 22 5c |-mode-ho|ok] 2 "\|
|000019f0| 0a 4d 61 6a 6f 72 20 6d | 6f 64 65 20 66 6f 72 20 |.Major m|ode for |
|00001a00| 65 64 69 74 69 6e 67 20 | 50 61 73 63 61 6c 20 63 |editing |Pascal c|
|00001a10| 6f 64 65 2e 20 5c 5c 3c | 70 61 73 63 61 6c 2d 6d |ode. \\<|pascal-m|
|00001a20| 6f 64 65 2d 6d 61 70 3e | 0a 54 41 42 20 69 6e 64 |ode-map>|.TAB ind|
|00001a30| 65 6e 74 73 20 66 6f 72 | 20 50 61 73 63 61 6c 20 |ents for| Pascal |
|00001a40| 63 6f 64 65 2e 20 20 44 | 65 6c 65 74 65 20 63 6f |code. D|elete co|
|00001a50| 6e 76 65 72 74 73 20 74 | 61 62 73 20 74 6f 20 73 |nverts t|abs to s|
|00001a60| 70 61 63 65 73 20 61 73 | 20 69 74 20 6d 6f 76 65 |paces as| it move|
|00001a70| 73 20 62 61 63 6b 2e 0a | 0a 5c 5c 5b 70 61 73 63 |s back..|.\\[pasc|
|00001a80| 61 6c 2d 63 6f 6d 70 6c | 65 74 65 2d 77 6f 72 64 |al-compl|ete-word|
|00001a90| 5d 20 63 6f 6d 70 6c 65 | 74 65 73 20 74 68 65 20 |] comple|tes the |
|00001aa0| 77 6f 72 64 20 61 72 6f | 75 6e 64 20 63 75 72 72 |word aro|und curr|
|00001ab0| 65 6e 74 20 70 6f 69 6e | 74 20 77 69 74 68 20 72 |ent poin|t with r|
|00001ac0| 65 73 70 65 63 74 20 74 | 6f 20 70 6f 73 69 74 69 |espect t|o positi|
|00001ad0| 6f 6e 20 69 6e 20 63 6f | 64 65 0a 5c 5c 5b 70 61 |on in co|de.\\[pa|
|00001ae0| 73 63 61 6c 2d 73 68 6f | 77 2d 63 6f 6d 70 6c 65 |scal-sho|w-comple|
|00001af0| 74 69 6f 6e 73 5d 20 73 | 68 6f 77 73 20 61 6c 6c |tions] s|hows all|
|00001b00| 20 70 6f 73 73 69 62 6c | 65 20 63 6f 6d 70 6c 65 | possibl|e comple|
|00001b10| 74 69 6f 6e 73 20 61 74 | 20 74 68 69 73 20 70 6f |tions at| this po|
|00001b20| 69 6e 74 2e 0a 0a 4f 74 | 68 65 72 20 75 73 65 66 |int...Ot|her usef|
|00001b30| 75 6c 20 66 75 6e 63 74 | 69 6f 6e 73 20 61 72 65 |ul funct|ions are|
|00001b40| 3a 0a 0a 5c 5c 5b 70 61 | 73 63 61 6c 2d 6d 61 72 |:..\\[pa|scal-mar|
|00001b50| 6b 2d 64 65 66 75 6e 5d | 09 2d 20 4d 61 72 6b 20 |k-defun]|.- Mark |
|00001b60| 66 75 6e 63 74 69 6f 6e | 2e 0a 5c 5c 5b 70 61 73 |function|..\\[pas|
|00001b70| 63 61 6c 2d 69 6e 73 65 | 72 74 2d 62 6c 6f 63 6b |cal-inse|rt-block|
|00001b80| 5d 09 2d 20 69 6e 73 65 | 72 74 20 62 65 67 69 6e |].- inse|rt begin|
|00001b90| 20 2e 2e 2e 20 65 6e 64 | 3b 0a 5c 5c 5b 70 61 73 | ... end|;.\\[pas|
|00001ba0| 63 61 6c 2d 73 74 61 72 | 2d 63 6f 6d 6d 65 6e 74 |cal-star|-comment|
|00001bb0| 5d 09 2d 20 69 6e 73 65 | 72 74 20 28 2a 20 2e 2e |].- inse|rt (* ..|
|00001bc0| 2e 20 2a 29 0a 5c 5c 5b | 70 61 73 63 61 6c 2d 63 |. *).\\[|pascal-c|
|00001bd0| 6f 6d 6d 65 6e 74 2d 61 | 72 65 61 5d 09 2d 20 50 |omment-a|rea].- P|
|00001be0| 75 74 20 6d 61 72 6b 65 | 64 20 61 72 65 61 20 69 |ut marke|d area i|
|00001bf0| 6e 20 61 20 63 6f 6d 6d | 65 6e 74 2c 20 66 69 78 |n a comm|ent, fix|
|00001c00| 69 6e 67 20 6e 65 73 74 | 65 64 20 63 6f 6d 6d 65 |ing nest|ed comme|
|00001c10| 6e 74 73 2e 0a 5c 5c 5b | 70 61 73 63 61 6c 2d 75 |nts..\\[|pascal-u|
|00001c20| 6e 63 6f 6d 6d 65 6e 74 | 2d 61 72 65 61 5d 09 2d |ncomment|-area].-|
|00001c30| 20 55 6e 63 6f 6d 6d 65 | 6e 74 20 61 6e 20 61 72 | Uncomme|nt an ar|
|00001c40| 65 61 20 63 6f 6d 6d 65 | 6e 74 65 64 20 77 69 74 |ea comme|nted wit|
|00001c50| 68 20 5c 5c 5b 70 61 73 | 63 61 6c 2d 63 6f 6d 6d |h \\[pas|cal-comm|
|00001c60| 65 6e 74 2d 61 72 65 61 | 5d 2e 0a 5c 5c 5b 70 61 |ent-area|]..\\[pa|
|00001c70| 73 63 61 6c 2d 62 65 67 | 2d 6f 66 2d 64 65 66 75 |scal-beg|-of-defu|
|00001c80| 6e 5d 09 2d 20 4d 6f 76 | 65 20 74 6f 20 62 65 67 |n].- Mov|e to beg|
|00001c90| 69 6e 6e 69 6e 67 20 6f | 66 20 63 75 72 72 65 6e |inning o|f curren|
|00001ca0| 74 20 66 75 6e 63 74 69 | 6f 6e 2e 0a 5c 5c 5b 70 |t functi|on..\\[p|
|00001cb0| 61 73 63 61 6c 2d 65 6e | 64 2d 6f 66 2d 64 65 66 |ascal-en|d-of-def|
|00001cc0| 75 6e 5d 09 2d 20 4d 6f | 76 65 20 74 6f 20 65 6e |un].- Mo|ve to en|
|00001cd0| 64 20 6f 66 20 63 75 72 | 72 65 6e 74 20 66 75 6e |d of cur|rent fun|
|00001ce0| 63 74 69 6f 6e 2e 0a 5c | 5c 5b 70 61 73 63 61 6c |ction..\|\[pascal|
|00001cf0| 2d 67 6f 74 6f 2d 64 65 | 66 75 6e 5d 09 2d 20 47 |-goto-de|fun].- G|
|00001d00| 6f 74 6f 20 66 75 6e 63 | 74 69 6f 6e 20 70 72 6f |oto func|tion pro|
|00001d10| 6d 70 74 65 64 20 66 6f | 72 20 69 6e 20 74 68 65 |mpted fo|r in the|
|00001d20| 20 6d 69 6e 69 62 75 66 | 66 65 72 2e 0a 5c 5c 5b | minibuf|fer..\\[|
|00001d30| 70 61 73 63 61 6c 2d 6f | 75 74 6c 69 6e 65 5d 09 |pascal-o|utline].|
|00001d40| 2d 20 45 6e 74 65 72 20 | 70 61 73 63 61 6c 2d 6f |- Enter |pascal-o|
|00001d50| 75 74 6c 69 6e 65 2d 6d | 6f 64 65 20 28 73 65 65 |utline-m|ode (see|
|00001d60| 20 61 6c 73 6f 20 70 61 | 73 63 61 6c 2d 6f 75 74 | also pa|scal-out|
|00001d70| 6c 69 6e 65 29 2e 0a 0a | 56 61 72 69 61 62 6c 65 |line)...|Variable|
|00001d80| 73 20 63 6f 6e 74 72 6f | 6c 6c 69 6e 67 20 69 6e |s contro|lling in|
|00001d90| 64 65 6e 74 61 74 69 6f | 6e 2f 65 64 69 74 20 73 |dentatio|n/edit s|
|00001da0| 74 79 6c 65 3a 0a 0a 20 | 70 61 73 63 61 6c 2d 69 |tyle:.. |pascal-i|
|00001db0| 6e 64 65 6e 74 2d 6c 65 | 76 65 6c 20 20 20 20 20 |ndent-le|vel |
|00001dc0| 20 28 64 65 66 61 75 6c | 74 20 33 29 0a 20 20 20 | (defaul|t 3). |
|00001dd0| 20 49 6e 64 65 6e 74 61 | 74 69 6f 6e 20 6f 66 20 | Indenta|tion of |
|00001de0| 50 61 73 63 61 6c 20 73 | 74 61 74 65 6d 65 6e 74 |Pascal s|tatement|
|00001df0| 73 20 77 69 74 68 20 72 | 65 73 70 65 63 74 20 74 |s with r|espect t|
|00001e00| 6f 20 63 6f 6e 74 61 69 | 6e 69 6e 67 20 62 6c 6f |o contai|ning blo|
|00001e10| 63 6b 2e 0a 20 70 61 73 | 63 61 6c 2d 63 61 73 65 |ck.. pas|cal-case|
|00001e20| 2d 69 6e 64 65 6e 74 20 | 20 20 20 20 20 20 28 64 |-indent | (d|
|00001e30| 65 66 61 75 6c 74 20 32 | 29 0a 20 20 20 20 49 6e |efault 2|). In|
|00001e40| 64 65 6e 74 61 74 69 6f | 6e 20 66 6f 72 20 63 61 |dentatio|n for ca|
|00001e50| 73 65 20 73 74 61 74 65 | 6d 65 6e 74 73 2e 0a 20 |se state|ments.. |
|00001e60| 70 61 73 63 61 6c 2d 61 | 75 74 6f 2d 6e 65 77 6c |pascal-a|uto-newl|
|00001e70| 69 6e 65 20 20 20 20 20 | 20 28 64 65 66 61 75 6c |ine | (defaul|
|00001e80| 74 20 6e 69 6c 29 0a 20 | 20 20 20 4e 6f 6e 2d 6e |t nil). | Non-n|
|00001e90| 69 6c 20 6d 65 61 6e 73 | 20 61 75 74 6f 6d 61 74 |il means| automat|
|00001ea0| 69 63 61 6c 6c 79 20 6e | 65 77 6c 69 6e 65 20 61 |ically n|ewline a|
|00001eb0| 66 74 65 72 20 73 69 6d | 63 6f 6c 6f 6e 73 20 61 |fter sim|colons a|
|00001ec0| 6e 64 20 74 68 65 20 70 | 75 6e 63 74 61 74 69 6f |nd the p|unctatio|
|00001ed0| 6e 20 6d 61 72 6b 0a 20 | 20 20 20 61 66 74 65 72 |n mark. | after|
|00001ee0| 20 61 6e 20 65 6e 64 2e | 0a 20 70 61 73 63 61 6c | an end.|. pascal|
|00001ef0| 2d 74 61 62 2d 61 6c 77 | 61 79 73 2d 69 6e 64 65 |-tab-alw|ays-inde|
|00001f00| 6e 74 20 28 64 65 66 61 | 75 6c 74 20 74 29 0a 20 |nt (defa|ult t). |
|00001f10| 20 20 20 4e 6f 6e 2d 6e | 69 6c 20 6d 65 61 6e 73 | Non-n|il means|
|00001f20| 20 54 41 42 20 69 6e 20 | 50 61 73 63 61 6c 20 6d | TAB in |Pascal m|
|00001f30| 6f 64 65 20 73 68 6f 75 | 6c 64 20 61 6c 77 61 79 |ode shou|ld alway|
|00001f40| 73 20 72 65 69 6e 64 65 | 6e 74 20 74 68 65 20 63 |s reinde|nt the c|
|00001f50| 75 72 72 65 6e 74 20 6c | 69 6e 65 2c 0a 20 20 20 |urrent l|ine,. |
|00001f60| 20 72 65 67 61 72 64 6c | 65 73 73 20 6f 66 20 77 | regardl|ess of w|
|00001f70| 68 65 72 65 20 69 6e 20 | 74 68 65 20 6c 69 6e 65 |here in |the line|
|00001f80| 20 70 6f 69 6e 74 20 69 | 73 20 77 68 65 6e 20 74 | point i|s when t|
|00001f90| 68 65 20 54 41 42 20 63 | 6f 6d 6d 61 6e 64 20 69 |he TAB c|ommand i|
|00001fa0| 73 20 75 73 65 64 2e 0a | 20 70 61 73 63 61 6c 2d |s used..| pascal-|
|00001fb0| 61 75 74 6f 2d 65 6e 64 | 63 6f 6d 6d 65 6e 74 73 |auto-end|comments|
|00001fc0| 20 20 28 64 65 66 61 75 | 6c 74 20 74 29 0a 20 20 | (defau|lt t). |
|00001fd0| 20 20 4e 6f 6e 2d 6e 69 | 6c 20 6d 65 61 6e 73 20 | Non-ni|l means |
|00001fe0| 61 20 63 6f 6d 6d 65 6e | 74 20 7b 20 2e 2e 2e 20 |a commen|t { ... |
|00001ff0| 7d 20 69 73 20 73 65 74 | 20 61 66 74 65 72 20 74 |} is set| after t|
|00002000| 68 65 20 65 6e 64 73 20 | 77 68 69 63 68 20 65 6e |he ends |which en|
|00002010| 64 73 20 63 61 73 65 73 | 20 61 6e 64 0a 20 20 20 |ds cases| and. |
|00002020| 20 66 75 6e 63 74 69 6f | 6e 73 2e 20 54 68 65 20 | functio|ns. The |
|00002030| 6e 61 6d 65 20 6f 66 20 | 74 68 65 20 66 75 6e 63 |name of |the func|
|00002040| 74 69 6f 6e 20 6f 72 20 | 63 61 73 65 20 77 69 6c |tion or |case wil|
|00002050| 6c 20 62 65 20 73 65 74 | 20 62 65 74 77 65 65 6e |l be set| between|
|00002060| 20 74 68 65 20 62 72 61 | 63 65 73 2e 0a 20 70 61 | the bra|ces.. pa|
|00002070| 73 63 61 6c 2d 61 75 74 | 6f 2d 6c 69 6e 65 75 70 |scal-aut|o-lineup|
|00002080| 20 20 20 20 20 20 20 28 | 64 65 66 61 75 6c 74 20 | (|default |
|00002090| 74 29 0a 20 20 20 20 4c | 69 73 74 20 6f 66 20 63 |t). L|ist of c|
|000020a0| 6f 6e 74 65 78 74 73 20 | 77 68 65 72 65 20 61 75 |ontexts |where au|
|000020b0| 74 6f 20 6c 69 6e 65 75 | 70 20 6f 66 20 3a 27 73 |to lineu|p of :'s|
|000020c0| 20 6f 72 20 3d 27 73 20 | 68 6f 75 6c 64 20 62 65 | or ='s |hould be|
|000020d0| 20 64 6f 6e 65 2e 0a 0a | 53 65 65 20 61 6c 73 6f | done...|See also|
|000020e0| 20 74 68 65 20 75 73 65 | 72 20 76 61 72 69 61 62 | the use|r variab|
|000020f0| 6c 65 73 20 70 61 73 63 | 61 6c 2d 74 79 70 65 2d |les pasc|al-type-|
|00002100| 6b 65 79 77 6f 72 64 73 | 2c 20 70 61 73 63 61 6c |keywords|, pascal|
|00002110| 2d 73 74 61 72 74 2d 6b | 65 79 77 6f 72 64 73 20 |-start-k|eywords |
|00002120| 61 6e 64 0a 70 61 73 63 | 61 6c 2d 73 65 70 61 72 |and.pasc|al-separ|
|00002130| 61 74 6f 72 2d 6b 65 79 | 77 6f 72 64 73 2e 0a 0a |ator-key|words...|
|00002140| 54 75 72 6e 69 6e 67 20 | 6f 6e 20 50 61 73 63 61 |Turning |on Pasca|
|00002150| 6c 20 6d 6f 64 65 20 63 | 61 6c 6c 73 20 74 68 65 |l mode c|alls the|
|00002160| 20 76 61 6c 75 65 20 6f | 66 20 74 68 65 20 76 61 | value o|f the va|
|00002170| 72 69 61 62 6c 65 20 70 | 61 73 63 61 6c 2d 6d 6f |riable p|ascal-mo|
|00002180| 64 65 2d 68 6f 6f 6b 20 | 77 69 74 68 0a 6e 6f 20 |de-hook |with.no |
|00002190| 61 72 67 73 2c 20 69 66 | 20 74 68 61 74 20 76 61 |args, if| that va|
|000021a0| 6c 75 65 20 69 73 20 6e | 6f 6e 2d 6e 69 6c 2e 22 |lue is n|on-nil."|
|000021b0| 20 6e 69 6c 5d 29 0a 28 | 66 73 65 74 20 27 65 6c | nil]).(|fset 'el|
|000021c0| 65 63 74 72 69 63 2d 70 | 61 73 63 61 6c 2d 74 65 |ectric-p|ascal-te|
|000021d0| 72 6d 69 6e 61 74 65 2d | 6c 69 6e 65 20 23 5b 6e |rminate-|line #[n|
|000021e0| 69 6c 20 22 8a c0 79 88 | c1 c2 77 88 c3 0c 21 ab |il "..y.|..w...!.|
|000021f0| 83 c5 20 88 29 c6 20 88 | c7 20 88 c5 20 88 0e 08 |.. .). .|. .. ...|
|00002200| ab 83 c9 20 88 c2 1e 5c | 6e 8a cb 79 88 c1 c2 77 |... ...\|n..y...w|
|00002210| 88 c3 cc 21 ab 88 cd 75 | 88 c6 20 88 aa 9a c3 ce |...!...u|.. .....|
|00002220| 21 ab 95 8a cf d0 c2 1e | 11 8a 0e 11 7f 88 60 2a |!.......|......`*|
|00002230| d2 23 29 ac 83 d2 16 5c | 6e 29 0e 5c 6e ac 84 c5 |.#)....\|n).\n...|
|00002240| 20 aa 82 d3 63 29 87 22 | 20 5b 30 20 22 20 09 22 | ...c)."| [0 " ."|
|00002250| 20 6e 69 6c 20 6c 6f 6f | 6b 69 6e 67 2d 61 74 20 | nil loo|king-at |
|00002260| 70 61 73 63 61 6c 2d 61 | 75 74 6f 69 6e 64 65 6e |pascal-a|utoinden|
|00002270| 74 2d 6c 69 6e 65 73 2d | 72 65 20 70 61 73 63 61 |t-lines-|re pasca|
|00002280| 6c 2d 69 6e 64 65 6e 74 | 2d 6c 69 6e 65 20 64 65 |l-indent|-line de|
|00002290| 6c 65 74 65 2d 68 6f 72 | 69 7a 6f 6e 74 61 6c 2d |lete-hor|izontal-|
|000022a0| 73 70 61 63 65 20 6e 65 | 77 6c 69 6e 65 20 70 61 |space ne|wline pa|
|000022b0| 73 63 61 6c 2d 61 75 74 | 6f 2d 65 6e 64 63 6f 6d |scal-aut|o-endcom|
|000022c0| 6d 65 6e 74 73 20 70 61 | 73 63 61 6c 2d 73 65 74 |ments pa|scal-set|
|000022d0| 2d 61 75 74 6f 2d 63 6f | 6d 6d 65 6e 74 73 20 73 |-auto-co|mments s|
|000022e0| 65 74 73 74 61 72 20 2d | 31 20 22 5c 5c 2a 5b 20 |etstar -|1 "\\*[ |
|000022f0| 09 5d 2b 29 22 20 31 20 | 22 28 5c 5c 2a 5c 5c 7c |.]+)" 1 |"(\\*\\||
|00002300| 5c 5c 2a 5b 5e 29 5d 22 | 20 73 65 61 72 63 68 2d |\\*[^)]"| search-|
|00002310| 66 6f 72 77 61 72 64 20 | 22 2a 29 22 20 61 72 67 |forward |"*)" arg|
|00002320| 20 74 20 22 2a 20 20 22 | 5d 20 34 20 22 5c 0a 54 | t "* "|] 4 "\.T|
|00002330| 65 72 6d 69 6e 61 74 65 | 20 6c 69 6e 65 20 61 6e |erminate| line an|
|00002340| 64 20 69 6e 64 65 6e 74 | 20 6e 65 78 74 20 6c 69 |d indent| next li|
|00002350| 6e 65 2e 22 20 6e 69 6c | 5d 29 0a 28 66 73 65 74 |ne." nil|]).(fset|
|00002360| 20 27 65 6c 65 63 74 72 | 69 63 2d 70 61 73 63 61 | 'electr|ic-pasca|
|00002370| 6c 2d 73 65 6d 69 2d 6f | 72 2d 64 6f 74 20 23 5b |l-semi-o|r-dot #[|
|00002380| 6e 69 6c 20 22 08 63 88 | 8a c1 79 88 c2 20 88 29 |nil ".c.|..y.. .)|
|00002390| 0b ad 82 c4 20 87 22 20 | 5b 6c 61 73 74 2d 63 6f |.... ." |[last-co|
|000023a0| 6d 6d 61 6e 64 2d 63 68 | 61 72 20 30 20 70 61 73 |mmand-ch|ar 0 pas|
|000023b0| 63 61 6c 2d 69 6e 64 65 | 6e 74 2d 6c 69 6e 65 20 |cal-inde|nt-line |
|000023c0| 70 61 73 63 61 6c 2d 61 | 75 74 6f 2d 6e 65 77 6c |pascal-a|uto-newl|
|000023d0| 69 6e 65 20 65 6c 65 63 | 74 72 69 63 2d 70 61 73 |ine elec|tric-pas|
|000023e0| 63 61 6c 2d 74 65 72 6d | 69 6e 61 74 65 2d 6c 69 |cal-term|inate-li|
|000023f0| 6e 65 5d 20 31 20 22 5c | 0a 49 6e 73 65 72 74 20 |ne] 1 "\|.Insert |
|00002400| 60 3b 27 20 6f 72 20 60 | 2e 27 20 63 68 61 72 61 |`;' or `|.' chara|
|00002410| 63 74 65 72 20 61 6e 64 | 20 72 65 69 6e 64 65 6e |cter and| reinden|
|00002420| 74 20 74 68 65 20 6c 69 | 6e 65 2e 22 20 6e 69 6c |t the li|ne." nil|
|00002430| 5d 29 0a 28 66 73 65 74 | 20 27 65 6c 65 63 74 72 |]).(fset| 'electr|
|00002440| 69 63 2d 70 61 73 63 61 | 6c 2d 63 6f 6c 6f 6e 20 |ic-pasca|l-colon |
|00002450| 23 5b 6e 69 6c 20 22 08 | 63 88 8a c1 c2 c3 1c 8a |#[nil ".|c.......|
|00002460| c5 0c 21 88 60 2a 60 5c | 22 38 29 3f ad 8e 8a c6 |..!.`*`\|"8)?....|
|00002470| 79 88 c7 20 88 29 c3 1e | 08 c9 20 29 87 22 20 5b |y.. .)..|.. )." [|
|00002480| 6c 61 73 74 2d 63 6f 6d | 6d 61 6e 64 2d 63 68 61 |last-com|mand-cha|
|00002490| 72 20 33 20 70 61 72 73 | 65 2d 70 61 72 74 69 61 |r 3 pars|e-partia|
|000024a0| 6c 2d 73 65 78 70 20 6e | 69 6c 20 61 72 67 20 62 |l-sexp n|il arg b|
|000024b0| 65 67 69 6e 6e 69 6e 67 | 2d 6f 66 2d 6c 69 6e 65 |eginning|-of-line|
|000024c0| 20 30 20 70 61 73 63 61 | 6c 2d 69 6e 64 65 6e 74 | 0 pasca|l-indent|
|000024d0| 2d 6c 69 6e 65 20 70 61 | 73 63 61 6c 2d 74 61 62 |-line pa|scal-tab|
|000024e0| 2d 61 6c 77 61 79 73 2d | 69 6e 64 65 6e 74 20 70 |-always-|indent p|
|000024f0| 61 73 63 61 6c 2d 69 6e | 64 65 6e 74 2d 63 6f 6d |ascal-in|dent-com|
|00002500| 6d 61 6e 64 5d 20 34 20 | 22 5c 0a 49 6e 73 65 72 |mand] 4 |"\.Inser|
|00002510| 74 20 60 3a 27 20 61 6e | 64 20 64 6f 20 61 6c 6c |t `:' an|d do all|
|00002520| 20 69 6e 64 65 6e 74 69 | 6f 6e 73 20 65 78 63 65 | indenti|ons exce|
|00002530| 70 74 20 6c 69 6e 65 20 | 69 6e 64 65 6e 74 20 6f |pt line |indent o|
|00002540| 6e 20 74 68 69 73 20 6c | 69 6e 65 2e 22 20 6e 69 |n this l|ine." ni|
|00002550| 6c 5d 29 0a 28 66 73 65 | 74 20 27 65 6c 65 63 74 |l]).(fse|t 'elect|
|00002560| 72 69 63 2d 70 61 73 63 | 61 6c 2d 65 71 75 61 6c |ric-pasc|al-equal|
|00002570| 20 23 5b 6e 69 6c 20 22 | 08 63 88 c1 20 40 c2 3d | #[nil "|.c.. @.=|
|00002580| ad 85 c3 1c c5 20 29 87 | 22 20 5b 6c 61 73 74 2d |..... ).|" [last-|
|00002590| 63 6f 6d 6d 61 6e 64 2d | 63 68 61 72 20 70 61 73 |command-|char pas|
|000025a0| 63 61 6c 2d 63 61 6c 63 | 75 6c 61 74 65 2d 69 6e |cal-calc|ulate-in|
|000025b0| 64 65 6e 74 20 64 65 63 | 6c 61 72 61 74 69 6f 6e |dent dec|laration|
|000025c0| 20 6e 69 6c 20 70 61 73 | 63 61 6c 2d 74 61 62 2d | nil pas|cal-tab-|
|000025d0| 61 6c 77 61 79 73 2d 69 | 6e 64 65 6e 74 20 70 61 |always-i|ndent pa|
|000025e0| 73 63 61 6c 2d 69 6e 64 | 65 6e 74 2d 63 6f 6d 6d |scal-ind|ent-comm|
|000025f0| 61 6e 64 5d 20 32 20 22 | 5c 0a 49 6e 73 65 72 74 |and] 2 "|\.Insert|
|00002600| 20 60 3d 27 2c 20 61 6e | 64 20 64 6f 20 69 6e 64 | `=', an|d do ind|
|00002610| 65 6e 74 69 6f 6e 20 69 | 66 20 77 69 74 68 69 6e |ention i|f within|
|00002620| 20 74 79 70 65 20 64 65 | 63 6c 61 72 61 74 69 6f | type de|claratio|
|00002630| 6e 2e 22 20 6e 69 6c 5d | 29 0a 28 66 73 65 74 20 |n." nil]|).(fset |
|00002640| 27 65 6c 65 63 74 72 69 | 63 2d 70 61 73 63 61 6c |'electri|c-pascal|
|00002650| 2d 68 61 73 68 20 23 5b | 6e 69 6c 20 22 08 63 88 |-hash #[|nil ".c.|
|00002660| 8a c1 79 88 c2 c3 21 29 | ad 87 8a c1 79 88 c4 20 |..y...!)|....y.. |
|00002670| 29 87 22 20 5b 6c 61 73 | 74 2d 63 6f 6d 6d 61 6e |)." [las|t-comman|
|00002680| 64 2d 63 68 61 72 20 30 | 20 6c 6f 6f 6b 69 6e 67 |d-char 0| looking|
|00002690| 2d 61 74 20 22 5e 5b 20 | 09 5d 2a 23 22 20 64 65 |-at "^[ |.]*#" de|
|000026a0| 6c 65 74 65 2d 68 6f 72 | 69 7a 6f 6e 74 61 6c 2d |lete-hor|izontal-|
|000026b0| 73 70 61 63 65 5d 20 32 | 20 22 5c 0a 49 6e 73 65 |space] 2| "\.Inse|
|000026c0| 72 74 20 60 23 27 2c 20 | 61 6e 64 20 69 6e 64 65 |rt `#', |and inde|
|000026d0| 6e 74 20 74 6f 20 63 6f | 75 6c 6d 6e 20 30 20 69 |nt to co|ulmn 0 i|
|000026e0| 66 20 74 68 69 73 20 69 | 73 20 61 20 43 50 50 20 |f this i|s a CPP |
|000026f0| 64 69 72 65 63 74 69 76 | 65 2e 22 20 6e 69 6c 5d |directiv|e." nil]|
|00002700| 29 0a 28 66 73 65 74 20 | 27 65 6c 65 63 74 72 69 |).(fset |'electri|
|00002710| 63 2d 70 61 73 63 61 6c | 2d 74 61 62 20 23 5b 6e |c-pascal|-tab #[n|
|00002720| 69 6c 20 22 8a c0 c1 c2 | 1b 8a c4 0b 21 88 60 2a |il "....|....!.`*|
|00002730| 60 5c 22 38 29 ac 8d 6e | ac 8d 8a c5 79 88 67 29 |`\"8)..n|....y.g)|
|00002740| c6 3d ab 83 c7 63 87 0e | 08 ab 8a 8a c5 79 88 c9 |.=...c..|.....y..|
|00002750| 20 88 29 aa 83 c7 63 88 | ca 20 87 22 20 5b 33 20 | .)...c.|. ." [3 |
|00002760| 70 61 72 73 65 2d 70 61 | 72 74 69 61 6c 2d 73 65 |parse-pa|rtial-se|
|00002770| 78 70 20 6e 69 6c 20 61 | 72 67 20 62 65 67 69 6e |xp nil a|rg begin|
|00002780| 6e 69 6e 67 2d 6f 66 2d | 6c 69 6e 65 20 30 20 33 |ning-of-|line 0 3|
|00002790| 35 20 22 09 22 20 70 61 | 73 63 61 6c 2d 74 61 62 |5 "." pa|scal-tab|
|000027a0| 2d 61 6c 77 61 79 73 2d | 69 6e 64 65 6e 74 20 70 |-always-|indent p|
|000027b0| 61 73 63 61 6c 2d 69 6e | 64 65 6e 74 2d 6c 69 6e |ascal-in|dent-lin|
|000027c0| 65 20 70 61 73 63 61 6c | 2d 69 6e 64 65 6e 74 2d |e pascal|-indent-|
|000027d0| 63 6f 6d 6d 61 6e 64 5d | 20 34 20 22 5c 0a 46 75 |command]| 4 "\.Fu|
|000027e0| 6e 63 74 69 6f 6e 20 63 | 61 6c 6c 65 64 20 77 68 |nction c|alled wh|
|000027f0| 65 6e 20 54 41 42 20 69 | 73 20 70 72 65 73 73 65 |en TAB i|s presse|
|00002800| 64 20 69 6e 20 50 61 73 | 63 61 6c 20 6d 6f 64 65 |d in Pas|cal mode|
|00002810| 2e 22 20 6e 69 6c 5d 29 | 0a 28 66 73 65 74 20 27 |." nil])|.(fset '|
|00002820| 70 61 73 63 61 6c 2d 69 | 6e 73 65 72 74 2d 62 6c |pascal-i|nsert-bl|
|00002830| 6f 63 6b 20 23 5b 6e 69 | 6c 20 22 c0 20 88 c1 63 |ock #[ni|l ". ..c|
|00002840| 88 c2 20 88 8a c2 20 88 | c3 63 88 c4 79 88 c0 20 |.. ... .|.c..y.. |
|00002850| 29 87 22 20 5b 70 61 73 | 63 61 6c 2d 69 6e 64 65 |)." [pas|cal-inde|
|00002860| 6e 74 2d 6c 69 6e 65 20 | 22 62 65 67 69 6e 22 20 |nt-line |"begin" |
|00002870| 65 6c 65 63 74 72 69 63 | 2d 70 61 73 63 61 6c 2d |electric|-pascal-|
|00002880| 74 65 72 6d 69 6e 61 74 | 65 2d 6c 69 6e 65 20 22 |terminat|e-line "|
|00002890| 65 6e 64 3b 22 20 30 5d | 20 31 20 22 5c 0a 49 6e |end;" 0]| 1 "\.In|
|000028a0| 73 65 72 74 20 50 61 73 | 63 61 6c 20 62 65 67 69 |sert Pas|cal begi|
|000028b0| 6e 20 2e 2e 2e 20 65 6e | 64 3b 20 62 6c 6f 63 6b |n ... en|d; block|
|000028c0| 20 69 6e 20 74 68 65 20 | 63 6f 64 65 20 77 69 74 | in the |code wit|
|000028d0| 68 20 72 69 67 68 74 20 | 69 6e 64 65 6e 74 61 74 |h right |indentat|
|000028e0| 69 6f 6e 2e 22 20 6e 69 | 6c 5d 29 0a 28 66 73 65 |ion." ni|l]).(fse|
|000028f0| 74 20 27 70 61 73 63 61 | 6c 2d 73 74 61 72 2d 63 |t 'pasca|l-star-c|
|00002900| 6f 6d 6d 65 6e 74 20 23 | 5b 6e 69 6c 20 22 c0 20 |omment #|[nil ". |
|00002910| 88 c1 63 88 c2 20 88 8a | c2 20 88 c3 20 88 c4 63 |..c.. ..|. .. ..c|
|00002920| 88 29 c5 63 87 22 20 5b | 70 61 73 63 61 6c 2d 69 |.).c." [|pascal-i|
|00002930| 6e 64 65 6e 74 2d 6c 69 | 6e 65 20 22 28 2a 22 20 |ndent-li|ne "(*" |
|00002940| 65 6c 65 63 74 72 69 63 | 2d 70 61 73 63 61 6c 2d |electric|-pascal-|
|00002950| 74 65 72 6d 69 6e 61 74 | 65 2d 6c 69 6e 65 20 64 |terminat|e-line d|
|00002960| 65 6c 65 74 65 2d 68 6f | 72 69 7a 6f 6e 74 61 6c |elete-ho|rizontal|
|00002970| 2d 73 70 61 63 65 20 22 | 29 22 20 22 20 20 22 5d |-space "|)" " "]|
|00002980| 20 31 20 22 5c 0a 49 6e | 73 65 72 74 20 50 61 73 | 1 "\.In|sert Pas|
|00002990| 63 61 6c 20 73 74 61 72 | 20 63 6f 6d 6d 65 6e 74 |cal star| comment|
|000029a0| 20 61 74 20 70 6f 69 6e | 74 2e 22 20 6e 69 6c 5d | at poin|t." nil]|
|000029b0| 29 0a 28 66 73 65 74 20 | 27 70 61 73 63 61 6c 2d |).(fset |'pascal-|
|000029c0| 6d 61 72 6b 2d 64 65 66 | 75 6e 20 23 5b 6e 69 6c |mark-def|un #[nil|
|000029d0| 20 22 c0 60 21 88 c1 20 | 88 c0 60 21 88 c2 20 88 | ".`!.. |..`!.. .|
|000029e0| c3 c4 21 ad 82 c4 20 87 | 22 20 5b 70 75 73 68 2d |..!... .|" [push-|
|000029f0| 6d 61 72 6b 20 70 61 73 | 63 61 6c 2d 65 6e 64 2d |mark pas|cal-end-|
|00002a00| 6f 66 2d 64 65 66 75 6e | 20 70 61 73 63 61 6c 2d |of-defun| pascal-|
|00002a10| 62 65 67 2d 6f 66 2d 64 | 65 66 75 6e 20 66 62 6f |beg-of-d|efun fbo|
|00002a20| 75 6e 64 70 20 7a 6d 61 | 63 73 2d 61 63 74 69 76 |undp zma|cs-activ|
|00002a30| 61 74 65 2d 72 65 67 69 | 6f 6e 5d 20 32 20 22 5c |ate-regi|on] 2 "\|
|00002a40| 0a 4d 61 72 6b 20 74 68 | 65 20 63 75 72 72 65 6e |.Mark th|e curren|
|00002a50| 74 20 70 61 73 63 61 6c | 20 66 75 6e 63 74 69 6f |t pascal| functio|
|00002a60| 6e 20 28 6f 72 20 70 72 | 6f 63 65 64 75 72 65 29 |n (or pr|ocedure)|
|00002a70| 2e 0a 54 68 69 73 20 70 | 75 74 73 20 74 68 65 20 |..This p|uts the |
|00002a80| 6d 61 72 6b 20 61 74 20 | 74 68 65 20 65 6e 64 2c |mark at |the end,|
|00002a90| 20 61 6e 64 20 70 6f 69 | 6e 74 20 61 74 20 74 68 | and poi|nt at th|
|00002aa0| 65 20 62 65 67 69 6e 6e | 69 6e 67 2e 22 20 6e 69 |e beginn|ing." ni|
|00002ab0| 6c 5d 29 0a 28 66 73 65 | 74 20 27 70 61 73 63 61 |l]).(fse|t 'pasca|
|00002ac0| 6c 2d 63 6f 6d 6d 65 6e | 74 2d 61 72 65 61 20 23 |l-commen|t-area #|
|00002ad0| 5b 28 73 74 61 72 74 20 | 65 6e 64 29 20 22 8a 08 |[(start |end) "..|
|00002ae0| 62 88 8a c1 c2 77 88 6c | 29 ab 8e 8a c1 c2 78 88 |b....w.l|).....x.|
|00002af0| 6e 29 ac 85 c3 79 88 aa | 83 c4 79 88 0d 63 88 60 |n)...y..|..y..c.`|
|00002b00| 10 c6 20 88 0e 07 62 88 | c4 79 88 0e 08 63 88 c6 |.. ...b.|.y...c..|
|00002b10| 20 88 08 62 88 8a c9 ca | 0e 07 cb 23 ab 88 cc cd | ..b....|...#....|
|00002b20| cb 89 23 88 aa 70 29 8a | c9 ce 0e 07 cb 23 ad 88 |..#..p).|.....#..|
|00002b30| cc cf cb 89 23 88 aa 70 | 2a 87 22 20 5b 65 6e 64 |....#..p|*." [end|
|00002b40| 20 22 20 09 22 20 6e 69 | 6c 20 31 20 30 20 70 61 | " ." ni|l 1 0 pa|
|00002b50| 73 63 61 6c 2d 65 78 63 | 6c 75 64 65 2d 73 74 72 |scal-exc|lude-str|
|00002b60| 2d 65 6e 64 20 6e 65 77 | 6c 69 6e 65 20 73 74 61 |-end new|line sta|
|00002b70| 72 74 20 70 61 73 63 61 | 6c 2d 65 78 63 6c 75 64 |rt pasca|l-exclud|
|00002b80| 65 2d 73 74 72 2d 73 74 | 61 72 74 20 72 65 2d 73 |e-str-st|art re-s|
|00002b90| 65 61 72 63 68 2d 62 61 | 63 6b 77 61 72 64 20 22 |earch-ba|ckward "|
|00002ba0| 5c 5c 2a 29 22 20 74 20 | 72 65 70 6c 61 63 65 2d |\\*)" t |replace-|
|00002bb0| 6d 61 74 63 68 20 22 21 | 28 2a 22 20 22 7d 22 20 |match "!|(*" "}" |
|00002bc0| 22 21 7b 22 5d 20 34 20 | 22 5c 0a 50 75 74 20 74 |"!{"] 4 |"\.Put t|
|00002bd0| 68 65 20 72 65 67 69 6f | 6e 20 69 6e 74 6f 20 61 |he regio|n into a|
|00002be0| 20 50 61 73 63 61 6c 20 | 63 6f 6d 6d 65 6e 74 2e | Pascal |comment.|
|00002bf0| 0a 54 68 65 20 63 6f 6d | 6d 65 6e 74 73 20 74 68 |.The com|ments th|
|00002c00| 61 74 20 61 72 65 20 69 | 6e 20 74 68 69 73 20 61 |at are i|n this a|
|00002c10| 72 65 61 20 61 72 65 20 | 5c 22 64 65 66 6f 72 6d |rea are |\"deform|
|00002c20| 65 64 5c 22 3a 0a 60 2a | 29 27 20 62 65 63 6f 6d |ed\":.`*|)' becom|
|00002c30| 65 73 20 60 21 28 2a 27 | 20 61 6e 64 20 60 7d 27 |es `!(*'| and `}'|
|00002c40| 20 62 65 63 6f 6d 65 73 | 20 60 21 7b 27 2e 0a 54 | becomes| `!{'..T|
|00002c50| 68 65 73 65 20 64 65 66 | 6f 72 6d 65 64 20 63 6f |hese def|ormed co|
|00002c60| 6d 6d 65 6e 74 73 20 61 | 72 65 20 72 65 74 75 72 |mments a|re retur|
|00002c70| 6e 65 64 20 74 6f 20 6e | 6f 72 6d 61 6c 20 69 66 |ned to n|ormal if|
|00002c80| 20 79 6f 75 20 75 73 65 | 0a 5c 5c 5b 70 61 73 63 | you use|.\\[pasc|
|00002c90| 61 6c 2d 75 6e 63 6f 6d | 6d 65 6e 74 2d 61 72 65 |al-uncom|ment-are|
|00002ca0| 61 5d 20 74 6f 20 75 6e | 64 6f 20 74 68 65 20 63 |a] to un|do the c|
|00002cb0| 6f 6d 6d 65 6e 74 69 6e | 67 2e 0a 0a 54 68 65 20 |ommentin|g...The |
|00002cc0| 63 6f 6d 6d 65 6e 74 65 | 64 20 61 72 65 61 20 73 |commente|d area s|
|00002cd0| 74 61 72 74 73 20 77 69 | 74 68 20 60 70 61 73 63 |tarts wi|th `pasc|
|00002ce0| 61 6c 2d 65 78 63 6c 75 | 64 65 2d 73 74 72 2d 73 |al-exclu|de-str-s|
|00002cf0| 74 61 72 74 27 2c 20 61 | 6e 64 20 65 6e 64 73 20 |tart', a|nd ends |
|00002d00| 77 69 74 68 0a 60 70 61 | 73 63 61 6c 2d 69 6e 63 |with.`pa|scal-inc|
|00002d10| 6c 75 64 65 2d 73 74 72 | 2d 65 6e 64 27 2e 20 20 |lude-str|-end'. |
|00002d20| 42 75 74 20 69 66 20 79 | 6f 75 20 63 68 61 6e 67 |But if y|ou chang|
|00002d30| 65 20 74 68 65 73 65 20 | 76 61 72 69 61 62 6c 65 |e these |variable|
|00002d40| 73 2c 0a 5c 5c 5b 70 61 | 73 63 61 6c 2d 75 6e 63 |s,.\\[pa|scal-unc|
|00002d50| 6f 6d 6d 65 6e 74 2d 61 | 72 65 61 5d 20 77 6f 6e |omment-a|rea] won|
|00002d60| 27 74 20 72 65 63 6f 67 | 6e 69 7a 65 20 74 68 65 |'t recog|nize the|
|00002d70| 20 63 6f 6d 6d 65 6e 74 | 73 2e 22 20 22 72 22 5d | comment|s." "r"]|
|00002d80| 29 0a 28 66 73 65 74 20 | 27 70 61 73 63 61 6c 2d |).(fset |'pascal-|
|00002d90| 75 6e 63 6f 6d 6d 65 6e | 74 2d 61 72 65 61 20 23 |uncommen|t-area #|
|00002da0| 5b 6e 69 6c 20 22 8a 60 | 60 18 19 8a c2 0b c4 c5 |[nil ".`|`.......|
|00002db0| 23 88 60 11 c6 0e 07 c4 | c5 23 88 60 10 29 09 60 |#.`.....|.#.`.).`|
|00002dc0| 9a ac 85 08 60 58 ab 85 | c8 c9 21 aa c7 08 62 88 |....`X..|..!...b.|
|00002dd0| ca 79 88 60 1e 0b c4 7f | 88 0e 0b 60 54 7c 88 29 |.y.`....|...`T|.)|
|00002de0| 8a cc cd 09 c5 23 ab 88 | ce cf c5 89 23 88 aa 71 |.....#..|....#..q|
|00002df0| 29 8a cc d0 09 c5 23 ab | 88 ce d1 c5 89 23 88 aa |).....#.|.....#..|
|00002e00| 71 29 09 62 88 ca 79 88 | 60 1e 0b c4 7f 88 0e 0b |q).b..y.|`.......|
|00002e10| 60 54 7c 29 2b 87 22 20 | 5b 65 6e 64 20 73 74 61 |`T|)+." |[end sta|
|00002e20| 72 74 20 73 65 61 72 63 | 68 2d 62 61 63 6b 77 61 |rt searc|h-backwa|
|00002e30| 72 64 20 70 61 73 63 61 | 6c 2d 65 78 63 6c 75 64 |rd pasca|l-exclud|
|00002e40| 65 2d 73 74 72 2d 73 74 | 61 72 74 20 6e 69 6c 20 |e-str-st|art nil |
|00002e50| 74 20 73 65 61 72 63 68 | 2d 66 6f 72 77 61 72 64 |t search|-forward|
|00002e60| 20 70 61 73 63 61 6c 2d | 65 78 63 6c 75 64 65 2d | pascal-|exclude-|
|00002e70| 73 74 72 2d 65 6e 64 20 | 6d 65 73 73 61 67 65 20 |str-end |message |
|00002e80| 22 4e 6f 74 20 73 74 61 | 6e 64 69 6e 67 20 77 69 |"Not sta|nding wi|
|00002e90| 74 68 69 6e 20 63 6f 6d | 6d 65 6e 74 65 64 20 61 |thin com|mented a|
|00002ea0| 72 65 61 2e 22 20 30 20 | 70 6f 73 20 72 65 2d 73 |rea." 0 |pos re-s|
|00002eb0| 65 61 72 63 68 2d 62 61 | 63 6b 77 61 72 64 20 22 |earch-ba|ckward "|
|00002ec0| 21 7b 22 20 72 65 70 6c | 61 63 65 2d 6d 61 74 63 |!{" repl|ace-matc|
|00002ed0| 68 20 22 7d 22 20 22 21 | 28 5c 5c 2a 22 20 22 2a |h "}" "!|(\\*" "*|
|00002ee0| 29 22 5d 20 34 20 22 5c | 0a 55 6e 63 6f 6d 6d 65 |)"] 4 "\|.Uncomme|
|00002ef0| 6e 74 20 61 20 63 6f 6d | 6d 65 6e 74 65 64 20 61 |nt a com|mented a|
|00002f00| 72 65 61 3b 20 63 68 61 | 6e 67 65 20 64 65 66 6f |rea; cha|nge defo|
|00002f10| 72 6d 65 64 20 63 6f 6d | 6d 65 6e 74 73 20 62 61 |rmed com|ments ba|
|00002f20| 63 6b 20 74 6f 20 6e 6f | 72 6d 61 6c 2e 0a 54 68 |ck to no|rmal..Th|
|00002f30| 69 73 20 63 6f 6d 6d 61 | 6e 64 20 64 6f 65 73 20 |is comma|nd does |
|00002f40| 6e 6f 74 68 69 6e 67 20 | 69 66 20 74 68 65 20 70 |nothing |if the p|
|00002f50| 6f 69 6e 74 65 72 20 69 | 73 20 6e 6f 74 20 69 6e |ointer i|s not in|
|00002f60| 20 61 20 63 6f 6d 6d 65 | 6e 74 65 64 0a 61 72 65 | a comme|nted.are|
|00002f70| 61 2e 20 20 53 65 65 20 | 61 6c 73 6f 20 60 70 61 |a. See |also `pa|
|00002f80| 73 63 61 6c 2d 63 6f 6d | 6d 65 6e 74 2d 61 72 65 |scal-com|ment-are|
|00002f90| 61 27 2e 22 20 6e 69 6c | 5d 29 0a 28 66 73 65 74 |a'." nil|]).(fset|
|00002fa0| 20 27 70 61 73 63 61 6c | 2d 62 65 67 2d 6f 66 2d | 'pascal|-beg-of-|
|00002fb0| 64 65 66 75 6e 20 23 5b | 6e 69 6c 20 22 c0 c1 8d |defun #[|nil "...|
|00002fc0| 87 22 20 5b 66 6f 75 6e | 64 20 28 62 79 74 65 2d |." [foun|d (byte-|
|00002fd0| 63 6f 64 65 20 22 c0 c1 | 5c 6e 50 21 ac 84 c3 c4 |code "..|\nP!....|
|00002fe0| 21 88 c5 c6 c5 0e 07 c8 | 0e 09 c8 5c 6e b0 05 1e |!.......|...\n...|
|00002ff0| 5c 6e 1e 0b 1e 0c 1e 0d | ce 0e 5c 6e cf d0 23 ab |\n......|..\n..#.|
|00003000| eb 8a d1 65 60 5c 22 29 | 1e 12 d3 0e 12 38 ae 84 |...e`\")|.....8..|
|00003010| d4 0e 12 38 29 ac 63 c4 | 95 ab 9d c0 d5 21 ab 8b |...8).c.|.....!..|
|00003020| 0e 0c c5 59 ab 85 0e 0b | 53 16 0b 0e 0d 54 89 16 |...Y....|S....T..|
|00003030| 0d 0e 0c 5d 16 0c aa 42 | d6 95 ab 99 0e 0d 0e 0c |...]...B|........|
|00003040| 55 ab 8b 0e 0c c5 59 ab | 85 0e 0b 54 16 0b 0e 0d |U.....Y.|...T....|
|00003050| 53 16 0d aa 25 d3 95 ab | 21 0e 0b c5 55 ab 87 d7 |S...%...|!...U...|
|00003060| d8 d9 5c 22 88 aa 14 0e | 0b 53 16 0b aa 0d 2c cf |..\"....|.S....,.|
|00003070| 87 22 20 5b 6c 6f 6f 6b | 69 6e 67 2d 61 74 20 22 |." [look|ing-at "|
|00003080| 5c 5c 73 20 5c 5c 7c 5c | 5c 73 29 5c 5c 7c 22 20 |\\s \\|\|\s)\\|" |
|00003090| 70 61 73 63 61 6c 2d 64 | 65 66 75 6e 2d 72 65 20 |pascal-d|efun-re |
|000030a0| 66 6f 72 77 61 72 64 2d | 73 65 78 70 20 31 20 30 |forward-|sexp 1 0|
|000030b0| 20 2d 31 20 70 61 73 63 | 61 6c 2d 62 65 67 2d 62 | -1 pasc|al-beg-b|
|000030c0| 6c 6f 63 6b 2d 72 65 20 | 22 5c 5c 7c 22 20 70 61 |lock-re |"\\|" pa|
|000030d0| 73 63 61 6c 2d 65 6e 64 | 2d 62 6c 6f 63 6b 2d 72 |scal-end|-block-r|
|000030e0| 65 20 72 65 67 20 66 75 | 6e 63 20 6d 61 78 20 6e |e reg fu|nc max n|
|000030f0| 65 73 74 20 72 65 2d 73 | 65 61 72 63 68 2d 62 61 |est re-s|earch-ba|
|00003100| 63 6b 77 61 72 64 20 6e | 69 6c 20 6d 6f 76 65 20 |ckward n|il move |
|00003110| 70 61 72 73 65 2d 70 61 | 72 74 69 61 6c 2d 73 65 |parse-pa|rtial-se|
|00003120| 78 70 20 73 74 61 74 65 | 20 33 20 34 20 22 5c 5c |xp state| 3 4 "\\|
|00003130| 3c 72 65 63 6f 72 64 5c | 5c 3e 22 20 32 20 74 68 |<record\|\>" 2 th|
|00003140| 72 6f 77 20 66 6f 75 6e | 64 20 74 5d 20 39 29 5d |row foun|d t] 9)]|
|00003150| 20 32 20 22 5c 0a 4d 6f | 76 65 20 62 61 63 6b 77 | 2 "\.Mo|ve backw|
|00003160| 61 72 64 20 74 6f 20 74 | 68 65 20 62 65 67 69 6e |ard to t|he begin|
|00003170| 6e 69 6e 67 20 6f 66 20 | 74 68 65 20 63 75 72 72 |ning of |the curr|
|00003180| 65 6e 74 20 66 75 6e 63 | 74 69 6f 6e 20 6f 72 20 |ent func|tion or |
|00003190| 70 72 6f 63 65 64 75 72 | 65 2e 22 20 6e 69 6c 5d |procedur|e." nil]|
|000031a0| 29 0a 28 66 73 65 74 20 | 27 70 61 73 63 61 6c 2d |).(fset |'pascal-|
|000031b0| 65 6e 64 2d 6f 66 2d 64 | 65 66 75 6e 20 23 5b 6e |end-of-d|efun #[n|
|000031c0| 69 6c 20 22 c0 c1 21 ab | 84 c2 c3 21 88 c0 0c 21 |il "..!.|...!...!|
|000031d0| ac 83 c5 20 88 c3 75 88 | c6 c3 0e 07 c8 0e 09 c8 |... ..u.|........|
|000031e0| 0c b0 05 1e 5c 6e 1e 0b | 1e 0c 0e 0b c6 55 ac db |....\n..|.....U..|
|000031f0| cd 0e 5c 6e ce cf 23 ab | d3 8a d0 65 60 5c 22 29 |..\n..#.|...e`\")|
|00003200| 1e 11 d2 0e 11 38 ae 84 | d3 0e 11 38 29 ac 5d c3 |.....8..|...8).].|
|00003210| 95 ab 98 0e 0c 54 16 0c | 8a c6 94 62 88 c0 d4 21 |.....T..|...b...!|
|00003220| 29 ab 49 0e 0b 54 89 16 | 0b aa 43 d5 95 ab 92 0e |).I..T..|..C.....|
|00003230| 0c 53 89 16 0c c6 55 ab | 33 0e 0b 53 89 16 0b aa |.S....U.|3..S....|
|00003240| 2d d2 95 ab 27 0e 0b 54 | 89 16 0b aa 21 2b c3 79 |-...'..T|....!+.y|
|00003250| 87 22 20 5b 6c 6f 6f 6b | 69 6e 67 2d 61 74 20 22 |." [look|ing-at "|
|00003260| 5c 5c 73 20 22 20 66 6f | 72 77 61 72 64 2d 73 65 |\\s " fo|rward-se|
|00003270| 78 70 20 31 20 70 61 73 | 63 61 6c 2d 64 65 66 75 |xp 1 pas|cal-defu|
|00003280| 6e 2d 72 65 20 70 61 73 | 63 61 6c 2d 62 65 67 2d |n-re pas|cal-beg-|
|00003290| 6f 66 2d 64 65 66 75 6e | 20 30 20 70 61 73 63 61 |of-defun| 0 pasca|
|000032a0| 6c 2d 62 65 67 2d 62 6c | 6f 63 6b 2d 72 65 20 22 |l-beg-bl|ock-re "|
|000032b0| 5c 5c 7c 22 20 70 61 73 | 63 61 6c 2d 65 6e 64 2d |\\|" pas|cal-end-|
|000032c0| 62 6c 6f 63 6b 2d 72 65 | 20 72 65 67 20 66 75 6e |block-re| reg fun|
|000032d0| 63 20 6e 65 73 74 20 72 | 65 2d 73 65 61 72 63 68 |c nest r|e-search|
|000032e0| 2d 66 6f 72 77 61 72 64 | 20 6e 69 6c 20 6d 6f 76 |-forward| nil mov|
|000032f0| 65 20 70 61 72 73 65 2d | 70 61 72 74 69 61 6c 2d |e parse-|partial-|
|00003300| 73 65 78 70 20 73 74 61 | 74 65 20 33 20 34 20 22 |sexp sta|te 3 4 "|
|00003310| 5c 5c 3c 72 65 63 6f 72 | 64 5c 5c 3e 22 20 32 5d |\\<recor|d\\>" 2]|
|00003320| 20 38 20 22 5c 0a 4d 6f | 76 65 20 66 6f 72 77 61 | 8 "\.Mo|ve forwa|
|00003330| 72 64 20 74 6f 20 74 68 | 65 20 65 6e 64 20 6f 66 |rd to th|e end of|
|00003340| 20 74 68 65 20 63 75 72 | 72 65 6e 74 20 66 75 6e | the cur|rent fun|
|00003350| 63 74 69 6f 6e 20 6f 72 | 20 70 72 6f 63 65 64 75 |ction or| procedu|
|00003360| 72 65 2e 22 20 6e 69 6c | 5d 29 0a 28 66 73 65 74 |re." nil|]).(fset|
|00003370| 20 27 70 61 73 63 61 6c | 2d 65 6e 64 2d 6f 66 2d | 'pascal|-end-of-|
|00003380| 73 74 61 74 65 6d 65 6e | 74 20 23 5b 6e 69 6c 20 |statemen|t #[nil |
|00003390| 22 c0 c1 c2 0b c4 0d c6 | b0 05 1e 07 1e 08 1e 09 |".......|........|
|000033a0| ca cb 21 ac 84 cc cd 21 | 88 ca 0b 21 ac 85 ce cf |..!....!|...!....|
|000033b0| 8d 16 08 0e 08 ac 85 ce | d0 8d aa 82 0e 08 2b 87 |........|......+.|
|000033c0| 22 20 5b 30 20 6e 69 6c | 20 22 5c 5c 28 22 20 70 |" [0 nil| "\\(" p|
|000033d0| 61 73 63 61 6c 2d 62 65 | 67 2d 62 6c 6f 63 6b 2d |ascal-be|g-block-|
|000033e0| 72 65 20 22 5c 5c 29 5c | 5c 7c 5c 5c 28 22 20 70 |re "\\)\|\|\\(" p|
|000033f0| 61 73 63 61 6c 2d 65 6e | 64 2d 62 6c 6f 63 6b 2d |ascal-en|d-block-|
|00003400| 72 65 20 22 5c 5c 29 22 | 20 72 65 67 65 78 70 20 |re "\\)"| regexp |
|00003410| 70 6f 73 20 6e 65 73 74 | 20 6c 6f 6f 6b 69 6e 67 |pos nest| looking|
|00003420| 2d 61 74 20 22 5b 20 09 | 5c 6e 5d 22 20 66 6f 72 |-at "[ .|\n]" for|
|00003430| 77 61 72 64 2d 73 65 78 | 70 20 2d 31 20 66 6f 75 |ward-sex|p -1 fou|
|00003440| 6e 64 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |nd (byte|-code ".|
|00003450| c1 21 88 c2 c3 21 ab 8e | c4 c5 77 88 c1 75 88 c6 |.!...!..|..w..u..|
|00003460| c7 60 5c 22 88 aa 69 8a | c0 c8 21 88 c2 0e 09 21 |.`\"..i.|..!....!|
|00003470| 29 ab 8b ca 94 62 88 c6 | c7 c5 5c 22 88 aa 52 6d |)....b..|..\"..Rm|
|00003480| ab 4f c6 c7 60 5c 22 88 | aa 48 22 20 5b 66 6f 72 |.O..`\".|.H" [for|
|00003490| 77 61 72 64 2d 73 65 78 | 70 20 31 20 6c 6f 6f 6b |ward-sex|p 1 look|
|000034a0| 69 6e 67 2d 61 74 20 22 | 5b 20 09 5d 2a 3b 22 20 |ing-at "|[ .]*;" |
|000034b0| 22 5e 3b 22 20 6e 69 6c | 20 74 68 72 6f 77 20 66 |"^;" nil| throw f|
|000034c0| 6f 75 6e 64 20 2d 31 20 | 70 61 73 63 61 6c 2d 62 |ound -1 |pascal-b|
|000034d0| 65 67 2d 62 6c 6f 63 6b | 2d 72 65 20 30 5d 20 33 |eg-block|-re 0] 3|
|000034e0| 29 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 09 |) (byte-|code "..|
|000034f0| c2 c3 23 88 c4 95 ab 84 | 0d 54 aa 82 0d 53 15 6d |..#.....|.T...S.m|
|00003500| ab 87 c6 c7 60 5c 22 88 | aa 65 0d c8 55 ab 60 c6 |....`\".|.e..U.`.|
|00003510| c7 c9 20 5c 22 88 aa 58 | 22 20 5b 72 65 2d 73 65 |.. \"..X|" [re-se|
|00003520| 61 72 63 68 2d 66 6f 72 | 77 61 72 64 20 72 65 67 |arch-for|ward reg|
|00003530| 65 78 70 20 6e 69 6c 20 | 6d 6f 76 65 20 31 20 6e |exp nil |move 1 n|
|00003540| 65 73 74 20 74 68 72 6f | 77 20 66 6f 75 6e 64 20 |est thro|w found |
|00003550| 30 20 70 61 73 63 61 6c | 2d 65 6e 64 2d 6f 66 2d |0 pascal|-end-of-|
|00003560| 73 74 61 74 65 6d 65 6e | 74 5d 20 34 29 5d 20 37 |statemen|t] 4)] 7|
|00003570| 20 22 5c 0a 4d 6f 76 65 | 20 66 6f 72 77 61 72 64 | "\.Move| forward|
|00003580| 20 74 6f 20 65 6e 64 20 | 6f 66 20 63 75 72 72 65 | to end |of curre|
|00003590| 6e 74 20 73 74 61 74 65 | 6d 65 6e 74 2e 22 20 6e |nt state|ment." n|
|000035a0| 69 6c 5d 29 0a 28 66 73 | 65 74 20 27 70 61 73 63 |il]).(fs|et 'pasc|
|000035b0| 61 6c 2d 64 6f 77 6e 63 | 61 73 65 2d 6b 65 79 77 |al-downc|ase-keyw|
|000035c0| 6f 72 64 73 20 23 5b 6e | 69 6c 20 22 c0 c1 21 87 |ords #[n|il "..!.|
|000035d0| 22 20 5b 70 61 73 63 61 | 6c 2d 63 68 61 6e 67 65 |" [pasca|l-change|
|000035e0| 2d 6b 65 79 77 6f 72 64 | 73 20 64 6f 77 6e 63 61 |-keyword|s downca|
|000035f0| 73 65 2d 77 6f 72 64 5d | 20 32 20 22 5c 0a 44 6f |se-word]| 2 "\.Do|
|00003600| 77 6e 63 61 73 65 20 61 | 6c 6c 20 50 61 73 63 61 |wncase a|ll Pasca|
|00003610| 6c 20 6b 65 79 77 6f 72 | 64 73 20 69 6e 20 74 68 |l keywor|ds in th|
|00003620| 65 20 62 75 66 66 65 72 | 2e 22 20 6e 69 6c 5d 29 |e buffer|." nil])|
|00003630| 0a 28 66 73 65 74 20 27 | 70 61 73 63 61 6c 2d 75 |.(fset '|pascal-u|
|00003640| 70 63 61 73 65 2d 6b 65 | 79 77 6f 72 64 73 20 23 |pcase-ke|ywords #|
|00003650| 5b 6e 69 6c 20 22 c0 c1 | 21 87 22 20 5b 70 61 73 |[nil "..|!." [pas|
|00003660| 63 61 6c 2d 63 68 61 6e | 67 65 2d 6b 65 79 77 6f |cal-chan|ge-keywo|
|00003670| 72 64 73 20 75 70 63 61 | 73 65 2d 77 6f 72 64 5d |rds upca|se-word]|
|00003680| 20 32 20 22 5c 0a 55 70 | 63 61 73 65 20 61 6c 6c | 2 "\.Up|case all|
|00003690| 20 50 61 73 63 61 6c 20 | 6b 65 79 77 6f 72 64 73 | Pascal |keywords|
|000036a0| 20 69 6e 20 74 68 65 20 | 62 75 66 66 65 72 2e 22 | in the |buffer."|
|000036b0| 20 6e 69 6c 5d 29 0a 28 | 66 73 65 74 20 27 70 61 | nil]).(|fset 'pa|
|000036c0| 73 63 61 6c 2d 63 61 70 | 69 74 61 6c 69 7a 65 2d |scal-cap|italize-|
|000036d0| 6b 65 79 77 6f 72 64 73 | 20 23 5b 6e 69 6c 20 22 |keywords| #[nil "|
|000036e0| c0 c1 21 87 22 20 5b 70 | 61 73 63 61 6c 2d 63 68 |..!." [p|ascal-ch|
|000036f0| 61 6e 67 65 2d 6b 65 79 | 77 6f 72 64 73 20 63 61 |ange-key|words ca|
|00003700| 70 69 74 61 6c 69 7a 65 | 2d 77 6f 72 64 5d 20 32 |pitalize|-word] 2|
|00003710| 20 22 5c 0a 43 61 70 69 | 74 61 6c 69 7a 65 20 61 | "\.Capi|talize a|
|00003720| 6c 6c 20 50 61 73 63 61 | 6c 20 6b 65 79 77 6f 72 |ll Pasca|l keywor|
|00003730| 64 73 20 69 6e 20 74 68 | 65 20 62 75 66 66 65 72 |ds in th|e buffer|
|00003740| 2e 22 20 6e 69 6c 5d 29 | 0a 28 66 73 65 74 20 27 |." nil])|.(fset '|
|00003750| 70 61 73 63 61 6c 2d 63 | 68 61 6e 67 65 2d 6b 65 |pascal-c|hange-ke|
|00003760| 79 77 6f 72 64 73 20 23 | 5b 28 63 68 61 6e 67 65 |ywords #|[(change|
|00003770| 2d 77 6f 72 64 29 20 22 | 8a c0 c1 c2 0b c4 23 c5 |-word) "|......#.|
|00003780| 51 1e 06 65 62 88 c7 0e | 06 c8 c9 23 ad 87 0e 5c |Q..eb...|...#...\|
|00003790| 6e cb 21 88 aa 71 2a 87 | 22 20 5b 22 5c 5c 3c 5c |n.!..q*.|" ["\\<\|
|000037a0| 5c 28 22 20 6d 61 70 63 | 6f 6e 63 61 74 20 69 64 |\(" mapc|oncat id|
|000037b0| 65 6e 74 69 74 79 20 70 | 61 73 63 61 6c 2d 6b 65 |entity p|ascal-ke|
|000037c0| 79 77 6f 72 64 73 20 22 | 5c 5c 7c 22 20 22 5c 5c |ywords "|\\|" "\\|
|000037d0| 29 5c 5c 3e 22 20 6b 65 | 79 77 6f 72 64 2d 72 65 |)\\>" ke|yword-re|
|000037e0| 20 72 65 2d 73 65 61 72 | 63 68 2d 66 6f 72 77 61 | re-sear|ch-forwa|
|000037f0| 72 64 20 6e 69 6c 20 74 | 20 63 68 61 6e 67 65 2d |rd nil t| change-|
|00003800| 77 6f 72 64 20 2d 31 5d | 20 35 5d 29 0a 28 66 73 |word -1]| 5]).(fs|
|00003810| 65 74 20 27 70 61 73 63 | 61 6c 2d 73 65 74 2d 61 |et 'pasc|al-set-a|
|00003820| 75 74 6f 2d 63 6f 6d 6d | 65 6e 74 73 20 23 5b 6e |uto-comm|ents #[n|
|00003830| 69 6c 20 22 8a c0 79 88 | c1 c2 77 88 c3 c4 21 85 |il "..y.|..w...!.|
|00003840| ac 00 8a c2 7f 88 c5 c6 | c2 1e 07 8a c8 0e 07 21 |........|.......!|
|00003850| 88 60 2a c9 23 29 3f 85 | ac 00 ca 20 40 89 1e 0b |.`*.#)?.|... @...|
|00003860| cc 3d 3f ad fa 0e 0b cd | 3d ab 8a c2 7f 88 ce 20 |.=?.....|=...... |
|00003870| 88 cf 63 aa ea d0 1e 11 | 8a c3 0e 12 21 ac a1 6f |..c.....|....!..o|
|00003880| ac 9e d3 d0 21 88 c3 0e | 14 21 ab 87 0e 11 53 16 |....!...|.!....S.|
|00003890| 11 aa 66 c3 0e 15 21 ab | 60 0e 11 54 16 11 aa 59 |..f...!.|`..T...Y|
|000038a0| 6f ab 83 d0 16 11 29 0e | 11 d6 55 ad b1 c2 7f 88 |o.....).|..U.....|
|000038b0| ce 20 88 d7 63 88 c2 89 | 1e 18 1e 19 8a da 20 88 |. ..c...|...... .|
|000038c0| db c2 77 88 c1 c2 77 88 | 60 16 19 dc c2 77 88 60 |..w...w.|`....w.`|
|000038d0| 16 18 29 dd 70 0e 19 0e | 18 23 88 2a de 63 29 29 |..).p...|.#.*.c))|
|000038e0| 29 87 22 20 5b 2d 31 20 | 22 20 09 22 20 6e 69 6c |)." [-1 |" ." nil|
|000038f0| 20 6c 6f 6f 6b 69 6e 67 | 2d 61 74 20 22 5c 5c 3c | looking|-at "\\<|
|00003900| 65 6e 64 3b 22 20 73 65 | 61 72 63 68 2d 62 61 63 |end;" se|arch-bac|
|00003910| 6b 77 61 72 64 20 22 7b | 22 20 61 72 67 20 62 65 |kward "{|" arg be|
|00003920| 67 69 6e 6e 69 6e 67 2d | 6f 66 2d 6c 69 6e 65 20 |ginning-|of-line |
|00003930| 74 20 70 61 73 63 61 6c | 2d 63 61 6c 63 75 6c 61 |t pascal|-calcula|
|00003940| 74 65 2d 69 6e 64 65 6e | 74 20 74 79 70 65 20 64 |te-inden|t type d|
|00003950| 65 63 6c 61 72 61 74 69 | 6f 6e 20 63 61 73 65 20 |eclarati|on case |
|00003960| 64 65 6c 65 74 65 2d 68 | 6f 72 69 7a 6f 6e 74 61 |delete-h|orizonta|
|00003970| 6c 2d 73 70 61 63 65 20 | 22 20 7b 20 63 61 73 65 |l-space |" { case|
|00003980| 20 7d 22 20 31 20 6e 65 | 73 74 20 70 61 73 63 61 | }" 1 ne|st pasca|
|00003990| 6c 2d 64 65 66 75 6e 2d | 72 65 20 62 61 63 6b 77 |l-defun-|re backw|
|000039a0| 61 72 64 2d 73 65 78 70 | 20 70 61 73 63 61 6c 2d |ard-sexp| pascal-|
|000039b0| 62 65 67 2d 62 6c 6f 63 | 6b 2d 72 65 20 70 61 73 |beg-bloc|k-re pas|
|000039c0| 63 61 6c 2d 65 6e 64 2d | 62 6c 6f 63 6b 2d 72 65 |cal-end-|block-re|
|000039d0| 20 30 20 22 20 7b 20 22 | 20 65 20 62 20 70 61 73 | 0 " { "| e b pas|
|000039e0| 63 61 6c 2d 62 65 67 2d | 6f 66 2d 64 65 66 75 6e |cal-beg-|of-defun|
|000039f0| 20 22 5e 20 09 22 20 22 | 61 2d 7a 41 2d 5a 30 2d | "^ ." "|a-zA-Z0-|
|00003a00| 39 5f 22 20 69 6e 73 65 | 72 74 2d 62 75 66 66 65 |9_" inse|rt-buffe|
|00003a10| 72 2d 73 75 62 73 74 72 | 69 6e 67 20 22 20 7d 22 |r-substr|ing " }"|
|00003a20| 5d 20 35 20 22 5c 0a 49 | 6e 73 65 72 74 20 60 7b |] 5 "\.I|nsert `{|
|00003a30| 20 63 61 73 65 20 7d 27 | 20 6f 72 20 60 7b 20 4e | case }'| or `{ N|
|00003a40| 41 4d 45 20 7d 27 20 6f | 6e 20 74 68 69 73 20 6c |AME }' o|n this l|
|00003a50| 69 6e 65 20 69 66 20 61 | 70 70 72 6f 70 72 69 61 |ine if a|ppropria|
|00003a60| 74 65 2e 0a 49 6e 73 65 | 72 74 20 60 7b 20 63 61 |te..Inse|rt `{ ca|
|00003a70| 73 65 20 7d 27 20 69 66 | 20 74 68 65 72 65 20 69 |se }' if| there i|
|00003a80| 73 20 61 6e 20 60 65 6e | 64 27 20 6f 6e 20 74 68 |s an `en|d' on th|
|00003a90| 65 20 6c 69 6e 65 20 77 | 68 69 63 68 0a 65 6e 64 |e line w|hich.end|
|00003aa0| 73 20 61 20 63 61 73 65 | 20 62 6c 6f 63 6b 2e 20 |s a case| block. |
|00003ab0| 20 49 6e 73 65 72 74 20 | 60 7b 20 4e 41 4d 45 20 | Insert |`{ NAME |
|00003ac0| 7d 27 20 69 66 20 74 68 | 65 72 65 20 69 73 20 61 |}' if th|ere is a|
|00003ad0| 6e 20 60 65 6e 64 27 0a | 6f 6e 20 74 68 65 20 6c |n `end'.|on the l|
|00003ae0| 69 6e 65 20 77 68 69 63 | 68 20 65 6e 64 73 20 61 |ine whic|h ends a|
|00003af0| 20 66 75 6e 63 74 69 6f | 6e 20 6f 72 20 70 72 6f | functio|n or pro|
|00003b00| 63 65 64 75 72 65 20 6e | 61 6d 65 64 20 4e 41 4d |cedure n|amed NAM|
|00003b10| 45 2e 22 5d 29 0a 28 62 | 79 74 65 2d 63 6f 64 65 |E."]).(b|yte-code|
|00003b20| 20 22 c0 11 c2 87 22 20 | 5b 28 28 62 6c 6f 63 6b | "...." |[((block|
|00003b30| 20 2b 20 69 6e 64 20 70 | 61 73 63 61 6c 2d 69 6e | + ind p|ascal-in|
|00003b40| 64 65 6e 74 2d 6c 65 76 | 65 6c 29 20 28 63 61 73 |dent-lev|el) (cas|
|00003b50| 65 20 2b 20 69 6e 64 20 | 70 61 73 63 61 6c 2d 63 |e + ind |pascal-c|
|00003b60| 61 73 65 2d 69 6e 64 65 | 6e 74 29 20 28 63 61 73 |ase-inde|nt) (cas|
|00003b70| 65 62 6c 6f 63 6b 20 2e | 20 69 6e 64 29 20 28 63 |eblock .| ind) (c|
|00003b80| 70 70 20 2e 20 30 29 20 | 28 64 65 63 6c 61 72 61 |pp . 0) |(declara|
|00003b90| 74 69 6f 6e 20 2b 20 69 | 6e 64 20 70 61 73 63 61 |tion + i|nd pasca|
|00003ba0| 6c 2d 69 6e 64 65 6e 74 | 2d 6c 65 76 65 6c 29 20 |l-indent|-level) |
|00003bb0| 28 70 61 72 61 6d 6c 69 | 73 74 20 70 61 73 63 61 |(paramli|st pasca|
|00003bc0| 6c 2d 69 6e 64 65 6e 74 | 2d 70 61 72 61 6d 6c 69 |l-indent|-paramli|
|00003bd0| 73 74 20 74 29 20 28 63 | 6f 6d 6d 65 6e 74 20 70 |st t) (c|omment p|
|00003be0| 61 73 63 61 6c 2d 69 6e | 64 65 6e 74 2d 63 6f 6d |ascal-in|dent-com|
|00003bf0| 6d 65 6e 74 20 74 29 20 | 28 64 65 66 75 6e 20 2e |ment t) |(defun .|
|00003c00| 20 69 6e 64 29 20 28 63 | 6f 6e 74 65 78 70 20 2e | ind) (c|ontexp .|
|00003c10| 20 69 6e 64 29 20 28 75 | 6e 6b 6e 6f 77 6e 20 2e | ind) (u|nknown .|
|00003c20| 20 30 29 20 28 73 74 72 | 69 6e 67 20 2e 20 30 29 | 0) (str|ing . 0)|
|00003c30| 29 20 70 61 73 63 61 6c | 2d 69 6e 64 65 6e 74 2d |) pascal|-indent-|
|00003c40| 61 6c 69 73 74 20 6e 69 | 6c 5d 20 31 29 0a 28 66 |alist ni|l] 1).(f|
|00003c50| 73 65 74 20 27 70 61 73 | 63 61 6c 2d 69 6e 64 65 |set 'pas|cal-inde|
|00003c60| 6e 74 2d 63 6f 6d 6d 61 | 6e 64 20 23 5b 6e 69 6c |nt-comma|nd #[nil|
|00003c70| 20 22 c0 20 89 19 40 1a | 09 41 40 1b 5c 6e c4 3d | ". ..@.|.A@.\n.=|
|00003c80| ab 94 c5 0e 06 3e ac 86 | c4 0e 06 3e ab 88 c7 20 |.....>..|...>... |
|00003c90| 88 c7 20 88 aa af 5c 6e | c8 3d ab 91 c5 0e 06 3e |.. ...\n|.=.....>|
|00003ca0| ac 86 c8 0e 06 3e ab 85 | c9 20 88 aa 99 5c 6e ca |.....>..|. ...\n.|
|00003cb0| 3d ab 94 cb cc 21 ac 8f | c5 0e 06 3e ac 86 ca 0e |=....!..|...>....|
|00003cc0| 06 3e ab 83 cd 20 88 cb | ce 21 ad 83 cf d0 77 2b |.>... ..|.!....w+|
|00003cd0| 87 22 20 5b 70 61 73 63 | 61 6c 2d 63 61 6c 63 75 |." [pasc|al-calcu|
|00003ce0| 6c 61 74 65 2d 69 6e 64 | 65 6e 74 20 69 6e 64 65 |late-ind|ent inde|
|00003cf0| 6e 74 2d 73 74 72 20 74 | 79 70 65 20 69 6e 64 20 |nt-str t|ype ind |
|00003d00| 70 61 72 61 6d 6c 69 73 | 74 20 61 6c 6c 20 70 61 |paramlis|t all pa|
|00003d10| 73 63 61 6c 2d 61 75 74 | 6f 2d 6c 69 6e 65 75 70 |scal-aut|o-lineup|
|00003d20| 20 70 61 73 63 61 6c 2d | 69 6e 64 65 6e 74 2d 70 | pascal-|indent-p|
|00003d30| 61 72 61 6d 6c 69 73 74 | 20 64 65 63 6c 61 72 61 |aramlist| declara|
|00003d40| 74 69 6f 6e 20 70 61 73 | 63 61 6c 2d 69 6e 64 65 |tion pas|cal-inde|
|00003d50| 6e 74 2d 64 65 63 6c 61 | 72 61 74 69 6f 6e 20 63 |nt-decla|ration c|
|00003d60| 61 73 65 20 6c 6f 6f 6b | 69 6e 67 2d 61 74 20 22 |ase look|ing-at "|
|00003d70| 5e 5b 20 09 5d 2a 24 22 | 20 70 61 73 63 61 6c 2d |^[ .]*$"| pascal-|
|00003d80| 69 6e 64 65 6e 74 2d 63 | 61 73 65 20 22 5b 20 09 |indent-c|ase "[ .|
|00003d90| 5d 2b 24 22 20 22 20 09 | 22 20 6e 69 6c 5d 20 33 |]+$" " .|" nil] 3|
|00003da0| 20 22 5c 0a 49 6e 64 65 | 6e 74 20 66 6f 72 20 73 | "\.Inde|nt for s|
|00003db0| 70 65 63 69 61 6c 20 70 | 61 72 74 20 6f 66 20 63 |pecial p|art of c|
|00003dc0| 6f 64 65 2e 22 5d 29 0a | 28 66 73 65 74 20 27 70 |ode."]).|(fset 'p|
|00003dd0| 61 73 63 61 6c 2d 69 6e | 64 65 6e 74 2d 6c 69 6e |ascal-in|dent-lin|
|00003de0| 65 20 23 5b 6e 69 6c 20 | 22 c0 20 89 19 40 1a 09 |e #[nil |". ..@..|
|00003df0| 41 40 1b c4 c5 21 ab 86 | c6 c7 c8 c9 23 88 ca 20 |A@...!..|....#.. |
|00003e00| 88 5c 6e cb 3d ab 86 c4 | 0e 0c 21 ae 89 5c 6e cd |.\n.=...|..!..\n.|
|00003e10| 3d ae 84 c4 0e 0e 21 3f | ad 93 c4 0e 0f 21 ab 84 |=.....!?|.....!..|
|00003e20| 0b 6a aa 89 d0 d1 5c 6e | 0e 12 5c 22 41 21 6a 2b |.j....\n|..\"A!j+|
|00003e30| 87 22 20 5b 70 61 73 63 | 61 6c 2d 63 61 6c 63 75 |." [pasc|al-calcu|
|00003e40| 6c 61 74 65 2d 69 6e 64 | 65 6e 74 20 69 6e 64 65 |late-ind|ent inde|
|00003e50| 6e 74 2d 73 74 72 20 74 | 79 70 65 20 69 6e 64 20 |nt-str t|ype ind |
|00003e60| 6c 6f 6f 6b 69 6e 67 2d | 61 74 20 22 5e 5b 30 2d |looking-|at "^[0-|
|00003e70| 39 61 2d 7a 41 2d 5a 5d | 2b 5b 20 09 5d 2a 3a 5b |9a-zA-Z]|+[ .]*:[|
|00003e80| 5e 3d 5d 22 20 73 65 61 | 72 63 68 2d 66 6f 72 77 |^=]" sea|rch-forw|
|00003e90| 61 72 64 20 22 3a 22 20 | 6e 69 6c 20 74 20 64 65 |ard ":" |nil t de|
|00003ea0| 6c 65 74 65 2d 68 6f 72 | 69 7a 6f 6e 74 61 6c 2d |lete-hor|izontal-|
|00003eb0| 73 70 61 63 65 20 64 65 | 63 6c 61 72 61 74 69 6f |space de|claratio|
|00003ec0| 6e 20 70 61 73 63 61 6c | 2d 64 65 63 6c 61 72 61 |n pascal|-declara|
|00003ed0| 74 69 6f 6e 2d 72 65 20 | 63 70 70 20 70 61 73 63 |tion-re |cpp pasc|
|00003ee0| 61 6c 2d 64 65 66 75 6e | 2d 72 65 20 70 61 73 63 |al-defun|-re pasc|
|00003ef0| 61 6c 2d 6e 6f 69 6e 64 | 65 6e 74 2d 72 65 20 65 |al-noind|ent-re e|
|00003f00| 76 61 6c 20 61 73 73 6f | 63 20 70 61 73 63 61 6c |val asso|c pascal|
|00003f10| 2d 69 6e 64 65 6e 74 2d | 61 6c 69 73 74 5d 20 35 |-indent-|alist] 5|
|00003f20| 20 22 5c 0a 49 6e 64 65 | 6e 74 20 63 75 72 72 65 | "\.Inde|nt curre|
|00003f30| 6e 74 20 6c 69 6e 65 20 | 61 73 20 61 20 50 61 73 |nt line |as a Pas|
|00003f40| 63 61 6c 20 73 74 61 74 | 65 6d 65 6e 74 2e 22 5d |cal stat|ement."]|
|00003f50| 29 0a 28 66 73 65 74 20 | 27 70 61 73 63 61 6c 2d |).(fset |'pascal-|
|00003f60| 63 61 6c 63 75 6c 61 74 | 65 2d 69 6e 64 65 6e 74 |calculat|e-indent|
|00003f70| 20 23 5b 6e 69 6c 20 22 | 8a 60 18 8a c1 65 60 5c | #[nil "|.`...e`\|
|00003f80| 22 29 1a c3 1c c3 1d c6 | c7 21 1e 08 c6 c9 21 1e |")......|.!....!.|
|00003f90| 5c 6e cb cc 8d 1e 0d 0d | c3 56 ab 85 ce 0d 44 aa |\n......|.V....D.|
|00003fa0| 85 0e 0d cf 20 44 2e 08 | 87 22 20 5b 6f 6c 64 70 |.... D..|." [oldp|
|00003fb0| 6f 73 20 70 61 72 73 65 | 2d 70 61 72 74 69 61 6c |os parse|-partial|
|00003fc0| 2d 73 65 78 70 20 73 74 | 61 74 65 20 30 20 6e 65 |-sexp st|ate 0 ne|
|00003fd0| 73 74 20 70 61 72 20 6c | 6f 6f 6b 69 6e 67 2d 61 |st par l|ooking-a|
|00003fe0| 74 20 22 5b 20 09 5d 2a | 65 6e 64 5c 5c 3e 22 20 |t "[ .]*|end\\>" |
|00003ff0| 63 6f 6d 70 6c 65 74 65 | 20 22 5b 20 09 5d 2a 65 |complete| "[ .]*e|
|00004000| 6c 73 65 5c 5c 3e 22 20 | 65 6c 73 65 64 20 6e 65 |lse\\>" |elsed ne|
|00004010| 73 74 69 6e 67 20 28 62 | 79 74 65 2d 63 6f 64 65 |sting (b|yte-code|
|00004020| 20 22 c0 09 38 ab 87 c2 | c3 c4 5c 22 88 aa af c5 | "..8...|..\"....|
|00004030| 09 38 ab 87 c2 c3 c6 5c | 22 88 aa a3 09 40 c7 56 |.8.....\|"....@.V|
|00004040| ab 8e c8 60 c9 09 40 23 | 62 88 69 54 16 5c 6e aa |...`..@#|b.iT.\n.|
|00004050| 8f 8a c7 79 88 67 29 cb | 3d ab 85 c2 c3 cc 5c 22 |...y.g).|=.....\"|
|00004060| 88 cd ce 21 88 cf d0 21 | ab af 0e 11 ac ab 8a d2 |...!...!|........|
|00004070| d3 78 88 6e 29 ab a2 8a | d3 7f 88 cd 20 88 60 29 |.x.n)...|.... .`)|
|00004080| 60 55 ab 95 8a 0e 14 62 | 88 c7 79 88 60 29 60 56 |`U.....b|..y.`)`V|
|00004090| ab 87 c2 c3 d5 5c 22 88 | aa 48 cf 0e 16 21 ab ac |.....\".|.H...!..|
|000040a0| 0e 17 c7 55 ab 9f cf d8 | 21 ab 87 c2 c3 d9 5c 22 |...U....|!.....\"|
|000040b0| 88 aa 30 cf da 21 ab 87 | c2 c3 db 5c 22 88 aa 24 |..0..!..|...\"..$|
|000040c0| c2 c3 dc 5c 22 88 aa 1d | 0e 17 53 16 17 aa 16 cf |...\"...|..S.....|
|000040d0| 0e 1d 21 ab 9d cf de 21 | ab 8d 0e 1f ab 89 0e 11 |..!....!|........|
|000040e0| ac 85 c2 c3 dc 5c 22 88 | e0 16 11 0e 17 54 16 17 |.....\".|.....T..|
|000040f0| 82 3b 00 cf 0e 21 21 ab | c4 0e 5c 6e c7 55 ab 88 |.;...!!.|..\n.U..|
|00004100| c2 c3 e2 5c 22 88 82 3b | 00 c7 16 5c 6e c7 1e 23 |...\"..;|...\n..#|
|00004110| e4 e5 0e 14 e0 23 ab 92 | ce 95 ab 87 0e 23 54 16 |.....#..|.....#T.|
|00004120| 23 aa 6d 0e 23 53 16 23 | aa 66 0e 23 c7 56 ab 87 |#.m.#S.#|.f.#.V..|
|00004130| c2 c3 db 5c 22 88 aa 85 | c2 c3 e6 5c 22 88 29 82 |...\"...|...\".).|
|00004140| 3b 00 cf 0e 27 21 ab 9e | 8a 0e 14 62 88 c9 79 88 |;...'!..|...b..y.|
|00004150| cf e8 21 29 ab 88 c2 c3 | e9 5c 22 88 82 3b 00 c2 |..!)....|.\"..;..|
|00004160| c3 db 5c 22 88 82 3b 00 | 0e 11 ac 8e cf 0e 2a 21 |..\"..;.|......*!|
|00004170| ab 88 c2 c3 dc 5c 22 88 | 82 3b 00 8a eb ce 21 88 |.....\".|.;....!.|
|00004180| 67 ec 55 29 ab 86 e0 16 | 11 82 3b 00 6f 83 3b 00 |g.U)....|..;.o.;.|
|00004190| c2 c3 e9 5c 22 88 82 3b | 00 22 20 5b 33 20 73 74 |...\"..;|." [3 st|
|000041a0| 61 74 65 20 74 68 72 6f | 77 20 6e 65 73 74 69 6e |ate thro|w nestin|
|000041b0| 67 20 73 74 72 69 6e 67 | 20 34 20 63 6f 6d 6d 65 |g string| 4 comme|
|000041c0| 6e 74 20 30 20 73 63 61 | 6e 2d 6c 69 73 74 73 20 |nt 0 sca|n-lists |
|000041d0| 2d 31 20 70 61 72 20 33 | 35 20 63 70 70 20 62 61 |-1 par 3|5 cpp ba|
|000041e0| 63 6b 77 61 72 64 2d 73 | 65 78 70 20 31 20 6c 6f |ckward-s|exp 1 lo|
|000041f0| 6f 6b 69 6e 67 2d 61 74 | 20 22 5b 41 2d 5a 61 2d |oking-at| "[A-Za-|
|00004200| 7a 30 2d 39 5d 2b 5b 20 | 09 5d 2a 3a 5b 5e 3d 5d |z0-9]+[ |.]*:[^=]|
|00004210| 22 20 63 6f 6d 70 6c 65 | 74 65 20 22 20 09 22 20 |" comple|te " ." |
|00004220| 6e 69 6c 20 6f 6c 64 70 | 6f 73 20 63 61 73 65 62 |nil oldp|os caseb|
|00004230| 6c 6f 63 6b 20 70 61 73 | 63 61 6c 2d 62 65 67 2d |lock pas|cal-beg-|
|00004240| 62 6c 6f 63 6b 2d 72 65 | 20 6e 65 73 74 20 22 63 |block-re| nest "c|
|00004250| 61 73 65 5c 5c 3e 22 20 | 63 61 73 65 20 22 72 65 |ase\\>" |case "re|
|00004260| 63 6f 72 64 5c 5c 3e 22 | 20 64 65 63 6c 61 72 61 |cord\\>"| declara|
|00004270| 74 69 6f 6e 20 62 6c 6f | 63 6b 20 70 61 73 63 61 |tion blo|ck pasca|
|00004280| 6c 2d 65 6e 64 2d 62 6c | 6f 63 6b 2d 72 65 20 22 |l-end-bl|ock-re "|
|00004290| 65 6e 64 5c 5c 73 20 22 | 20 65 6c 73 65 64 20 74 |end\\s "| elsed t|
|000042a0| 20 70 61 73 63 61 6c 2d | 64 65 66 75 6e 2d 72 65 | pascal-|defun-re|
|000042b0| 20 64 65 66 75 6e 20 6e | 20 72 65 2d 73 65 61 72 | defun n| re-sear|
|000042c0| 63 68 2d 66 6f 72 77 61 | 72 64 20 22 5c 5c 28 5c |ch-forwa|rd "\\(\|
|000042d0| 5c 3c 72 65 63 6f 72 64 | 5c 5c 3e 5c 5c 29 5c 5c |\<record|\\>\\)\\|
|000042e0| 7c 5c 5c 3c 65 6e 64 5c | 5c 3e 22 20 70 61 72 61 ||\\<end\|\>" para|
|000042f0| 6d 6c 69 73 74 20 70 61 | 73 63 61 6c 2d 64 65 63 |mlist pa|scal-dec|
|00004300| 6c 61 72 61 74 69 6f 6e | 2d 72 65 20 22 5e 5b 20 |laration|-re "^[ |
|00004310| 09 5d 2a 24 22 20 75 6e | 6b 6e 6f 77 6e 20 70 61 |.]*$" un|known pa|
|00004320| 73 63 61 6c 2d 73 75 62 | 2d 62 6c 6f 63 6b 2d 72 |scal-sub|-block-r|
|00004330| 65 20 66 6f 72 77 61 72 | 64 2d 73 65 78 70 20 35 |e forwar|d-sexp 5|
|00004340| 39 5d 20 34 29 20 74 79 | 70 65 20 63 6f 6e 74 65 |9] 4) ty|pe conte|
|00004350| 78 70 20 70 61 73 63 61 | 6c 2d 69 6e 64 65 6e 74 |xp pasca|l-indent|
|00004360| 2d 6c 65 76 65 6c 5d 20 | 33 20 22 5c 0a 43 61 6c |-level] |3 "\.Cal|
|00004370| 63 75 6c 61 74 65 20 74 | 68 65 20 69 6e 64 65 6e |culate t|he inden|
|00004380| 74 20 6f 66 20 74 68 65 | 20 63 75 72 72 65 6e 74 |t of the| current|
|00004390| 20 50 61 73 63 61 6c 20 | 6c 69 6e 65 2e 0a 52 65 | Pascal |line..Re|
|000043a0| 74 75 72 6e 20 61 20 6c | 69 73 74 20 6f 66 20 74 |turn a l|ist of t|
|000043b0| 77 6f 20 65 6c 65 6d 65 | 6e 74 73 3a 20 28 49 4e |wo eleme|nts: (IN|
|000043c0| 44 45 4e 54 2d 54 59 50 | 45 20 49 4e 44 45 4e 54 |DENT-TYP|E INDENT|
|000043d0| 2d 4c 45 56 45 4c 29 2e | 22 5d 29 0a 28 66 73 65 |-LEVEL).|"]).(fse|
|000043e0| 74 20 27 70 61 73 63 61 | 6c 2d 69 6e 64 65 6e 74 |t 'pasca|l-indent|
|000043f0| 2d 6c 65 76 65 6c 20 23 | 5b 6e 69 6c 20 22 8a c0 |-level #|[nil "..|
|00004400| 79 88 c1 c2 21 ab 88 c3 | c4 c5 c6 23 88 aa 8b c1 |y...!...|...#....|
|00004410| c7 21 ab 86 c3 c8 c5 c6 | 23 88 c9 c5 77 88 69 29 |.!......|#...w.i)|
|00004420| 87 22 20 5b 30 20 6c 6f | 6f 6b 69 6e 67 2d 61 74 |." [0 lo|oking-at|
|00004430| 20 22 5b 20 09 5d 2a 5b | 30 2d 39 61 2d 7a 41 2d | "[ .]*[|0-9a-zA-|
|00004440| 5a 5d 2b 5b 20 09 5d 2a | 3a 5b 5e 3d 5d 22 20 73 |Z]+[ .]*|:[^=]" s|
|00004450| 65 61 72 63 68 2d 66 6f | 72 77 61 72 64 20 22 3a |earch-fo|rward ":|
|00004460| 22 20 6e 69 6c 20 74 20 | 22 2e 2a 3d 5b 20 09 5d |" nil t |".*=[ .]|
|00004470| 2a 72 65 63 6f 72 64 5c | 5c 3e 22 20 22 3d 22 20 |*record\|\>" "=" |
|00004480| 22 20 09 22 5d 20 34 20 | 22 5c 0a 52 65 74 75 72 |" ."] 4 |"\.Retur|
|00004490| 6e 20 74 68 65 20 69 6e | 64 65 6e 74 2d 6c 65 76 |n the in|dent-lev|
|000044a0| 65 6c 20 74 68 65 20 63 | 75 72 72 65 6e 74 20 73 |el the c|urrent s|
|000044b0| 74 61 74 65 6d 65 6e 74 | 20 68 61 73 2e 0a 44 6f |tatement| has..Do|
|000044c0| 20 6e 6f 74 20 63 6f 75 | 6e 74 20 6c 61 62 65 6c | not cou|nt label|
|000044d0| 73 2c 20 63 61 73 65 2d | 73 74 61 74 65 6d 65 6e |s, case-|statemen|
|000044e0| 74 73 20 6f 72 20 72 65 | 63 6f 72 64 73 2e 22 5d |ts or re|cords."]|
|000044f0| 29 0a 28 66 73 65 74 20 | 27 70 61 73 63 61 6c 2d |).(fset |'pascal-|
|00004500| 69 6e 64 65 6e 74 2d 63 | 6f 6d 6d 65 6e 74 20 23 |indent-c|omment #|
|00004510| 5b 28 26 6f 70 74 69 6f | 6e 61 6c 20 61 72 67 29 |[(&optio|nal arg)|
|00004520| 20 22 8a c0 c1 c2 c3 23 | 88 69 54 29 1c 0d ab 83 | ".....#|.iT)....|
|00004530| 0c aa 85 c6 20 88 0c 6a | 29 87 22 20 5b 72 65 2d |.... ..j|)." [re-|
|00004540| 73 65 61 72 63 68 2d 62 | 61 63 6b 77 61 72 64 20 |search-b|ackward |
|00004550| 22 28 5c 5c 2a 5c 5c 7c | 7b 22 20 6e 69 6c 20 74 |"(\\*\\||{" nil t|
|00004560| 20 73 74 63 6f 6c 20 61 | 72 67 20 64 65 6c 65 74 | stcol a|rg delet|
|00004570| 65 2d 68 6f 72 69 7a 6f | 6e 74 61 6c 2d 73 70 61 |e-horizo|ntal-spa|
|00004580| 63 65 5d 20 34 20 22 5c | 0a 49 6e 64 65 6e 74 20 |ce] 4 "\|.Indent |
|00004590| 63 75 72 72 65 6e 74 20 | 6c 69 6e 65 20 61 73 20 |current |line as |
|000045a0| 63 6f 6d 6d 65 6e 74 2e | 0a 49 66 20 6f 70 74 69 |comment.|.If opti|
|000045b0| 6f 6e 61 6c 20 61 72 67 | 20 69 73 20 6e 6f 6e 2d |onal arg| is non-|
|000045c0| 6e 69 6c 2c 20 6a 75 73 | 74 20 72 65 74 75 72 6e |nil, jus|t return|
|000045d0| 20 74 68 65 0a 63 6f 6c | 75 6d 6e 20 6e 75 6d 62 | the.col|umn numb|
|000045e0| 65 72 20 74 68 65 20 6c | 69 6e 65 20 73 68 6f 75 |er the l|ine shou|
|000045f0| 6c 64 20 62 65 20 69 6e | 64 65 6e 74 65 64 20 74 |ld be in|dented t|
|00004600| 6f 2e 22 5d 29 0a 28 66 | 73 65 74 20 27 70 61 73 |o."]).(f|set 'pas|
|00004610| 63 61 6c 2d 69 6e 64 65 | 6e 74 2d 63 61 73 65 20 |cal-inde|nt-case |
|00004620| 23 5b 6e 69 6c 20 22 c0 | c1 77 88 c1 7f 88 c2 20 |#[nil ".|.w..... |
|00004630| c3 c4 c1 c5 23 88 60 c1 | c6 1e 07 1e 08 1e 09 1e |....#.`.|........|
|00004640| 5c 6e 60 cb 0e 5c 6e 21 | 57 ab 9e cc cd cb 0e 5c |\n`..\n!|W......\|
|00004650| 6e 21 ce 23 ab 83 cf 75 | 88 d0 20 88 69 0e 07 56 |n!.#...u|.. .i..V|
|00004660| ab 83 69 16 07 d1 20 88 | aa 5a 0e 09 62 88 cb 0e |..i... .|.Z..b...|
|00004670| 5c 6e 21 16 08 60 cb 0e | 5c 6e 21 57 ab a8 cc d2 |\n!..`..|\n!W....|
|00004680| cb 0e 5c 6e 21 ce 23 ab | 83 cf 75 88 0e 07 54 6a |..\n!.#.|..u...Tj|
|00004690| 88 67 d3 55 ab 89 d4 75 | 88 d0 20 88 d5 63 88 60 |.g.U...u|.. ..c.`|
|000046a0| 16 08 d1 20 88 aa 50 0e | 08 62 2c 87 22 20 5b 22 |... ..P.|.b,." ["|
|000046b0| 3a 20 09 22 20 6e 69 6c | 20 70 6f 69 6e 74 2d 6d |: ." nil| point-m|
|000046c0| 61 72 6b 65 72 20 72 65 | 2d 73 65 61 72 63 68 2d |arker re|-search-|
|000046d0| 62 61 63 6b 77 61 72 64 | 20 22 5c 5c 3c 63 61 73 |backward| "\\<cas|
|000046e0| 65 5c 5c 3e 22 20 74 20 | 30 20 69 6e 64 20 6f 6c |e\\>" t |0 ind ol|
|000046f0| 64 70 6f 73 20 62 65 67 | 20 65 6e 64 20 6d 61 72 |dpos beg| end mar|
|00004700| 6b 65 72 2d 70 6f 73 69 | 74 69 6f 6e 20 72 65 2d |ker-posi|tion re-|
|00004710| 73 65 61 72 63 68 2d 66 | 6f 72 77 61 72 64 20 22 |search-f|orward "|
|00004720| 5e 5b 20 09 5d 2a 5b 5e | 20 09 2c 3a 5d 2b 5b 20 |^[ .]*[^| .,:]+[ |
|00004730| 09 5d 2a 5c 5c 28 2c 5b | 20 09 5d 2a 5b 5e 20 09 |.]*\\(,[| .]*[^ .|
|00004740| 2c 3a 5d 2b 5b 20 09 5d | 2a 5c 5c 29 2a 3a 22 20 |,:]+[ .]|*\\)*:" |
|00004750| 6d 6f 76 65 20 2d 31 20 | 64 65 6c 65 74 65 2d 68 |move -1 |delete-h|
|00004760| 6f 72 69 7a 6f 6e 74 61 | 6c 2d 73 70 61 63 65 20 |orizonta|l-space |
|00004770| 70 61 73 63 61 6c 2d 65 | 6e 64 2d 6f 66 2d 73 74 |pascal-e|nd-of-st|
|00004780| 61 74 65 6d 65 6e 74 20 | 22 5e 5b 20 09 5d 2a 5b |atement |"^[ .]*[|
|00004790| 5e 5d 5b 20 09 2c 5c 5c | 2e 3a 5d 2b 5b 20 09 5d |^][ .,\\|.:]+[ .]|
|000047a0| 2a 5c 5c 28 2c 5b 20 09 | 5d 2a 5b 5e 20 09 2c 3a |*\\(,[ .|]*[^ .,:|
|000047b0| 5d 2b 5b 20 09 5d 2a 5c | 5c 29 2a 3a 22 20 35 38 |]+[ .]*\|\)*:" 58|
|000047c0| 20 31 20 22 20 22 5d 20 | 35 20 22 5c 0a 49 6e 64 | 1 " "] |5 "\.Ind|
|000047d0| 65 6e 74 20 77 69 74 68 | 69 6e 20 63 61 73 65 20 |ent with|in case |
|000047e0| 73 74 61 74 65 6d 65 6e | 74 73 2e 22 5d 29 0a 28 |statemen|ts."]).(|
|000047f0| 66 73 65 74 20 27 70 61 | 73 63 61 6c 2d 69 6e 64 |fset 'pa|scal-ind|
|00004800| 65 6e 74 2d 70 61 72 61 | 6d 6c 69 73 74 20 23 5b |ent-para|mlist #[|
|00004810| 28 26 6f 70 74 69 6f 6e | 61 6c 20 61 72 67 29 20 |(&option|al arg) |
|00004820| 22 8a 60 18 c1 60 c2 c3 | 23 62 88 60 1c 69 54 1d |".`..`..|#b.`.iT.|
|00004830| c6 20 88 c7 c8 c9 1e 5c | 6e 8a cb 0e 5c 6e 21 88 |. .....\|n...\n!.|
|00004840| 60 2a cc 23 88 60 1e 0d | ce cf 0c cc 23 1e 10 0e |`*.#.`..|....#...|
|00004850| 5c 6e ab 97 08 62 88 d1 | 79 88 0e 10 ab 85 d2 d3 |\n...b..|y.......|
|00004860| 21 ab 83 0d aa a2 0d d4 | 5c 5c aa 9d 0c 62 88 c3 |!.......|\\...b..|
|00004870| 75 88 d5 20 88 0e 10 ab | 8a d2 d6 21 ac 85 0d d4 |u.. ....|...!....|
|00004880| 5c 5c 6a 88 d7 c9 0c 0e | 0d 23 2e 06 87 22 20 5b |\\j.....|.#..." [|
|00004890| 6f 6c 64 70 6f 73 20 73 | 63 61 6e 2d 6c 69 73 74 |oldpos s|can-list|
|000048a0| 73 20 2d 31 20 31 20 73 | 74 70 6f 73 20 73 74 63 |s -1 1 s|tpos stc|
|000048b0| 6f 6c 20 70 61 73 63 61 | 6c 2d 64 65 63 6c 61 72 |ol pasca|l-declar|
|000048c0| 61 74 69 6f 6e 2d 65 6e | 64 20 73 65 61 72 63 68 |ation-en|d search|
|000048d0| 2d 62 61 63 6b 77 61 72 | 64 20 22 29 22 20 6e 69 |-backwar|d ")" ni|
|000048e0| 6c 20 61 72 67 20 62 65 | 67 69 6e 6e 69 6e 67 2d |l arg be|ginning-|
|000048f0| 6f 66 2d 6c 69 6e 65 20 | 74 20 65 64 70 6f 73 20 |of-line |t edpos |
|00004900| 72 65 2d 73 65 61 72 63 | 68 2d 62 61 63 6b 77 61 |re-searc|h-backwa|
|00004910| 72 64 20 22 5c 5c 3c 76 | 61 72 5c 5c 3e 22 20 75 |rd "\\<v|ar\\>" u|
|00004920| 73 65 76 61 72 20 30 20 | 6c 6f 6f 6b 69 6e 67 2d |sevar 0 |looking-|
|00004930| 61 74 20 22 5b 20 09 5d | 2a 76 61 72 5c 5c 3e 22 |at "[ .]|*var\\>"|
|00004940| 20 34 20 64 65 6c 65 74 | 65 2d 68 6f 72 69 7a 6f | 4 delet|e-horizo|
|00004950| 6e 74 61 6c 2d 73 70 61 | 63 65 20 22 76 61 72 5c |ntal-spa|ce "var\|
|00004960| 5c 3e 22 20 70 61 73 63 | 61 6c 2d 69 6e 64 65 6e |\>" pasc|al-inden|
|00004970| 74 2d 64 65 63 6c 61 72 | 61 74 69 6f 6e 5d 20 34 |t-declar|ation] 4|
|00004980| 20 22 5c 0a 49 6e 64 65 | 6e 74 20 63 75 72 72 65 | "\.Inde|nt curre|
|00004990| 6e 74 20 6c 69 6e 65 20 | 69 6e 20 70 61 72 61 6d |nt line |in param|
|000049a0| 65 74 65 72 6c 69 73 74 | 2e 0a 49 66 20 6f 70 74 |eterlist|..If opt|
|000049b0| 69 6f 6e 61 6c 20 61 72 | 67 20 69 73 20 6e 6f 6e |ional ar|g is non|
|000049c0| 2d 6e 69 6c 2c 20 6a 75 | 73 74 20 72 65 74 75 72 |-nil, ju|st retur|
|000049d0| 6e 20 74 68 65 0a 69 6e | 64 65 6e 74 20 6f 66 20 |n the.in|dent of |
|000049e0| 74 68 65 20 63 75 72 72 | 65 6e 74 20 6c 69 6e 65 |the curr|ent line|
|000049f0| 20 69 6e 20 70 61 72 61 | 6d 65 74 65 72 6c 69 73 | in para|meterlis|
|00004a00| 74 2e 22 5d 29 0a 28 66 | 73 65 74 20 27 70 61 73 |t."]).(f|set 'pas|
|00004a10| 63 61 6c 2d 69 6e 64 65 | 6e 74 2d 64 65 63 6c 61 |cal-inde|nt-decla|
|00004a20| 72 61 74 69 6f 6e 20 23 | 5b 28 26 6f 70 74 69 6f |ration #|[(&optio|
|00004a30| 6e 61 6c 20 61 72 67 20 | 73 74 61 72 74 20 65 6e |nal arg |start en|
|00004a40| 64 29 20 22 c0 20 19 5c | 6e ac 88 0b ac 85 c4 20 |d) ". .\|n...... |
|00004a50| 83 c2 00 c5 c6 21 ac 86 | 5c 6e ac 83 0b ab 83 c7 |.....!..|\n......|
|00004a60| aa 81 c8 0b ab 83 0b aa | 88 c9 76 88 ca cb 21 88 |........|..v...!.|
|00004a70| 60 cc 20 0e 0d ab 84 0e | 0d aa 86 ce 20 88 60 09 |`. .....|.... .`.|
|00004a80| 5d cf 93 cf 1e 10 1e 11 | 1e 12 1e 13 0e 12 62 88 |].......|......b.|
|00004a90| 5c 6e ab a3 60 d4 0e 11 | 21 58 ab 9b d5 79 88 d6 |\n..`...|!X...y..|
|00004aa0| 20 88 c5 d7 21 ab 85 5c | 6e 6a 88 aa 86 5c 6e 0e | ...!..\|nj...\n.|
|00004ab0| 18 5c 5c 6a 88 cb 79 88 | aa 5d d9 0e 12 0e 11 0e |.\\j..y.|.]......|
|00004ac0| 13 23 16 10 0e 12 62 88 | 60 d4 0e 11 21 58 ab bb |.#....b.|`...!X..|
|00004ad0| da 0e 13 cf 1a 8a 5c 6e | 7f 88 60 2a db 23 ab 83 |......\n|..`*.#..|
|00004ae0| dc 75 88 d6 20 88 0e 10 | 6a 88 c5 0e 13 21 ac 85 |.u.. ...|j....!..|
|00004af0| cb 79 88 aa 54 cb 75 88 | d6 20 88 dd 63 88 c5 de |.y..T.u.|. ..c...|
|00004b00| 21 ab 84 df 69 21 88 cb | 79 88 aa 3d 2c 5c 6e ab |!...i!..|y..=,\n.|
|00004b10| 84 dc 79 aa 84 d4 09 21 | 62 29 87 22 20 5b 70 6f |..y....!|b)." [po|
|00004b20| 69 6e 74 2d 6d 61 72 6b | 65 72 20 70 6f 73 20 61 |int-mark|er pos a|
|00004b30| 72 67 20 73 74 61 72 74 | 20 70 61 73 63 61 6c 2d |rg start| pascal-|
|00004b40| 64 65 63 6c 61 72 61 74 | 69 6f 6e 2d 62 65 67 20 |declarat|ion-beg |
|00004b50| 6c 6f 6f 6b 69 6e 67 2d | 61 74 20 22 5c 5c 3c 76 |looking-|at "\\<v|
|00004b60| 61 72 5c 5c 3e 5c 5c 7c | 5c 5c 3c 72 65 63 6f 72 |ar\\>\\||\\<recor|
|00004b70| 64 5c 5c 3e 22 20 22 3a | 22 20 22 3d 22 20 32 20 |d\\>" ":|" "=" 2 |
|00004b80| 62 61 63 6b 77 61 72 64 | 2d 77 6f 72 64 20 31 20 |backward|-word 1 |
|00004b90| 6d 61 6b 65 2d 6d 61 72 | 6b 65 72 20 65 6e 64 20 |make-mar|ker end |
|00004ba0| 70 61 73 63 61 6c 2d 64 | 65 63 6c 61 72 61 74 69 |pascal-d|eclarati|
|00004bb0| 6f 6e 2d 65 6e 64 20 6e | 69 6c 20 69 6e 64 20 65 |on-end n|il ind e|
|00004bc0| 64 70 6f 73 20 73 74 70 | 6f 73 20 6c 69 6e 65 75 |dpos stp|os lineu|
|00004bd0| 70 20 6d 61 72 6b 65 72 | 2d 70 6f 73 69 74 69 6f |p marker|-positio|
|00004be0| 6e 20 30 20 64 65 6c 65 | 74 65 2d 68 6f 72 69 7a |n 0 dele|te-horiz|
|00004bf0| 6f 6e 74 61 6c 2d 73 70 | 61 63 65 20 22 65 6e 64 |ontal-sp|ace "end|
|00004c00| 5c 5c 3e 22 20 70 61 73 | 63 61 6c 2d 69 6e 64 65 |\\>" pas|cal-inde|
|00004c10| 6e 74 2d 6c 65 76 65 6c | 20 70 61 73 63 61 6c 2d |nt-level| pascal-|
|00004c20| 67 65 74 2d 6c 69 6e 65 | 75 70 2d 69 6e 64 65 6e |get-line|up-inden|
|00004c30| 74 20 73 65 61 72 63 68 | 2d 66 6f 72 77 61 72 64 |t search|-forward|
|00004c40| 20 6d 6f 76 65 20 2d 31 | 20 22 20 22 20 22 72 65 | move -1| " " "re|
|00004c50| 63 6f 72 64 5c 5c 3e 22 | 20 70 61 73 63 61 6c 2d |cord\\>"| pascal-|
|00004c60| 69 6e 64 65 6e 74 2d 64 | 65 63 6c 61 72 61 74 69 |indent-d|eclarati|
|00004c70| 6f 6e 5d 20 35 20 22 5c | 0a 49 6e 64 65 6e 74 20 |on] 5 "\|.Indent |
|00004c80| 63 75 72 72 65 6e 74 20 | 6c 69 6e 65 73 20 61 73 |current |lines as|
|00004c90| 20 64 65 63 6c 61 72 61 | 74 69 6f 6e 2c 20 6c 69 | declara|tion, li|
|00004ca0| 6e 69 6e 67 20 75 70 20 | 74 68 65 20 60 3a 27 73 |ning up |the `:'s|
|00004cb0| 20 6f 72 20 60 3d 27 73 | 2e 22 5d 29 0a 28 62 79 | or `='s|."]).(by|
|00004cc0| 74 65 2d 63 6f 64 65 20 | 22 c0 c1 4d 88 c2 c3 21 |te-code |"..M...!|
|00004cd0| ac 82 c4 13 c2 c5 21 ac | 82 c4 15 c2 c6 21 ac 83 |......!.|.....!..|
|00004ce0| c4 16 06 c2 c7 21 ac 83 | c4 16 07 c2 c8 21 ac 83 |.....!..|.....!..|
|00004cf0| c4 16 08 c4 87 22 20 5b | 70 61 73 63 61 6c 2d 67 |....." [|pascal-g|
|00004d00| 65 74 2d 6c 69 6e 65 75 | 70 2d 69 6e 64 65 6e 74 |et-lineu|p-indent|
|00004d10| 20 23 5b 28 62 20 65 20 | 73 74 72 29 20 22 8a c0 | #[(b e |str) "..|
|00004d20| 09 c2 50 c3 1c 1d 1e 06 | 0e 07 62 88 60 0e 08 57 |..P.....|..b.`..W|
|00004d30| ab b5 c9 14 ca 0d 0e 08 | cb 1e 0c 8a 0e 0c 7f 88 |........|........|
|00004d40| 60 2a 5e cd 23 ab 65 c9 | 94 ab 85 ce 20 88 aa 5c |`*^.#.e.|.... ..\|
|00004d50| 5c c0 94 62 88 cf c3 78 | 88 69 0e 06 56 ab 83 69 |\..b...x|.i..V..i|
|00004d60| 16 06 c0 95 62 88 aa 45 | 0e 06 c0 56 ab 85 0e 06 |....b..E|...V....|
|00004d70| 54 aa 8d 0e 07 62 88 c3 | 7f 88 cf c3 78 88 69 54 |T....b..|....x.iT|
|00004d80| 2c 87 22 20 5b 30 20 73 | 74 72 20 22 5c 5c 7c 5c |,." [0 s|tr "\\|\|
|00004d90| 5c 28 5c 5c 3c 72 65 63 | 6f 72 64 5c 5c 3e 5c 5c |\(\\<rec|ord\\>\\|
|00004da0| 29 22 20 6e 69 6c 20 6e | 65 73 74 20 72 65 67 20 |)" nil n|est reg |
|00004db0| 69 6e 64 20 62 20 65 20 | 31 20 72 65 2d 73 65 61 |ind b e |1 re-sea|
|00004dc0| 72 63 68 2d 66 6f 72 77 | 61 72 64 20 32 20 61 72 |rch-forw|ard 2 ar|
|00004dd0| 67 20 6d 6f 76 65 20 70 | 61 73 63 61 6c 2d 64 65 |g move p|ascal-de|
|00004de0| 63 6c 61 72 61 74 69 6f | 6e 2d 65 6e 64 20 22 20 |claratio|n-end " |
|00004df0| 09 22 5d 20 34 5d 20 62 | 6f 75 6e 64 70 20 70 61 |."] 4] b|oundp pa|
|00004e00| 73 63 61 6c 2d 73 74 72 | 20 6e 69 6c 20 70 61 73 |scal-str| nil pas|
|00004e10| 63 61 6c 2d 61 6c 6c 20 | 70 61 73 63 61 6c 2d 70 |cal-all |pascal-p|
|00004e20| 72 65 64 20 70 61 73 63 | 61 6c 2d 62 75 66 66 65 |red pasc|al-buffe|
|00004e30| 72 2d 74 6f 2d 75 73 65 | 20 70 61 73 63 61 6c 2d |r-to-use| pascal-|
|00004e40| 66 6c 61 67 5d 20 32 29 | 0a 28 66 73 65 74 20 27 |flag] 2)|.(fset '|
|00004e50| 70 61 73 63 61 6c 2d 73 | 74 72 69 6e 67 2d 64 69 |pascal-s|tring-di|
|00004e60| 66 66 20 23 5b 28 73 74 | 72 31 20 73 74 72 32 29 |ff #[(st|r1 str2)|
|00004e70| 20 22 c0 c1 8d 87 22 20 | 5b 64 6f 6e 65 20 28 62 | "...." |[done (b|
|00004e80| 79 74 65 2d 63 6f 64 65 | 20 22 c0 19 c0 54 5c 6e |yte-code| "...T\n|
|00004e90| 47 56 ac 87 09 54 0b 47 | 56 ab 85 c4 c5 09 5c 22 |GV...T.G|V.....\"|
|00004ea0| 88 5c 6e 09 48 0b 09 48 | 9a ac 85 c4 c5 09 5c 22 |.\n.H..H|......\"|
|00004eb0| 88 09 54 89 11 aa 5a 22 | 20 5b 30 20 64 69 66 66 |..T...Z"| [0 diff|
|00004ec0| 20 73 74 72 31 20 73 74 | 72 32 20 74 68 72 6f 77 | str1 st|r2 throw|
|00004ed0| 20 64 6f 6e 65 5d 20 34 | 29 5d 20 32 20 22 5c 0a | done] 4|)] 2 "\.|
|00004ee0| 52 65 74 75 72 6e 20 69 | 6e 64 65 78 20 6f 66 20 |Return i|ndex of |
|00004ef0| 66 69 72 73 74 20 6c 65 | 74 74 65 72 20 77 68 65 |first le|tter whe|
|00004f00| 72 65 20 53 54 52 31 20 | 61 6e 64 20 53 54 52 32 |re STR1 |and STR2|
|00004f10| 20 64 69 66 66 65 72 73 | 2e 22 5d 29 0a 28 62 79 | differs|."]).(by|
|00004f20| 74 65 2d 63 6f 64 65 20 | 22 c0 c1 4d 88 c2 c3 4d |te-code |"..M...M|
|00004f30| 87 22 20 5b 70 61 73 63 | 61 6c 2d 66 75 6e 63 2d |." [pasc|al-func-|
|00004f40| 63 6f 6d 70 6c 65 74 69 | 6f 6e 20 23 5b 28 74 79 |completi|on #[(ty|
|00004f50| 70 65 29 20 22 08 c1 98 | ab 82 c2 10 0b c4 3d ab |pe) "...|......=.|
|00004f60| 83 c5 aa 89 0b c6 3d ab | 83 c7 aa 81 c8 c9 08 ca |......=.|........|
|00004f70| 52 cb 1e 0c 18 cd ce 21 | ac 86 cf ce cb d0 23 88 |R......!|......#.|
|00004f80| d1 75 88 d2 20 ad af d3 | 08 cb 1e 14 8a 0e 14 7f |.u.. ...|........|
|00004f90| 88 60 2a d0 23 ab 99 d5 | 94 d5 95 7b 16 0c 0e 16 |.`*.#...|...{....|
|00004fa0| ab 87 0e 16 0e 0c 21 ab | 87 0e 0c 0e 17 42 16 17 |......!.|.....B..|
|00004fb0| d8 94 62 88 aa 4d 2a 87 | 22 20 5b 70 61 73 63 61 |..b..M*.|" [pasca|
|00004fc0| 6c 2d 73 74 72 20 22 22 | 20 22 5b 61 2d 7a 41 2d |l-str ""| "[a-zA-|
|00004fd0| 5a 5f 5d 22 20 74 79 70 | 65 20 70 72 6f 63 65 64 |Z_]" typ|e proced|
|00004fe0| 75 72 65 20 22 5c 5c 3c | 5c 5c 28 70 72 6f 63 65 |ure "\\<|\\(proce|
|00004ff0| 64 75 72 65 5c 5c 29 5c | 5c 73 20 2b 22 20 66 75 |dure\\)\|\s +" fu|
|00005000| 6e 63 74 69 6f 6e 20 22 | 5c 5c 3c 5c 5c 28 66 75 |nction "|\\<\\(fu|
|00005010| 6e 63 74 69 6f 6e 5c 5c | 29 5c 5c 73 20 2b 22 20 |nction\\|)\\s +" |
|00005020| 22 5c 5c 3c 5c 5c 28 66 | 75 6e 63 74 69 6f 6e 5c |"\\<\\(f|unction\|
|00005030| 5c 7c 70 72 6f 63 65 64 | 75 72 65 5c 5c 29 5c 5c |\|proced|ure\\)\\|
|00005040| 73 20 2b 22 20 22 5c 5c | 3c 5c 5c 28 22 20 22 5b |s +" "\\|<\\(" "[|
|00005050| 61 2d 7a 41 2d 5a 30 2d | 39 5f 2e 5d 2a 5c 5c 29 |a-zA-Z0-|9_.]*\\)|
|00005060| 5c 5c 3e 22 20 6e 69 6c | 20 6d 61 74 63 68 20 6c |\\>" nil| match l|
|00005070| 6f 6f 6b 69 6e 67 2d 61 | 74 20 22 5c 5c 3c 5c 5c |ooking-a|t "\\<\\|
|00005080| 28 66 75 6e 63 74 69 6f | 6e 5c 5c 7c 70 72 6f 63 |(functio|n\\|proc|
|00005090| 65 64 75 72 65 5c 5c 29 | 5c 5c 3e 22 20 72 65 2d |edure\\)|\\>" re-|
|000050a0| 73 65 61 72 63 68 2d 62 | 61 63 6b 77 61 72 64 20 |search-b|ackward |
|000050b0| 74 20 31 20 70 61 73 63 | 61 6c 2d 62 65 67 2d 6f |t 1 pasc|al-beg-o|
|000050c0| 66 2d 64 65 66 75 6e 20 | 72 65 2d 73 65 61 72 63 |f-defun |re-searc|
|000050d0| 68 2d 66 6f 72 77 61 72 | 64 20 61 72 67 20 32 20 |h-forwar|d arg 2 |
|000050e0| 70 61 73 63 61 6c 2d 70 | 72 65 64 20 70 61 73 63 |pascal-p|red pasc|
|000050f0| 61 6c 2d 61 6c 6c 20 30 | 5d 20 34 5d 20 70 61 73 |al-all 0|] 4] pas|
|00005100| 63 61 6c 2d 67 65 74 2d | 63 6f 6d 70 6c 65 74 69 |cal-get-|completi|
|00005110| 6f 6e 2d 64 65 63 6c 20 | 23 5b 6e 69 6c 20 22 8a |on-decl |#[nil ".|
|00005120| c0 20 88 60 29 c1 1a 1b | 60 0b 57 ad e3 c4 c5 c1 |. .`)...|`.W.....|
|00005130| 1e 06 8a 0e 06 7f 88 60 | 2a c7 23 ab b9 c8 c9 0e |.......`|*.#.....|
|00005140| 5c 6e 50 c1 1e 06 8a cb | 0e 06 21 88 60 2a c7 23 |\nP.....|..!.`*.#|
|00005150| ab a5 cc 95 ac a1 cd 94 | cd 95 7b 12 ce cf 0e 10 |........|..{.....|
|00005160| 50 5c 6e 5c 22 ab 59 0e | 11 ab 86 0e 11 5c 6e 21 |P\n\".Y.|.....\n!|
|00005170| ab 4f 5c 6e 0e 12 42 16 | 12 aa 47 c4 d3 c1 1e 06 |.O\n..B.|..G.....|
|00005180| 8a 0e 06 7f 88 60 2a c7 | 23 ab 85 c0 20 88 aa 1d |.....`*.|#... ...|
|00005190| cc 79 88 aa 18 2a 87 22 | 20 5b 70 61 73 63 61 6c |.y...*."| [pascal|
|000051a0| 2d 64 65 63 6c 61 72 61 | 74 69 6f 6e 2d 65 6e 64 |-declara|tion-end|
|000051b0| 20 6e 69 6c 20 6d 61 74 | 63 68 20 65 6e 64 20 72 | nil mat|ch end r|
|000051c0| 65 2d 73 65 61 72 63 68 | 2d 66 6f 72 77 61 72 64 |e-search|-forward|
|000051d0| 20 22 5b 3a 3d 5d 22 20 | 61 72 67 20 74 20 72 65 | "[:=]" |arg t re|
|000051e0| 2d 73 65 61 72 63 68 2d | 62 61 63 6b 77 61 72 64 |-search-|backward|
|000051f0| 20 22 5c 5c 28 28 5c 5c | 7c 5c 5c 3c 5c 5c 28 76 | "\\((\\||\\<\\(v|
|00005200| 61 72 5c 5c 7c 74 79 70 | 65 5c 5c 7c 63 6f 6e 73 |ar\\|typ|e\\|cons|
|00005210| 74 5c 5c 29 5c 5c 3e 5c | 5c 29 5c 5c 7c 22 20 70 |t\\)\\>\|\)\\|" p|
|00005220| 61 73 63 61 6c 2d 73 79 | 6d 62 6f 6c 2d 72 65 20 |ascal-sy|mbol-re |
|00005230| 62 65 67 69 6e 6e 69 6e | 67 2d 6f 66 2d 6c 69 6e |beginnin|g-of-lin|
|00005240| 65 20 31 20 30 20 73 74 | 72 69 6e 67 2d 6d 61 74 |e 1 0 st|ring-mat|
|00005250| 63 68 20 22 5c 5c 3c 22 | 20 70 61 73 63 61 6c 2d |ch "\\<"| pascal-|
|00005260| 73 74 72 20 70 61 73 63 | 61 6c 2d 70 72 65 64 20 |str pasc|al-pred |
|00005270| 70 61 73 63 61 6c 2d 61 | 6c 6c 20 22 5c 5c 3c 72 |pascal-a|ll "\\<r|
|00005280| 65 63 6f 72 64 5c 5c 3e | 22 5d 20 34 5d 5d 20 32 |ecord\\>|"] 4]] 2|
|00005290| 29 0a 28 66 73 65 74 20 | 27 70 61 73 63 61 6c 2d |).(fset |'pascal-|
|000052a0| 74 79 70 65 2d 63 6f 6d | 70 6c 65 74 69 6f 6e 20 |type-com|pletion |
|000052b0| 23 5b 6e 69 6c 20 22 60 | c0 19 1a c3 20 ac 86 09 |#[nil "`|.... ...|
|000052c0| 3f 89 11 ad 9f 8a 5c 6e | 8a c4 20 88 60 29 c5 75 |?.....\n|.. .`).u|
|000052d0| 88 57 ab 8e c6 c7 5c 6e | c8 23 ab 87 c5 95 ac 83 |.W....\n|.#......|
|000052e0| c9 20 88 29 aa 57 2a 87 | 22 20 5b 6e 69 6c 20 67 |. .).W*.|" [nil g|
|000052f0| 6f 6f 6e 20 73 74 61 72 | 74 20 70 61 73 63 61 6c |oon star|t pascal|
|00005300| 2d 62 65 67 2d 6f 66 2d | 64 65 66 75 6e 20 70 61 |-beg-of-|defun pa|
|00005310| 73 63 61 6c 2d 65 6e 64 | 2d 6f 66 2d 64 65 66 75 |scal-end|-of-defu|
|00005320| 6e 20 31 20 72 65 2d 73 | 65 61 72 63 68 2d 66 6f |n 1 re-s|earch-fo|
|00005330| 72 77 61 72 64 20 22 5c | 5c 3c 74 79 70 65 5c 5c |rward "\|\<type\\|
|00005340| 3e 5c 5c 7c 5c 5c 3c 5c | 5c 28 62 65 67 69 6e 5c |>\\|\\<\|\(begin\|
|00005350| 5c 7c 66 75 6e 63 74 69 | 6f 6e 5c 5c 7c 70 72 6f |\|functi|on\\|pro|
|00005360| 63 65 64 75 72 65 5c 5c | 29 5c 5c 3e 22 20 74 20 |cedure\\|)\\>" t |
|00005370| 70 61 73 63 61 6c 2d 67 | 65 74 2d 63 6f 6d 70 6c |pascal-g|et-compl|
|00005380| 65 74 69 6f 6e 2d 64 65 | 63 6c 5d 20 34 20 22 5c |etion-de|cl] 4 "\|
|00005390| 0a 43 61 6c 63 75 6c 61 | 74 65 20 61 6c 6c 20 70 |.Calcula|te all p|
|000053a0| 6f 73 73 69 62 6c 65 20 | 63 6f 6d 70 6c 65 74 69 |ossible |completi|
|000053b0| 6f 6e 73 20 66 6f 72 20 | 74 79 70 65 73 2e 22 5d |ons for |types."]|
|000053c0| 29 0a 28 66 73 65 74 20 | 27 70 61 73 63 61 6c 2d |).(fset |'pascal-|
|000053d0| 76 61 72 2d 63 6f 6d 70 | 6c 65 74 69 6f 6e 20 23 |var-comp|letion #|
|000053e0| 5b 6e 69 6c 20 22 60 c0 | 89 19 1a 1b c4 20 ac 86 |[nil "`.|..... ..|
|000053f0| 5c 6e 3f 89 12 ad c6 8a | 0b 8a c5 20 88 60 29 56 |\n?.....|... .`)V|
|00005400| ac b8 c6 c7 c0 1e 08 8a | 0e 08 7f 88 60 2a c9 23 |........|....`*.#|
|00005410| ab 83 ca 20 88 cb 11 09 | 53 89 11 cc 59 ab 9b cd |... ....|S...Y...|
|00005420| ce cf 50 0b c9 23 ab 89 | cb 95 ac 85 ca 20 88 aa |..P..#..|..... ..|
|00005430| 66 cb 95 ab 62 cc 89 11 | aa 5e 29 aa 30 2b 87 22 |f...b...|.^).0+."|
|00005440| 20 5b 6e 69 6c 20 74 77 | 69 63 65 20 67 6f 6f 6e | [nil tw|ice goon|
|00005450| 20 73 74 61 72 74 20 70 | 61 73 63 61 6c 2d 62 65 | start p|ascal-be|
|00005460| 67 2d 6f 66 2d 64 65 66 | 75 6e 20 70 61 73 63 61 |g-of-def|un pasca|
|00005470| 6c 2d 65 6e 64 2d 6f 66 | 2d 64 65 66 75 6e 20 73 |l-end-of|-defun s|
|00005480| 65 61 72 63 68 2d 66 6f | 72 77 61 72 64 20 22 28 |earch-fo|rward "(|
|00005490| 22 20 61 72 67 20 74 20 | 70 61 73 63 61 6c 2d 67 |" arg t |pascal-g|
|000054a0| 65 74 2d 63 6f 6d 70 6c | 65 74 69 6f 6e 2d 64 65 |et-compl|etion-de|
|000054b0| 63 6c 20 32 20 30 20 72 | 65 2d 73 65 61 72 63 68 |cl 2 0 r|e-search|
|000054c0| 2d 66 6f 72 77 61 72 64 | 20 22 5c 5c 3c 5c 5c 28 |-forward| "\\<\\(|
|000054d0| 76 61 72 5c 5c 7c 63 6f | 6e 73 74 5c 5c 29 5c 5c |var\\|co|nst\\)\\|
|000054e0| 3e 5c 5c 7c 22 20 22 5c | 5c 3c 5c 5c 28 62 65 67 |>\\|" "\|\<\\(beg|
|000054f0| 69 6e 5c 5c 7c 66 75 6e | 63 74 69 6f 6e 5c 5c 7c |in\\|fun|ction\\||
|00005500| 70 72 6f 63 65 64 75 72 | 65 5c 5c 29 5c 5c 3e 22 |procedur|e\\)\\>"|
|00005510| 5d 20 35 20 22 5c 0a 43 | 61 6c 63 75 6c 61 74 65 |] 5 "\.C|alculate|
|00005520| 20 61 6c 6c 20 70 6f 73 | 73 69 62 6c 65 20 63 6f | all pos|sible co|
|00005530| 6d 70 6c 65 74 69 6f 6e | 73 20 66 6f 72 20 76 61 |mpletion|s for va|
|00005540| 72 69 61 62 6c 65 73 20 | 28 6f 72 20 63 6f 6e 73 |riables |(or cons|
|00005550| 74 61 6e 74 73 29 2e 22 | 5d 29 0a 28 66 73 65 74 |tants)."|]).(fset|
|00005560| 20 27 70 61 73 63 61 6c | 2d 6b 65 79 77 6f 72 64 | 'pascal|-keyword|
|00005570| 2d 63 6f 6d 70 6c 65 74 | 69 6f 6e 20 23 5b 28 6b |-complet|ion #[(k|
|00005580| 65 79 77 6f 72 64 2d 6c | 69 73 74 29 20 22 c0 c1 |eyword-l|ist) "..|
|00005590| 5c 6e 5c 22 87 22 20 5b | 6d 61 70 63 61 72 20 23 |\n\"." [|mapcar #|
|000055a0| 5b 28 73 29 20 22 c0 c1 | 5c 6e 50 0b 5c 22 ad 8d |[(s) "..|\nP.\"..|
|000055b0| 0c ab 85 0c 0b 21 ad 85 | 0b 0d 42 89 15 87 22 20 |.....!..|..B..." |
|000055c0| 5b 73 74 72 69 6e 67 2d | 6d 61 74 63 68 20 22 5c |[string-|match "\|
|000055d0| 5c 3c 22 20 70 61 73 63 | 61 6c 2d 73 74 72 20 73 |\<" pasc|al-str s|
|000055e0| 20 70 61 73 63 61 6c 2d | 70 72 65 64 20 70 61 73 | pascal-|pred pas|
|000055f0| 63 61 6c 2d 61 6c 6c 5d | 20 33 5d 20 6b 65 79 77 |cal-all]| 3] keyw|
|00005600| 6f 72 64 2d 6c 69 73 74 | 5d 20 33 20 22 5c 0a 47 |ord-list|] 3 "\.G|
|00005610| 69 76 65 20 6c 69 73 74 | 20 6f 66 20 61 6c 6c 20 |ive list| of all |
|00005620| 70 6f 73 73 69 62 6c 65 | 20 63 6f 6d 70 6c 65 74 |possible| complet|
|00005630| 69 6f 6e 73 20 6f 66 20 | 6b 65 79 77 6f 72 64 73 |ions of |keywords|
|00005640| 20 69 6e 20 4b 45 59 57 | 4f 52 44 2d 4c 49 53 54 | in KEYW|ORD-LIST|
|00005650| 2e 22 5d 29 0a 28 62 79 | 74 65 2d 63 6f 64 65 20 |."]).(by|te-code |
|00005660| 22 c0 c1 4d 88 c2 c3 4d | 88 c4 c5 21 ac 82 c6 15 |"..M...M|...!....|
|00005670| c4 c7 21 ac 83 c8 16 07 | c4 c9 21 ac 83 c8 16 09 |..!.....|..!.....|
|00005680| c8 87 22 20 5b 70 61 73 | 63 61 6c 2d 63 6f 6d 70 |.." [pas|cal-comp|
|00005690| 6c 65 74 69 6f 6e 20 23 | 5b 28 70 61 73 63 61 6c |letion #|[(pascal|
|000056a0| 2d 73 74 72 20 70 61 73 | 63 61 6c 2d 70 72 65 64 |-str pas|cal-pred|
|000056b0| 20 70 61 73 63 61 6c 2d | 66 6c 61 67 29 20 22 8a | pascal-|flag) ".|
|000056c0| c0 19 5c 6e 71 88 c3 20 | 40 89 1c c5 3d ac 9d 0c |..\nq.. |@...=...|
|000056d0| c6 3d ac 98 0c c7 3d ab | aa 8a c8 c9 c0 1e 5c 6e |.=....=.|......\n|
|000056e0| 8a cb 0e 5c 6e 21 88 60 | 2a cc 23 29 ab 97 0c c6 |...\n!.`|*.#)....|
|000056f0| 3d ac 85 0c c7 3d ab 83 | cd 20 88 ce 20 88 cf 0e |=....=..|. .. ...|
|00005700| 10 21 88 aa bc 0c d1 3d | ac a9 8a d2 c0 78 88 d3 |.!.....=|.....x..|
|00005710| d4 21 88 d5 0e 16 21 ae | 87 d7 d4 21 88 d5 d8 21 |.!....!.|...!...!|
|00005720| 29 ab 90 8a d9 20 88 29 | da db 21 88 cf 0e 1c 21 |).... .)|..!....!|
|00005730| 88 aa 8e 8a d9 20 88 29 | da dd 21 88 cf 0e 1e 21 |..... .)|..!....!|
|00005740| 88 29 df 20 2a 87 22 20 | 5b 6e 69 6c 20 70 61 73 |.). *." |[nil pas|
|00005750| 63 61 6c 2d 61 6c 6c 20 | 70 61 73 63 61 6c 2d 62 |cal-all |pascal-b|
|00005760| 75 66 66 65 72 2d 74 6f | 2d 75 73 65 20 70 61 73 |uffer-to|-use pas|
|00005770| 63 61 6c 2d 63 61 6c 63 | 75 6c 61 74 65 2d 69 6e |cal-calc|ulate-in|
|00005780| 64 65 6e 74 20 73 74 61 | 74 65 20 64 65 63 6c 61 |dent sta|te decla|
|00005790| 72 61 74 69 6f 6e 20 70 | 61 72 61 6d 6c 69 73 74 |ration p|aramlist|
|000057a0| 20 64 65 66 75 6e 20 72 | 65 2d 73 65 61 72 63 68 | defun r|e-search|
|000057b0| 2d 62 61 63 6b 77 61 72 | 64 20 22 29 5b 20 09 5d |-backwar|d ")[ .]|
|000057c0| 2a 3a 22 20 61 72 67 20 | 62 65 67 69 6e 6e 69 6e |*:" arg |beginnin|
|000057d0| 67 2d 6f 66 2d 6c 69 6e | 65 20 74 20 70 61 73 63 |g-of-lin|e t pasc|
|000057e0| 61 6c 2d 62 65 67 2d 6f | 66 2d 64 65 66 75 6e 20 |al-beg-o|f-defun |
|000057f0| 70 61 73 63 61 6c 2d 74 | 79 70 65 2d 63 6f 6d 70 |pascal-t|ype-comp|
|00005800| 6c 65 74 69 6f 6e 20 70 | 61 73 63 61 6c 2d 6b 65 |letion p|ascal-ke|
|00005810| 79 77 6f 72 64 2d 63 6f | 6d 70 6c 65 74 69 6f 6e |yword-co|mpletion|
|00005820| 20 70 61 73 63 61 6c 2d | 74 79 70 65 2d 6b 65 79 | pascal-|type-key|
|00005830| 77 6f 72 64 73 20 63 6f | 6e 74 65 78 70 20 22 61 |words co|ntexp "a|
|00005840| 2d 7a 41 2d 5a 30 2d 39 | 5f 2e 22 20 62 61 63 6b |-zA-Z0-9|_." back|
|00005850| 77 61 72 64 2d 73 65 78 | 70 20 31 20 6c 6f 6f 6b |ward-sex|p 1 look|
|00005860| 69 6e 67 2d 61 74 20 70 | 61 73 63 61 6c 2d 6e 6f |ing-at p|ascal-no|
|00005870| 73 65 6d 69 2d 72 65 20 | 66 6f 72 77 61 72 64 2d |semi-re |forward-|
|00005880| 73 65 78 70 20 22 5c 5c | 73 20 2a 5c 5c 28 3b 5c |sexp "\\|s *\\(;\|
|00005890| 5c 7c 3a 5b 5e 3d 5d 5c | 5c 29 22 20 70 61 73 63 |\|:[^=]\|\)" pasc|
|000058a0| 61 6c 2d 76 61 72 2d 63 | 6f 6d 70 6c 65 74 69 6f |al-var-c|ompletio|
|000058b0| 6e 20 70 61 73 63 61 6c | 2d 66 75 6e 63 2d 63 6f |n pascal|-func-co|
|000058c0| 6d 70 6c 65 74 69 6f 6e | 20 70 72 6f 63 65 64 75 |mpletion| procedu|
|000058d0| 72 65 20 70 61 73 63 61 | 6c 2d 73 74 61 72 74 2d |re pasca|l-start-|
|000058e0| 6b 65 79 77 6f 72 64 73 | 20 66 75 6e 63 74 69 6f |keywords| functio|
|000058f0| 6e 20 70 61 73 63 61 6c | 2d 73 65 70 61 72 61 74 |n pascal|-separat|
|00005900| 6f 72 2d 6b 65 79 77 6f | 72 64 73 20 70 61 73 63 |or-keywo|rds pasc|
|00005910| 61 6c 2d 63 6f 6d 70 6c | 65 74 69 6f 6e 2d 72 65 |al-compl|etion-re|
|00005920| 73 70 6f 6e 73 65 5d 20 | 35 5d 20 70 61 73 63 61 |sponse] |5] pasca|
|00005930| 6c 2d 63 6f 6d 70 6c 65 | 74 69 6f 6e 2d 72 65 73 |l-comple|tion-res|
|00005940| 70 6f 6e 73 65 20 23 5b | 6e 69 6c 20 22 08 c1 9a |ponse #[|nil "...|
|00005950| ac 83 08 ac d8 5c 6e 3f | 3f ad d7 5c 6e 41 1b 5c |.....\n?|?..\nA.\|
|00005960| 6e 40 89 1c 47 1d c6 1e | 07 c6 1e 08 0c 0e 09 98 |n@..G...|........|
|00005970| ab 84 ca 14 aa ab 0b ab | a8 cb 0c 0b 40 5c 22 89 |........|....@\".|
|00005980| 16 08 0d 57 ab 88 0e 08 | 15 0c cc 0d 4f 14 0b 40 |...W....|....O..@|
|00005990| 0e 09 98 ab 87 ca 14 c6 | 89 13 aa 5c 5c 0b 41 89 |........|...\\.A.|
|000059a0| 13 ac 58 08 c1 9a ad 84 | 0c ca 9a 3f 3f ad 81 0c |..X.....|...??...|
|000059b0| 2d 87 08 ad 81 5c 6e 87 | 22 20 5b 70 61 73 63 61 |-....\n.|" [pasca|
|000059c0| 6c 2d 66 6c 61 67 20 6c | 61 6d 62 64 61 20 70 61 |l-flag l|ambda pa|
|000059d0| 73 63 61 6c 2d 61 6c 6c | 20 65 6c 6d 20 6d 61 74 |scal-all| elm mat|
|000059e0| 63 68 20 6d 69 6e 20 6e | 69 6c 20 65 78 61 63 74 |ch min n|il exact|
|000059f0| 20 74 6d 70 20 70 61 73 | 63 61 6c 2d 73 74 72 20 | tmp pas|cal-str |
|00005a00| 74 20 70 61 73 63 61 6c | 2d 73 74 72 69 6e 67 2d |t pascal|-string-|
|00005a10| 64 69 66 66 20 30 5d 20 | 34 5d 20 62 6f 75 6e 64 |diff 0] |4] bound|
|00005a20| 70 20 70 61 73 63 61 6c | 2d 6c 61 73 74 2d 77 6f |p pascal|-last-wo|
|00005a30| 72 64 2d 6e 75 6d 62 20 | 30 20 70 61 73 63 61 6c |rd-numb |0 pascal|
|00005a40| 2d 6c 61 73 74 2d 77 6f | 72 64 2d 73 68 6f 77 6e |-last-wo|rd-shown|
|00005a50| 20 6e 69 6c 20 70 61 73 | 63 61 6c 2d 6c 61 73 74 | nil pas|cal-last|
|00005a60| 2d 63 6f 6d 70 6c 65 74 | 69 6f 6e 73 5d 20 32 29 |-complet|ions] 2)|
|00005a70| 0a 28 66 73 65 74 20 27 | 70 61 73 63 61 6c 2d 63 |.(fset '|pascal-c|
|00005a80| 6f 6d 70 6c 65 74 65 2d | 77 6f 72 64 20 23 5b 6e |omplete-|word #[n|
|00005a90| 69 6c 20 22 8a c0 c1 78 | 88 60 29 1a 8a c0 c1 77 |il "...x|.`)....w|
|00005aa0| 88 60 29 1b 5c 6e 0b 7b | 1c 70 1d 0e 06 ab 8a 0e |.`).\n.{|.p......|
|00005ab0| 07 0c 98 ab 84 0e 08 aa | 84 c9 0c ca 5c 22 1e 0b |........|....\"..|
|00005ac0| 0e 06 ab 83 cc aa 88 cd | 0c ce cf 0e 0b 5c 22 5c |........|.....\"\|
|00005ad0| 22 1e 10 5c 6e 0b 7c 88 | 0e 06 ab b1 0e 0b 16 08 |"..\n.|.|........|
|00005ae0| 0e 11 0e 0b 47 53 59 ab | 83 d2 aa 83 0e 11 54 16 |....GSY.|......T.|
|00005af0| 11 0e 0b 0e 11 9c 16 07 | 0e 0b ab 87 cc 0e 07 b1 |........|........|
|00005b00| 02 aa dd cc 0c b1 02 88 | d3 d4 21 aa d3 0e 10 ab |........|..!.....|
|00005b10| 86 0e 10 d5 9a ab 8b cc | 0c b1 02 88 d3 d4 21 88 |........|......!.|
|00005b20| aa 86 cc 0e 10 b1 02 88 | 0e 10 d5 9a ab 8f 0e 0b |........|........|
|00005b30| 41 ab 85 d3 d6 21 aa a8 | d3 d7 21 aa a3 0e 0b 41 |A....!..|..!....A|
|00005b40| 3f 3f ad 9c 0c 47 0e 10 | 47 55 ad 94 d8 90 d9 0e |??...G..|GU......|
|00005b50| 0b 21 91 88 da cc 60 5c | 22 88 db dc dd d8 21 21 |.!....`\|".....!!|
|00005b60| 21 2e 06 87 22 20 5b 22 | 61 2d 7a 41 2d 5a 30 2d |!..." ["|a-zA-Z0-|
|00005b70| 39 5f 22 20 6e 69 6c 20 | 62 20 65 20 70 61 73 63 |9_" nil |b e pasc|
|00005b80| 61 6c 2d 73 74 72 20 70 | 61 73 63 61 6c 2d 62 75 |al-str p|ascal-bu|
|00005b90| 66 66 65 72 2d 74 6f 2d | 75 73 65 20 70 61 73 63 |ffer-to-|use pasc|
|00005ba0| 61 6c 2d 74 6f 67 67 6c | 65 2d 63 6f 6d 70 6c 65 |al-toggl|e-comple|
|00005bb0| 74 69 6f 6e 73 20 70 61 | 73 63 61 6c 2d 6c 61 73 |tions pa|scal-las|
|00005bc0| 74 2d 77 6f 72 64 2d 73 | 68 6f 77 6e 20 70 61 73 |t-word-s|hown pas|
|00005bd0| 63 61 6c 2d 6c 61 73 74 | 2d 63 6f 6d 70 6c 65 74 |cal-last|-complet|
|00005be0| 69 6f 6e 73 20 61 6c 6c | 2d 63 6f 6d 70 6c 65 74 |ions all|-complet|
|00005bf0| 69 6f 6e 73 20 70 61 73 | 63 61 6c 2d 63 6f 6d 70 |ions pas|cal-comp|
|00005c00| 6c 65 74 69 6f 6e 20 61 | 6c 6c 63 6f 6d 70 20 22 |letion a|llcomp "|
|00005c10| 22 20 74 72 79 2d 63 6f | 6d 70 6c 65 74 69 6f 6e |" try-co|mpletion|
|00005c20| 20 6d 61 70 63 61 72 20 | 23 5b 28 65 6c 6d 29 20 | mapcar |#[(elm) |
|00005c30| 22 08 c1 42 87 22 20 5b | 65 6c 6d 20 30 5d 20 32 |"..B." [|elm 0] 2|
|00005c40| 5d 20 6d 61 74 63 68 20 | 70 61 73 63 61 6c 2d 6c |] match |pascal-l|
|00005c50| 61 73 74 2d 77 6f 72 64 | 2d 6e 75 6d 62 20 30 20 |ast-word|-numb 0 |
|00005c60| 6d 65 73 73 61 67 65 20 | 22 28 4e 6f 20 6d 61 74 |message |"(No mat|
|00005c70| 63 68 29 22 20 74 20 22 | 28 43 6f 6d 70 6c 65 74 |ch)" t "|(Complet|
|00005c80| 65 20 62 75 74 20 6e 6f | 74 20 75 6e 69 71 75 65 |e but no|t unique|
|00005c90| 29 22 20 22 28 53 6f 6c | 65 20 63 6f 6d 70 6c 65 |)" "(Sol|e comple|
|00005ca0| 74 69 6f 6e 29 22 20 22 | 2a 43 6f 6d 70 6c 65 74 |tion)" "|*Complet|
|00005cb0| 69 6f 6e 73 2a 22 20 64 | 69 73 70 6c 61 79 2d 63 |ions*" d|isplay-c|
|00005cc0| 6f 6d 70 6c 65 74 69 6f | 6e 2d 6c 69 73 74 20 6d |ompletio|n-list m|
|00005cd0| 6f 6d 65 6e 74 61 72 79 | 2d 73 74 72 69 6e 67 2d |omentary|-string-|
|00005ce0| 64 69 73 70 6c 61 79 20 | 64 65 6c 65 74 65 2d 77 |display |delete-w|
|00005cf0| 69 6e 64 6f 77 20 67 65 | 74 2d 62 75 66 66 65 72 |indow ge|t-buffer|
|00005d00| 2d 77 69 6e 64 6f 77 20 | 67 65 74 2d 62 75 66 66 |-window |get-buff|
|00005d10| 65 72 5d 20 35 20 22 5c | 0a 43 6f 6d 70 6c 65 74 |er] 5 "\|.Complet|
|00005d20| 65 20 77 6f 72 64 20 61 | 74 20 63 75 72 72 65 6e |e word a|t curren|
|00005d30| 74 20 70 6f 69 6e 74 2e | 0a 28 53 65 65 20 61 6c |t point.|.(See al|
|00005d40| 73 6f 20 60 70 61 73 63 | 61 6c 2d 74 6f 67 67 6c |so `pasc|al-toggl|
|00005d50| 65 2d 63 6f 6d 70 6c 65 | 74 69 6f 6e 73 27 2c 20 |e-comple|tions', |
|00005d60| 60 70 61 73 63 61 6c 2d | 74 79 70 65 2d 6b 65 79 |`pascal-|type-key|
|00005d70| 77 6f 72 64 73 27 2c 0a | 60 70 61 73 63 61 6c 2d |words',.|`pascal-|
|00005d80| 73 74 61 72 74 2d 6b 65 | 79 77 6f 72 64 73 27 20 |start-ke|ywords' |
|00005d90| 61 6e 64 20 60 70 61 73 | 63 61 6c 2d 73 65 70 61 |and `pas|cal-sepa|
|00005da0| 72 61 74 6f 72 2d 6b 65 | 79 77 6f 72 64 73 27 2e |rator-ke|ywords'.|
|00005db0| 29 22 20 6e 69 6c 5d 29 | 0a 28 66 73 65 74 20 27 |)" nil])|.(fset '|
|00005dc0| 70 61 73 63 61 6c 2d 73 | 68 6f 77 2d 63 6f 6d 70 |pascal-s|how-comp|
|00005dd0| 6c 65 74 69 6f 6e 73 20 | 23 5b 6e 69 6c 20 22 8a |letions |#[nil ".|
|00005de0| c0 c1 78 88 60 29 1a 8a | c0 c1 77 88 60 29 1b 5c |..x.`)..|..w.`).\|
|00005df0| 6e 0b 7b 1c 70 1d 0e 06 | ab 8a 0e 07 0c 98 ab 84 |n.{.p...|........|
|00005e00| 0e 08 aa 84 c9 0c ca 5c | 22 1e 0b cc 90 cd 0e 0b |.......\|".......|
|00005e10| 21 91 88 ce cf 60 5c 22 | 88 d0 d1 d2 cc 21 21 21 |!....`\"|.....!!!|
|00005e20| 2d 87 22 20 5b 22 61 2d | 7a 41 2d 5a 30 2d 39 5f |-." ["a-|zA-Z0-9_|
|00005e30| 22 20 6e 69 6c 20 62 20 | 65 20 70 61 73 63 61 6c |" nil b |e pascal|
|00005e40| 2d 73 74 72 20 70 61 73 | 63 61 6c 2d 62 75 66 66 |-str pas|cal-buff|
|00005e50| 65 72 2d 74 6f 2d 75 73 | 65 20 70 61 73 63 61 6c |er-to-us|e pascal|
|00005e60| 2d 74 6f 67 67 6c 65 2d | 63 6f 6d 70 6c 65 74 69 |-toggle-|completi|
|00005e70| 6f 6e 73 20 70 61 73 63 | 61 6c 2d 6c 61 73 74 2d |ons pasc|al-last-|
|00005e80| 77 6f 72 64 2d 73 68 6f | 77 6e 20 70 61 73 63 61 |word-sho|wn pasca|
|00005e90| 6c 2d 6c 61 73 74 2d 63 | 6f 6d 70 6c 65 74 69 6f |l-last-c|ompletio|
|00005ea0| 6e 73 20 61 6c 6c 2d 63 | 6f 6d 70 6c 65 74 69 6f |ns all-c|ompletio|
|00005eb0| 6e 73 20 70 61 73 63 61 | 6c 2d 63 6f 6d 70 6c 65 |ns pasca|l-comple|
|00005ec0| 74 69 6f 6e 20 61 6c 6c | 63 6f 6d 70 20 22 2a 43 |tion all|comp "*C|
|00005ed0| 6f 6d 70 6c 65 74 69 6f | 6e 73 2a 22 20 64 69 73 |ompletio|ns*" dis|
|00005ee0| 70 6c 61 79 2d 63 6f 6d | 70 6c 65 74 69 6f 6e 2d |play-com|pletion-|
|00005ef0| 6c 69 73 74 20 6d 6f 6d | 65 6e 74 61 72 79 2d 73 |list mom|entary-s|
|00005f00| 74 72 69 6e 67 2d 64 69 | 73 70 6c 61 79 20 22 22 |tring-di|splay ""|
|00005f10| 20 64 65 6c 65 74 65 2d | 77 69 6e 64 6f 77 20 67 | delete-|window g|
|00005f20| 65 74 2d 62 75 66 66 65 | 72 2d 77 69 6e 64 6f 77 |et-buffe|r-window|
|00005f30| 20 67 65 74 2d 62 75 66 | 66 65 72 5d 20 34 20 22 | get-buf|fer] 4 "|
|00005f40| 5c 0a 53 68 6f 77 20 61 | 6c 6c 20 70 6f 73 73 69 |\.Show a|ll possi|
|00005f50| 62 6c 65 20 63 6f 6d 70 | 6c 65 74 69 6f 6e 73 20 |ble comp|letions |
|00005f60| 61 74 20 63 75 72 72 65 | 6e 74 20 70 6f 69 6e 74 |at curre|nt point|
|00005f70| 2e 22 20 6e 69 6c 5d 29 | 0a 28 66 73 65 74 20 27 |." nil])|.(fset '|
|00005f80| 70 61 73 63 61 6c 2d 67 | 65 74 2d 64 65 66 61 75 |pascal-g|et-defau|
|00005f90| 6c 74 2d 73 79 6d 62 6f | 6c 20 23 5b 6e 69 6c 20 |lt-symbo|l #[nil |
|00005fa0| 22 8a c0 c1 78 88 c2 c1 | 78 88 60 c2 c1 77 88 60 |"...x...|x.`..w.`|
|00005fb0| 7b 29 87 22 20 5b 22 20 | 09 22 20 6e 69 6c 20 22 |{)." [" |." nil "|
|00005fc0| 61 2d 7a 41 2d 5a 30 2d | 39 5f 22 5d 20 33 20 22 |a-zA-Z0-|9_"] 3 "|
|00005fd0| 5c 0a 52 65 74 75 72 6e | 20 73 79 6d 62 6f 6c 20 |\.Return| symbol |
|00005fe0| 61 72 6f 75 6e 64 20 63 | 75 72 72 65 6e 74 20 70 |around c|urrent p|
|00005ff0| 6f 69 6e 74 20 61 73 20 | 61 20 73 74 72 69 6e 67 |oint as |a string|
|00006000| 2e 22 5d 29 0a 28 66 73 | 65 74 20 27 70 61 73 63 |."]).(fs|et 'pasc|
|00006010| 61 6c 2d 62 75 69 6c 64 | 2d 64 65 66 75 6e 2d 72 |al-build|-defun-r|
|00006020| 65 20 23 5b 28 73 74 72 | 20 26 6f 70 74 69 6f 6e |e #[(str| &option|
|00006030| 61 6c 20 61 72 67 29 20 | 22 08 ab 85 c1 5c 6e c3 |al arg) |"....\n.|
|00006040| 51 87 c1 5c 6e c4 51 87 | 22 20 5b 61 72 67 20 22 |Q..\n.Q.|" [arg "|
|00006050| 5e 5c 5c 28 66 75 6e 63 | 74 69 6f 6e 5c 5c 7c 70 |^\\(func|tion\\|p|
|00006060| 72 6f 63 65 64 75 72 65 | 5c 5c 29 5b 20 09 5d 2b |rocedure|\\)[ .]+|
|00006070| 5c 5c 28 22 20 73 74 72 | 20 22 5c 5c 29 5c 5c 3e |\\(" str| "\\)\\>|
|00006080| 22 20 22 5b 61 2d 7a 41 | 2d 5a 30 2d 39 5f 5d 2a |" "[a-zA|-Z0-9_]*|
|00006090| 5c 5c 29 5c 5c 3e 22 5d | 20 33 20 22 5c 0a 52 65 |\\)\\>"]| 3 "\.Re|
|000060a0| 74 75 72 6e 20 66 75 6e | 63 74 69 6f 6e 2f 70 72 |turn fun|ction/pr|
|000060b0| 6f 63 65 64 75 72 65 20 | 73 74 61 72 74 69 6e 67 |ocedure |starting|
|000060c0| 20 77 69 74 68 20 53 54 | 52 20 61 73 20 72 65 67 | with ST|R as reg|
|000060d0| 75 6c 61 72 20 65 78 70 | 72 65 73 73 69 6f 6e 2e |ular exp|ression.|
|000060e0| 0a 57 69 74 68 20 6f 70 | 74 69 6f 6e 61 6c 20 73 |.With op|tional s|
|000060f0| 65 63 6f 6e 64 20 61 72 | 67 20 6e 6f 6e 2d 6e 69 |econd ar|g non-ni|
|00006100| 6c 2c 20 53 54 52 20 69 | 73 20 74 68 65 20 63 6f |l, STR i|s the co|
|00006110| 6d 70 6c 65 74 65 20 6e | 61 6d 65 20 6f 66 20 74 |mplete n|ame of t|
|00006120| 68 65 20 69 6e 73 74 72 | 75 63 74 69 6f 6e 2e 22 |he instr|uction."|
|00006130| 5d 29 0a 28 66 73 65 74 | 20 27 70 61 73 63 61 6c |]).(fset| 'pascal|
|00006140| 2d 63 6f 6d 70 2d 64 65 | 66 75 6e 20 23 5b 28 70 |-comp-de|fun #[(p|
|00006150| 61 73 63 61 6c 2d 73 74 | 72 20 70 61 73 63 61 6c |ascal-st|r pascal|
|00006160| 2d 70 72 65 64 20 70 61 | 73 63 61 6c 2d 66 6c 61 |-pred pa|scal-fla|
|00006170| 67 29 20 22 8a c0 89 19 | 1a 0b 71 88 0c 89 1c c5 |g) "....|..q.....|
|00006180| 98 ab 86 c6 c7 21 14 aa | 84 c6 0c 21 14 65 62 88 |.....!..|...!.eb.|
|00006190| c8 0c c0 c9 23 ab 96 ca | 94 ca 95 7b 11 0e 0b ab |....#...|...{....|
|000061a0| 86 0e 0b 09 21 ab 69 09 | 5c 6e 42 12 aa 63 29 cc |....!.i.|\nB..c).|
|000061b0| 20 2b 87 22 20 5b 6e 69 | 6c 20 6d 61 74 63 68 20 | +." [ni|l match |
|000061c0| 70 61 73 63 61 6c 2d 61 | 6c 6c 20 70 61 73 63 61 |pascal-a|ll pasca|
|000061d0| 6c 2d 62 75 66 66 65 72 | 2d 74 6f 2d 75 73 65 20 |l-buffer|-to-use |
|000061e0| 70 61 73 63 61 6c 2d 73 | 74 72 20 22 22 20 70 61 |pascal-s|tr "" pa|
|000061f0| 73 63 61 6c 2d 62 75 69 | 6c 64 2d 64 65 66 75 6e |scal-bui|ld-defun|
|00006200| 2d 72 65 20 22 5b 61 2d | 7a 41 2d 5a 5f 5d 22 20 |-re "[a-|zA-Z_]" |
|00006210| 72 65 2d 73 65 61 72 63 | 68 2d 66 6f 72 77 61 72 |re-searc|h-forwar|
|00006220| 64 20 74 20 32 20 70 61 | 73 63 61 6c 2d 70 72 65 |d t 2 pa|scal-pre|
|00006230| 64 20 70 61 73 63 61 6c | 2d 63 6f 6d 70 6c 65 74 |d pascal|-complet|
|00006240| 69 6f 6e 2d 72 65 73 70 | 6f 6e 73 65 5d 20 35 5d |ion-resp|onse] 5]|
|00006250| 29 0a 28 66 73 65 74 20 | 27 70 61 73 63 61 6c 2d |).(fset |'pascal-|
|00006260| 67 6f 74 6f 2d 64 65 66 | 75 6e 20 23 5b 6e 69 6c |goto-def|un #[nil|
|00006270| 20 22 c0 20 19 70 1a c3 | 09 c4 c5 23 ab 83 09 aa | ". .p..|...#....|
|00006280| 81 c6 89 19 c6 98 ac 8c | c7 c8 09 c9 51 c3 c4 ca |........|....Q...|
|00006290| c6 25 aa 87 c7 cb c3 c4 | ca c6 25 89 1e 0c c6 98 |.%......|..%.....|
|000062a0| ab 83 09 16 0c 0e 0c c6 | 98 ae 8f 65 62 88 cd ce |........|...eb...|
|000062b0| 0e 0c ca 5c 22 21 88 cf | 79 88 c4 2c 87 22 20 5b |...\"!..|y..,." [|
|000062c0| 70 61 73 63 61 6c 2d 67 | 65 74 2d 64 65 66 61 75 |pascal-g|et-defau|
|000062d0| 6c 74 2d 73 79 6d 62 6f | 6c 20 64 65 66 61 75 6c |lt-symbo|l defaul|
|000062e0| 74 20 70 61 73 63 61 6c | 2d 62 75 66 66 65 72 2d |t pascal|-buffer-|
|000062f0| 74 6f 2d 75 73 65 20 70 | 61 73 63 61 6c 2d 63 6f |to-use p|ascal-co|
|00006300| 6d 70 2d 64 65 66 75 6e | 20 6e 69 6c 20 6c 61 6d |mp-defun| nil lam|
|00006310| 62 64 61 20 22 22 20 63 | 6f 6d 70 6c 65 74 69 6e |bda "" c|ompletin|
|00006320| 67 2d 72 65 61 64 20 22 | 4c 61 62 65 6c 3a 20 28 |g-read "|Label: (|
|00006330| 64 65 66 61 75 6c 74 20 | 22 20 22 29 20 22 20 74 |default |" ") " t|
|00006340| 20 22 4c 61 62 65 6c 3a | 20 22 20 6c 61 62 65 6c | "Label:| " label|
|00006350| 20 72 65 2d 73 65 61 72 | 63 68 2d 66 6f 72 77 61 | re-sear|ch-forwa|
|00006360| 72 64 20 70 61 73 63 61 | 6c 2d 62 75 69 6c 64 2d |rd pasca|l-build-|
|00006370| 64 65 66 75 6e 2d 72 65 | 20 30 5d 20 37 20 22 5c |defun-re| 0] 7 "\|
|00006380| 0a 4d 6f 76 65 20 74 6f | 20 73 70 65 63 69 66 69 |.Move to| specifi|
|00006390| 65 64 20 50 61 73 63 61 | 6c 20 66 75 6e 63 74 69 |ed Pasca|l functi|
|000063a0| 6f 6e 2f 70 72 6f 63 65 | 64 75 72 65 2e 0a 54 68 |on/proce|dure..Th|
|000063b0| 65 20 64 65 66 61 75 6c | 74 20 69 73 20 61 20 6e |e defaul|t is a n|
|000063c0| 61 6d 65 20 66 6f 75 6e | 64 20 69 6e 20 74 68 65 |ame foun|d in the|
|000063d0| 20 62 75 66 66 65 72 20 | 61 72 6f 75 6e 64 20 70 | buffer |around p|
|000063e0| 6f 69 6e 74 2e 22 20 6e | 69 6c 5d 29 0a 28 64 65 |oint." n|il]).(de|
|000063f0| 66 76 61 72 20 70 61 73 | 63 61 6c 2d 6f 75 74 6c |fvar pas|cal-outl|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
