/ Gold Fish 3 / goldfish_volume_3.bin / files / util / edit / jade / lisp / lisp-mode.jlc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 3b 3b 20 53 6f 75 72 | 63 65 20 66 69 6c 65 3a |;;; Sour|ce file:|
|00000010| 20 2f 75 73 72 2f 6c 6f | 63 61 6c 2f 6c 69 62 2f | /usr/lo|cal/lib/|
|00000020| 6a 61 64 65 2f 33 2e 32 | 2f 6c 69 73 70 2f 6c 69 |jade/3.2|/lisp/li|
|00000030| 73 70 2d 6d 6f 64 65 2e | 6a 6c 0a 3b 3b 3b 20 43 |sp-mode.|jl.;;; C|
|00000040| 6f 6d 70 69 6c 65 64 20 | 62 79 20 6a 73 68 40 6f |ompiled |by jsh@o|
|00000050| 72 63 72 69 73 74 20 6f | 6e 20 53 75 6e 20 4f 63 |rcrist o|n Sun Oc|
|00000060| 74 20 31 36 20 32 30 3a | 32 30 3a 35 38 20 31 39 |t 16 20:|20:58 19|
|00000070| 39 34 0a 3b 3b 3b 20 4a | 61 64 65 20 33 2e 32 0a |94.;;; J|ade 3.2.|
|00000080| 0a 28 70 72 6f 76 69 64 | 65 20 28 71 75 6f 74 65 |.(provid|e (quote|
|00000090| 20 6c 69 73 70 2d 6d 6f | 64 65 29 29 0a 0a 28 64 | lisp-mo|de))..(d|
|000000a0| 65 66 76 61 72 20 73 79 | 6d 62 6f 6c 2d 77 6f 72 |efvar sy|mbol-wor|
|000000b0| 64 2d 72 65 67 65 78 70 | 73 20 5b 22 5b 5e 5d 5b |d-regexp|s ["[^][|
|000000c0| 28 29 3f 27 5c 22 23 3b | 20 5d 22 20 22 5b 5d 5b |()?'\"#;| ]" "[][|
|000000d0| 28 29 3f 27 5c 22 23 3b | 20 5d 7c 24 22 5d 29 0a |()?'\"#;| ]|$"]).|
|000000e0| 0a 28 64 65 66 76 61 72 | 20 6c 69 73 70 2d 6d 6f |.(defvar| lisp-mo|
|000000f0| 64 65 2d 6b 65 79 6d 61 | 70 20 28 6d 61 6b 65 2d |de-keyma|p (make-|
|00000100| 6b 65 79 6c 69 73 74 29 | 29 0a 0a 28 62 69 6e 64 |keylist)|)..(bind|
|00000110| 2d 6b 65 79 73 20 6c 69 | 73 70 2d 6d 6f 64 65 2d |-keys li|sp-mode-|
|00000120| 6b 65 79 6d 61 70 20 22 | 43 74 72 6c 2d 6a 22 20 |keymap "|Ctrl-j" |
|00000130| 28 71 75 6f 74 65 20 65 | 76 61 6c 2d 69 6e 73 65 |(quote e|val-inse|
|00000140| 72 74 2d 73 65 78 70 29 | 20 22 4d 65 74 61 2d 43 |rt-sexp)| "Meta-C|
|00000150| 74 72 6c 2d 78 22 20 28 | 71 75 6f 74 65 20 65 76 |trl-x" (|quote ev|
|00000160| 61 6c 2d 70 72 69 6e 74 | 2d 73 65 78 70 29 20 22 |al-print|-sexp) "|
|00000170| 54 41 42 22 20 28 71 75 | 6f 74 65 20 69 6e 64 65 |TAB" (qu|ote inde|
|00000180| 6e 74 2d 6c 69 6e 65 29 | 29 0a 0a 28 64 65 66 75 |nt-line)|)..(defu|
|00000190| 6e 20 6c 69 73 70 2d 6d | 6f 64 65 20 6e 69 6c 20 |n lisp-m|ode nil |
|000001a0| 38 33 32 35 33 20 28 69 | 6e 74 65 72 61 63 74 69 |83253 (i|nteracti|
|000001b0| 76 65 29 20 28 6a 61 64 | 65 2d 62 79 74 65 2d 63 |ve) (jad|e-byte-c|
|000001c0| 6f 64 65 20 22 18 fe 00 | 09 11 18 49 b2 0a 48 12 |ode "...|...I..H.|
|000001d0| 23 14 25 16 06 20 16 07 | 26 08 16 09 26 0a 16 0b |#.%.. ..|&...&...|
|000001e0| 26 0c 16 0d 26 0e 16 0f | 1e 10 4b 46 26 10 48 16 |&...&...|..KF&.H.|
|000001f0| 11 16 12 09 48 4a 22 20 | 5b 6d 61 6a 6f 72 2d 6d |....HJ" |[major-m|
|00000200| 6f 64 65 2d 6b 69 6c 6c | 20 66 75 6e 63 61 6c 6c |ode-kill| funcall|
|00000210| 20 22 4c 69 73 70 22 20 | 6d 6f 64 65 2d 6e 61 6d | "Lisp" |mode-nam|
|00000220| 65 20 6c 69 73 70 2d 6d | 6f 64 65 20 6d 61 6a 6f |e lisp-m|ode majo|
|00000230| 72 2d 6d 6f 64 65 20 6c | 69 73 70 2d 6d 6f 64 65 |r-mode l|isp-mode|
|00000240| 2d 6b 69 6c 6c 20 6c 69 | 73 70 2d 69 6e 73 65 72 |-kill li|sp-inser|
|00000250| 74 2d 63 6f 6d 6d 65 6e | 74 20 6d 6f 64 65 2d 63 |t-commen|t mode-c|
|00000260| 6f 6d 6d 65 6e 74 2d 66 | 75 6e 20 6c 69 73 70 2d |omment-f|un lisp-|
|00000270| 69 6e 64 65 6e 74 2d 6c | 69 6e 65 20 6d 6f 64 65 |indent-l|ine mode|
|00000280| 2d 69 6e 64 65 6e 74 2d | 6c 69 6e 65 20 6c 69 73 |-indent-|line lis|
|00000290| 70 2d 66 6f 72 77 61 72 | 64 2d 73 65 78 70 20 6d |p-forwar|d-sexp m|
|000002a0| 6f 64 65 2d 66 6f 72 77 | 61 72 64 2d 65 78 70 20 |ode-forw|ard-exp |
|000002b0| 6c 69 73 70 2d 62 61 63 | 6b 77 61 72 64 2d 73 65 |lisp-bac|kward-se|
|000002c0| 78 70 20 6d 6f 64 65 2d | 62 61 63 6b 77 61 72 64 |xp mode-|backward|
|000002d0| 2d 65 78 70 20 6c 69 73 | 70 2d 6d 6f 64 65 2d 6b |-exp lis|p-mode-k|
|000002e0| 65 79 6d 61 70 20 6b 65 | 79 6d 61 70 2d 70 61 74 |eymap ke|ymap-pat|
|000002f0| 68 20 65 76 61 6c 2d 68 | 6f 6f 6b 20 6c 69 73 70 |h eval-h|ook lisp|
|00000300| 2d 6d 6f 64 65 2d 68 6f | 6f 6b 5d 20 33 29 29 0a |-mode-ho|ok] 3)).|
|00000310| 0a 28 64 65 66 75 6e 20 | 6c 69 73 70 2d 6d 6f 64 |.(defun |lisp-mod|
|00000320| 65 2d 6b 69 6c 6c 20 6e | 69 6c 20 28 6a 61 64 65 |e-kill n|il (jade|
|00000330| 2d 62 79 74 65 2d 63 6f | 64 65 20 22 10 19 8b 21 |-byte-co|de "...!|
|00000340| 49 5c 22 49 23 49 24 49 | 25 49 26 06 49 26 07 49 |I\"I#I$I|%I&.I&.I|
|00000350| 46 26 08 48 4a 22 20 5b | 6c 69 73 70 2d 6d 6f 64 |F&.HJ" [|lisp-mod|
|00000360| 65 2d 6b 65 79 6d 61 70 | 20 6b 65 79 6d 61 70 2d |e-keymap| keymap-|
|00000370| 70 61 74 68 20 6d 61 6a | 6f 72 2d 6d 6f 64 65 20 |path maj|or-mode |
|00000380| 6d 61 6a 6f 72 2d 6d 6f | 64 65 2d 6b 69 6c 6c 20 |major-mo|de-kill |
|00000390| 6d 6f 64 65 2d 63 6f 6d | 6d 65 6e 74 2d 66 75 6e |mode-com|ment-fun|
|000003a0| 20 6d 6f 64 65 2d 69 6e | 64 65 6e 74 2d 6c 69 6e | mode-in|dent-lin|
|000003b0| 65 20 6d 6f 64 65 2d 66 | 6f 72 77 61 72 64 2d 65 |e mode-f|orward-e|
|000003c0| 78 70 20 6d 6f 64 65 2d | 62 61 63 6b 77 61 72 64 |xp mode-|backward|
|000003d0| 2d 65 78 70 20 6d 6f 64 | 65 2d 6e 61 6d 65 5d 20 |-exp mod|e-name] |
|000003e0| 32 29 29 0a 0a 28 6a 61 | 64 65 2d 62 79 74 65 2d |2))..(ja|de-byte-|
|000003f0| 63 6f 64 65 20 22 18 b1 | 19 ff 00 08 12 08 47 b1 |code "..|......G.|
|00000400| 48 22 20 5b 64 65 66 61 | 75 6c 74 2d 62 75 66 66 |H" [defa|ult-buff|
|00000410| 65 72 20 6d 61 6a 6f 72 | 2d 6d 6f 64 65 20 6c 69 |er major|-mode li|
|00000420| 73 70 2d 6d 6f 64 65 5d | 20 32 29 0a 0a 28 64 65 |sp-mode]| 2)..(de|
|00000430| 66 75 6e 20 65 76 61 6c | 2d 73 65 78 70 20 6e 69 |fun eval|-sexp ni|
|00000440| 6c 20 38 33 38 31 39 20 | 28 69 6e 74 65 72 61 63 |l 83819 |(interac|
|00000450| 74 69 76 65 29 20 28 6a | 61 64 65 2d 62 79 74 65 |tive) (j|ade-byte|
|00000460| 2d 63 6f 64 65 20 22 10 | 11 08 09 48 12 49 b2 09 |-code ".|...H.I..|
|00000470| 55 22 20 5b 67 6f 74 6f | 2d 63 68 61 72 20 6c 69 |U" [goto|-char li|
|00000480| 73 70 2d 62 61 63 6b 77 | 61 72 64 2d 73 65 78 70 |sp-backw|ard-sexp|
|00000490| 20 72 65 61 64 5d 20 32 | 29 29 0a 0a 28 64 65 66 | read] 2|))..(def|
|000004a0| 75 6e 20 65 76 61 6c 2d | 69 6e 73 65 72 74 2d 73 |un eval-|insert-s|
|000004b0| 65 78 70 20 6e 69 6c 20 | 38 33 38 39 30 20 28 69 |exp nil |83890 (i|
|000004c0| 6e 74 65 72 61 63 74 69 | 76 65 29 20 28 6a 61 64 |nteracti|ve) (jad|
|000004d0| 65 2d 62 79 74 65 2d 63 | 6f 64 65 20 22 10 49 b2 |e-byte-c|ode ".I.|
|000004e0| 11 12 08 0b 22 20 5b 66 | 6f 72 6d 61 74 20 22 0a |...." [f|ormat ".|
|000004f0| 25 53 0a 22 20 65 76 61 | 6c 2d 73 65 78 70 5d 20 |%S." eva|l-sexp] |
|00000500| 34 29 29 0a 0a 28 64 65 | 66 75 6e 20 65 76 61 6c |4))..(de|fun eval|
|00000510| 2d 70 72 69 6e 74 2d 73 | 65 78 70 20 6e 69 6c 20 |-print-s|exp nil |
|00000520| 38 33 39 37 39 20 28 69 | 6e 74 65 72 61 63 74 69 |83979 (i|nteracti|
|00000530| 76 65 29 20 28 6a 61 64 | 65 2d 62 79 74 65 2d 63 |ve) (jad|e-byte-c|
|00000540| 6f 64 65 20 22 10 11 08 | 4a 0a 22 20 5b 70 72 69 |ode "...|J." [pri|
|00000550| 6e 31 20 65 76 61 6c 2d | 73 65 78 70 5d 20 33 29 |n1 eval-|sexp] 3)|
|00000560| 29 0a 0a 28 64 65 66 75 | 6e 20 6c 69 73 70 2d 69 |)..(defu|n lisp-i|
|00000570| 6e 64 65 6e 74 2d 6c 69 | 6e 65 20 28 26 6f 70 74 |ndent-li|ne (&opt|
|00000580| 69 6f 6e 61 6c 20 70 6f | 73 29 20 28 6a 61 64 65 |ional po|s) (jade|
|00000590| 2d 62 79 74 65 2d 63 6f | 64 65 20 22 18 ff 00 08 |-byte-co|de "....|
|000005a0| 11 08 46 20 48 12 13 18 | 09 09 22 20 5b 70 6f 73 |..F H...|.." [pos|
|000005b0| 20 63 75 72 73 6f 72 2d | 70 6f 73 20 73 65 74 2d | cursor-|pos set-|
|000005c0| 69 6e 64 65 6e 74 2d 70 | 6f 73 20 6c 69 73 70 2d |indent-p|os lisp-|
|000005d0| 69 6e 64 65 6e 74 2d 70 | 6f 73 5d 20 33 29 29 0a |indent-p|os] 3)).|
|000005e0| 0a 28 64 65 66 75 6e 20 | 6c 69 73 70 2d 69 6e 73 |.(defun |lisp-ins|
|000005f0| 65 72 74 2d 63 6f 6d 6d | 65 6e 74 20 6e 69 6c 20 |ert-comm|ent nil |
|00000600| 28 69 6e 74 65 72 61 63 | 74 69 76 65 29 20 28 6a |(interac|tive) (j|
|00000610| 61 64 65 2d 62 79 74 65 | 2d 63 6f 64 65 20 22 10 |ade-byte|-code ".|
|00000620| 08 48 11 12 09 22 20 5b | 66 69 6e 64 2d 63 6f 6d |.H..." [|find-com|
|00000630| 6d 65 6e 74 2d 70 6f 73 | 20 69 6e 73 65 72 74 20 |ment-pos| insert |
|00000640| 22 3b 22 5d 20 32 29 29 | 0a 0a 28 64 65 66 75 6e |";"] 2))|..(defun|
|00000650| 20 6c 69 73 70 2d 66 6f | 72 77 61 72 64 2d 73 65 | lisp-fo|rward-se|
|00000660| 78 70 20 28 26 6f 70 74 | 69 6f 6e 61 6c 20 6e 75 |xp (&opt|ional nu|
|00000670| 6d 62 65 72 20 70 6f 73 | 29 20 38 34 30 37 32 20 |mber pos|) 84072 |
|00000680| 28 6a 61 64 65 2d 62 79 | 74 65 2d 63 6f 64 65 20 |(jade-by|te-code |
|00000690| 22 18 ff 00 07 11 46 20 | 48 18 12 64 fe 01 07 13 |".....F |H..d....|
|000006a0| 14 1d 0a fe 00 31 16 06 | 11 16 07 1d 09 0a 46 25 |.....1..|......F%|
|000006b0| 48 1d 16 08 08 64 fe 00 | 2d 16 09 16 0a 09 48 fb |H....d..|-.....H.|
|000006c0| 00 0e 48 13 16 0b 1d 0a | fe 00 3f 16 0c 08 46 25 |..H.....|..?...F%|
|000006d0| 48 44 16 0d 1d 09 36 0e | 1e 0e 16 0f 62 fc 00 9a |HD....6.|....b...|
|000006e0| 16 10 16 0f 16 11 11 1d | 0a 0a 46 25 fc 00 8a 16 |........|..F%....|
|000006f0| 0d 16 12 11 16 13 1d 09 | 0a 09 16 14 62 fe 00 87 |........|....b...|
|00000700| 16 10 16 0f 16 11 11 1d | 0a 0a 46 25 ff 00 83 16 |........|..F%....|
|00000710| 09 16 15 09 48 fb 00 5e | fb 00 8f 16 09 16 15 09 |....H..^|........|
|00000720| 48 16 11 11 1d 0a 46 25 | fb 00 fd 1e 0e 16 16 88 |H.....F%|........|
|00000730| fc 00 bb 16 17 1d 09 46 | 25 ff 00 b0 16 09 16 18 |.......F|%.......|
|00000740| 09 48 16 11 11 1d 0a 46 | 25 fb 00 fd 1e 0e 16 19 |.H.....F|%.......|
|00000750| 88 fc 00 d0 18 68 20 16 | 11 11 1d 0a 46 25 fb 00 |.....h .|....F%..|
|00000760| fd 1e 0e 16 1a 88 fc 00 | e0 16 09 16 1b 09 fb 00 |........|........|
|00000770| fd 4a fc 00 fc 13 16 1c | 1d 0a fc 00 f4 16 0c 08 |.J......|........|
|00000780| 46 25 fb 00 f9 16 09 16 | 1d 09 fb 00 fd 49 45 48 |F%......|.....IEH|
|00000790| 18 69 46 20 48 fb 00 08 | 48 1d 22 20 5b 6e 75 6d |.iF H...|H." [num|
|000007a0| 62 65 72 20 31 20 30 20 | 6c 6f 6f 6b 69 6e 67 2d |ber 1 0 |looking-|
|000007b0| 61 74 20 22 5b 09 0c 20 | 5d 2a 24 7c 5b 09 0c 20 |at "[.. |]*$|[.. |
|000007c0| 5d 2a 3b 2e 2a 24 22 20 | 70 6f 73 20 6e 65 78 74 |]*;.*$" |pos next|
|000007d0| 2d 6c 69 6e 65 20 6c 69 | 6e 65 2d 73 74 61 72 74 |-line li|ne-start|
|000007e0| 20 62 75 66 66 65 72 2d | 65 6e 64 20 65 72 72 6f | buffer-|end erro|
|000007f0| 72 20 22 45 6e 64 20 6f | 66 20 62 75 66 66 65 72 |r "End o|f buffer|
|00000800| 22 20 22 5b 09 0c 20 5d | 2b 22 20 6d 61 74 63 68 |" "[.. ]|+" match|
|00000810| 2d 65 6e 64 20 67 65 74 | 2d 63 68 61 72 20 63 20 |-end get|-char c |
|00000820| 33 34 20 66 69 6e 64 2d | 6e 65 78 74 2d 63 68 61 |34 find-|next-cha|
|00000830| 72 20 6e 65 78 74 2d 63 | 68 61 72 20 70 72 65 76 |r next-c|har prev|
|00000840| 2d 63 68 61 72 20 63 6f | 70 79 2d 70 6f 73 20 39 |-char co|py-pos 9|
|00000850| 32 20 22 53 74 72 69 6e | 67 20 64 6f 65 73 6e 27 |2 "Strin|g doesn'|
|00000860| 74 20 65 6e 64 21 22 20 | 28 34 30 20 39 31 20 36 |t end!" |(40 91 6|
|00000870| 30 29 20 6d 61 74 63 68 | 2d 62 72 61 63 6b 65 74 |0) match|-bracket|
|00000880| 73 20 22 45 78 70 72 65 | 73 73 69 6f 6e 20 64 6f |s "Expre|ssion do|
|00000890| 65 73 6e 27 74 20 65 6e | 64 21 22 20 28 33 39 20 |esn't en|d!" (39 |
|000008a0| 33 35 29 20 28 34 31 20 | 39 33 29 20 22 45 6e 64 |35) (41 |93) "End|
|000008b0| 20 6f 66 20 63 6f 6e 74 | 61 69 6e 69 6e 67 20 73 | of cont|aining s|
|000008c0| 65 78 70 22 20 22 5b 5e | 5d 5b 09 0c 20 28 29 27 |exp" "[^|][.. ()'|
|000008d0| 5c 22 3b 5d 2b 22 20 22 | 43 61 6e 27 74 20 66 69 |\";]+" "|Can't fi|
|000008e0| 6e 64 20 65 6e 64 20 6f | 66 20 73 79 6d 62 6f 6c |nd end o|f symbol|
|000008f0| 22 5d 20 35 29 29 0a 0a | 28 64 65 66 75 6e 20 6c |"] 5))..|(defun l|
|00000900| 69 73 70 2d 62 61 63 6b | 77 61 72 64 2d 73 65 78 |isp-back|ward-sex|
|00000910| 70 20 28 26 6f 70 74 69 | 6f 6e 61 6c 20 6e 75 6d |p (&opti|onal num|
|00000920| 62 65 72 20 6f 72 69 67 | 2d 70 6f 73 29 20 38 34 |ber orig|-pos) 84|
|00000930| 31 33 37 20 28 6a 61 64 | 65 2d 62 79 74 65 2d 63 |137 (jad|e-byte-c|
|00000940| 6f 64 65 20 22 18 ff 00 | 07 11 46 20 48 1a ff 00 |ode "...|..F H...|
|00000950| 10 13 08 46 5c 22 48 44 | 14 1a 09 35 18 16 06 64 |...F\"HD|...5...d|
|00000960| fe 01 58 16 07 16 08 16 | 09 11 1d 0a 0a 46 25 ff |..X.....|.....F%.|
|00000970| 00 31 16 0a 16 0b 09 48 | 16 0c 16 0d 1d 0a fe 00 |.1.....H|........|
|00000980| 55 16 0e 11 1d 0a 46 25 | ff 00 4a 16 0a 16 0f 09 |U.....F%|..J.....|
|00000990| 48 16 10 1d 09 46 25 48 | fb 00 32 48 16 11 1a 09 |H....F%H|..2H....|
|000009a0| 16 11 1d 09 63 fc 00 6b | 16 0c 16 12 1d 0a fb 00 |....c..k|........|
|000009b0| 71 16 0c 16 13 1d 0a fe | 00 7d 16 09 11 16 14 08 |q.......|.}......|
|000009c0| 0a 46 25 48 44 16 15 1d | 09 36 16 1e 16 16 17 88 |.F%HD...|.6......|
|000009d0| fc 00 ac 16 18 1d 09 46 | 25 ff 00 9b 16 0a 16 19 |.......F|%.......|
|000009e0| 09 48 1e 16 16 1a 62 fe | 00 a9 16 09 11 1d 0a fb |.H....b.|........|
|000009f0| 01 1e 1e 16 16 1b 62 fc | 00 f6 16 1c 16 1b 16 09 |......b.|........|
|00000a00| 11 1d 0a 0a 46 25 fc 00 | ee 16 15 16 09 11 14 1d |....F%..|........|
|00000a10| 09 0a 09 16 1d 62 fe 00 | eb 16 1c 16 1b 16 09 11 |.....b..|........|
|00000a20| 1d 0a 0a 46 25 ff 00 e7 | 16 0a 16 1e 09 48 fb 00 |...F%...|.....H..|
|00000a30| c3 fb 00 f3 16 0a 16 1e | 09 fb 01 1e 1e 16 16 1f |........|........|
|00000a40| 88 fc 01 06 16 0a 16 20 | 09 fb 01 1e 4a fc 01 1d |....... |....J...|
|00000a50| 16 07 16 21 1d 0a 46 25 | ff 01 1a 16 0a 16 5c 22 |...!..F%|......\"|
|00000a60| 09 fb 01 1e 49 48 16 15 | 16 09 11 14 1d 09 0a 09 |....IH..|........|
|00000a70| 16 23 62 fe 01 4e 16 09 | 11 1d 0a 46 25 48 16 15 |.#b..N..|...F%H..|
|00000a80| 16 09 11 14 1d 09 0a 09 | 16 24 62 fe 01 4e 16 09 |........|.$b..N..|
|00000a90| 11 1d 0a 46 25 45 48 18 | 69 46 20 48 fb 00 16 48 |...F%EH.|iF H...H|
|00000aa0| 1d 45 22 20 5b 6e 75 6d | 62 65 72 20 31 20 6f 72 |.E" [num|ber 1 or|
|00000ab0| 69 67 2d 70 6f 73 20 63 | 75 72 73 6f 72 2d 70 6f |ig-pos c|ursor-po|
|00000ac0| 73 20 63 6f 70 79 2d 70 | 6f 73 20 70 6f 73 20 30 |s copy-p|os pos 0|
|00000ad0| 20 66 69 6e 64 2d 70 72 | 65 76 2d 72 65 67 65 78 | find-pr|ev-regex|
|00000ae0| 70 20 22 5b 5e 09 0c 20 | 5d 22 20 70 72 65 76 2d |p "[^.. |]" prev-|
|00000af0| 63 68 61 72 20 65 72 72 | 6f 72 20 22 4e 6f 20 65 |char err|or "No e|
|00000b00| 78 70 72 65 73 73 69 6f | 6e 21 22 20 72 65 67 65 |xpressio|n!" rege|
|00000b10| 78 70 2d 6d 61 74 63 68 | 2d 6c 69 6e 65 20 22 5e |xp-match|-line "^|
|00000b20| 5b 0c 09 20 5d 2a 3b 7c | 5e 5b 0c 09 20 5d 2a 24 |[.. ]*;||^[.. ]*$|
|00000b30| 22 20 70 72 65 76 2d 6c | 69 6e 65 20 22 42 65 67 |" prev-l|ine "Beg|
|00000b40| 69 6e 6e 69 6e 67 20 6f | 66 20 62 75 66 66 65 72 |inning o|f buffer|
|00000b50| 22 20 6c 69 6e 65 2d 65 | 6e 64 20 70 6f 73 2d 6c |" line-e|nd pos-l|
|00000b60| 69 6e 65 20 22 5b 0c 09 | 20 5d 2b 3b 7c 5b 0c 09 |ine "[..| ]+;|[..|
|00000b70| 20 5d 2a 24 22 20 22 5b | 0c 09 20 5d 2b 3b 22 20 | ]*$" "[|.. ]+;" |
|00000b80| 6d 61 74 63 68 2d 73 74 | 61 72 74 20 67 65 74 2d |match-st|art get-|
|00000b90| 63 68 61 72 20 63 20 28 | 34 31 20 39 33 20 36 32 |char c (|41 93 62|
|00000ba0| 29 20 6d 61 74 63 68 2d | 62 72 61 63 6b 65 74 73 |) match-|brackets|
|00000bb0| 20 22 42 72 61 63 6b 65 | 74 73 20 64 6f 6e 27 74 | "Bracke|ts don't|
|00000bc0| 20 6d 61 74 63 68 22 20 | 36 32 20 33 34 20 66 69 | match" |62 34 fi|
|00000bd0| 6e 64 2d 70 72 65 76 2d | 63 68 61 72 20 39 32 20 |nd-prev-|char 92 |
|00000be0| 22 53 74 72 69 6e 67 20 | 64 6f 65 73 6e 27 74 20 |"String |doesn't |
|00000bf0| 73 74 61 72 74 21 22 20 | 28 34 30 20 39 31 29 20 |start!" |(40 91) |
|00000c00| 22 53 74 61 72 74 20 6f | 66 20 63 6f 6e 74 61 69 |"Start o|f contai|
|00000c10| 6e 69 6e 67 20 73 65 78 | 70 22 20 22 5b 5e 5d 5b |ning sex|p" "[^][|
|00000c20| 0c 09 20 28 29 27 5c 22 | 5d 2b 7c 5e 22 20 22 53 |.. ()'\"|]+|^" "S|
|00000c30| 79 6d 62 6f 6c 20 64 6f | 65 73 6e 27 74 20 73 74 |ymbol do|esn't st|
|00000c40| 61 72 74 3f 3f 22 20 33 | 39 20 33 35 5d 20 35 29 |art??" 3|9 35] 5)|
|00000c50| 29 0a 0a 28 64 65 66 76 | 61 72 20 6c 69 73 70 2d |)..(defv|ar lisp-|
|00000c60| 62 6f 64 79 2d 69 6e 64 | 65 6e 74 20 32 20 38 34 |body-ind|ent 2 84|
|00000c70| 32 31 31 29 0a 0a 28 64 | 65 66 75 6e 20 6c 69 73 |211)..(d|efun lis|
|00000c80| 70 2d 69 6e 64 65 6e 74 | 2d 70 6f 73 20 28 26 6f |p-indent|-pos (&o|
|00000c90| 70 74 69 6f 6e 61 6c 20 | 6c 69 6e 65 2d 70 6f 73 |ptional |line-pos|
|00000ca0| 29 20 38 34 32 35 35 20 | 28 6a 61 64 65 2d 62 79 |) 84255 |(jade-by|
|00000cb0| 74 65 2d 63 6f 64 65 20 | 22 18 ff 00 08 11 08 46 |te-code |"......F|
|00000cc0| 20 48 44 12 18 09 33 14 | 35 16 06 1b 09 36 07 49 | HD...3.|5....6.I|
|00000cd0| 36 08 16 09 08 36 0a 49 | 36 0b 16 0c 16 0d 1b 0a |6....6.I|6.......|
|00000ce0| fc 00 42 16 0e 1e 07 16 | 0c 16 0f 1b 0a fc 00 3b |..B.....|.......;|
|00000cf0| 14 fb 00 3e 1e 10 69 0a | fb 01 63 16 11 16 12 16 |...>..i.|..c.....|
|00000d00| 13 7c 48 1d 6b ff 01 63 | 1e 08 fc 00 7c 16 14 1b |.|H.k..c|....|...|
|00000d10| 09 16 14 1e 08 4c 09 62 | fe 00 68 1e 08 54 16 13 |.....L.b|..h..T..|
|00000d20| 65 fc 00 73 16 15 1e 08 | 50 fb 00 76 1e 08 4c 46 |e..s....|P..v..LF|
|00000d30| 26 08 fb 00 83 16 06 1b | 09 46 26 08 48 16 0e 1e |&.......|.F&.H...|
|00000d40| 07 16 16 16 17 16 18 16 | 19 1b 0a ff 00 96 1b 09 |........|........|
|00000d50| 09 0a 48 16 06 1b 09 26 | 0a 16 1a 49 b2 1e 0a 4b |..H....&|...I...K|
|00000d60| 09 46 26 0b 48 1e 0b 79 | fe 01 63 44 1e 0b 16 1b |.F&.H..y|..cD....|
|00000d70| 7a 36 1c 1e 1c 6c fc 01 | 0d 16 14 18 09 16 14 1b |z6...l..|........|
|00000d80| 09 58 16 15 62 fc 01 00 | 1d 16 13 66 fc 00 e5 16 |.X..b...|...f....|
|00000d90| 0e 1e 07 16 16 16 17 1b | 09 09 0a fb 00 fd 16 0c |........|........|
|00000da0| 16 1d 1e 0a 0a fe 00 fd | 16 0e 1e 07 16 16 16 17 |........|........|
|00000db0| 16 1e 08 09 09 0a fb 01 | 0a 16 0e 1e 07 16 16 1e |........|........|
|00000dc0| 08 09 0a fb 01 62 1e 1c | 16 1f 61 fc 01 42 1d 16 |.....b..|..a..B..|
|00000dd0| 13 62 ff 01 28 16 14 18 | 09 16 14 1b 09 58 16 15 |.b..(...|.....X..|
|00000de0| 62 fc 01 35 16 20 1e 21 | 1e 07 0a fb 01 3f 16 0e |b..5. .!|.....?..|
|00000df0| 1e 07 16 16 1e 08 09 0a | fb 01 62 1e 1c 70 fc 01 |........|..b..p..|
|00000e00| 61 16 20 1d 1e 1c 67 fc | 01 59 16 13 1e 21 59 fb |a. ...g.|.Y...!Y.|
|00000e10| 01 5b 1e 21 1e 07 0a fb | 01 62 49 45 48 1e 07 45 |.[.!....|.bIEH..E|
|00000e20| 22 20 5b 6c 69 6e 65 2d | 70 6f 73 20 63 75 72 73 |" [line-|pos curs|
|00000e30| 6f 72 2d 70 6f 73 20 6c | 69 6e 65 2d 73 74 61 72 |or-pos l|ine-star|
|00000e40| 74 20 70 6f 73 20 30 20 | 69 6e 64 65 78 20 63 6f |t pos 0 |index co|
|00000e50| 70 79 2d 70 6f 73 20 73 | 65 78 70 2d 69 6e 64 20 |py-pos s|exp-ind |
|00000e60| 6c 61 73 74 2d 69 6e 64 | 20 62 75 66 66 65 72 2d |last-ind| buffer-|
|00000e70| 65 6e 64 20 66 6f 72 6d | 2d 70 6f 73 20 66 6f 72 |end form|-pos for|
|00000e80| 6d 20 6c 6f 6f 6b 69 6e | 67 2d 61 74 20 22 5e 5b |m lookin|g-at "^[|
|00000e90| 09 0c 20 5d 2a 28 3b 3b | 3b 7c 3b 5b 5e 3b 5d 29 |.. ]*(;;|;|;[^;])|
|00000ea0| 22 20 73 65 74 2d 70 6f | 73 2d 63 6f 6c 20 22 5e |" set-po|s-col "^|
|00000eb0| 5b 09 0c 20 5d 2a 3b 3b | 3b 22 20 63 6f 6d 6d 65 |[.. ]*;;|;" comme|
|00000ec0| 6e 74 2d 63 6f 6c 75 6d | 6e 20 28 6a 61 64 65 2d |nt-colum|n (jade-|
|00000ed0| 62 79 74 65 2d 63 6f 64 | 65 20 22 10 11 1a 0a 46 |byte-cod|e "....F|
|00000ee0| 5c 22 fe 00 52 1b 1a 67 | fe 00 12 14 15 09 48 16 |\"..R..g|......H.|
|00000ef0| 06 1a 09 6b fe 00 26 16 | 07 1e 08 16 09 0a 48 1e |...k..&.|......H.|
|00000f00| 08 7e 48 1a 23 1e 0a 68 | 46 26 0a 48 1e 0b 6c ff |.~H.#..h|F&.H..l.|
|00000f10| 00 41 16 0c 1e 0b 4c 09 | 16 0c 1a 09 62 fe 00 4e |.A....L.|....b..N|
|00000f20| 16 0d 1a 09 1e 0b 4b 46 | 26 0b 48 fb 00 00 22 20 |......KF|&.H..." |
|00000f30| 5b 6c 69 73 70 2d 62 61 | 63 6b 77 61 72 64 2d 73 |[lisp-ba|ckward-s|
|00000f40| 65 78 70 20 31 20 70 6f | 73 20 66 6f 72 6d 2d 70 |exp 1 po|s form-p|
|00000f50| 6f 73 20 65 72 72 6f 72 | 20 22 49 6e 66 69 6e 69 |os error| "Infini|
|00000f60| 74 65 20 6c 6f 6f 70 22 | 20 70 6f 73 2d 63 6f 6c |te loop"| pos-col|
|00000f70| 20 73 65 74 2d 70 6f 73 | 2d 63 6f 6c 20 73 65 78 | set-pos|-col sex|
|00000f80| 70 2d 69 6e 64 20 30 20 | 69 6e 64 65 78 20 6c 61 |p-ind 0 |index la|
|00000f90| 73 74 2d 69 6e 64 20 70 | 6f 73 2d 6c 69 6e 65 20 |st-ind p|os-line |
|00000fa0| 63 68 61 72 2d 74 6f 2d | 67 6c 79 70 68 2d 70 6f |char-to-|glyph-po|
|00000fb0| 73 5d 20 33 29 20 28 65 | 72 72 6f 72 20 28 6a 61 |s] 3) (e|rror (ja|
|00000fc0| 64 65 2d 62 79 74 65 2d | 63 6f 64 65 20 22 49 22 |de-byte-|code "I"|
|00000fd0| 20 5b 5d 20 31 29 29 20 | 32 20 70 6f 73 2d 6c 69 | [] 1)) |2 pos-li|
|00000fe0| 6e 65 20 31 20 70 6f 73 | 2d 63 6f 6c 20 63 68 61 |ne 1 pos|-col cha|
|00000ff0| 72 2d 74 6f 2d 67 6c 79 | 70 68 2d 70 6f 73 20 66 |r-to-gly|ph-pos f|
|00001000| 69 6e 64 2d 70 72 65 76 | 2d 72 65 67 65 78 70 20 |ind-prev|-regexp |
|00001010| 22 5b 28 5b 5d 22 20 72 | 65 61 64 20 6c 69 73 70 |"[([]" r|ead lisp|
|00001020| 2d 69 6e 64 65 6e 74 20 | 74 79 70 65 20 22 5b 09 |-indent |type "[.|
|00001030| 0c 20 5d 2a 22 20 6d 61 | 74 63 68 2d 65 6e 64 20 |. ]*" ma|tch-end |
|00001040| 64 65 66 75 6e 20 72 69 | 67 68 74 2d 63 68 61 72 |defun ri|ght-char|
|00001050| 20 6c 69 73 70 2d 62 6f | 64 79 2d 69 6e 64 65 6e | lisp-bo|dy-inden|
|00001060| 74 5d 20 38 29 29 0a 0a | 28 70 75 74 20 28 71 75 |t] 8))..|(put (qu|
|00001070| 6f 74 65 20 6c 65 74 29 | 20 28 71 75 6f 74 65 20 |ote let)| (quote |
|00001080| 6c 69 73 70 2d 69 6e 64 | 65 6e 74 29 20 31 29 0a |lisp-ind|ent) 1).|
|00001090| 0a 28 70 75 74 20 28 71 | 75 6f 74 65 20 6c 65 74 |.(put (q|uote let|
|000010a0| 2a 29 20 28 71 75 6f 74 | 65 20 6c 69 73 70 2d 69 |*) (quot|e lisp-i|
|000010b0| 6e 64 65 6e 74 29 20 31 | 29 0a 0a 28 70 75 74 20 |ndent) 1|)..(put |
|000010c0| 28 71 75 6f 74 65 20 69 | 66 29 20 28 71 75 6f 74 |(quote i|f) (quot|
|000010d0| 65 20 6c 69 73 70 2d 69 | 6e 64 65 6e 74 29 20 32 |e lisp-i|ndent) 2|
|000010e0| 29 0a 0a 28 70 75 74 20 | 28 71 75 6f 74 65 20 77 |)..(put |(quote w|
|000010f0| 68 65 6e 29 20 28 71 75 | 6f 74 65 20 6c 69 73 70 |hen) (qu|ote lisp|
|00001100| 2d 69 6e 64 65 6e 74 29 | 20 31 29 0a 0a 28 70 75 |-indent)| 1)..(pu|
|00001110| 74 20 28 71 75 6f 74 65 | 20 75 6e 6c 65 73 73 29 |t (quote| unless)|
|00001120| 20 28 71 75 6f 74 65 20 | 6c 69 73 70 2d 69 6e 64 | (quote |lisp-ind|
|00001130| 65 6e 74 29 20 31 29 0a | 0a 28 70 75 74 20 28 71 |ent) 1).|.(put (q|
|00001140| 75 6f 74 65 20 77 68 69 | 6c 65 29 20 28 71 75 6f |uote whi|le) (quo|
|00001150| 74 65 20 6c 69 73 70 2d | 69 6e 64 65 6e 74 29 20 |te lisp-|indent) |
|00001160| 31 29 0a 0a 28 70 75 74 | 20 28 71 75 6f 74 65 20 |1)..(put| (quote |
|00001170| 6c 61 6d 62 64 61 29 20 | 28 71 75 6f 74 65 20 6c |lambda) |(quote l|
|00001180| 69 73 70 2d 69 6e 64 65 | 6e 74 29 20 28 71 75 6f |isp-inde|nt) (quo|
|00001190| 74 65 20 64 65 66 75 6e | 29 29 0a 0a 28 70 75 74 |te defun|))..(put|
|000011a0| 20 28 71 75 6f 74 65 20 | 64 65 66 75 6e 29 20 28 | (quote |defun) (|
|000011b0| 71 75 6f 74 65 20 6c 69 | 73 70 2d 69 6e 64 65 6e |quote li|sp-inden|
|000011c0| 74 29 20 28 71 75 6f 74 | 65 20 64 65 66 75 6e 29 |t) (quot|e defun)|
|000011d0| 29 0a 0a 28 70 75 74 20 | 28 71 75 6f 74 65 20 64 |)..(put |(quote d|
|000011e0| 65 66 6d 61 63 72 6f 29 | 20 28 71 75 6f 74 65 20 |efmacro)| (quote |
|000011f0| 6c 69 73 70 2d 69 6e 64 | 65 6e 74 29 20 28 71 75 |lisp-ind|ent) (qu|
|00001200| 6f 74 65 20 64 65 66 75 | 6e 29 29 0a 0a 28 70 75 |ote defu|n))..(pu|
|00001210| 74 20 28 71 75 6f 74 65 | 20 64 65 66 76 61 72 29 |t (quote| defvar)|
|00001220| 20 28 71 75 6f 74 65 20 | 6c 69 73 70 2d 69 6e 64 | (quote |lisp-ind|
|00001230| 65 6e 74 29 20 28 71 75 | 6f 74 65 20 64 65 66 75 |ent) (qu|ote defu|
|00001240| 6e 29 29 0a 0a 28 70 75 | 74 20 28 71 75 6f 74 65 |n))..(pu|t (quote|
|00001250| 20 64 65 66 63 6f 6e 73 | 74 29 20 28 71 75 6f 74 | defcons|t) (quot|
|00001260| 65 20 6c 69 73 70 2d 69 | 6e 64 65 6e 74 29 20 28 |e lisp-i|ndent) (|
|00001270| 71 75 6f 74 65 20 64 65 | 66 75 6e 29 29 0a 0a 28 |quote de|fun))..(|
|00001280| 70 75 74 20 28 71 75 6f | 74 65 20 70 72 6f 67 6e |put (quo|te progn|
|00001290| 29 20 28 71 75 6f 74 65 | 20 6c 69 73 70 2d 69 6e |) (quote| lisp-in|
|000012a0| 64 65 6e 74 29 20 30 29 | 0a 0a 28 70 75 74 20 28 |dent) 0)|..(put (|
|000012b0| 71 75 6f 74 65 20 70 72 | 6f 67 31 29 20 28 71 75 |quote pr|og1) (qu|
|000012c0| 6f 74 65 20 6c 69 73 70 | 2d 69 6e 64 65 6e 74 29 |ote lisp|-indent)|
|000012d0| 20 31 29 0a 0a 28 70 75 | 74 20 28 71 75 6f 74 65 | 1)..(pu|t (quote|
|000012e0| 20 70 72 6f 67 32 29 20 | 28 71 75 6f 74 65 20 6c | prog2) |(quote l|
|000012f0| 69 73 70 2d 69 6e 64 65 | 6e 74 29 20 32 29 0a 0a |isp-inde|nt) 2)..|
|00001300| 28 70 75 74 20 28 71 75 | 6f 74 65 20 75 6e 77 69 |(put (qu|ote unwi|
|00001310| 6e 64 2d 70 72 6f 74 65 | 63 74 29 20 28 71 75 6f |nd-prote|ct) (quo|
|00001320| 74 65 20 6c 69 73 70 2d | 69 6e 64 65 6e 74 29 20 |te lisp-|indent) |
|00001330| 31 29 0a 0a 28 70 75 74 | 20 28 71 75 6f 74 65 20 |1)..(put| (quote |
|00001340| 65 72 72 6f 72 2d 70 72 | 6f 74 65 63 74 29 20 28 |error-pr|otect) (|
|00001350| 71 75 6f 74 65 20 6c 69 | 73 70 2d 69 6e 64 65 6e |quote li|sp-inden|
|00001360| 74 29 20 31 29 0a 0a 28 | 70 75 74 20 28 71 75 6f |t) 1)..(|put (quo|
|00001370| 74 65 20 77 69 74 68 2d | 62 75 66 66 65 72 29 20 |te with-|buffer) |
|00001380| 28 71 75 6f 74 65 20 6c | 69 73 70 2d 69 6e 64 65 |(quote l|isp-inde|
|00001390| 6e 74 29 20 31 29 0a 0a | 28 70 75 74 20 28 71 75 |nt) 1)..|(put (qu|
|000013a0| 6f 74 65 20 77 69 74 68 | 2d 77 69 6e 64 6f 77 29 |ote with|-window)|
|000013b0| 20 28 71 75 6f 74 65 20 | 6c 69 73 70 2d 69 6e 64 | (quote |lisp-ind|
|000013c0| 65 6e 74 29 20 31 29 0a | 0a 28 70 75 74 20 28 71 |ent) 1).|.(put (q|
|000013d0| 75 6f 74 65 20 63 61 74 | 63 68 29 20 28 71 75 6f |uote cat|ch) (quo|
|000013e0| 74 65 20 6c 69 73 70 2d | 69 6e 64 65 6e 74 29 20 |te lisp-|indent) |
|000013f0| 31 29 0a 0a 28 70 75 74 | 20 28 71 75 6f 74 65 20 |1)..(put| (quote |
|00001400| 62 69 6e 64 2d 6b 65 79 | 73 29 20 28 71 75 6f 74 |bind-key|s) (quot|
|00001410| 65 20 6c 69 73 70 2d 69 | 6e 64 65 6e 74 29 20 31 |e lisp-i|ndent) 1|
|00001420| 29 0a 0a 28 70 75 74 20 | 28 71 75 6f 74 65 20 75 |)..(put |(quote u|
|00001430| 6e 62 69 6e 64 2d 6b 65 | 79 73 29 20 28 71 75 6f |nbind-ke|ys) (quo|
|00001440| 74 65 20 6c 69 73 70 2d | 69 6e 64 65 6e 74 29 20 |te lisp-|indent) |
|00001450| 31 29 0a                |                         |1).     |        |
+--------+-------------------------+-------------------------+--------+--------+