home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1994-03-22 | 4.6 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 |
| 100%
| file
| Emacs/XEmacs v19 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
|
|
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 72 6f 6c 61 6e 64 40 |piled by| roland@|
|00000020| 63 68 75 72 63 68 79 2e | 67 6e 75 2e 61 69 2e 6d |churchy.|gnu.ai.m|
|00000030| 69 74 2e 65 64 75 20 6f | 6e 20 4d 6f 6e 20 4d 61 |it.edu o|n Mon Ma|
|00000040| 72 20 32 31 20 31 39 3a | 32 36 3a 33 34 20 31 39 |r 21 19:|26:34 19|
|00000050| 39 34 0a 3b 3b 3b 20 66 | 72 6f 6d 20 66 69 6c 65 |94.;;; f|rom file|
|00000060| 20 2f 67 64 2f 67 6e 75 | 2f 65 6d 61 63 73 2f 31 | /gd/gnu|/emacs/1|
|00000070| 39 2e 30 2f 6c 69 73 70 | 2f 6d 61 70 2d 79 6e 70 |9.0/lisp|/map-ynp|
|00000080| 2e 65 6c 0a 3b 3b 3b 20 | 65 6d 61 63 73 20 76 65 |.el.;;; |emacs ve|
|00000090| 72 73 69 6f 6e 20 31 39 | 2e 32 32 2e 33 30 2e 0a |rsion 19|.22.30..|
|000000a0| 3b 3b 3b 20 62 79 74 65 | 63 6f 6d 70 20 76 65 72 |;;; byte|comp ver|
|000000b0| 73 69 6f 6e 20 46 53 46 | 20 32 2e 31 30 0a 3b 3b |sion FSF| 2.10.;;|
|000000c0| 3b 20 6f 70 74 69 6d 69 | 7a 61 74 69 6f 6e 20 69 |; optimi|zation i|
|000000d0| 73 20 6f 6e 2e 0a 3b 3b | 3b 20 74 68 69 73 20 66 |s on..;;|; this f|
|000000e0| 69 6c 65 20 75 73 65 73 | 20 6f 70 63 6f 64 65 73 |ile uses| opcodes|
|000000f0| 20 77 68 69 63 68 20 64 | 6f 20 6e 6f 74 20 65 78 | which d|o not ex|
|00000100| 69 73 74 20 69 6e 20 45 | 6d 61 63 73 20 31 38 2e |ist in E|macs 18.|
|00000110| 0a 0a 28 69 66 20 28 61 | 6e 64 20 28 62 6f 75 6e |..(if (a|nd (boun|
|00000120| 64 70 20 27 65 6d 61 63 | 73 2d 76 65 72 73 69 6f |dp 'emac|s-versio|
|00000130| 6e 29 0a 09 20 28 6f 72 | 20 28 61 6e 64 20 28 62 |n).. (or| (and (b|
|00000140| 6f 75 6e 64 70 20 27 65 | 70 6f 63 68 3a 3a 76 65 |oundp 'e|poch::ve|
|00000150| 72 73 69 6f 6e 29 20 65 | 70 6f 63 68 3a 3a 76 65 |rsion) e|poch::ve|
|00000160| 72 73 69 6f 6e 29 0a 09 | 20 20 20 20 20 28 73 74 |rsion)..| (st|
|00000170| 72 69 6e 67 2d 6c 65 73 | 73 70 20 65 6d 61 63 73 |ring-les|sp emacs|
|00000180| 2d 76 65 72 73 69 6f 6e | 20 22 31 39 22 29 29 29 |-version| "19")))|
|00000190| 0a 20 20 20 20 28 65 72 | 72 6f 72 20 22 60 2f 67 |. (er|ror "`/g|
|000001a0| 64 2f 67 6e 75 2f 65 6d | 61 63 73 2f 31 39 2e 30 |d/gnu/em|acs/19.0|
|000001b0| 2f 6c 69 73 70 2f 6d 61 | 70 2d 79 6e 70 2e 65 6c |/lisp/ma|p-ynp.el|
|000001c0| 27 20 77 61 73 20 63 6f | 6d 70 69 6c 65 64 20 66 |' was co|mpiled f|
|000001d0| 6f 72 20 45 6d 61 63 73 | 20 31 39 22 29 29 0a 0a |or Emacs| 19"))..|
|000001e0| 28 64 65 66 61 6c 69 61 | 73 20 27 6d 61 70 2d 79 |(defalia|s 'map-y|
|000001f0| 2d 6f 72 2d 6e 2d 70 20 | 23 5b 28 70 72 6f 6d 70 |-or-n-p |#[(promp|
|00000200| 74 65 72 20 61 63 74 6f | 72 20 6c 69 73 74 20 26 |ter acto|r list &|
|00000210| 6f 70 74 69 6f 6e 61 6c | 20 68 65 6c 70 20 61 63 |optional| help ac|
|00000220| 74 69 6f 6e 2d 61 6c 69 | 73 74 20 6e 6f 2d 63 75 |tion-ali|st no-cu|
|00000230| 72 73 6f 72 2d 69 6e 2d | 65 63 68 6f 2d 61 72 65 |rsor-in-|echo-are|
|00000240| 61 29 20 22 c0 19 c2 1b | c2 1c c2 1d c2 1e 06 c2 |a) "....|........|
|00000250| 1e 07 c2 1e 08 c2 1e 09 | c2 1e 5c 6e c2 1e 0b 0e |........|..\n....|
|00000260| 5c 66 83 25 00 0e 5c 66 | 39 84 41 00 cd 0e 5c 66 |\f.%..\f|9.A...\f|
|00000270| 21 84 41 00 ce 0e 5c 66 | 21 84 41 00 0e 5c 66 3a |!.A...\f|!.A..\f:|
|00000280| 83 45 00 0e 5c 66 40 cf | 3d 83 45 00 d0 82 46 00 |.E..\f@.|=.E...F.|
|00000290| d1 1e 12 0e 13 3c 83 9d | 00 d4 0e 15 40 21 d4 0e |.....<..|....@!..|
|000002a0| 15 41 40 21 d4 d6 0e 15 | 38 21 1e 17 1e 18 1e 19 |.A@!....|8!......|
|000002b0| da db dc 0e 15 83 77 00 | 0e 17 dd 0e 19 de 52 82 |......w.|......R.|
|000002c0| 78 00 df e0 42 0e 15 83 | 88 00 0e 17 e1 0e 18 51 |x...B...|.......Q|
|000002d0| 82 89 00 e2 e3 42 e4 e5 | 0e 26 5c 22 42 42 42 42 |.....B..|.&\"BBBB|
|000002e0| 42 15 0e 13 14 2b 82 bb | 00 0e 26 83 ad 00 e7 e8 |B....+..|..&.....|
|000002f0| 0e 26 e9 23 dd 50 82 ae | 00 ea 13 eb ec e4 ed 0e |.&.#.P..|........|
|00000300| 26 5c 22 0e 2e 5c 22 42 | 15 ef 8e 0e 30 3b 83 ce |&\"..\"B|....0;..|
|00000310| 00 cf f1 f2 0e 30 f3 42 | 42 45 16 30 0e 12 20 83 |.....0.B|BE.0.. .|
|00000320| 07 03 0e 30 0e 08 21 89 | 16 06 3b 83 f2 02 c2 16 |...0..!.|..;.....|
|00000330| 34 5c 66 83 f7 00 f5 5c | 66 0e 06 0d 42 5c 22 86 |4\f....\|f...B\".|
|00000340| f2 00 f6 16 5c 6e 82 2c | 01 0e 37 3f 1e 38 f9 fa |....\n.,|..7?.8..|
|00000350| 0e 06 0b fb fc 0e 3d 21 | 21 24 88 fe 20 16 07 29 |......=!|!$.. ..)|
|00000360| f9 ff 0e 06 0b fb fc 0e | 3d 21 21 81 40 00 0e 07 |........|=!!.@...|
|00000370| 21 25 88 81 41 00 0d fc | 0e 07 21 5c 22 16 5c 6e |!%..A...|..!\".\n|
|00000380| 0e 5c 6e 81 42 00 3d 83 | 3e 01 81 43 00 89 16 12 |.\n.B.=.|>..C....|
|00000390| 82 d0 00 0e 5c 6e 81 44 | 00 3d 83 53 01 0e 45 0e |....\n.D|.=.S..E.|
|000003a0| 08 21 88 09 54 11 82 ce | 00 0e 5c 6e 81 46 00 3d |.!..T...|..\n.F.=|
|000003b0| 84 ce 00 0e 5c 6e e0 3d | 83 75 01 0e 45 0e 08 21 |....\n.=|.u..E..!|
|000003c0| 88 09 54 11 81 47 00 89 | 16 12 82 d0 00 0e 5c 6e |..T..G..|......\n|
|000003d0| f6 3d 83 9b 01 81 48 00 | 16 34 cf c2 81 49 00 d2 |.=....H.|.4...I..|
|000003e0| 81 4a 00 0e 12 44 45 81 | 4a 00 0e 08 44 46 89 16 |.J...DE.|J...DF..|
|000003f0| 12 82 d0 00 0e 5c 6e e3 | 3d 83 d5 01 81 4b 00 0e |.....\n.|=....K..|
|00000400| 30 0e 08 21 21 83 b7 01 | 0e 45 0e 08 21 88 09 54 |0..!!...|.E..!..T|
|00000410| 11 0e 12 20 83 ce 00 81 | 4b 00 0e 30 0e 08 21 21 |... ....|K..0..!!|
|00000420| 83 b7 01 0e 45 0e 08 21 | 88 09 54 11 82 b7 01 0e |....E..!|..T.....|
|00000430| 5c 6e d5 3d 83 5e 02 81 | 4c 00 90 81 4d 00 0e 15 |\n.=.^..|L...M...|
|00000440| 83 ee 01 0e 15 40 82 f1 | 01 81 4e 00 0e 15 83 fd |.....@..|..N.....|
|00000450| 01 0e 15 41 40 82 00 02 | 81 4f 00 0e 15 83 5c 66 |...A@...|.O....\f|
|00000460| 02 d6 0e 15 38 82 0f 02 | 81 50 00 1e 17 1e 18 1e |....8...|.P......|
|00000470| 19 f2 81 51 00 0e 17 0e | 19 89 0e 17 0e 18 26 06 |...Q....|......&.|
|00000480| e7 81 52 00 0e 26 81 53 | 00 23 0e 26 85 36 02 81 |..R..&.S|.#.&.6..|
|00000490| 53 00 f2 81 54 00 0e 17 | 0e 19 23 52 2b 21 91 88 |S...T...|..#R+!..|
|000004a0| cf c2 81 49 00 d2 81 4a | 00 0e 12 44 45 81 4a 00 |...I...J|...DE.J.|
|000004b0| 0e 08 44 46 89 16 12 82 | d0 00 81 55 00 0e 5c 6e |..DF....|...U..\n|
|000004c0| 21 83 91 02 0e 5c 6e c0 | 48 0e 08 21 83 77 02 09 |!....\n.|H..!.w..|
|000004d0| 54 11 82 ce 00 cf c2 81 | 49 00 d2 81 4a 00 0e 12 |T.......|I...J...|
|000004e0| 44 45 81 4a 00 0e 08 44 | 46 89 16 12 82 d0 00 0e |DE.J...D|F.......|
|000004f0| 07 3a 83 bf 02 0e 07 40 | 81 56 00 3d 83 bf 02 0e |.:.....@|.V.=....|
|00000500| 07 16 0b cf c2 81 49 00 | d2 81 4a 00 0e 12 44 45 |......I.|..J...DE|
|00000510| 81 4a 00 0e 08 44 46 89 | 16 12 82 d0 00 f9 81 57 |.J...DF.|.......W|
|00000520| 00 fb fc 0e 3d 21 21 5c | 22 88 81 58 00 20 88 81 |....=!!\|"..X. ..|
|00000530| 59 00 81 5a 00 21 88 cf | c2 81 49 00 d2 81 4a 00 |Y..Z.!..|..I...J.|
|00000540| 0e 12 44 45 81 4a 00 0e | 08 44 46 89 16 12 82 d0 |..DE.J..|.DF.....|
|00000550| 00 81 4b 00 0e 06 21 83 | ce 00 0e 45 0e 08 21 88 |..K...!.|...E..!.|
|00000560| 09 54 11 82 ce 00 29 f9 | ea 21 88 09 2e 0b 87 22 |.T....).|.!....."|
|00000570| 20 5b 30 20 61 63 74 69 | 6f 6e 73 20 6e 69 6c 20 | [0 acti|ons nil |
|00000580| 75 73 65 72 2d 6b 65 79 | 73 20 6d 6f 75 73 65 2d |user-key|s mouse-|
|00000590| 65 76 65 6e 74 20 6d 61 | 70 20 70 72 6f 6d 70 74 |event ma|p prompt|
|000005a0| 20 63 68 61 72 20 65 6c | 74 20 74 61 69 6c 20 64 | char el|t tail d|
|000005b0| 65 66 20 64 65 6c 61 79 | 65 64 2d 73 77 69 74 63 |ef delay|ed-switc|
|000005c0| 68 2d 66 72 61 6d 65 20 | 6c 69 73 74 20 73 75 62 |h-frame |list sub|
|000005d0| 72 70 20 62 79 74 65 2d | 63 6f 64 65 2d 66 75 6e |rp byte-|code-fun|
|000005e0| 63 74 69 6f 6e 2d 70 20 | 6c 61 6d 62 64 61 20 23 |ction-p |lambda #|
|000005f0| 5b 6e 69 6c 20 22 08 20 | 89 11 87 22 20 5b 6c 69 |[nil ". |..." [li|
|00000600| 73 74 20 65 6c 74 5d 20 | 32 5d 20 23 5b 6e 69 6c |st elt] |2] #[nil|
|00000610| 20 22 08 85 0b 00 08 40 | 11 08 41 10 c2 87 22 20 | ".....@|..A..." |
|00000620| 5b 6c 69 73 74 20 65 6c | 74 20 74 5d 20 31 5d 20 |[list el|t t] 1] |
|00000630| 6e 65 78 74 20 6c 61 73 | 74 2d 6e 6f 6e 6d 65 6e |next las|t-nonmen|
|00000640| 75 2d 65 76 65 6e 74 20 | 63 61 70 69 74 61 6c 69 |u-event |capitali|
|00000650| 7a 65 20 68 65 6c 70 20 | 32 20 61 63 74 69 6f 6e |ze help |2 action|
|00000660| 20 6f 62 6a 65 63 74 73 | 20 6f 62 6a 65 63 74 20 | objects| object |
|00000670| 28 22 59 65 73 22 20 2e | 20 61 63 74 29 20 28 22 |("Yes" .| act) ("|
|00000680| 4e 6f 22 20 2e 20 73 6b | 69 70 29 20 28 22 51 75 |No" . sk|ip) ("Qu|
|00000690| 69 74 22 20 2e 20 65 78 | 69 74 29 20 22 20 22 20 |it" . ex|it) " " |
|000006a0| 22 20 41 6e 64 20 51 75 | 69 74 22 20 22 44 6f 20 |" And Qu|it" "Do |
|000006b0| 69 74 20 61 6e 64 20 51 | 75 69 74 22 20 61 63 74 |it and Q|uit" act|
|000006c0| 2d 61 6e 64 2d 65 78 69 | 74 20 22 20 41 6c 6c 20 |-and-exi|t " All |
|000006d0| 22 20 22 44 6f 20 41 6c | 6c 22 20 61 75 74 6f 6d |" "Do Al|l" autom|
|000006e0| 61 74 69 63 20 6d 61 70 | 63 61 72 20 23 5b 28 65 |atic map|car #[(e|
|000006f0| 6c 74 29 20 22 c0 c1 5c | 6e 38 21 c3 5c 6e 41 40 |lt) "..\|n8!.\nA@|
|00000700| 21 42 87 22 20 5b 63 61 | 70 69 74 61 6c 69 7a 65 |!B." [ca|pitalize|
|00000710| 20 32 20 65 6c 74 20 76 | 65 63 74 6f 72 5d 20 33 | 2 elt v|ector] 3|
|00000720| 5d 20 61 63 74 69 6f 6e | 2d 61 6c 69 73 74 20 6d |] action|-alist m|
|00000730| 61 70 63 6f 6e 63 61 74 | 20 23 5b 28 65 6c 74 29 |apconcat| #[(elt)|
|00000740| 20 22 c0 c1 5c 6e 40 21 | 21 87 22 20 5b 6b 65 79 | "..\n@!|!." [key|
|00000750| 2d 64 65 73 63 72 69 70 | 74 69 6f 6e 20 63 68 61 |-descrip|tion cha|
|00000760| 72 2d 74 6f 2d 73 74 72 | 69 6e 67 20 65 6c 74 5d |r-to-str|ing elt]|
|00000770| 20 33 5d 20 22 2c 20 22 | 20 22 22 20 6b 65 79 6d | 3] ", "| "" keym|
|00000780| 61 70 20 61 70 70 65 6e | 64 20 23 5b 28 65 6c 74 |ap appen|d #[(elt|
|00000790| 29 20 22 08 40 c1 08 41 | 40 21 42 87 22 20 5b 65 |) ".@..A|@!B." [e|
|000007a0| 6c 74 20 76 65 63 74 6f | 72 5d 20 33 5d 20 71 75 |lt vecto|r] 3] qu|
|000007b0| 65 72 79 2d 72 65 70 6c | 61 63 65 2d 6d 61 70 20 |ery-repl|ace-map |
|000007c0| 28 28 62 79 74 65 2d 63 | 6f 64 65 20 22 08 83 08 |((byte-c|ode "...|
|000007d0| 00 08 09 42 11 c2 87 22 | 20 5b 64 65 6c 61 79 65 |...B..."| [delaye|
|000007e0| 64 2d 73 77 69 74 63 68 | 2d 66 72 61 6d 65 20 75 |d-switch|-frame u|
|000007f0| 6e 72 65 61 64 2d 63 6f | 6d 6d 61 6e 64 2d 65 76 |nread-co|mmand-ev|
|00000800| 65 6e 74 73 20 6e 69 6c | 5d 20 32 29 29 20 70 72 |ents nil|] 2)) pr|
|00000810| 6f 6d 70 74 65 72 20 28 | 6f 62 6a 65 63 74 29 20 |ompter (|object) |
|00000820| 66 6f 72 6d 61 74 20 28 | 6f 62 6a 65 63 74 29 20 |format (|object) |
|00000830| 71 75 69 74 2d 66 6c 61 | 67 20 78 2d 70 6f 70 75 |quit-fla|g x-popu|
|00000840| 70 2d 64 69 61 6c 6f 67 | 20 71 75 69 74 20 6e 6f |p-dialog| quit no|
|00000850| 2d 63 75 72 73 6f 72 2d | 69 6e 2d 65 63 68 6f 2d |-cursor-|in-echo-|
|00000860| 61 72 65 61 20 63 75 72 | 73 6f 72 2d 69 6e 2d 65 |area cur|sor-in-e|
|00000870| 63 68 6f 2d 61 72 65 61 | 20 6d 65 73 73 61 67 65 |cho-area| message|
|00000880| 20 22 25 73 28 79 2c 20 | 6e 2c 20 21 2c 20 2e 2c | "%s(y, |n, !, .,|
|00000890| 20 71 2c 20 25 73 6f 72 | 20 25 73 29 20 22 20 6b | q, %sor| %s) " k|
|000008a0| 65 79 2d 64 65 73 63 72 | 69 70 74 69 6f 6e 20 76 |ey-descr|iption v|
|000008b0| 65 63 74 6f 72 20 68 65 | 6c 70 2d 63 68 61 72 20 |ector he|lp-char |
|000008c0| 72 65 61 64 2d 65 76 65 | 6e 74 20 22 25 73 28 79 |read-eve|nt "%s(y|
|000008d0| 2c 20 6e 2c 20 21 2c 20 | 2e 2c 20 71 2c 20 25 73 |, n, !, |., q, %s|
|000008e0| 6f 72 20 25 73 29 20 25 | 73 22 20 73 69 6e 67 6c |or %s) %|s" singl|
|000008f0| 65 2d 6b 65 79 2d 64 65 | 73 63 72 69 70 74 69 6f |e-key-de|scriptio|
|00000900| 6e 20 6c 6f 6f 6b 75 70 | 2d 6b 65 79 20 65 78 69 |n lookup|-key exi|
|00000910| 74 20 28 6c 61 6d 62 64 | 61 20 6e 69 6c 29 20 61 |t (lambd|a nil) a|
|00000920| 63 74 20 61 63 74 6f 72 | 20 73 6b 69 70 20 28 6c |ct actor| skip (l|
|00000930| 61 6d 62 64 61 20 6e 69 | 6c 29 20 74 20 73 65 74 |ambda ni|l) t set|
|00000940| 71 20 71 75 6f 74 65 20 | 65 76 61 6c 20 22 2a 48 |q quote |eval "*H|
|00000950| 65 6c 70 2a 22 20 70 72 | 69 6e 63 20 22 6f 62 6a |elp*" pr|inc "obj|
|00000960| 65 63 74 22 20 22 6f 62 | 6a 65 63 74 73 22 20 22 |ect" "ob|jects" "|
|00000970| 61 63 74 20 6f 6e 22 20 | 22 54 79 70 65 20 53 50 |act on" |"Type SP|
|00000980| 43 20 6f 72 20 60 79 27 | 20 74 6f 20 25 73 20 74 |C or `y'| to %s t|
|00000990| 68 65 20 63 75 72 72 65 | 6e 74 20 25 73 3b 5c 6e |he curre|nt %s;\n|
|000009a0| 44 45 4c 20 6f 72 20 60 | 6e 27 20 74 6f 20 73 6b |DEL or `|n' to sk|
|000009b0| 69 70 20 74 68 65 20 63 | 75 72 72 65 6e 74 20 25 |ip the c|urrent %|
|000009c0| 73 3b 5c 6e 21 20 74 6f | 20 25 73 20 61 6c 6c 20 |s;\n! to| %s all |
|000009d0| 72 65 6d 61 69 6e 69 6e | 67 20 25 73 3b 5c 6e 45 |remainin|g %s;\nE|
|000009e0| 53 43 20 6f 72 20 60 71 | 27 20 74 6f 20 65 78 69 |SC or `q|' to exi|
|000009f0| 74 3b 5c 6e 22 20 23 5b | 28 65 6c 74 29 20 22 c0 |t;\n" #[|(elt) ".|
|00000a00| c1 5c 6e 40 c3 5c 6e 38 | 23 87 22 20 5b 66 6f 72 |.\n@.\n8|#." [for|
|00000a10| 6d 61 74 20 22 25 63 20 | 74 6f 20 25 73 22 20 65 |mat "%c |to %s" e|
|00000a20| 6c 74 20 32 5d 20 35 5d | 20 22 3b 5c 6e 22 20 22 |lt 2] 5]| ";\n" "|
|00000a30| 6f 72 20 2e 20 28 70 65 | 72 69 6f 64 29 20 74 6f |or . (pe|riod) to|
|00000a40| 20 25 73 20 74 68 65 20 | 63 75 72 72 65 6e 74 20 | %s the |current |
|00000a50| 25 73 20 61 6e 64 20 65 | 78 69 74 2e 22 20 76 65 |%s and e|xit." ve|
|00000a60| 63 74 6f 72 70 20 73 77 | 69 74 63 68 2d 66 72 61 |ctorp sw|itch-fra|
|00000a70| 6d 65 20 22 54 79 70 65 | 20 25 73 20 66 6f 72 20 |me "Type| %s for |
|00000a80| 68 65 6c 70 2e 22 20 62 | 65 65 70 20 73 69 74 2d |help." b|eep sit-|
|00000a90| 66 6f 72 20 31 5d 20 31 | 30 20 22 5c 0a 41 73 6b |for 1] 1|0 "\.Ask|
|00000aa0| 20 61 20 73 65 72 69 65 | 73 20 6f 66 20 62 6f 6f | a serie|s of boo|
|00000ab0| 6c 65 61 6e 20 71 75 65 | 73 74 69 6f 6e 73 2e 0a |lean que|stions..|
|00000ac0| 54 61 6b 65 73 20 61 72 | 67 73 20 50 52 4f 4d 50 |Takes ar|gs PROMP|
|00000ad0| 54 45 52 20 41 43 54 4f | 52 20 4c 49 53 54 2c 20 |TER ACTO|R LIST, |
|00000ae0| 61 6e 64 20 6f 70 74 69 | 6f 6e 61 6c 20 61 72 67 |and opti|onal arg|
|00000af0| 73 20 48 45 4c 50 20 61 | 6e 64 20 41 43 54 49 4f |s HELP a|nd ACTIO|
|00000b00| 4e 2d 41 4c 49 53 54 2e | 0a 0a 4c 49 53 54 20 69 |N-ALIST.|..LIST i|
|00000b10| 73 20 61 20 6c 69 73 74 | 20 6f 66 20 6f 62 6a 65 |s a list| of obje|
|00000b20| 63 74 73 2c 20 6f 72 20 | 61 20 66 75 6e 63 74 69 |cts, or |a functi|
|00000b30| 6f 6e 20 6f 66 20 6e 6f | 20 61 72 67 75 6d 65 6e |on of no| argumen|
|00000b40| 74 73 20 74 6f 20 72 65 | 74 75 72 6e 20 74 68 65 |ts to re|turn the|
|00000b50| 20 6e 65 78 74 0a 6f 62 | 6a 65 63 74 20 6f 72 20 | next.ob|ject or |
|00000b60| 6e 69 6c 2e 0a 0a 49 66 | 20 50 52 4f 4d 50 54 45 |nil...If| PROMPTE|
|00000b70| 52 20 69 73 20 61 20 73 | 74 72 69 6e 67 2c 20 74 |R is a s|tring, t|
|00000b80| 68 65 20 70 72 6f 6d 70 | 74 20 69 73 20 28 66 6f |he promp|t is (fo|
|00000b90| 72 6d 61 74 20 50 52 4f | 4d 50 54 45 52 20 4f 42 |rmat PRO|MPTER OB|
|00000ba0| 4a 45 43 54 29 2e 20 20 | 49 66 20 6e 6f 74 0a 61 |JECT). |If not.a|
|00000bb0| 20 73 74 72 69 6e 67 2c | 20 50 52 4f 4d 50 54 45 | string,| PROMPTE|
|00000bc0| 52 20 69 73 20 61 20 66 | 75 6e 63 74 69 6f 6e 20 |R is a f|unction |
|00000bd0| 6f 66 20 6f 6e 65 20 61 | 72 67 20 28 61 6e 20 6f |of one a|rg (an o|
|00000be0| 62 6a 65 63 74 20 66 72 | 6f 6d 20 4c 49 53 54 29 |bject fr|om LIST)|
|00000bf0| 2c 20 77 68 69 63 68 0a | 72 65 74 75 72 6e 73 20 |, which.|returns |
|00000c00| 61 20 73 74 72 69 6e 67 | 20 74 6f 20 62 65 20 75 |a string| to be u|
|00000c10| 73 65 64 20 61 73 20 74 | 68 65 20 70 72 6f 6d 70 |sed as t|he promp|
|00000c20| 74 20 66 6f 72 20 74 68 | 61 74 20 6f 62 6a 65 63 |t for th|at objec|
|00000c30| 74 2e 20 20 49 66 20 74 | 68 65 20 72 65 74 75 72 |t. If t|he retur|
|00000c40| 6e 0a 76 61 6c 75 65 20 | 69 73 20 6e 6f 74 20 61 |n.value |is not a|
|00000c50| 20 73 74 72 69 6e 67 2c | 20 69 74 20 69 73 20 65 | string,| it is e|
|00000c60| 76 61 6c 27 64 20 74 6f | 20 67 65 74 20 74 68 65 |val'd to| get the|
|00000c70| 20 61 6e 73 77 65 72 3b | 20 69 74 20 6d 61 79 20 | answer;| it may |
|00000c80| 62 65 20 6e 69 6c 20 74 | 6f 0a 69 67 6e 6f 72 65 |be nil t|o.ignore|
|00000c90| 20 74 68 65 20 6f 62 6a | 65 63 74 2c 20 74 20 74 | the obj|ect, t t|
|00000ca0| 6f 20 61 63 74 20 6f 6e | 20 74 68 65 20 6f 62 6a |o act on| the obj|
|00000cb0| 65 63 74 20 77 69 74 68 | 6f 75 74 20 61 73 6b 69 |ect with|out aski|
|00000cc0| 6e 67 20 74 68 65 20 75 | 73 65 72 2c 20 6f 72 20 |ng the u|ser, or |
|00000cd0| 61 0a 66 6f 72 6d 20 74 | 6f 20 64 6f 20 61 20 6d |a.form t|o do a m|
|00000ce0| 6f 72 65 20 63 6f 6d 70 | 6c 65 78 20 70 72 6f 6d |ore comp|lex prom|
|00000cf0| 70 74 2e 0a 0a 41 43 54 | 4f 52 20 69 73 20 61 20 |pt...ACT|OR is a |
|00000d00| 66 75 6e 63 74 69 6f 6e | 20 6f 66 20 6f 6e 65 20 |function| of one |
|00000d10| 61 72 67 20 28 61 6e 20 | 6f 62 6a 65 63 74 20 66 |arg (an |object f|
|00000d20| 72 6f 6d 20 4c 49 53 54 | 29 2c 0a 77 68 69 63 68 |rom LIST|),.which|
|00000d30| 20 67 65 74 73 20 63 61 | 6c 6c 65 64 20 77 69 74 | gets ca|lled wit|
|00000d40| 68 20 65 61 63 68 20 6f | 62 6a 65 63 74 20 74 68 |h each o|bject th|
|00000d50| 61 74 20 74 68 65 20 75 | 73 65 72 20 61 6e 73 77 |at the u|ser answ|
|00000d60| 65 72 73 20 60 79 65 73 | 27 20 66 6f 72 2e 0a 0a |ers `yes|' for...|
|00000d70| 49 66 20 48 45 4c 50 20 | 69 73 20 67 69 76 65 6e |If HELP |is given|
|00000d80| 2c 20 69 74 20 69 73 20 | 61 20 6c 69 73 74 20 28 |, it is |a list (|
|00000d90| 4f 42 4a 45 43 54 20 4f | 42 4a 45 43 54 53 20 41 |OBJECT O|BJECTS A|
|00000da0| 43 54 49 4f 4e 29 2c 0a | 77 68 65 72 65 20 4f 42 |CTION),.|where OB|
|00000db0| 4a 45 43 54 20 69 73 20 | 61 20 73 74 72 69 6e 67 |JECT is |a string|
|00000dc0| 20 67 69 76 69 6e 67 20 | 74 68 65 20 73 69 6e 67 | giving |the sing|
|00000dd0| 75 6c 61 72 20 6e 6f 75 | 6e 20 66 6f 72 20 61 6e |ular nou|n for an|
|00000de0| 20 65 6c 74 20 6f 66 20 | 4c 49 53 54 3b 0a 4f 42 | elt of |LIST;.OB|
|00000df0| 4a 45 43 54 53 20 69 73 | 20 74 68 65 20 70 6c 75 |JECTS is| the plu|
|00000e00| 72 61 6c 20 6e 6f 75 6e | 20 66 6f 72 20 65 6c 74 |ral noun| for elt|
|00000e10| 73 20 6f 66 20 4c 49 53 | 54 2c 20 61 6e 64 20 41 |s of LIS|T, and A|
|00000e20| 43 54 49 4f 4e 20 69 73 | 20 61 20 74 72 61 6e 73 |CTION is| a trans|
|00000e30| 69 74 69 76 65 0a 76 65 | 72 62 20 64 65 73 63 72 |itive.ve|rb descr|
|00000e40| 69 62 69 6e 67 20 41 43 | 54 4f 52 2e 20 20 54 68 |ibing AC|TOR. Th|
|00000e50| 65 20 64 65 66 61 75 6c | 74 20 69 73 20 28 5c 22 |e defaul|t is (\"|
|00000e60| 6f 62 6a 65 63 74 5c 22 | 20 5c 22 6f 62 6a 65 63 |object\"| \"objec|
|00000e70| 74 73 5c 22 20 5c 22 61 | 63 74 20 6f 6e 5c 22 29 |ts\" \"a|ct on\")|
|00000e80| 2e 0a 0a 41 74 20 74 68 | 65 20 70 72 6f 6d 70 74 |...At th|e prompt|
|00000e90| 73 2c 20 74 68 65 20 75 | 73 65 72 20 6d 61 79 20 |s, the u|ser may |
|00000ea0| 65 6e 74 65 72 20 79 2c | 20 59 2c 20 6f 72 20 53 |enter y,| Y, or S|
|00000eb0| 50 43 20 74 6f 20 61 63 | 74 20 6f 6e 20 74 68 61 |PC to ac|t on tha|
|00000ec0| 74 20 6f 62 6a 65 63 74 | 3b 0a 6e 2c 20 4e 2c 20 |t object|;.n, N, |
|00000ed0| 6f 72 20 44 45 4c 20 74 | 6f 20 73 6b 69 70 20 74 |or DEL t|o skip t|
|00000ee0| 68 61 74 20 6f 62 6a 65 | 63 74 3b 20 21 20 74 6f |hat obje|ct; ! to|
|00000ef0| 20 61 63 74 20 6f 6e 20 | 61 6c 6c 20 66 6f 6c 6c | act on |all foll|
|00000f00| 6f 77 69 6e 67 20 6f 62 | 6a 65 63 74 73 3b 0a 45 |owing ob|jects;.E|
|00000f10| 53 43 20 6f 72 20 71 20 | 74 6f 20 65 78 69 74 20 |SC or q |to exit |
|00000f20| 28 73 6b 69 70 20 61 6c | 6c 20 66 6f 6c 6c 6f 77 |(skip al|l follow|
|00000f30| 69 6e 67 20 6f 62 6a 65 | 63 74 73 29 3b 20 2e 20 |ing obje|cts); . |
|00000f40| 28 70 65 72 69 6f 64 29 | 20 74 6f 20 61 63 74 20 |(period)| to act |
|00000f50| 6f 6e 20 74 68 65 0a 63 | 75 72 72 65 6e 74 20 6f |on the.c|urrent o|
|00000f60| 62 6a 65 63 74 20 61 6e | 64 20 74 68 65 6e 20 65 |bject an|d then e|
|00000f70| 78 69 74 3b 20 6f 72 20 | 5c 5c 5b 68 65 6c 70 2d |xit; or |\\[help-|
|00000f80| 63 6f 6d 6d 61 6e 64 5d | 20 74 6f 20 67 65 74 20 |command]| to get |
|00000f90| 68 65 6c 70 2e 0a 0a 49 | 66 20 41 43 54 49 4f 4e |help...I|f ACTION|
|00000fa0| 2d 41 4c 49 53 54 20 69 | 73 20 67 69 76 65 6e 2c |-ALIST i|s given,|
|00000fb0| 20 69 74 20 69 73 20 61 | 6e 20 61 6c 69 73 74 20 | it is a|n alist |
|00000fc0| 28 4b 45 59 20 46 55 4e | 43 54 49 4f 4e 20 48 45 |(KEY FUN|CTION HE|
|00000fd0| 4c 50 29 20 6f 66 20 65 | 78 74 72 61 20 6b 65 79 |LP) of e|xtra key|
|00000fe0| 73 0a 74 68 61 74 20 77 | 69 6c 6c 20 62 65 20 61 |s.that w|ill be a|
|00000ff0| 63 63 65 70 74 65 64 2e | 20 20 4b 45 59 20 69 73 |ccepted.| KEY is|
|00001000| 20 61 20 63 68 61 72 61 | 63 74 65 72 3b 20 46 55 | a chara|cter; FU|
|00001010| 4e 43 54 49 4f 4e 20 69 | 73 20 61 20 66 75 6e 63 |NCTION i|s a func|
|00001020| 74 69 6f 6e 20 6f 66 20 | 6f 6e 65 0a 61 72 67 20 |tion of |one.arg |
|00001030| 28 61 6e 20 6f 62 6a 65 | 63 74 20 66 72 6f 6d 20 |(an obje|ct from |
|00001040| 4c 49 53 54 29 3b 20 48 | 45 4c 50 20 69 73 20 61 |LIST); H|ELP is a|
|00001050| 20 73 74 72 69 6e 67 2e | 20 20 57 68 65 6e 20 74 | string.| When t|
|00001060| 68 65 20 75 73 65 72 20 | 68 69 74 73 20 4b 45 59 |he user |hits KEY|
|00001070| 2c 0a 46 55 4e 43 54 49 | 4f 4e 20 69 73 20 63 61 |,.FUNCTI|ON is ca|
|00001080| 6c 6c 65 64 2e 20 20 49 | 66 20 69 74 20 72 65 74 |lled. I|f it ret|
|00001090| 75 72 6e 73 20 6e 6f 6e | 2d 6e 69 6c 2c 20 74 68 |urns non|-nil, th|
|000010a0| 65 20 6f 62 6a 65 63 74 | 20 69 73 20 63 6f 6e 73 |e object| is cons|
|000010b0| 69 64 65 72 65 64 0a 5c | 22 61 63 74 65 64 20 75 |idered.\|"acted u|
|000010c0| 70 6f 6e 5c 22 2c 20 61 | 6e 64 20 74 68 65 20 6e |pon\", a|nd the n|
|000010d0| 65 78 74 20 6f 62 6a 65 | 63 74 20 66 72 6f 6d 20 |ext obje|ct from |
|000010e0| 4c 49 53 54 20 69 73 20 | 70 72 6f 63 65 73 73 65 |LIST is |processe|
|000010f0| 64 2e 20 20 49 66 20 69 | 74 20 72 65 74 75 72 6e |d. If i|t return|
|00001100| 73 0a 6e 69 6c 2c 20 74 | 68 65 20 70 72 6f 6d 70 |s.nil, t|he promp|
|00001110| 74 20 69 73 20 72 65 70 | 65 61 74 65 64 20 66 6f |t is rep|eated fo|
|00001120| 72 20 74 68 65 20 73 61 | 6d 65 20 6f 62 6a 65 63 |r the sa|me objec|
|00001130| 74 2e 0a 0a 46 69 6e 61 | 6c 20 6f 70 74 69 6f 6e |t...Fina|l option|
|00001140| 61 6c 20 61 72 67 75 6d | 65 6e 74 20 4e 4f 2d 43 |al argum|ent NO-C|
|00001150| 55 52 53 4f 52 2d 49 4e | 2d 45 43 48 4f 2d 41 52 |URSOR-IN|-ECHO-AR|
|00001160| 45 41 20 6e 6f 6e 2d 6e | 69 6c 20 73 61 79 73 20 |EA non-n|il says |
|00001170| 6e 6f 74 20 74 6f 20 73 | 65 74 0a 60 63 75 72 73 |not to s|et.`curs|
|00001180| 6f 72 2d 69 6e 2d 65 63 | 68 6f 2d 61 72 65 61 27 |or-in-ec|ho-area'|
|00001190| 20 77 68 69 6c 65 20 70 | 72 6f 6d 70 74 69 6e 67 | while p|rompting|
|000011a0| 2e 0a 0a 54 68 69 73 20 | 66 75 6e 63 74 69 6f 6e |...This |function|
|000011b0| 20 75 73 65 73 20 60 71 | 75 65 72 79 2d 72 65 70 | uses `q|uery-rep|
|000011c0| 6c 61 63 65 2d 6d 61 70 | 27 20 74 6f 20 64 65 66 |lace-map|' to def|
|000011d0| 69 6e 65 20 74 68 65 20 | 73 74 61 6e 64 61 72 64 |ine the |standard|
|000011e0| 20 72 65 73 70 6f 6e 73 | 65 73 2c 0a 62 75 74 20 | respons|es,.but |
|000011f0| 6e 6f 74 20 61 6c 6c 20 | 6f 66 20 74 68 65 20 72 |not all |of the r|
|00001200| 65 73 70 6f 6e 73 65 73 | 20 77 68 69 63 68 20 60 |esponses| which `|
|00001210| 71 75 65 72 79 2d 72 65 | 70 6c 61 63 65 27 20 75 |query-re|place' u|
|00001220| 6e 64 65 72 73 74 61 6e | 64 73 0a 61 72 65 20 6d |nderstan|ds.are m|
|00001230| 65 61 6e 69 6e 67 66 75 | 6c 20 68 65 72 65 2e 0a |eaningfu|l here..|
|00001240| 0a 52 65 74 75 72 6e 73 | 20 74 68 65 20 6e 75 6d |.Returns| the num|
|00001250| 62 65 72 20 6f 66 20 61 | 63 74 69 6f 6e 73 20 74 |ber of a|ctions t|
|00001260| 61 6b 65 6e 2e 22 5d 29 | 0a |aken."])|. |
+--------+-------------------------+-------------------------+--------+--------+
