/ Gold Fish 3 / goldfish_volume_3.bin / files / util / edit / jade / lisp / loadmenus.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 6f |jade/3.2|/lisp/lo|
|00000030| 61 64 6d 65 6e 75 73 2e | 6a 6c 0a 3b 3b 3b 20 43 |admenus.|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 37 20 31 39 |t 16 20:|20:57 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 6a 61 64 65 2d 62 | 79 74 65 2d 63 6f 64 65 |.(jade-b|yte-code|
|00000090| 20 22 10 08 5d fc 00 0c | 11 12 09 fb 00 16 13 14 | "..]...|........|
|000000a0| 15 16 06 16 07 16 08 0d | 22 20 5b 61 6d 69 67 61 |........|" [amiga|
|000000b0| 2d 70 20 65 72 72 6f 72 | 20 22 4d 65 6e 75 73 20 |-p error| "Menus |
|000000c0| 6f 6e 6c 79 20 77 6f 72 | 6b 20 6f 6e 20 61 6e 20 |only wor|k on an |
|000000d0| 41 6d 69 67 61 22 20 73 | 65 74 2d 6d 65 6e 75 20 |Amiga" s|et-menu |
|000000e0| 28 22 50 72 6f 6a 65 63 | 74 22 20 28 22 4f 70 65 |("Projec|t" ("Ope|
|000000f0| 6e 20 66 69 6c 65 2e 2e | 2e 20 28 43 2d 78 20 43 |n file..|. (C-x C|
|00000100| 2d 66 29 22 20 66 69 6e | 64 2d 66 69 6c 65 29 20 |-f)" fin|d-file) |
|00000110| 28 22 4f 70 65 6e 20 77 | 69 6e 64 6f 77 20 28 43 |("Open w|indow (C|
|00000120| 2d 78 20 32 29 22 20 6f | 70 65 6e 2d 77 69 6e 64 |-x 2)" o|pen-wind|
|00000130| 6f 77 29 20 28 22 49 6e | 73 65 72 74 20 66 69 6c |ow) ("In|sert fil|
|00000140| 65 2e 2e 2e 20 28 43 2d | 78 20 69 29 22 20 69 6e |e... (C-|x i)" in|
|00000150| 73 65 72 74 2d 66 69 6c | 65 29 20 6e 69 6c 20 28 |sert-fil|e) nil (|
|00000160| 22 53 61 76 65 20 66 69 | 6c 65 20 28 43 2d 78 20 |"Save fi|le (C-x |
|00000170| 43 2d 73 29 22 20 73 61 | 76 65 2d 66 69 6c 65 29 |C-s)" sa|ve-file)|
|00000180| 20 28 22 53 61 76 65 20 | 66 69 6c 65 20 61 73 2e | ("Save |file as.|
|00000190| 2e 2e 20 28 43 2d 78 20 | 43 2d 77 29 22 20 73 61 |.. (C-x |C-w)" sa|
|000001a0| 76 65 2d 66 69 6c 65 2d | 61 73 29 20 28 22 53 61 |ve-file-|as) ("Sa|
|000001b0| 76 65 20 73 6f 6d 65 2e | 2e 2e 20 28 43 2d 78 20 |ve some.|.. (C-x |
|000001c0| 73 29 22 20 73 61 76 65 | 2d 73 6f 6d 65 2d 62 75 |s)" save|-some-bu|
|000001d0| 66 66 65 72 73 29 20 6e | 69 6c 20 28 22 43 6c 65 |ffers) n|il ("Cle|
|000001e0| 61 72 20 62 75 66 66 65 | 72 22 20 28 77 68 65 6e |ar buffe|r" (when|
|000001f0| 20 28 63 68 65 63 6b 2d | 63 68 61 6e 67 65 73 29 | (check-|changes)|
|00000200| 20 28 63 6c 65 61 72 2d | 62 75 66 66 65 72 29 29 | (clear-|buffer))|
|00000210| 29 20 28 22 4b 69 6c 6c | 20 62 75 66 66 65 72 2e |) ("Kill| buffer.|
|00000220| 2e 2e 20 28 43 2d 78 20 | 6b 29 22 20 6b 69 6c 6c |.. (C-x |k)" kill|
|00000230| 2d 62 75 66 66 65 72 29 | 20 28 22 53 77 69 74 63 |-buffer)| ("Switc|
|00000240| 68 20 62 75 66 66 65 72 | 2e 2e 2e 20 28 43 2d 78 |h buffer|... (C-x|
|00000250| 20 62 29 22 20 73 77 69 | 74 63 68 2d 74 6f 2d 62 | b)" swi|tch-to-b|
|00000260| 75 66 66 65 72 29 20 28 | 22 54 6f 67 67 6c 65 20 |uffer) (|"Toggle |
|00000270| 72 65 61 64 2d 6f 6e 6c | 79 20 28 43 2d 78 20 71 |read-onl|y (C-x q|
|00000280| 29 22 20 28 73 65 74 2d | 62 75 66 66 65 72 2d 72 |)" (set-|buffer-r|
|00000290| 65 61 64 2d 6f 6e 6c 79 | 20 6e 69 6c 20 28 6e 6f |ead-only| nil (no|
|000002a0| 74 20 28 62 75 66 66 65 | 72 2d 72 65 61 64 2d 6f |t (buffe|r-read-o|
|000002b0| 6e 6c 79 2d 70 29 29 29 | 29 20 28 22 54 6f 67 67 |nly-p)))|) ("Togg|
|000002c0| 6c 65 20 6d 6f 64 69 66 | 69 65 64 20 28 4d 2d 7e |le modif|ied (M-~|
|000002d0| 29 22 20 28 73 65 74 2d | 62 75 66 66 65 72 2d 6d |)" (set-|buffer-m|
|000002e0| 6f 64 69 66 69 65 64 20 | 6e 69 6c 20 6e 69 6c 29 |odified |nil nil)|
|000002f0| 29 20 28 22 43 6c 6f 73 | 65 20 73 65 72 76 65 72 |) ("Clos|e server|
|00000300| 20 66 69 6c 65 20 28 43 | 74 72 6c 2d 78 20 23 29 | file (C|trl-x #)|
|00000310| 22 20 73 65 72 76 65 72 | 2d 63 6c 6f 73 65 2d 66 |" server|-close-f|
|00000320| 69 6c 65 29 20 6e 69 6c | 20 28 22 43 6c 6f 73 65 |ile) nil| ("Close|
|00000330| 20 77 69 6e 64 6f 77 20 | 28 43 2d 78 20 30 29 22 | window |(C-x 0)"|
|00000340| 20 63 6c 6f 73 65 2d 77 | 69 6e 64 6f 77 29 20 28 | close-w|indow) (|
|00000350| 22 43 6c 6f 73 65 20 6f | 74 68 65 72 20 77 69 6e |"Close o|ther win|
|00000360| 64 6f 77 73 20 28 43 2d | 78 20 31 29 22 20 63 6c |dows (C-|x 1)" cl|
|00000370| 6f 73 65 2d 6f 74 68 65 | 72 2d 77 69 6e 64 6f 77 |ose-othe|r-window|
|00000380| 73 29 20 6e 69 6c 20 28 | 22 51 75 69 74 20 28 43 |s) nil (|"Quit (C|
|00000390| 2d 78 20 43 2d 63 29 22 | 20 73 61 76 65 2d 61 6e |-x C-c)"| save-an|
|000003a0| 64 2d 71 75 69 74 29 29 | 20 28 22 45 64 69 74 22 |d-quit))| ("Edit"|
|000003b0| 20 28 22 4d 61 72 6b 20 | 62 6c 6f 63 6b 20 28 43 | ("Mark |block (C|
|000003c0| 2d 53 50 43 29 22 20 62 | 6c 6f 63 6b 2d 74 6f 67 |-SPC)" b|lock-tog|
|000003d0| 67 6c 65 29 20 28 22 4d | 61 72 6b 20 72 65 63 74 |gle) ("M|ark rect|
|000003e0| 61 6e 67 6c 65 73 20 28 | 43 2d 4d 29 22 20 74 6f |angles (|C-M)" to|
|000003f0| 67 67 6c 65 2d 72 65 63 | 74 2d 62 6c 6f 63 6b 73 |ggle-rec|t-blocks|
|00000400| 29 20 28 22 4d 61 72 6b | 20 77 68 6f 6c 65 20 62 |) ("Mark| whole b|
|00000410| 75 66 66 65 72 20 28 43 | 2d 78 20 68 29 22 20 6d |uffer (C|-x h)" m|
|00000420| 61 72 6b 2d 77 68 6f 6c | 65 2d 62 75 66 66 65 72 |ark-whol|e-buffer|
|00000430| 29 20 6e 69 6c 20 28 22 | 4b 69 6c 6c 20 62 6c 6f |) nil ("|Kill blo|
|00000440| 63 6b 20 28 43 2d 77 29 | 22 20 6b 69 6c 6c 2d 62 |ck (C-w)|" kill-b|
|00000450| 6c 6f 63 6b 29 20 28 22 | 43 6f 70 79 20 62 6c 6f |lock) ("|Copy blo|
|00000460| 63 6b 20 28 4d 2d 77 29 | 22 20 63 6f 70 79 2d 62 |ck (M-w)|" copy-b|
|00000470| 6c 6f 63 6b 2d 61 73 2d | 6b 69 6c 6c 29 20 28 22 |lock-as-|kill) ("|
|00000480| 44 65 6c 65 74 65 20 62 | 6c 6f 63 6b 20 28 43 2d |Delete b|lock (C-|
|00000490| 7a 29 22 20 64 65 6c 65 | 74 65 2d 62 6c 6f 63 6b |z)" dele|te-block|
|000004a0| 29 20 28 22 55 70 63 61 | 73 65 20 62 6c 6f 63 6b |) ("Upca|se block|
|000004b0| 20 28 43 2d 78 20 43 2d | 75 29 22 20 75 70 63 61 | (C-x C-|u)" upca|
|000004c0| 73 65 2d 61 72 65 61 29 | 20 28 22 44 6f 77 6e 63 |se-area)| ("Downc|
|000004d0| 61 73 65 20 62 6c 6f 63 | 6b 20 28 43 2d 78 20 43 |ase bloc|k (C-x C|
|000004e0| 2d 6c 29 22 20 64 6f 77 | 6e 63 61 73 65 2d 61 72 |-l)" dow|ncase-ar|
|000004f0| 65 61 29 20 6e 69 6c 20 | 28 22 4b 69 6c 6c 20 77 |ea) nil |("Kill w|
|00000500| 6f 72 64 20 28 4d 2d 6b | 29 22 20 6b 69 6c 6c 2d |ord (M-k|)" kill-|
|00000510| 77 6f 72 64 29 20 28 22 | 55 70 63 61 73 65 20 77 |word) ("|Upcase w|
|00000520| 6f 72 64 20 28 4d 2d 75 | 29 22 20 75 70 63 61 73 |ord (M-u|)" upcas|
|00000530| 65 2d 77 6f 72 64 29 20 | 28 22 44 6f 77 6e 63 61 |e-word) |("Downca|
|00000540| 73 65 20 77 6f 72 64 20 | 28 4d 2d 6c 29 22 20 64 |se word |(M-l)" d|
|00000550| 6f 77 6e 63 61 73 65 2d | 77 6f 72 64 29 20 28 22 |owncase-|word) ("|
|00000560| 43 61 70 69 74 61 6c 69 | 73 65 20 77 6f 72 64 20 |Capitali|se word |
|00000570| 28 4d 2d 63 29 22 20 63 | 61 70 69 74 61 6c 69 7a |(M-c)" c|apitaliz|
|00000580| 65 2d 77 6f 72 64 29 20 | 6e 69 6c 20 28 22 59 61 |e-word) |nil ("Ya|
|00000590| 6e 6b 20 28 43 2d 79 29 | 22 20 79 61 6e 6b 29 20 |nk (C-y)|" yank) |
|000005a0| 28 22 52 65 63 74 61 6e | 67 75 6c 61 72 20 79 61 |("Rectan|gular ya|
|000005b0| 6e 6b 20 28 43 2d 59 29 | 22 20 72 65 63 74 61 6e |nk (C-Y)|" rectan|
|000005c0| 67 75 6c 61 72 2d 79 61 | 6e 6b 29 20 28 22 49 6e |gular-ya|nk) ("In|
|000005d0| 73 65 72 74 20 62 6c 6f | 63 6b 20 28 43 2d 69 29 |sert blo|ck (C-i)|
|000005e0| 22 20 69 6e 73 65 72 74 | 2d 62 6c 6f 63 6b 29 20 |" insert|-block) |
|000005f0| 28 22 4b 69 6c 6c 20 6c | 69 6e 65 20 28 43 2d 6b |("Kill l|ine (C-k|
|00000600| 29 22 20 6b 69 6c 6c 2d | 6c 69 6e 65 29 20 6e 69 |)" kill-|line) ni|
|00000610| 6c 20 28 22 55 6e 64 6f | 20 28 43 2d 78 20 75 29 |l ("Undo| (C-x u)|
|00000620| 22 20 75 6e 64 6f 29 29 | 20 28 22 46 69 6e 64 22 |" undo))| ("Find"|
|00000630| 20 28 22 49 2d 73 65 61 | 72 63 68 2e 2e 2e 20 28 | ("I-sea|rch... (|
|00000640| 43 2d 73 29 22 20 69 73 | 65 61 72 63 68 2d 66 6f |C-s)" is|earch-fo|
|00000650| 72 77 61 72 64 29 20 28 | 22 49 2d 73 65 61 72 63 |rward) (|"I-searc|
|00000660| 68 20 62 61 63 6b 77 61 | 72 64 73 2e 2e 2e 20 28 |h backwa|rds... (|
|00000670| 43 2d 72 29 22 20 69 73 | 65 61 72 63 68 2d 62 61 |C-r)" is|earch-ba|
|00000680| 63 6b 77 61 72 64 29 20 | 6e 69 6c 20 28 22 47 6c |ckward) |nil ("Gl|
|00000690| 6f 62 61 6c 20 72 65 70 | 6c 61 63 65 2e 2e 2e 22 |obal rep|lace..."|
|000006a0| 20 72 65 70 6c 61 63 65 | 2d 61 6c 6c 29 20 28 22 | replace|-all) ("|
|000006b0| 51 75 65 72 79 20 72 65 | 70 6c 61 63 65 2e 2e 2e |Query re|place...|
|000006c0| 20 28 4d 2d 25 29 22 20 | 71 75 65 72 79 2d 72 65 | (M-%)" |query-re|
|000006d0| 70 6c 61 63 65 29 20 6e | 69 6c 20 28 22 4c 69 6e |place) n|il ("Lin|
|000006e0| 65 20 6e 75 6d 62 65 72 | 2e 2e 2e 20 28 43 2d 6a |e number|... (C-j|
|000006f0| 29 22 20 67 6f 74 6f 2d | 6c 69 6e 65 29 20 28 22 |)" goto-|line) ("|
|00000700| 4d 61 74 63 68 69 6e 67 | 20 62 72 61 63 6b 65 74 |Matching| bracket|
|00000710| 20 28 4d 2d 6e 29 22 20 | 28 70 72 6f 67 6e 20 28 | (M-n)" |(progn (|
|00000720| 73 65 74 2d 61 75 74 6f | 2d 6d 61 72 6b 29 20 28 |set-auto|-mark) (|
|00000730| 67 6f 74 6f 2d 6d 61 74 | 63 68 69 6e 67 2d 62 72 |goto-mat|ching-br|
|00000740| 61 63 6b 65 74 29 29 29 | 20 28 22 4e 65 78 74 20 |acket)))| ("Next |
|00000750| 77 69 6e 64 6f 77 20 28 | 43 2d 78 20 6f 29 22 20 |window (|C-x o)" |
|00000760| 28 73 65 74 2d 63 75 72 | 72 65 6e 74 2d 77 69 6e |(set-cur|rent-win|
|00000770| 64 6f 77 20 28 6e 65 78 | 74 2d 77 69 6e 64 6f 77 |dow (nex|t-window|
|00000780| 29 20 74 29 29 29 20 28 | 22 4d 61 72 6b 73 22 20 |) t))) (|"Marks" |
|00000790| 28 22 53 65 74 20 61 75 | 74 6f 2d 6d 61 72 6b 20 |("Set au|to-mark |
|000007a0| 28 43 2d 23 29 22 20 73 | 65 74 2d 61 75 74 6f 2d |(C-#)" s|et-auto-|
|000007b0| 6d 61 72 6b 29 20 28 22 | 47 6f 74 6f 20 61 75 74 |mark) ("|Goto aut|
|000007c0| 6f 2d 6d 61 72 6b 20 28 | 43 2d 78 20 43 2d 78 29 |o-mark (|C-x C-x)|
|000007d0| 22 20 73 77 61 70 2d 63 | 75 72 73 6f 72 2d 61 6e |" swap-c|ursor-an|
|000007e0| 64 2d 61 75 74 6f 2d 6d | 61 72 6b 29 20 6e 69 6c |d-auto-m|ark) nil|
|000007f0| 20 28 22 53 65 74 20 23 | 31 20 28 53 2d 46 31 29 | ("Set #|1 (S-F1)|
|00000800| 22 20 28 73 65 74 2d 6d | 61 72 6b 20 6d 61 72 6b |" (set-m|ark mark|
|00000810| 2d 31 20 28 63 75 72 73 | 6f 72 2d 70 6f 73 29 20 |-1 (curs|or-pos) |
|00000820| 28 63 75 72 72 65 6e 74 | 2d 62 75 66 66 65 72 29 |(current|-buffer)|
|00000830| 29 29 20 28 22 53 65 74 | 20 23 32 20 28 53 2d 46 |)) ("Set| #2 (S-F|
|00000840| 32 29 22 20 28 73 65 74 | 2d 6d 61 72 6b 20 6d 61 |2)" (set|-mark ma|
|00000850| 72 6b 2d 32 20 28 63 75 | 72 73 6f 72 2d 70 6f 73 |rk-2 (cu|rsor-pos|
|00000860| 29 20 28 63 75 72 72 65 | 6e 74 2d 62 75 66 66 65 |) (curre|nt-buffe|
|00000870| 72 29 29 29 20 28 22 53 | 65 74 20 23 33 20 28 53 |r))) ("S|et #3 (S|
|00000880| 2d 46 33 29 22 20 28 73 | 65 74 2d 6d 61 72 6b 20 |-F3)" (s|et-mark |
|00000890| 6d 61 72 6b 2d 33 20 28 | 63 75 72 73 6f 72 2d 70 |mark-3 (|cursor-p|
|000008a0| 6f 73 29 20 28 63 75 72 | 72 65 6e 74 2d 62 75 66 |os) (cur|rent-buf|
|000008b0| 66 65 72 29 29 29 20 6e | 69 6c 20 28 22 47 6f 74 |fer))) n|il ("Got|
|000008c0| 6f 20 23 31 20 28 46 31 | 29 22 20 28 67 6f 74 6f |o #1 (F1|)" (goto|
|000008d0| 2d 6d 61 72 6b 20 6d 61 | 72 6b 2d 31 29 29 20 28 |-mark ma|rk-1)) (|
|000008e0| 22 47 6f 74 6f 20 23 32 | 20 28 46 32 29 22 20 28 |"Goto #2| (F2)" (|
|000008f0| 67 6f 74 6f 2d 6d 61 72 | 6b 20 6d 61 72 6b 2d 32 |goto-mar|k mark-2|
|00000900| 29 29 20 28 22 47 6f 74 | 6f 20 23 33 20 28 46 33 |)) ("Got|o #3 (F3|
|00000910| 29 22 20 28 67 6f 74 6f | 2d 6d 61 72 6b 20 6d 61 |)" (goto|-mark ma|
|00000920| 72 6b 2d 33 29 29 29 20 | 28 22 48 65 6c 70 22 20 |rk-3))) |("Help" |
|00000930| 28 22 44 65 73 63 72 69 | 62 65 20 6b 65 79 2e 2e |("Descri|be key..|
|00000940| 2e 20 28 43 2d 68 20 6b | 29 22 20 64 65 73 63 72 |. (C-h k|)" descr|
|00000950| 69 62 65 2d 6b 65 79 29 | 20 28 22 50 72 69 6e 74 |ibe-key)| ("Print|
|00000960| 20 6b 65 79 20 62 69 6e | 64 69 6e 67 73 20 28 43 | key bin|dings (C|
|00000970| 2d 68 20 62 29 22 20 70 | 72 69 6e 74 2d 6b 65 79 |-h b)" p|rint-key|
|00000980| 6d 61 70 29 20 28 22 44 | 65 73 63 72 69 62 65 20 |map) ("D|escribe |
|00000990| 65 64 69 74 69 6e 67 20 | 6d 6f 64 65 20 28 43 2d |editing |mode (C-|
|000009a0| 68 20 6d 29 22 20 64 65 | 73 63 72 69 62 65 2d 6d |h m)" de|scribe-m|
|000009b0| 6f 64 65 29 20 6e 69 6c | 20 28 22 44 65 73 63 72 |ode) nil| ("Descr|
|000009c0| 69 62 65 20 76 61 72 69 | 61 62 6c 65 2e 2e 2e 20 |ibe vari|able... |
|000009d0| 28 43 2d 68 20 76 29 22 | 20 64 65 73 63 72 69 62 |(C-h v)"| describ|
|000009e0| 65 2d 76 61 72 69 61 62 | 6c 65 29 20 28 22 44 65 |e-variab|le) ("De|
|000009f0| 73 63 72 69 62 65 20 66 | 75 6e 63 74 69 6f 6e 2e |scribe f|unction.|
|00000a00| 2e 2e 20 28 43 2d 68 20 | 66 29 22 20 64 65 73 63 |.. (C-h |f)" desc|
|00000a10| 72 69 62 65 2d 66 75 6e | 63 74 69 6f 6e 29 29 5d |ribe-fun|ction))]|
|00000a20| 20 36 29 0a             |                         | 6).    |        |
+--------+-------------------------+-------------------------+--------+--------+