/ Gold Fish 3 / goldfish_volume_3.bin / files / util / edit / jade / lisp / replace.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 72 65 |jade/3.2|/lisp/re|
|00000030| 70 6c 61 63 65 2e 6a 6c | 0a 3b 3b 3b 20 43 6f 6d |place.jl|.;;; Com|
|00000040| 70 69 6c 65 64 20 62 79 | 20 6a 73 68 40 6f 72 63 |piled by| jsh@orc|
|00000050| 72 69 73 74 20 6f 6e 20 | 53 75 6e 20 4f 63 74 20 |rist on |Sun Oct |
|00000060| 31 36 20 32 30 3a 32 30 | 3a 35 32 20 31 39 39 34 |16 20:20|:52 1994|
|00000070| 0a 3b 3b 3b 20 4a 61 64 | 65 20 33 2e 32 0a 0a 28 |.;;; Jad|e 3.2..(|
|00000080| 70 72 6f 76 69 64 65 20 | 28 71 75 6f 74 65 20 72 |provide |(quote r|
|00000090| 65 70 6c 61 63 65 29 29 | 0a 0a 28 64 65 66 76 61 |eplace))|..(defva|
|000000a0| 72 20 63 61 73 65 2d 66 | 6f 6c 64 2d 73 65 61 72 |r case-f|old-sear|
|000000b0| 63 68 20 74 29 0a 0a 28 | 6d 61 6b 65 2d 76 61 72 |ch t)..(|make-var|
|000000c0| 69 61 62 6c 65 2d 62 75 | 66 66 65 72 2d 6c 6f 63 |iable-bu|ffer-loc|
|000000d0| 61 6c 20 28 71 75 6f 74 | 65 20 63 61 73 65 2d 66 |al (quot|e case-f|
|000000e0| 6f 6c 64 2d 73 65 61 72 | 63 68 29 29 0a 0a 28 64 |old-sear|ch))..(d|
|000000f0| 65 66 75 6e 20 72 65 70 | 6c 61 63 65 2d 61 6c 6c |efun rep|lace-all|
|00000100| 20 28 66 72 6f 6d 20 74 | 65 6d 70 6c 61 74 65 29 | (from t|emplate)|
|00000110| 20 37 36 31 31 37 20 28 | 69 6e 74 65 72 61 63 74 | 76117 (|interact|
|00000120| 69 76 65 20 22 73 52 65 | 70 6c 61 63 65 20 72 65 |ive "sRe|place re|
|00000130| 67 65 78 70 3a 0a 73 52 | 65 70 6c 61 63 65 20 72 |gexp:.sR|eplace r|
|00000140| 65 67 65 78 70 20 25 73 | 20 77 69 74 68 3a 22 29 |egexp %s| with:")|
|00000150| 20 28 6a 61 64 65 2d 62 | 79 74 65 2d 63 6f 64 65 | (jade-b|yte-code|
|00000160| 20 22 44 49 30 11 08 48 | 12 1b 49 49 1c 0c 46 20 | "DI0..H|..II..F |
|00000170| fe 00 20 15 16 06 1b 1e | 07 18 49 1c 0d 09 48 fb |.. .....|..I...H.|
|00000180| 00 06 45 22 20 5b 6d 61 | 74 63 68 20 67 6f 74 6f |..E" [ma|tch goto|
|00000190| 2d 62 75 66 66 65 72 2d | 73 74 61 72 74 20 66 69 |-buffer-|start fi|
|000001a0| 6e 64 2d 6e 65 78 74 2d | 72 65 67 65 78 70 20 66 |nd-next-|regexp f|
|000001b0| 72 6f 6d 20 63 61 73 65 | 2d 66 6f 6c 64 2d 73 65 |rom case|-fold-se|
|000001c0| 61 72 63 68 20 67 6f 74 | 6f 2d 63 68 61 72 20 72 |arch got|o-char r|
|000001d0| 65 70 6c 61 63 65 2d 72 | 65 67 65 78 70 20 74 65 |eplace-r|egexp te|
|000001e0| 6d 70 6c 61 74 65 5d 20 | 37 29 29 0a 0a 28 64 65 |mplate] |7))..(de|
|000001f0| 66 76 61 72 20 71 75 65 | 72 79 2d 72 65 70 6c 61 |fvar que|ry-repla|
|00000200| 63 65 2d 6b 65 79 6d 61 | 70 20 28 6d 61 6b 65 2d |ce-keyma|p (make-|
|00000210| 6b 65 79 6c 69 73 74 29 | 29 0a 0a 28 62 69 6e 64 |keylist)|)..(bind|
|00000220| 2d 6b 65 79 73 20 71 75 | 65 72 79 2d 72 65 70 6c |-keys qu|ery-repl|
|00000230| 61 63 65 2d 6b 65 79 6d | 61 70 20 22 53 50 43 22 |ace-keym|ap "SPC"|
|00000240| 20 28 71 75 6f 74 65 20 | 71 75 65 72 79 2d 72 65 | (quote |query-re|
|00000250| 70 6c 61 63 65 2d 72 65 | 70 6c 61 63 65 29 20 22 |place-re|place) "|
|00000260| 79 22 20 28 71 75 6f 74 | 65 20 71 75 65 72 79 2d |y" (quot|e query-|
|00000270| 72 65 70 6c 61 63 65 2d | 72 65 70 6c 61 63 65 29 |replace-|replace)|
|00000280| 20 22 42 53 22 20 28 71 | 75 6f 74 65 20 71 75 65 | "BS" (q|uote que|
|00000290| 72 79 2d 72 65 70 6c 61 | 63 65 2d 73 6b 69 70 29 |ry-repla|ce-skip)|
|000002a0| 20 22 6e 22 20 28 71 75 | 6f 74 65 20 71 75 65 72 | "n" (qu|ote quer|
|000002b0| 79 2d 72 65 70 6c 61 63 | 65 2d 73 6b 69 70 29 20 |y-replac|e-skip) |
|000002c0| 22 2c 22 20 28 71 75 6f | 74 65 20 71 75 65 72 79 |"," (quo|te query|
|000002d0| 2d 72 65 70 6c 61 63 65 | 2d 72 65 70 6c 61 63 65 |-replace|-replace|
|000002e0| 2d 61 6e 64 2d 77 61 69 | 74 29 20 22 52 45 54 22 |-and-wai|t) "RET"|
|000002f0| 20 28 71 75 6f 74 65 20 | 71 75 65 72 79 2d 72 65 | (quote |query-re|
|00000300| 70 6c 61 63 65 2d 65 78 | 69 74 29 20 22 45 53 43 |place-ex|it) "ESC|
|00000310| 22 20 28 71 75 6f 74 65 | 20 71 75 65 72 79 2d 72 |" (quote| query-r|
|00000320| 65 70 6c 61 63 65 2d 65 | 78 69 74 29 20 22 71 22 |eplace-e|xit) "q"|
|00000330| 20 28 71 75 6f 74 65 20 | 71 75 65 72 79 2d 72 65 | (quote |query-re|
|00000340| 70 6c 61 63 65 2d 65 78 | 69 74 29 20 22 2e 22 20 |place-ex|it) "." |
|00000350| 28 71 75 6f 74 65 20 71 | 75 65 72 79 2d 72 65 70 |(quote q|uery-rep|
|00000360| 6c 61 63 65 2d 6f 6e 63 | 65 2d 6f 6e 6c 79 29 20 |lace-onc|e-only) |
|00000370| 22 21 22 20 28 71 75 6f | 74 65 20 71 75 65 72 79 |"!" (quo|te query|
|00000380| 2d 72 65 70 6c 61 63 65 | 2d 72 65 73 74 29 20 22 |-replace|-rest) "|
|00000390| 5e 22 20 28 71 75 6f 74 | 65 20 71 75 65 72 79 2d |^" (quot|e query-|
|000003a0| 72 65 70 6c 61 63 65 2d | 62 61 63 6b 74 72 61 63 |replace-|backtrac|
|000003b0| 6b 29 20 22 43 74 72 6c | 2d 72 22 20 28 71 75 6f |k) "Ctrl|-r" (quo|
|000003c0| 74 65 20 71 75 65 72 79 | 2d 72 65 70 6c 61 63 65 |te query|-replace|
|000003d0| 2d 65 64 69 74 29 20 22 | 43 74 72 6c 2d 77 22 20 |-edit) "|Ctrl-w" |
|000003e0| 28 71 75 6f 74 65 20 28 | 70 72 6f 67 6e 20 28 71 |(quote (|progn (q|
|000003f0| 75 65 72 79 2d 72 65 70 | 6c 61 63 65 2d 64 65 6c |uery-rep|lace-del|
|00000400| 65 74 65 29 20 28 71 75 | 65 72 79 2d 72 65 70 6c |ete) (qu|ery-repl|
|00000410| 61 63 65 2d 65 64 69 74 | 29 29 29 20 22 3f 22 20 |ace-edit|))) "?" |
|00000420| 28 71 75 6f 74 65 20 71 | 75 65 72 79 2d 72 65 70 |(quote q|uery-rep|
|00000430| 6c 61 63 65 2d 68 65 6c | 70 29 20 22 48 45 4c 50 |lace-hel|p) "HELP|
|00000440| 22 20 28 71 75 6f 74 65 | 20 71 75 65 72 79 2d 72 |" (quote| query-r|
|00000450| 65 70 6c 61 63 65 2d 68 | 65 6c 70 29 20 22 43 74 |eplace-h|elp) "Ct|
|00000460| 72 6c 2d 68 22 20 28 71 | 75 6f 74 65 20 71 75 65 |rl-h" (q|uote que|
|00000470| 72 79 2d 72 65 70 6c 61 | 63 65 2d 68 65 6c 70 29 |ry-repla|ce-help)|
|00000480| 29 0a 0a 28 64 65 66 75 | 6e 20 71 75 65 72 79 2d |)..(defu|n query-|
|00000490| 72 65 70 6c 61 63 65 2d | 72 65 70 6c 61 63 65 20 |replace-|replace |
|000004a0| 6e 69 6c 20 28 69 6e 74 | 65 72 61 63 74 69 76 65 |nil (int|eractive|
|000004b0| 29 20 28 6a 61 64 65 2d | 62 79 74 65 2d 63 6f 64 |) (jade-|byte-cod|
|000004c0| 65 20 22 10 11 1a 1b 49 | 49 1c 0d 09 48 15 49 74 |e "....I|I...H.It|
|000004d0| 22 20 5b 67 6f 74 6f 2d | 63 68 61 72 20 72 65 70 |" [goto-|char rep|
|000004e0| 6c 61 63 65 2d 72 65 67 | 65 78 70 20 71 75 65 72 |lace-reg|exp quer|
|000004f0| 79 2d 72 65 70 6c 61 63 | 65 2d 66 72 6f 6d 20 71 |y-replac|e-from q|
|00000500| 75 65 72 79 2d 72 65 70 | 6c 61 63 65 2d 74 6f 20 |uery-rep|lace-to |
|00000510| 63 61 73 65 2d 66 6f 6c | 64 2d 73 65 61 72 63 68 |case-fol|d-search|
|00000520| 20 71 75 65 72 79 2d 72 | 65 70 6c 61 63 65 5d 20 | query-r|eplace] |
|00000530| 37 29 29 0a 0a 28 64 65 | 66 75 6e 20 71 75 65 72 |7))..(de|fun quer|
|00000540| 79 2d 72 65 70 6c 61 63 | 65 2d 73 6b 69 70 20 6e |y-replac|e-skip n|
|00000550| 69 6c 20 28 69 6e 74 65 | 72 61 63 74 69 76 65 29 |il (inte|ractive)|
|00000560| 20 28 6a 61 64 65 2d 62 | 79 74 65 2d 63 6f 64 65 | (jade-b|yte-code|
|00000570| 20 22 10 19 49 49 1a 0c | fe 00 0d 13 14 08 09 48 | "..II..|.......H|
|00000580| 15 49 74 22 20 5b 6c 6f | 6f 6b 69 6e 67 2d 61 74 |.It" [lo|oking-at|
|00000590| 20 71 75 65 72 79 2d 72 | 65 70 6c 61 63 65 2d 66 | query-r|eplace-f|
|000005a0| 72 6f 6d 20 63 61 73 65 | 2d 66 6f 6c 64 2d 73 65 |rom case|-fold-se|
|000005b0| 61 72 63 68 20 67 6f 74 | 6f 2d 63 68 61 72 20 6d |arch got|o-char m|
|000005c0| 61 74 63 68 2d 65 6e 64 | 20 71 75 65 72 79 2d 72 |atch-end| query-r|
|000005d0| 65 70 6c 61 63 65 5d 20 | 35 29 29 0a 0a 28 64 65 |eplace] |5))..(de|
|000005e0| 66 75 6e 20 71 75 65 72 | 79 2d 72 65 70 6c 61 63 |fun quer|y-replac|
|000005f0| 65 2d 72 65 70 6c 61 63 | 65 2d 61 6e 64 2d 77 61 |e-replac|e-and-wa|
|00000600| 69 74 20 6e 69 6c 20 28 | 69 6e 74 65 72 61 63 74 |it nil (|interact|
|00000610| 69 76 65 29 20 28 6a 61 | 64 65 2d 62 79 74 65 2d |ive) (ja|de-byte-|
|00000620| 63 6f 64 65 20 22 10 11 | 1a 1b 49 49 1c 0d 09 48 |code "..|..II...H|
|00000630| 15 1e 06 09 22 20 5b 67 | 6f 74 6f 2d 63 68 61 72 |...." [g|oto-char|
|00000640| 20 72 65 70 6c 61 63 65 | 2d 72 65 67 65 78 70 20 | replace|-regexp |
|00000650| 71 75 65 72 79 2d 72 65 | 70 6c 61 63 65 2d 66 72 |query-re|place-fr|
|00000660| 6f 6d 20 71 75 65 72 79 | 2d 72 65 70 6c 61 63 65 |om query|-replace|
|00000670| 2d 74 6f 20 63 61 73 65 | 2d 66 6f 6c 64 2d 73 65 |-to case|-fold-se|
|00000680| 61 72 63 68 20 6d 65 73 | 73 61 67 65 20 71 75 65 |arch mes|sage que|
|00000690| 72 79 2d 72 65 70 6c 61 | 63 65 2d 74 69 74 6c 65 |ry-repla|ce-title|
|000006a0| 5d 20 37 29 29 0a 0a 28 | 64 65 66 75 6e 20 71 75 |] 7))..(|defun qu|
|000006b0| 65 72 79 2d 72 65 70 6c | 61 63 65 2d 65 78 69 74 |ery-repl|ace-exit|
|000006c0| 20 6e 69 6c 20 28 69 6e | 74 65 72 61 63 74 69 76 | nil (in|teractiv|
|000006d0| 65 29 20 28 6a 61 64 65 | 2d 62 79 74 65 2d 63 6f |e) (jade|-byte-co|
|000006e0| 64 65 20 22 49 46 20 48 | 11 49 74 22 20 5b 71 75 |de "IF H|.It" [qu|
|000006f0| 65 72 79 2d 72 65 70 6c | 61 63 65 2d 61 6c 69 76 |ery-repl|ace-aliv|
|00000700| 65 20 71 75 65 72 79 2d | 72 65 70 6c 61 63 65 5d |e query-|replace]|
|00000710| 20 32 29 29 0a 0a 28 64 | 65 66 75 6e 20 71 75 65 | 2))..(d|efun que|
|00000720| 72 79 2d 72 65 70 6c 61 | 63 65 2d 6f 6e 63 65 2d |ry-repla|ce-once-|
|00000730| 6f 6e 6c 79 20 6e 69 6c | 20 28 69 6e 74 65 72 61 |only nil| (intera|
|00000740| 63 74 69 76 65 29 20 28 | 6a 61 64 65 2d 62 79 74 |ctive) (|jade-byt|
|00000750| 65 2d 63 6f 64 65 20 22 | 10 11 1a 1b 49 49 1c 0d |e-code "|....II..|
|00000760| 09 48 15 08 22 20 5b 67 | 6f 74 6f 2d 63 68 61 72 |.H.." [g|oto-char|
|00000770| 20 72 65 70 6c 61 63 65 | 2d 72 65 67 65 78 70 20 | replace|-regexp |
|00000780| 71 75 65 72 79 2d 72 65 | 70 6c 61 63 65 2d 66 72 |query-re|place-fr|
|00000790| 6f 6d 20 71 75 65 72 79 | 2d 72 65 70 6c 61 63 65 |om query|-replace|
|000007a0| 2d 74 6f 20 63 61 73 65 | 2d 66 6f 6c 64 2d 73 65 |-to case|-fold-se|
|000007b0| 61 72 63 68 20 71 75 65 | 72 79 2d 72 65 70 6c 61 |arch que|ry-repla|
|000007c0| 63 65 2d 65 78 69 74 5d | 20 37 29 29 0a 0a 28 64 |ce-exit]| 7))..(d|
|000007d0| 65 66 75 6e 20 71 75 65 | 72 79 2d 72 65 70 6c 61 |efun que|ry-repla|
|000007e0| 63 65 2d 72 65 73 74 20 | 6e 69 6c 20 28 69 6e 74 |ce-rest |nil (int|
|000007f0| 65 72 61 63 74 69 76 65 | 29 20 28 6a 61 64 65 2d |eractive|) (jade-|
|00000800| 62 79 74 65 2d 63 6f 64 | 65 20 22 10 11 1a 1b 49 |byte-cod|e "....I|
|00000810| 49 1c 0d 09 48 44 49 35 | 16 06 1a 49 49 1c 0c 46 |I...HDI5|...II..F|
|00000820| 25 fe 00 26 10 11 1a 1b | 1d 49 1c 0d 09 48 fb 00 |%..&....|.I...H..|
|00000830| 0d 48 49 46 26 07 48 16 | 08 49 74 45 22 20 5b 67 |.HIF&.H.|.ItE" [g|
|00000840| 6f 74 6f 2d 63 68 61 72 | 20 72 65 70 6c 61 63 65 |oto-char| replace|
|00000850| 2d 72 65 67 65 78 70 20 | 71 75 65 72 79 2d 72 65 |-regexp |query-re|
|00000860| 70 6c 61 63 65 2d 66 72 | 6f 6d 20 71 75 65 72 79 |place-fr|om query|
|00000870| 2d 72 65 70 6c 61 63 65 | 2d 74 6f 20 63 61 73 65 |-replace|-to case|
|00000880| 2d 66 6f 6c 64 2d 73 65 | 61 72 63 68 20 6d 61 74 |-fold-se|arch mat|
|00000890| 63 68 20 66 69 6e 64 2d | 6e 65 78 74 2d 72 65 67 |ch find-|next-reg|
|000008a0| 65 78 70 20 71 75 65 72 | 79 2d 72 65 70 6c 61 63 |exp quer|y-replac|
|000008b0| 65 2d 61 6c 69 76 65 20 | 71 75 65 72 79 2d 72 65 |e-alive |query-re|
|000008c0| 70 6c 61 63 65 5d 20 37 | 29 29 0a 0a 28 64 65 66 |place] 7|))..(def|
|000008d0| 75 6e 20 71 75 65 72 79 | 2d 72 65 70 6c 61 63 65 |un query|-replace|
|000008e0| 2d 65 64 69 74 20 6e 69 | 6c 20 28 69 6e 74 65 72 |-edit ni|l (inter|
|000008f0| 61 63 74 69 76 65 29 20 | 28 6a 61 64 65 2d 62 79 |active) |(jade-by|
|00000900| 74 65 2d 63 6f 64 65 20 | 22 18 46 21 48 12 13 14 |te-code |".F!H...|
|00000910| 0a 48 44 49 b2 4a 35 36 | 06 16 07 75 16 08 08 76 |.HDI.J56|...u...v|
|00000920| 45 48 16 09 49 74 22 20 | 5b 71 75 65 72 79 2d 72 |EH..It" |[query-r|
|00000930| 65 70 6c 61 63 65 2d 6f | 6c 64 2d 6b 70 20 6b 65 |eplace-o|ld-kp ke|
|00000940| 79 6d 61 70 2d 70 61 74 | 68 20 72 65 6d 6f 76 65 |ymap-pat|h remove|
|00000950| 2d 68 6f 6f 6b 20 75 6e | 62 6f 75 6e 64 2d 6b 65 |-hook un|bound-ke|
|00000960| 79 2d 68 6f 6f 6b 20 71 | 75 65 72 79 2d 72 65 70 |y-hook q|uery-rep|
|00000970| 6c 61 63 65 2d 75 6e 62 | 6f 75 6e 64 2d 6b 65 79 |lace-unb|ound-key|
|00000980| 2d 66 75 6e 20 65 73 63 | 2d 6d 65 61 6e 73 2d 6d |-fun esc|-means-m|
|00000990| 65 74 61 20 62 75 66 20 | 28 6a 61 64 65 2d 62 79 |eta buf |(jade-by|
|000009a0| 74 65 2d 63 6f 64 65 20 | 22 18 b1 11 46 5c 22 48 |te-code |"...F\"H|
|000009b0| 13 14 15 0a 47 b1 48 22 | 20 5b 62 75 66 20 28 71 |....G.H"| [buf (q|
|000009c0| 75 65 72 79 2d 72 65 70 | 6c 61 63 65 2d 6b 65 79 |uery-rep|lace-key|
|000009d0| 6d 61 70 29 20 6b 65 79 | 6d 61 70 2d 70 61 74 68 |map) key|map-path|
|000009e0| 20 61 64 64 2d 68 6f 6f | 6b 20 75 6e 62 6f 75 6e | add-hoo|k unboun|
|000009f0| 64 2d 6b 65 79 2d 68 6f | 6f 6b 20 71 75 65 72 79 |d-key-ho|ok query|
|00000a00| 2d 72 65 70 6c 61 63 65 | 2d 75 6e 62 6f 75 6e 64 |-replace|-unbound|
|00000a10| 2d 6b 65 79 2d 66 75 6e | 5d 20 34 29 20 72 65 63 |-key-fun|] 4) rec|
|00000a20| 75 72 73 69 76 65 2d 65 | 64 69 74 20 71 75 65 72 |ursive-e|dit quer|
|00000a30| 79 2d 72 65 70 6c 61 63 | 65 5d 20 33 29 29 0a 0a |y-replac|e] 3))..|
|00000a40| 28 64 65 66 75 6e 20 71 | 75 65 72 79 2d 72 65 70 |(defun q|uery-rep|
|00000a50| 6c 61 63 65 2d 64 65 6c | 65 74 65 20 6e 69 6c 20 |lace-del|ete nil |
|00000a60| 28 69 6e 74 65 72 61 63 | 74 69 76 65 29 20 28 6a |(interac|tive) (j|
|00000a70| 61 64 65 2d 62 79 74 65 | 2d 63 6f 64 65 20 22 10 |ade-byte|-code ".|
|00000a80| 19 49 49 1a 0c fe 00 0f | 13 14 08 15 08 0a 22 20 |.II.....|......" |
|00000a90| 5b 6c 6f 6f 6b 69 6e 67 | 2d 61 74 20 71 75 65 72 |[looking|-at quer|
|00000aa0| 79 2d 72 65 70 6c 61 63 | 65 2d 66 72 6f 6d 20 63 |y-replac|e-from c|
|00000ab0| 61 73 65 2d 66 6f 6c 64 | 2d 73 65 61 72 63 68 20 |ase-fold|-search |
|00000ac0| 64 65 6c 65 74 65 2d 61 | 72 65 61 20 6d 61 74 63 |delete-a|rea matc|
|00000ad0| 68 2d 73 74 61 72 74 20 | 6d 61 74 63 68 2d 65 6e |h-start |match-en|
|00000ae0| 64 5d 20 35 29 29 0a 0a | 28 64 65 66 75 6e 20 71 |d] 5))..|(defun q|
|00000af0| 75 65 72 79 2d 72 65 70 | 6c 61 63 65 2d 62 61 63 |uery-rep|lace-bac|
|00000b00| 6b 74 72 61 63 6b 20 6e | 69 6c 20 28 69 6e 74 65 |ktrack n|il (inte|
|00000b10| 72 61 63 74 69 76 65 29 | 20 28 6a 61 64 65 2d 62 |ractive)| (jade-b|
|00000b20| 79 74 65 2d 63 6f 64 65 | 20 22 18 4d fc 00 11 18 |yte-code| ".M....|
|00000b30| 4d 46 20 48 11 18 4c 09 | fb 00 13 12 08 48 13 1c |MF H..L.|.....H..|
|00000b40| 09 22 20 5b 71 75 65 72 | 79 2d 72 65 70 6c 61 63 |." [quer|y-replac|
|00000b50| 65 2d 74 72 61 63 65 20 | 67 6f 74 6f 2d 63 68 61 |e-trace |goto-cha|
|00000b60| 72 20 62 65 65 70 20 6d | 65 73 73 61 67 65 20 71 |r beep m|essage q|
|00000b70| 75 65 72 79 2d 72 65 70 | 6c 61 63 65 2d 74 69 74 |uery-rep|lace-tit|
|00000b80| 6c 65 5d 20 32 29 29 0a | 0a 28 64 65 66 75 6e 20 |le] 2)).|.(defun |
|00000b90| 71 75 65 72 79 2d 72 65 | 70 6c 61 63 65 2d 75 6e |query-re|place-un|
|00000ba0| 62 6f 75 6e 64 2d 6b 65 | 79 2d 66 75 6e 20 6e 69 |bound-ke|y-fun ni|
|00000bb0| 6c 20 28 6a 61 64 65 2d | 62 79 74 65 2d 63 6f 64 |l (jade-|byte-cod|
|00000bc0| 65 20 22 10 08 48 11 1a | 09 22 20 5b 62 65 65 70 |e "..H..|." [beep|
|00000bd0| 20 6d 65 73 73 61 67 65 | 20 71 75 65 72 79 2d 72 | message| query-r|
|00000be0| 65 70 6c 61 63 65 2d 74 | 69 74 6c 65 5d 20 32 29 |eplace-t|itle] 2)|
|00000bf0| 29 0a 0a 28 64 65 66 75 | 6e 20 71 75 65 72 79 2d |)..(defu|n query-|
|00000c00| 72 65 70 6c 61 63 65 20 | 28 71 75 65 72 79 2d 72 |replace |(query-r|
|00000c10| 65 70 6c 61 63 65 2d 66 | 72 6f 6d 20 71 75 65 72 |eplace-f|rom quer|
|00000c20| 79 2d 72 65 70 6c 61 63 | 65 2d 74 6f 29 20 37 36 |y-replac|e-to) 76|
|00000c30| 33 30 30 20 28 69 6e 74 | 65 72 61 63 74 69 76 65 |300 (int|eractive|
|00000c40| 20 22 73 51 75 65 72 79 | 20 72 65 70 6c 61 63 65 | "sQuery| replace|
|00000c50| 20 72 65 67 65 78 70 3a | 20 0a 73 51 75 65 72 79 | regexp:| .sQuery|
|00000c60| 20 72 65 70 6c 61 63 65 | 20 72 65 67 65 78 70 20 | replace| regexp |
|00000c70| 25 73 20 77 69 74 68 3a | 20 22 29 20 28 6a 61 64 |%s with:| ") (jad|
|00000c80| 65 2d 62 79 74 65 2d 63 | 6f 64 65 20 22 44 49 4a |e-byte-c|ode "DIJ|
|00000c90| 18 11 12 1b 14 1d 16 06 | 0d 49 b2 49 49 36 07 36 |........|.I.II6.6|
|00000ca0| 08 36 09 36 0a 36 0b 36 | 0c 36 0d 16 0e 16 0f 16 |.6.6.6.6|.6......|
|00000cb0| 10 0a 48 16 11 46 20 48 | 16 12 75 1e 0c fe 00 3e |..H..F H|..u....>|
|00000cc0| 16 13 1b 49 49 1e 14 0c | 46 26 07 fe 00 59 16 15 |...II...|F&...Y..|
|00000cd0| 1e 07 09 48 1e 07 1e 0d | 4b 46 26 0d 48 16 16 16 |...H....|KF&.H...|
|00000ce0| 17 73 48 fb 00 2e 76 48 | 16 18 16 19 09 45 22 20 |.sH...vH|.....E" |
|00000cf0| 5b 6b 65 79 6d 61 70 2d | 70 61 74 68 20 63 6f 6e |[keymap-|path con|
|00000d00| 63 61 74 20 22 51 75 65 | 72 79 20 72 65 70 6c 61 |cat "Que|ry repla|
|00000d10| 63 69 6e 67 20 22 20 71 | 75 65 72 79 2d 72 65 70 |cing " q|uery-rep|
|00000d20| 6c 61 63 65 2d 66 72 6f | 6d 20 22 20 77 69 74 68 |lace-fro|m " with|
|00000d30| 20 22 20 71 75 65 72 79 | 2d 72 65 70 6c 61 63 65 | " query|-replace|
|00000d40| 2d 74 6f 20 22 3a 20 22 | 20 6d 61 74 63 68 20 65 |-to ": "| match e|
|00000d50| 73 63 2d 6d 65 61 6e 73 | 2d 6d 65 74 61 20 62 75 |sc-means|-meta bu|
|00000d60| 66 20 71 75 65 72 79 2d | 72 65 70 6c 61 63 65 2d |f query-|replace-|
|00000d70| 74 69 74 6c 65 20 71 75 | 65 72 79 2d 72 65 70 6c |title qu|ery-repl|
|00000d80| 61 63 65 2d 6f 6c 64 2d | 6b 70 20 71 75 65 72 79 |ace-old-|kp query|
|00000d90| 2d 72 65 70 6c 61 63 65 | 2d 61 6c 69 76 65 20 71 |-replace|-alive q|
|00000da0| 75 65 72 79 2d 72 65 70 | 6c 61 63 65 2d 74 72 61 |uery-rep|lace-tra|
|00000db0| 63 65 20 61 64 64 2d 68 | 6f 6f 6b 20 75 6e 62 6f |ce add-h|ook unbo|
|00000dc0| 75 6e 64 2d 6b 65 79 2d | 68 6f 6f 6b 20 71 75 65 |und-key-|hook que|
|00000dd0| 72 79 2d 72 65 70 6c 61 | 63 65 2d 75 6e 62 6f 75 |ry-repla|ce-unbou|
|00000de0| 6e 64 2d 6b 65 79 2d 66 | 75 6e 20 28 71 75 65 72 |nd-key-f|un (quer|
|00000df0| 79 2d 72 65 70 6c 61 63 | 65 2d 6b 65 79 6d 61 70 |y-replac|e-keymap|
|00000e00| 29 20 28 6a 61 64 65 2d | 62 79 74 65 2d 63 6f 64 |) (jade-|byte-cod|
|00000e10| 65 20 22 18 b1 19 46 5c | 22 48 13 14 15 0a 47 b1 |e "...F\|"H....G.|
|00000e20| 48 22 20 5b 62 75 66 20 | 71 75 65 72 79 2d 72 65 |H" [buf |query-re|
|00000e30| 70 6c 61 63 65 2d 6f 6c | 64 2d 6b 70 20 6b 65 79 |place-ol|d-kp key|
|00000e40| 6d 61 70 2d 70 61 74 68 | 20 72 65 6d 6f 76 65 2d |map-path| remove-|
|00000e50| 68 6f 6f 6b 20 75 6e 62 | 6f 75 6e 64 2d 6b 65 79 |hook unb|ound-key|
|00000e60| 2d 68 6f 6f 6b 20 71 75 | 65 72 79 2d 72 65 70 6c |-hook qu|ery-repl|
|00000e70| 61 63 65 2d 75 6e 62 6f | 75 6e 64 2d 6b 65 79 2d |ace-unbo|und-key-|
|00000e80| 66 75 6e 5d 20 34 29 20 | 66 69 6e 64 2d 6e 65 78 |fun] 4) |find-nex|
|00000e90| 74 2d 72 65 67 65 78 70 | 20 63 61 73 65 2d 66 6f |t-regexp| case-fo|
|00000ea0| 6c 64 2d 73 65 61 72 63 | 68 20 67 6f 74 6f 2d 63 |ld-searc|h goto-c|
|00000eb0| 68 61 72 20 28 6a 61 64 | 65 2d 62 79 74 65 2d 63 |har (jad|e-byte-c|
|00000ec0| 6f 64 65 20 22 10 19 09 | 48 12 08 22 20 5b 6d 65 |ode "...|H.." [me|
|00000ed0| 73 73 61 67 65 20 71 75 | 65 72 79 2d 72 65 70 6c |ssage qu|ery-repl|
|00000ee0| 61 63 65 2d 74 69 74 6c | 65 20 72 65 63 75 72 73 |ace-titl|e recurs|
|00000ef0| 69 76 65 2d 65 64 69 74 | 5d 20 32 29 20 28 71 75 |ive-edit|] 2) (qu|
|00000f00| 6f 74 65 20 71 75 65 72 | 79 2d 72 65 70 6c 61 63 |ote quer|y-replac|
|00000f10| 65 29 20 6d 65 73 73 61 | 67 65 20 22 44 6f 6e 65 |e) messa|ge "Done|
|00000f20| 2e 22 5d 20 39 29 29 0a |                         |."] 9)).|        |
+--------+-------------------------+-------------------------+--------+--------+