/ BCI NET 2 / BCI NET 2.iso / archives / programming / source / a2.0bemacs-src.lha / Emacs-19.25 / lisp / lmenu.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|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 6d 73 40 6d 6f 6c |piled by| rms@mol|
|00000020| 65 2e 67 6e 75 2e 61 69 | 2e 6d 69 74 2e 65 64 75 |e.gnu.ai|.mit.edu|
|00000030| 20 6f 6e 20 53 61 74 20 | 4d 61 79 20 32 38 20 31 | on Sat |May 28 1|
|00000040| 37 3a 35 34 3a 35 39 20 | 31 39 39 34 0a 3b 3b 3b |7:54:59 |1994.;;;|
|00000050| 20 66 72 6f 6d 20 66 69 | 6c 65 20 2f 68 6f 6d 65 | from fi|le /home|
|00000060| 2f 66 73 66 2f 72 6d 73 | 2f 65 31 39 2f 6c 69 73 |/fsf/rms|/e19/lis|
|00000070| 70 2f 6c 6d 65 6e 75 2e | 65 6c 0a 3b 3b 3b 20 65 |p/lmenu.|el.;;; e|
|00000080| 6d 61 63 73 20 76 65 72 | 73 69 6f 6e 20 31 39 2e |macs ver|sion 19.|
|00000090| 32 33 2e 39 30 2e 31 2e | 0a 3b 3b 3b 20 62 79 74 |23.90.1.|.;;; byt|
|000000a0| 65 63 6f 6d 70 20 76 65 | 72 73 69 6f 6e 20 46 53 |ecomp ve|rsion FS|
|000000b0| 46 20 32 2e 31 30 0a 3b | 3b 3b 20 6f 70 74 69 6d |F 2.10.;|;; optim|
|000000c0| 69 7a 61 74 69 6f 6e 20 | 69 73 20 6f 6e 2e 0a 3b |ization |is on..;|
|000000d0| 3b 3b 20 74 68 69 73 20 | 66 69 6c 65 20 75 73 65 |;; this |file use|
|000000e0| 73 20 6f 70 63 6f 64 65 | 73 20 77 68 69 63 68 20 |s opcode|s which |
|000000f0| 64 6f 20 6e 6f 74 20 65 | 78 69 73 74 20 69 6e 20 |do not e|xist in |
|00000100| 45 6d 61 63 73 20 31 38 | 2e 0a 0a 28 69 66 20 28 |Emacs 18|...(if (|
|00000110| 61 6e 64 20 28 62 6f 75 | 6e 64 70 20 27 65 6d 61 |and (bou|ndp 'ema|
|00000120| 63 73 2d 76 65 72 73 69 | 6f 6e 29 0a 09 20 28 6f |cs-versi|on).. (o|
|00000130| 72 20 28 61 6e 64 20 28 | 62 6f 75 6e 64 70 20 27 |r (and (|boundp '|
|00000140| 65 70 6f 63 68 3a 3a 76 | 65 72 73 69 6f 6e 29 20 |epoch::v|ersion) |
|00000150| 65 70 6f 63 68 3a 3a 76 | 65 72 73 69 6f 6e 29 0a |epoch::v|ersion).|
|00000160| 09 20 20 20 20 20 28 73 | 74 72 69 6e 67 2d 6c 65 |.     (s|tring-le|
|00000170| 73 73 70 20 65 6d 61 63 | 73 2d 76 65 72 73 69 6f |ssp emac|s-versio|
|00000180| 6e 20 22 31 39 22 29 29 | 29 0a 20 20 20 20 28 65 |n "19"))|).    (e|
|00000190| 72 72 6f 72 20 22 60 2f | 68 6f 6d 65 2f 66 73 66 |rror "`/|home/fsf|
|000001a0| 2f 72 6d 73 2f 65 31 39 | 2f 6c 69 73 70 2f 6c 6d |/rms/e19|/lisp/lm|
|000001b0| 65 6e 75 2e 65 6c 27 20 | 77 61 73 20 63 6f 6d 70 |enu.el' |was comp|
|000001c0| 69 6c 65 64 20 66 6f 72 | 20 45 6d 61 63 73 20 31 |iled for| Emacs 1|
|000001d0| 39 22 29 29 0a 0a 28 62 | 79 74 65 2d 63 6f 64 65 |9"))..(b|yte-code|
|000001e0| 20 22 c0 10 c1 c0 c2 5c | 22 88 c3 c4 21 84 10 00 | ".....\|"...!...|
|000001f0| c5 20 14 c6 0e 07 9e 84 | 1f 00 c6 5c 66 42 0e 07 |. ......|...\fB..|
|00000200| 42 16 07 c1 c8 c9 5c 22 | 88 c3 ca 21 84 2d 00 cb |B.....\"|...!.-..|
|00000210| 16 5c 6e c1 cc cd 5c 22 | 87 22 20 5b 72 65 63 6f |.\n...\"|." [reco|
|00000220| 6d 70 75 74 65 2d 6c 75 | 63 69 64 2d 6d 65 6e 75 |mpute-lu|cid-menu|
|00000230| 62 61 72 20 64 65 66 61 | 6c 69 61 73 20 23 5b 6e |bar defa|lias #[n|
|00000240| 69 6c 20 22 c0 09 c2 c3 | c4 c5 8f 23 88 c3 89 16 |il "....|...#....|
|00000250| 06 87 22 20 5b 64 65 66 | 69 6e 65 2d 6b 65 79 20 |.." [def|ine-key |
|00000260| 6c 75 63 69 64 2d 6d 65 | 6e 75 62 61 72 2d 6d 61 |lucid-me|nubar-ma|
|00000270| 70 20 5b 6d 65 6e 75 2d | 62 61 72 5d 20 6e 69 6c |p [menu-|bar] nil|
|00000280| 20 28 6d 61 6b 65 2d 6c | 75 63 69 64 2d 6d 65 6e | (make-l|ucid-men|
|00000290| 75 2d 6b 65 79 6d 61 70 | 20 22 6d 65 6e 75 2d 62 |u-keymap| "menu-b|
|000002a0| 61 72 22 20 63 75 72 72 | 65 6e 74 2d 6d 65 6e 75 |ar" curr|ent-menu|
|000002b0| 62 61 72 29 20 28 28 65 | 72 72 6f 72 20 28 62 79 |bar) ((e|rror (by|
|000002c0| 74 65 2d 63 6f 64 65 20 | 22 c0 c1 21 88 c2 c3 21 |te-code |"..!...!|
|000002d0| 88 5c 66 15 c6 89 14 87 | 22 20 5b 6d 65 73 73 61 |.\f.....|" [messa|
|000002e0| 67 65 20 22 49 6e 76 61 | 6c 69 64 20 64 61 74 61 |ge "Inva|lid data|
|000002f0| 20 69 6e 20 63 75 72 72 | 65 6e 74 2d 6d 65 6e 75 | in curr|ent-menu|
|00000300| 62 61 72 20 6d 6f 76 65 | 64 20 74 6f 20 6c 75 63 |bar move|d to luc|
|00000310| 69 64 2d 66 61 69 6c 69 | 6e 67 2d 6d 65 6e 75 62 |id-faili|ng-menub|
|00000320| 61 72 22 20 73 69 74 2d | 66 6f 72 20 31 20 63 75 |ar" sit-|for 1 cu|
|00000330| 72 72 65 6e 74 2d 6d 65 | 6e 75 62 61 72 20 6c 75 |rrent-me|nubar lu|
|00000340| 63 69 64 2d 66 61 69 6c | 69 6e 67 2d 6d 65 6e 75 |cid-fail|ing-menu|
|00000350| 62 61 72 20 6e 69 6c 5d | 20 32 29 29 29 20 6c 75 |bar nil]| 2))) lu|
|00000360| 63 69 64 2d 6d 65 6e 75 | 2d 62 61 72 2d 64 69 72 |cid-menu|-bar-dir|
|00000370| 74 79 2d 66 6c 61 67 5d | 20 36 5d 20 62 6f 75 6e |ty-flag]| 6] boun|
|00000380| 64 70 20 6c 75 63 69 64 | 2d 6d 65 6e 75 62 61 72 |dp lucid|-menubar|
|00000390| 2d 6d 61 70 20 6d 61 6b | 65 2d 73 70 61 72 73 65 |-map mak|e-sparse|
|000003a0| 2d 6b 65 79 6d 61 70 20 | 63 75 72 72 65 6e 74 2d |-keymap |current-|
|000003b0| 6d 65 6e 75 62 61 72 20 | 6d 69 6e 6f 72 2d 6d 6f |menubar |minor-mo|
|000003c0| 64 65 2d 6d 61 70 2d 61 | 6c 69 73 74 20 73 65 74 |de-map-a|list set|
|000003d0| 2d 6d 65 6e 75 62 61 72 | 2d 64 69 72 74 79 2d 66 |-menubar|-dirty-f|
|000003e0| 6c 61 67 20 23 5b 6e 69 | 6c 20 22 c0 20 88 c1 89 |lag #[ni|l ". ...|
|000003f0| 12 87 22 20 5b 66 6f 72 | 63 65 2d 6d 6f 64 65 2d |.." [for|ce-mode-|
|00000400| 6c 69 6e 65 2d 75 70 64 | 61 74 65 20 74 20 6c 75 |line-upd|ate t lu|
|00000410| 63 69 64 2d 6d 65 6e 75 | 2d 62 61 72 2d 64 69 72 |cid-menu|-bar-dir|
|00000420| 74 79 2d 66 6c 61 67 5d | 20 32 5d 20 61 64 64 2d |ty-flag]| 2] add-|
|00000430| 6d 65 6e 75 2d 69 74 65 | 6d 2d 63 6f 75 6e 74 20 |menu-ite|m-count |
|00000440| 30 20 6d 61 6b 65 2d 6c | 75 63 69 64 2d 6d 65 6e |0 make-l|ucid-men|
|00000450| 75 2d 6b 65 79 6d 61 70 | 20 23 5b 28 6d 65 6e 75 |u-keymap| #[(menu|
|00000460| 2d 6e 61 6d 65 20 6d 65 | 6e 75 2d 69 74 65 6d 73 |-name me|nu-items|
|00000470| 29 20 22 c0 09 21 1a c3 | 5c 66 21 89 14 83 b6 00 |) "..!..|\f!.....|
|00000480| 5c 66 40 1d c6 0d 21 85 | 18 00 0d c7 48 1e 08 c9 |\f@...!.|....H...|
|00000490| 1e 5c 6e c9 1e 0b 0d 3b | 83 39 00 c9 16 5c 6e cc |.\n....;|.9...\n.|
|000004a0| cd 0d 5c 22 83 33 00 ce | 82 34 00 0d 16 0b 82 88 |..\".3..|.4......|
|000004b0| 00 0d 3a 83 4d 00 cf 0d | 40 0d 41 5c 22 16 5c 6e |..:.M...|@.A\".\n|
|000004c0| 0d 40 16 0b 82 88 00 c6 | 0d 21 83 88 00 d0 d1 d2 |.@......|.!......|
|000004d0| 0e 13 5c 22 21 16 5c 6e | 0e 13 54 16 13 d4 0e 5c |..\"!.\n|..T....\|
|000004e0| 6e d5 0d d6 48 23 88 0d | d7 48 16 0b 0e 08 39 83 |n...H#..|.H....9.|
|000004f0| 7e 00 0e 5c 6e 0e 08 4d | 88 82 88 00 0e 5c 6e d8 |~..\n..M|.....\n.|
|00000500| c9 d9 0e 08 46 4d 88 0e | 5c 6e 84 9a 00 5c 6e c9 |....FM..|\n...\n.|
|00000510| 0e 0b 44 5c 6e 41 42 a1 | 88 82 ae 00 0e 0b 83 ae |..D\nAB.|........|
|00000520| 00 da 5c 6e db dc 0e 0b | 21 21 0e 0b 0e 5c 6e 42 |..\n....|!!...\nB|
|00000530| 23 88 2c 5c 66 41 89 14 | 84 5c 66 00 5c 6e 29 87 |#.,\fA..|.\f.\n).|
|00000540| 22 20 5b 6d 61 6b 65 2d | 73 70 61 72 73 65 2d 6b |" [make-|sparse-k|
|00000550| 65 79 6d 61 70 20 6d 65 | 6e 75 2d 6e 61 6d 65 20 |eymap me|nu-name |
|00000560| 6d 65 6e 75 20 72 65 76 | 65 72 73 65 20 6d 65 6e |menu rev|erse men|
|00000570| 75 2d 69 74 65 6d 73 20 | 69 74 65 6d 20 76 65 63 |u-items |item vec|
|00000580| 74 6f 72 70 20 31 20 63 | 61 6c 6c 62 61 63 6b 20 |torp 1 c|allback |
|00000590| 6e 69 6c 20 63 6f 6d 6d | 61 6e 64 20 6e 61 6d 65 |nil comm|and name|
|000005a0| 20 73 74 72 69 6e 67 2d | 6d 61 74 63 68 20 22 5e | string-|match "^|
|000005b0| 2d 2b 24 22 20 22 22 20 | 6d 61 6b 65 2d 6c 75 63 |-+$" "" |make-luc|
|000005c0| 69 64 2d 6d 65 6e 75 2d | 6b 65 79 6d 61 70 20 6d |id-menu-|keymap m|
|000005d0| 61 6b 65 2d 73 79 6d 62 | 6f 6c 20 66 6f 72 6d 61 |ake-symb|ol forma|
|000005e0| 74 20 22 6d 65 6e 75 2d | 66 75 6e 63 74 69 6f 6e |t "menu-|function|
|000005f0| 2d 25 64 22 20 61 64 64 | 2d 6d 65 6e 75 2d 69 74 |-%d" add|-menu-it|
|00000600| 65 6d 2d 63 6f 75 6e 74 | 20 70 75 74 20 6d 65 6e |em-count| put men|
|00000610| 75 2d 65 6e 61 62 6c 65 | 20 32 20 30 20 6c 61 6d |u-enable| 2 0 lam|
|00000620| 62 64 61 20 28 69 6e 74 | 65 72 61 63 74 69 76 65 |bda (int|eractive|
|00000630| 29 20 64 65 66 69 6e 65 | 2d 6b 65 79 20 76 65 63 |) define|-key vec|
|00000640| 74 6f 72 20 69 6e 74 65 | 72 6e 5d 20 36 5d 5d 20 |tor inte|rn] 6]] |
|00000650| 33 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 70 6f |3).(defa|lias 'po|
|00000660| 70 75 70 2d 6d 65 6e 75 | 20 23 5b 28 6d 65 6e 75 |pup-menu| #[(menu|
|00000670| 2d 64 65 73 63 29 20 22 | c0 09 40 09 41 5c 22 c2 |-desc) "|..@.A\".|
|00000680| 20 c3 89 1c 1d 1e 06 1e | 07 0e 07 85 4a 00 c8 0e | .......|....J...|
|00000690| 06 41 40 0e 06 41 41 44 | 0e 06 40 44 0e 07 5c 22 |.A@..AAD|..@D..\"|
|000006a0| 15 c9 0e 07 ca 0d 21 5c | 22 14 c3 16 07 5c 66 83 |......!\|"....\f.|
|000006b0| 10 00 cb 5c 66 21 83 43 | 00 5c 66 89 16 07 82 12 |...\f!.C|.\f.....|
|000006c0| 00 cc 5c 66 21 88 82 10 | 00 2c 87 22 20 5b 6d 61 |..\f!...|.,." [ma|
|000006d0| 6b 65 2d 6c 75 63 69 64 | 2d 6d 65 6e 75 2d 6b 65 |ke-lucid|-menu-ke|
|000006e0| 79 6d 61 70 20 6d 65 6e | 75 2d 64 65 73 63 20 6d |ymap men|u-desc m|
|000006f0| 6f 75 73 65 2d 70 69 78 | 65 6c 2d 70 6f 73 69 74 |ouse-pix|el-posit|
|00000700| 69 6f 6e 20 6e 69 6c 20 | 63 6d 64 20 61 6e 73 77 |ion nil |cmd answ|
|00000710| 65 72 20 70 6f 73 20 6d | 65 6e 75 20 78 2d 70 6f |er pos m|enu x-po|
|00000720| 70 75 70 2d 6d 65 6e 75 | 20 6c 6f 6f 6b 75 70 2d |pup-menu| lookup-|
|00000730| 6b 65 79 20 76 65 63 74 | 6f 72 20 6b 65 79 6d 61 |key vect|or keyma|
|00000740| 70 70 20 63 61 6c 6c 2d | 69 6e 74 65 72 61 63 74 |pp call-|interact|
|00000750| 69 76 65 6c 79 5d 20 35 | 20 22 5c 0a 50 6f 70 20 |ively] 5| "\.Pop |
|00000760| 75 70 20 74 68 65 20 67 | 69 76 65 6e 20 6d 65 6e |up the g|iven men|
|00000770| 75 2e 0a 41 20 6d 65 6e | 75 20 69 73 20 61 20 6c |u..A men|u is a l|
|00000780| 69 73 74 20 6f 66 20 6d | 65 6e 75 20 69 74 65 6d |ist of m|enu item|
|00000790| 73 2c 20 73 74 72 69 6e | 67 73 2c 20 61 6e 64 20 |s, strin|gs, and |
|000007a0| 73 75 62 6d 65 6e 75 73 | 2e 0a 0a 54 68 65 20 66 |submenus|...The f|
|000007b0| 69 72 73 74 20 65 6c 65 | 6d 65 6e 74 20 6f 66 20 |irst ele|ment of |
|000007c0| 61 20 6d 65 6e 75 20 6d | 75 73 74 20 62 65 20 61 |a menu m|ust be a|
|000007d0| 20 73 74 72 69 6e 67 2c | 20 77 68 69 63 68 20 69 | string,| which i|
|000007e0| 73 20 74 68 65 20 6e 61 | 6d 65 20 6f 66 20 74 68 |s the na|me of th|
|000007f0| 65 0a 6d 65 6e 75 2e 20 | 20 54 68 69 73 20 69 73 |e.menu. | This is|
|00000800| 20 74 68 65 20 73 74 72 | 69 6e 67 20 74 68 61 74 | the str|ing that|
|00000810| 20 77 69 6c 6c 20 62 65 | 20 64 69 73 70 6c 61 79 | will be| display|
|00000820| 65 64 20 69 6e 20 74 68 | 65 20 70 61 72 65 6e 74 |ed in th|e parent|
|00000830| 20 6d 65 6e 75 2c 20 69 | 66 0a 61 6e 79 2e 20 20 | menu, i|f.any.  |
|00000840| 46 6f 72 20 74 6f 70 6c | 65 76 65 6c 20 6d 65 6e |For topl|evel men|
|00000850| 75 73 2c 20 69 74 20 69 | 73 20 69 67 6e 6f 72 65 |us, it i|s ignore|
|00000860| 64 2e 20 20 54 68 69 73 | 20 73 74 72 69 6e 67 20 |d.  This| string |
|00000870| 69 73 20 6e 6f 74 20 64 | 69 73 70 6c 61 79 65 64 |is not d|isplayed|
|00000880| 0a 69 6e 20 74 68 65 20 | 6d 65 6e 75 20 69 74 73 |.in the |menu its|
|00000890| 65 6c 66 2e 0a 0a 41 20 | 6d 65 6e 75 20 69 74 65 |elf...A |menu ite|
|000008a0| 6d 20 69 73 20 61 20 76 | 65 63 74 6f 72 20 6f 66 |m is a v|ector of|
|000008b0| 20 74 68 72 65 65 20 6f | 72 20 66 6f 75 72 20 65 | three o|r four e|
|000008c0| 6c 65 6d 65 6e 74 73 3a | 0a 0a 20 2d 20 74 68 65 |lements:|.. - the|
|000008d0| 20 6e 61 6d 65 20 6f 66 | 20 74 68 65 20 6d 65 6e | name of| the men|
|000008e0| 75 20 69 74 65 6d 20 28 | 61 20 73 74 72 69 6e 67 |u item (|a string|
|000008f0| 29 3b 0a 20 2d 20 74 68 | 65 20 60 63 61 6c 6c 62 |);. - th|e `callb|
|00000900| 61 63 6b 27 20 6f 66 20 | 74 68 61 74 20 69 74 65 |ack' of |that ite|
|00000910| 6d 3b 0a 20 2d 20 77 68 | 65 74 68 65 72 20 74 68 |m;. - wh|ether th|
|00000920| 69 73 20 69 74 65 6d 20 | 69 73 20 61 63 74 69 76 |is item |is activ|
|00000930| 65 20 28 73 65 6c 65 63 | 74 61 62 6c 65 29 3b 0a |e (selec|table);.|
|00000940| 20 2d 20 61 6e 64 20 61 | 6e 20 6f 70 74 69 6f 6e | - and a|n option|
|00000950| 61 6c 20 73 74 72 69 6e | 67 20 74 6f 20 61 70 70 |al strin|g to app|
|00000960| 65 6e 64 20 74 6f 20 74 | 68 65 20 6e 61 6d 65 2e |end to t|he name.|
|00000970| 0a 0a 49 66 20 74 68 65 | 20 60 63 61 6c 6c 62 61 |..If the| `callba|
|00000980| 63 6b 27 20 6f 66 20 61 | 20 6d 65 6e 75 20 69 74 |ck' of a| menu it|
|00000990| 65 6d 20 69 73 20 61 20 | 73 79 6d 62 6f 6c 2c 20 |em is a |symbol, |
|000009a0| 74 68 65 6e 20 69 74 20 | 6d 75 73 74 20 6e 61 6d |then it |must nam|
|000009b0| 65 20 61 20 63 6f 6d 6d | 61 6e 64 2e 0a 49 74 20 |e a comm|and..It |
|000009c0| 77 69 6c 6c 20 62 65 20 | 69 6e 76 6f 6b 65 64 20 |will be |invoked |
|000009d0| 77 69 74 68 20 60 63 61 | 6c 6c 2d 69 6e 74 65 72 |with `ca|ll-inter|
|000009e0| 61 63 74 69 76 65 6c 79 | 27 2e 20 20 49 66 20 69 |actively|'.  If i|
|000009f0| 74 20 69 73 20 61 20 6c | 69 73 74 2c 20 74 68 65 |t is a l|ist, the|
|00000a00| 6e 20 69 74 20 69 73 0a | 65 76 61 6c 75 61 74 65 |n it is.|evaluate|
|00000a10| 64 20 77 69 74 68 20 60 | 65 76 61 6c 27 2e 0a 0a |d with `|eval'...|
|00000a20| 54 68 65 20 66 6f 75 72 | 74 68 20 65 6c 65 6d 65 |The four|th eleme|
|00000a30| 6e 74 20 6f 66 20 61 20 | 6d 65 6e 75 20 69 74 65 |nt of a |menu ite|
|00000a40| 6d 20 69 73 20 61 20 63 | 6f 6e 76 65 6e 69 65 6e |m is a c|onvenien|
|00000a50| 74 20 77 61 79 20 6f 66 | 20 61 64 64 69 6e 67 20 |t way of| adding |
|00000a60| 74 68 65 20 6e 61 6d 65 | 0a 6f 66 20 61 20 63 6f |the name|.of a co|
|00000a70| 6d 6d 61 6e 64 27 73 20 | 60 60 61 72 67 75 6d 65 |mmand's |``argume|
|00000a80| 6e 74 27 27 20 74 6f 20 | 74 68 65 20 6d 65 6e 75 |nt'' to |the menu|
|00000a90| 2c 20 6c 69 6b 65 20 60 | 60 4b 69 6c 6c 20 42 75 |, like `|`Kill Bu|
|00000aa0| 66 66 65 72 20 4e 41 4d | 45 27 27 2e 0a 0a 49 66 |ffer NAM|E''...If|
|00000ab0| 20 61 6e 20 65 6c 65 6d | 65 6e 74 20 6f 66 20 61 | an elem|ent of a|
|00000ac0| 20 6d 65 6e 75 20 69 73 | 20 61 20 73 74 72 69 6e | menu is| a strin|
|00000ad0| 67 2c 20 74 68 65 6e 20 | 74 68 61 74 20 73 74 72 |g, then |that str|
|00000ae0| 69 6e 67 20 77 69 6c 6c | 20 62 65 20 70 72 65 73 |ing will| be pres|
|00000af0| 65 6e 74 65 64 20 69 6e | 0a 74 68 65 20 6d 65 6e |ented in|.the men|
|00000b00| 75 20 61 73 20 75 6e 73 | 65 6c 65 63 74 61 62 6c |u as uns|electabl|
|00000b10| 65 20 74 65 78 74 2e 0a | 0a 49 66 20 61 6e 20 65 |e text..|.If an e|
|00000b20| 6c 65 6d 65 6e 74 20 6f | 66 20 61 20 6d 65 6e 75 |lement o|f a menu|
|00000b30| 20 69 73 20 61 20 73 74 | 72 69 6e 67 20 63 6f 6e | is a st|ring con|
|00000b40| 73 69 73 74 69 6e 67 20 | 73 6f 6c 65 6c 79 20 6f |sisting |solely o|
|00000b50| 66 20 68 79 70 68 65 6e | 73 2c 20 74 68 65 6e 20 |f hyphen|s, then |
|00000b60| 74 68 61 74 0a 69 74 65 | 6d 20 77 69 6c 6c 20 62 |that.ite|m will b|
|00000b70| 65 20 70 72 65 73 65 6e | 74 65 64 20 61 73 20 61 |e presen|ted as a|
|00000b80| 20 73 6f 6c 69 64 20 68 | 6f 72 69 7a 6f 6e 74 61 | solid h|orizonta|
|00000b90| 6c 20 6c 69 6e 65 2e 0a | 0a 49 66 20 61 6e 20 65 |l line..|.If an e|
|00000ba0| 6c 65 6d 65 6e 74 20 6f | 66 20 61 20 6d 65 6e 75 |lement o|f a menu|
|00000bb0| 20 69 73 20 61 20 6c 69 | 73 74 2c 20 69 74 20 69 | is a li|st, it i|
|00000bc0| 73 20 74 72 65 61 74 65 | 64 20 61 73 20 61 20 73 |s treate|d as a s|
|00000bd0| 75 62 6d 65 6e 75 2e 20 | 20 54 68 65 20 6e 61 6d |ubmenu. | The nam|
|00000be0| 65 20 6f 66 0a 74 68 61 | 74 20 73 75 62 6d 65 6e |e of.tha|t submen|
|00000bf0| 75 20 28 74 68 65 20 66 | 69 72 73 74 20 65 6c 65 |u (the f|irst ele|
|00000c00| 6d 65 6e 74 20 69 6e 20 | 74 68 65 20 6c 69 73 74 |ment in |the list|
|00000c10| 29 20 77 69 6c 6c 20 62 | 65 20 75 73 65 64 20 61 |) will b|e used a|
|00000c20| 73 20 74 68 65 20 6e 61 | 6d 65 20 6f 66 20 74 68 |s the na|me of th|
|00000c30| 65 0a 69 74 65 6d 20 72 | 65 70 72 65 73 65 6e 74 |e.item r|epresent|
|00000c40| 69 6e 67 20 74 68 69 73 | 20 6d 65 6e 75 20 6f 6e |ing this| menu on|
|00000c50| 20 74 68 65 20 70 61 72 | 65 6e 74 2e 0a 0a 54 68 | the par|ent...Th|
|00000c60| 65 20 73 79 6e 74 61 78 | 2c 20 6d 6f 72 65 20 70 |e syntax|, more p|
|00000c70| 72 65 63 69 73 65 6c 79 | 3a 0a 0a 20 20 20 66 6f |recisely|:..   fo|
|00000c80| 72 6d 09 09 3a 3d 20 20 | 3c 73 6f 6d 65 74 68 69 |rm..:=  |<somethi|
|00000c90| 6e 67 20 74 6f 20 70 61 | 73 73 20 74 6f 20 60 65 |ng to pa|ss to `e|
|00000ca0| 76 61 6c 27 3e 0a 20 20 | 20 63 6f 6d 6d 61 6e 64 |val'>.  | command|
|00000cb0| 09 3a 3d 20 20 3c 61 20 | 73 79 6d 62 6f 6c 20 6f |.:=  <a |symbol o|
|00000cc0| 72 20 73 74 72 69 6e 67 | 2c 20 74 6f 20 70 61 73 |r string|, to pas|
|00000cd0| 73 20 74 6f 20 60 63 61 | 6c 6c 2d 69 6e 74 65 72 |s to `ca|ll-inter|
|00000ce0| 61 63 74 69 76 65 6c 79 | 27 3e 0a 20 20 20 63 61 |actively|'>.   ca|
|00000cf0| 6c 6c 62 61 63 6b 20 09 | 3a 3d 20 20 63 6f 6d 6d |llback .|:=  comm|
|00000d00| 61 6e 64 20 7c 20 66 6f | 72 6d 0a 20 20 20 61 63 |and | fo|rm.   ac|
|00000d10| 74 69 76 65 2d 70 09 3a | 3d 20 20 3c 74 20 6f 72 |tive-p.:|=  <t or|
|00000d20| 20 6e 69 6c 2c 20 77 68 | 65 74 68 65 72 20 74 68 | nil, wh|ether th|
|00000d30| 69 73 20 74 68 69 6e 67 | 20 69 73 20 73 65 6c 65 |is thing| is sele|
|00000d40| 63 74 61 62 6c 65 3e 0a | 20 20 20 74 65 78 74 09 |ctable>.|   text.|
|00000d50| 09 3a 3d 20 20 3c 73 74 | 72 69 6e 67 2c 20 6e 6f |.:=  <st|ring, no|
|00000d60| 6e 20 73 65 6c 65 63 74 | 61 62 6c 65 3e 0a 20 20 |n select|able>.  |
|00000d70| 20 6e 61 6d 65 09 09 3a | 3d 20 20 3c 73 74 72 69 | name..:|=  <stri|
|00000d80| 6e 67 3e 0a 20 20 20 61 | 72 67 75 6d 65 6e 74 09 |ng>.   a|rgument.|
|00000d90| 3a 3d 20 20 3c 73 74 72 | 69 6e 67 3e 0a 20 20 20 |:=  <str|ing>.   |
|00000da0| 6d 65 6e 75 2d 69 74 65 | 6d 09 3a 3d 20 20 27 5b |menu-ite|m.:=  '[|
|00000db0| 27 20 20 6e 61 6d 65 20 | 63 61 6c 6c 62 61 63 6b |'  name |callback|
|00000dc0| 20 61 63 74 69 76 65 2d | 70 20 5b 20 61 72 67 75 | active-|p [ argu|
|00000dd0| 6d 65 6e 74 20 5d 20 20 | 27 5d 27 0a 20 20 20 6d |ment ]  |']'.   m|
|00000de0| 65 6e 75 09 09 3a 3d 20 | 20 27 28 27 20 6e 61 6d |enu..:= | '(' nam|
|00000df0| 65 20 5b 20 6d 65 6e 75 | 2d 69 74 65 6d 20 7c 20 |e [ menu|-item | |
|00000e00| 6d 65 6e 75 20 7c 20 74 | 65 78 74 20 5d 2b 20 27 |menu | t|ext ]+ '|
|00000e10| 29 27 0a 22 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |)'."]).(|defalias|
|00000e20| 20 27 70 6f 70 75 70 2d | 64 69 61 6c 6f 67 2d 62 | 'popup-|dialog-b|
|00000e30| 6f 78 20 23 5b 28 64 61 | 74 61 29 20 22 08 40 08 |ox #[(da|ta) ".@.|
|00000e40| 41 c1 89 89 1a 1b 1c 1d | 1e 06 0d 83 49 00 0d 40 |A.......|....I..@|
|00000e50| 84 1d 00 c1 5c 66 42 14 | 82 42 00 0d 40 c7 48 0d |....\fB.|.B..@.H.|
|00000e60| 40 c8 48 0d 40 c9 48 1e | 5c 6e 1e 0b 1e 5c 66 0e |@.H.@.H.|\n...\f.|
|00000e70| 5c 6e 83 3c 00 0e 5c 66 | 0e 0b 42 82 3e 00 0e 5c |\n.<..\f|..B.>..\|
|00000e80| 66 5c 66 42 14 2b 0d 41 | 89 15 84 11 00 cd ce 0e |f\fB.+.A|........|
|00000e90| 06 5c 66 9f 42 5c 22 89 | 13 5c 66 9e 89 12 85 6b |.\f.B\".|.\f....k|
|00000ea0| 00 5c 6e 41 39 83 67 00 | cf 5c 6e 41 21 82 6b 00 |.\nA9.g.|.\nA!.k.|
|00000eb0| d0 5c 6e 41 21 2d 87 22 | 20 5b 64 61 74 61 20 6e |.\nA!-."| [data n|
|00000ec0| 69 6c 20 6d 65 61 6e 69 | 6e 67 20 63 68 6f 69 63 |il meani|ng choic|
|00000ed0| 65 20 63 6f 6e 76 65 72 | 74 65 64 20 74 61 69 6c |e conver|ted tail|
|00000ee0| 20 6e 61 6d 65 20 30 20 | 31 20 32 20 65 6e 61 62 | name 0 |1 2 enab|
|00000ef0| 6c 65 20 63 61 6c 6c 62 | 61 63 6b 20 69 74 65 6d |le callb|ack item|
|00000f00| 20 78 2d 70 6f 70 75 70 | 2d 64 69 61 6c 6f 67 20 | x-popup|-dialog |
|00000f10| 74 20 63 61 6c 6c 2d 69 | 6e 74 65 72 61 63 74 69 |t call-i|nteracti|
|00000f20| 76 65 6c 79 20 65 76 61 | 6c 5d 20 36 20 22 5c 0a |vely eva|l] 6 "\.|
|00000f30| 50 6f 70 20 75 70 20 61 | 20 64 69 61 6c 6f 67 20 |Pop up a| dialog |
|00000f40| 62 6f 78 2e 0a 41 20 64 | 69 61 6c 6f 67 20 62 6f |box..A d|ialog bo|
|00000f50| 78 20 64 65 73 63 72 69 | 70 74 69 6f 6e 20 69 73 |x descri|ption is|
|00000f60| 20 61 20 6c 69 73 74 2e | 0a 0a 20 2d 20 54 68 65 | a list.|.. - The|
|00000f70| 20 66 69 72 73 74 20 65 | 6c 65 6d 65 6e 74 20 6f | first e|lement o|
|00000f80| 66 20 74 68 65 20 6c 69 | 73 74 20 69 73 20 61 20 |f the li|st is a |
|00000f90| 73 74 72 69 6e 67 20 74 | 6f 20 64 69 73 70 6c 61 |string t|o displa|
|00000fa0| 79 20 69 6e 20 74 68 65 | 20 64 69 61 6c 6f 67 20 |y in the| dialog |
|00000fb0| 62 6f 78 2e 0a 20 2d 20 | 54 68 65 20 72 65 73 74 |box.. - |The rest|
|00000fc0| 20 6f 66 20 74 68 65 20 | 65 6c 65 6d 65 6e 74 73 | of the |elements|
|00000fd0| 20 61 72 65 20 64 65 73 | 63 72 69 70 74 69 6f 6e | are des|cription|
|00000fe0| 73 20 6f 66 20 74 68 65 | 20 64 69 61 6c 6f 67 20 |s of the| dialog |
|00000ff0| 62 6f 78 27 73 20 62 75 | 74 74 6f 6e 73 2e 0a 20 |box's bu|ttons.. |
|00001000| 20 20 45 61 63 68 20 6f | 6e 65 20 69 73 20 61 20 |  Each o|ne is a |
|00001010| 76 65 63 74 6f 72 20 6f | 66 20 74 68 72 65 65 20 |vector o|f three |
|00001020| 65 6c 65 6d 65 6e 74 73 | 3a 0a 20 20 20 2d 20 54 |elements|:.   - T|
|00001030| 68 65 20 66 69 72 73 74 | 20 65 6c 65 6d 65 6e 74 |he first| element|
|00001040| 20 69 73 20 74 68 65 20 | 74 65 78 74 20 6f 66 20 | is the |text of |
|00001050| 74 68 65 20 62 75 74 74 | 6f 6e 2e 0a 20 20 20 2d |the butt|on..   -|
|00001060| 20 54 68 65 20 73 65 63 | 6f 6e 64 20 65 6c 65 6d | The sec|ond elem|
|00001070| 65 6e 74 20 69 73 20 74 | 68 65 20 60 63 61 6c 6c |ent is t|he `call|
|00001080| 62 61 63 6b 27 2e 0a 20 | 20 20 2d 20 54 68 65 20 |back'.. |  - The |
|00001090| 74 68 69 72 64 20 65 6c | 65 6d 65 6e 74 20 69 73 |third el|ement is|
|000010a0| 20 74 20 6f 72 20 6e 69 | 6c 2c 20 77 68 65 74 68 | t or ni|l, wheth|
|000010b0| 65 72 20 74 68 69 73 20 | 62 75 74 74 6f 6e 20 69 |er this |button i|
|000010c0| 73 20 73 65 6c 65 63 74 | 61 62 6c 65 2e 0a 0a 49 |s select|able...I|
|000010d0| 66 20 74 68 65 20 60 63 | 61 6c 6c 62 61 63 6b 27 |f the `c|allback'|
|000010e0| 20 6f 66 20 61 20 62 75 | 74 74 6f 6e 20 69 73 20 | of a bu|tton is |
|000010f0| 61 20 73 79 6d 62 6f 6c | 2c 20 74 68 65 6e 20 69 |a symbol|, then i|
|00001100| 74 20 6d 75 73 74 20 6e | 61 6d 65 20 61 20 63 6f |t must n|ame a co|
|00001110| 6d 6d 61 6e 64 2e 0a 49 | 74 20 77 69 6c 6c 20 62 |mmand..I|t will b|
|00001120| 65 20 69 6e 76 6f 6b 65 | 64 20 77 69 74 68 20 60 |e invoke|d with `|
|00001130| 63 61 6c 6c 2d 69 6e 74 | 65 72 61 63 74 69 76 65 |call-int|eractive|
|00001140| 6c 79 27 2e 20 20 49 66 | 20 69 74 20 69 73 20 61 |ly'.  If| it is a|
|00001150| 20 6c 69 73 74 2c 20 74 | 68 65 6e 20 69 74 20 69 | list, t|hen it i|
|00001160| 73 0a 65 76 61 6c 75 61 | 74 65 64 20 77 69 74 68 |s.evalua|ted with|
|00001170| 20 60 65 76 61 6c 27 2e | 0a 0a 4f 6e 65 20 28 61 | `eval'.|..One (a|
|00001180| 6e 64 20 6f 6e 6c 79 20 | 6f 6e 65 29 20 6f 66 20 |nd only |one) of |
|00001190| 74 68 65 20 62 75 74 74 | 6f 6e 73 20 6d 61 79 20 |the butt|ons may |
|000011a0| 62 65 20 60 6e 69 6c 27 | 2e 20 20 54 68 69 73 20 |be `nil'|.  This |
|000011b0| 6d 61 72 6b 65 72 20 6d | 65 61 6e 73 20 74 68 61 |marker m|eans tha|
|000011c0| 74 20 61 6c 6c 0a 66 6f | 6c 6c 6f 77 69 6e 67 20 |t all.fo|llowing |
|000011d0| 62 75 74 74 6f 6e 73 20 | 73 68 6f 75 6c 64 20 62 |buttons |should b|
|000011e0| 65 20 66 6c 75 73 68 72 | 69 67 68 74 20 69 6e 73 |e flushr|ight ins|
|000011f0| 74 65 61 64 20 6f 66 20 | 66 6c 75 73 68 6c 65 66 |tead of |flushlef|
|00001200| 74 2e 0a 0a 54 68 65 20 | 73 79 6e 74 61 78 2c 20 |t...The |syntax, |
|00001210| 6d 6f 72 65 20 70 72 65 | 63 69 73 65 6c 79 3a 0a |more pre|cisely:.|
|00001220| 0a 20 20 20 66 6f 72 6d | 09 09 3a 3d 20 20 3c 73 |.   form|..:=  <s|
|00001230| 6f 6d 65 74 68 69 6e 67 | 20 74 6f 20 70 61 73 73 |omething| to pass|
|00001240| 20 74 6f 20 60 65 76 61 | 6c 27 3e 0a 20 20 20 63 | to `eva|l'>.   c|
|00001250| 6f 6d 6d 61 6e 64 09 3a | 3d 20 20 3c 61 20 73 79 |ommand.:|=  <a sy|
|00001260| 6d 62 6f 6c 20 6f 72 20 | 73 74 72 69 6e 67 2c 20 |mbol or |string, |
|00001270| 74 6f 20 70 61 73 73 20 | 74 6f 20 60 63 61 6c 6c |to pass |to `call|
|00001280| 2d 69 6e 74 65 72 61 63 | 74 69 76 65 6c 79 27 3e |-interac|tively'>|
|00001290| 0a 20 20 20 63 61 6c 6c | 62 61 63 6b 20 09 3a 3d |.   call|back .:=|
|000012a0| 20 20 63 6f 6d 6d 61 6e | 64 20 7c 20 66 6f 72 6d |  comman|d | form|
|000012b0| 0a 20 20 20 61 63 74 69 | 76 65 2d 70 09 3a 3d 20 |.   acti|ve-p.:= |
|000012c0| 20 3c 74 2c 20 6e 69 6c | 2c 20 6f 72 20 61 20 66 | <t, nil|, or a f|
|000012d0| 6f 72 6d 20 74 6f 20 65 | 76 61 6c 75 61 74 65 20 |orm to e|valuate |
|000012e0| 74 6f 20 64 65 63 69 64 | 65 20 77 68 65 74 68 65 |to decid|e whethe|
|000012f0| 72 20 74 68 69 73 0a 09 | 09 20 20 20 20 62 75 74 |r this..|.    but|
|00001300| 74 6f 6e 20 73 68 6f 75 | 6c 64 20 62 65 20 73 65 |ton shou|ld be se|
|00001310| 6c 65 63 74 61 62 6c 65 | 3e 0a 20 20 20 6e 61 6d |lectable|>.   nam|
|00001320| 65 09 09 3a 3d 20 20 3c | 73 74 72 69 6e 67 3e 0a |e..:=  <|string>.|
|00001330| 20 20 20 70 61 72 74 69 | 74 69 6f 6e 09 3a 3d 20 |   parti|tion.:= |
|00001340| 20 27 6e 69 6c 27 0a 20 | 20 20 62 75 74 74 6f 6e | 'nil'. |  button|
|00001350| 09 3a 3d 20 20 27 5b 27 | 20 20 6e 61 6d 65 20 63 |.:=  '['|  name c|
|00001360| 61 6c 6c 62 61 63 6b 20 | 61 63 74 69 76 65 2d 70 |allback |active-p|
|00001370| 20 27 5d 27 0a 20 20 20 | 64 69 61 6c 6f 67 09 3a | ']'.   |dialog.:|
|00001380| 3d 20 20 27 28 27 20 6e | 61 6d 65 20 5b 20 62 75 |=  '(' n|ame [ bu|
|00001390| 74 74 6f 6e 20 5d 2b 20 | 5b 20 70 61 72 74 69 74 |tton ]+ |[ partit|
|000013a0| 69 6f 6e 20 5b 20 62 75 | 74 74 6f 6e 20 5d 2b 20 |ion [ bu|tton ]+ |
|000013b0| 5d 20 27 29 27 22 5d 29 | 0a 28 62 79 74 65 2d 63 |] ')'"])|.(byte-c|
|000013c0| 6f 64 65 20 22 c0 11 c0 | 87 22 20 5b 6e 69 6c 20 |ode "...|." [nil |
|000013d0| 64 65 66 61 75 6c 74 2d | 6d 65 6e 75 62 61 72 5d |default-|menubar]|
|000013e0| 20 31 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 73 | 1).(def|alias 's|
|000013f0| 65 74 2d 6d 65 6e 75 62 | 61 72 20 23 5b 28 6d 65 |et-menub|ar #[(me|
|00001400| 6e 75 62 61 72 29 20 22 | c0 c1 c2 0b 21 5c 22 88 |nubar) "|....!\".|
|00001410| c4 20 87 22 20 5b 73 65 | 74 2d 64 65 66 61 75 6c |. ." [se|t-defaul|
|00001420| 74 20 63 75 72 72 65 6e | 74 2d 6d 65 6e 75 62 61 |t curren|t-menuba|
|00001430| 72 20 63 6f 70 79 2d 73 | 65 71 75 65 6e 63 65 20 |r copy-s|equence |
|00001440| 6d 65 6e 75 62 61 72 20 | 73 65 74 2d 6d 65 6e 75 |menubar |set-menu|
|00001450| 62 61 72 2d 64 69 72 74 | 79 2d 66 6c 61 67 5d 20 |bar-dirt|y-flag] |
|00001460| 34 20 22 5c 0a 53 65 74 | 20 74 68 65 20 64 65 66 |4 "\.Set| the def|
|00001470| 61 75 6c 74 20 6d 65 6e | 75 62 61 72 20 74 6f 20 |ault men|ubar to |
|00001480| 62 65 20 6d 65 6e 75 62 | 61 72 2e 22 5d 29 0a 28 |be menub|ar."]).(|
|00001490| 64 65 66 61 6c 69 61 73 | 20 27 73 65 74 2d 62 75 |defalias| 'set-bu|
|000014a0| 66 66 65 72 2d 6d 65 6e | 75 62 61 72 20 23 5b 28 |ffer-men|ubar #[(|
|000014b0| 6d 65 6e 75 62 61 72 29 | 20 22 c0 c1 21 88 c2 0b |menubar)| "..!...|
|000014c0| 21 11 c4 20 87 22 20 5b | 6d 61 6b 65 2d 6c 6f 63 |!.. ." [|make-loc|
|000014d0| 61 6c 2d 76 61 72 69 61 | 62 6c 65 20 63 75 72 72 |al-varia|ble curr|
|000014e0| 65 6e 74 2d 6d 65 6e 75 | 62 61 72 20 63 6f 70 79 |ent-menu|bar copy|
|000014f0| 2d 73 65 71 75 65 6e 63 | 65 20 6d 65 6e 75 62 61 |-sequenc|e menuba|
|00001500| 72 20 73 65 74 2d 6d 65 | 6e 75 62 61 72 2d 64 69 |r set-me|nubar-di|
|00001510| 72 74 79 2d 66 6c 61 67 | 5d 20 32 20 22 5c 0a 53 |rty-flag|] 2 "\.S|
|00001520| 65 74 20 74 68 65 20 62 | 75 66 66 65 72 2d 6c 6f |et the b|uffer-lo|
|00001530| 63 61 6c 20 6d 65 6e 75 | 62 61 72 20 74 6f 20 62 |cal menu|bar to b|
|00001540| 65 20 6d 65 6e 75 62 61 | 72 2e 22 5d 29 0a 28 64 |e menuba|r."]).(d|
|00001550| 65 66 61 6c 69 61 73 20 | 27 66 69 6e 64 2d 6d 65 |efalias |'find-me|
|00001560| 6e 75 2d 69 74 65 6d 20 | 23 5b 28 6d 65 6e 75 62 |nu-item |#[(menub|
|00001570| 61 72 20 69 74 65 6d 2d | 70 61 74 68 2d 6c 69 73 |ar item-|path-lis|
|00001580| 74 20 26 6f 70 74 69 6f | 6e 61 6c 20 70 61 72 65 |t &optio|nal pare|
|00001590| 6e 74 29 20 22 08 84 09 | 00 c1 c2 0b 5c 22 13 5c |nt) "...|....\".\|
|000015a0| 66 3a 3f 3f 85 92 00 5c | 66 c5 1e 06 89 1e 07 83 |f:??...\|f.......|
|000015b0| 5d 00 0e 07 40 83 54 00 | 0b 40 c8 0e 07 40 21 83 |]...@.T.|.@...@!.|
|000015c0| 32 00 0e 07 40 c9 48 82 | 43 00 0e 07 40 3b 83 3f |2...@.H.|C...@;.?|
|000015d0| 00 0e 07 40 82 43 00 0e | 07 40 40 97 9a 83 54 00 |...@.C..|.@@...T.|
|000015e0| 0e 07 40 16 06 c5 89 16 | 07 82 17 00 0e 07 41 89 |..@.....|......A.|
|000015f0| 16 07 84 1a 00 0b 41 83 | 8d 00 0e 06 3a 83 74 00 |......A.|....:.t.|
|00001600| ca 0e 06 41 0b 41 0e 06 | 23 82 91 00 0e 06 83 83 |...A.A..|#.......|
|00001610| 00 cb cc cd 0e 06 44 5c | 22 82 91 00 cb cc ce 0b |......D\|".......|
|00001620| 40 44 5c 22 82 91 00 0e | 06 08 42 2a 87 22 20 5b |@D\"....|..B*." [|
|00001630| 70 61 72 65 6e 74 20 6d | 61 70 63 61 72 20 64 6f |parent m|apcar do|
|00001640| 77 6e 63 61 73 65 20 69 | 74 65 6d 2d 70 61 74 68 |wncase i|tem-path|
|00001650| 2d 6c 69 73 74 20 6d 65 | 6e 75 62 61 72 20 6e 69 |-list me|nubar ni|
|00001660| 6c 20 72 65 73 75 6c 74 | 20 72 65 73 74 20 76 65 |l result| rest ve|
|00001670| 63 74 6f 72 70 20 30 20 | 66 69 6e 64 2d 6d 65 6e |ctorp 0 |find-men|
|00001680| 75 2d 69 74 65 6d 20 73 | 69 67 6e 61 6c 20 65 72 |u-item s|ignal er|
|00001690| 72 6f 72 20 22 6e 6f 74 | 20 61 20 73 75 62 6d 65 |ror "not| a subme|
|000016a0| 6e 75 22 20 22 6e 6f 20 | 73 75 63 68 20 73 75 62 |nu" "no |such sub|
|000016b0| 6d 65 6e 75 22 5d 20 35 | 20 22 5c 0a 53 65 61 72 |menu"] 5| "\.Sear|
|000016c0| 63 68 65 73 20 4d 45 4e | 55 42 41 52 20 66 6f 72 |ches MEN|UBAR for|
|000016d0| 20 69 74 65 6d 20 67 69 | 76 65 6e 20 62 79 20 49 | item gi|ven by I|
|000016e0| 54 45 4d 2d 50 41 54 48 | 2d 4c 49 53 54 2e 0a 52 |TEM-PATH|-LIST..R|
|000016f0| 65 74 75 72 6e 73 20 28 | 49 54 45 4d 20 2e 20 50 |eturns (|ITEM . P|
|00001700| 41 52 45 4e 54 29 2c 20 | 77 68 65 72 65 20 50 41 |ARENT), |where PA|
|00001710| 52 45 4e 54 20 69 73 20 | 74 68 65 20 69 6d 6d 65 |RENT is |the imme|
|00001720| 64 69 61 74 65 20 70 61 | 72 65 6e 74 20 6f 66 0a |diate pa|rent of.|
|00001730| 20 74 68 65 20 69 74 65 | 6d 20 66 6f 75 6e 64 2e | the ite|m found.|
|00001740| 0a 53 69 67 6e 61 6c 73 | 20 61 6e 20 65 72 72 6f |.Signals| an erro|
|00001750| 72 20 69 66 20 74 68 65 | 20 69 74 65 6d 20 69 73 |r if the| item is|
|00001760| 20 6e 6f 74 20 66 6f 75 | 6e 64 2e 22 5d 29 0a 28 | not fou|nd."]).(|
|00001770| 64 65 66 61 6c 69 61 73 | 20 27 64 69 73 61 62 6c |defalias| 'disabl|
|00001780| 65 2d 6d 65 6e 75 2d 69 | 74 65 6d 20 23 5b 28 70 |e-menu-i|tem #[(p|
|00001790| 61 74 68 29 20 22 08 19 | c2 09 0b 5c 22 89 1c 40 |ath) "..|...\"..@|
|000017a0| 1d 5c 66 41 1e 06 0d 84 | 5c 22 00 c7 c8 0e 06 83 |.\fA....|\"......|
|000017b0| 1d 00 c9 82 1e 00 ca 0b | 44 5c 22 88 0d 3a 83 2b |........|D\"..:.+|
|000017c0| 00 c8 cb 21 88 0d cc cd | 49 88 ce 20 88 0d 2c 87 |...!....|I.. ..,.|
|000017d0| 22 20 5b 63 75 72 72 65 | 6e 74 2d 6d 65 6e 75 62 |" [curre|nt-menub|
|000017e0| 61 72 20 6d 65 6e 75 62 | 61 72 20 66 69 6e 64 2d |ar menub|ar find-|
|000017f0| 6d 65 6e 75 2d 69 74 65 | 6d 20 70 61 74 68 20 70 |menu-ite|m path p|
|00001800| 61 69 72 20 69 74 65 6d | 20 6d 65 6e 75 20 73 69 |air item| menu si|
|00001810| 67 6e 61 6c 20 65 72 72 | 6f 72 20 22 4e 6f 20 73 |gnal err|or "No s|
|00001820| 75 63 68 20 6d 65 6e 75 | 20 69 74 65 6d 22 20 22 |uch menu| item" "|
|00001830| 4e 6f 20 73 75 63 68 20 | 6d 65 6e 75 22 20 22 63 |No such |menu" "c|
|00001840| 61 6e 27 74 20 64 69 73 | 61 62 6c 65 20 6d 65 6e |an't dis|able men|
|00001850| 75 73 2c 20 6f 6e 6c 79 | 20 6d 65 6e 75 20 69 74 |us, only| menu it|
|00001860| 65 6d 73 22 20 32 20 6e | 69 6c 20 73 65 74 2d 6d |ems" 2 n|il set-m|
|00001870| 65 6e 75 62 61 72 2d 64 | 69 72 74 79 2d 66 6c 61 |enubar-d|irty-fla|
|00001880| 67 5d 20 35 20 22 5c 0a | 4d 61 6b 65 20 74 68 65 |g] 5 "\.|Make the|
|00001890| 20 6e 61 6d 65 64 20 6d | 65 6e 75 20 69 74 65 6d | named m|enu item|
|000018a0| 20 62 65 20 75 6e 73 65 | 6c 65 63 74 61 62 6c 65 | be unse|lectable|
|000018b0| 2e 0a 50 41 54 48 20 69 | 73 20 61 20 6c 69 73 74 |..PATH i|s a list|
|000018c0| 20 6f 66 20 73 74 72 69 | 6e 67 73 20 77 68 69 63 | of stri|ngs whic|
|000018d0| 68 20 69 64 65 6e 74 69 | 66 79 20 74 68 65 20 70 |h identi|fy the p|
|000018e0| 6f 73 69 74 69 6f 6e 20 | 6f 66 20 74 68 65 20 6d |osition |of the m|
|000018f0| 65 6e 75 20 69 74 65 6d | 20 69 6e 20 0a 74 68 65 |enu item| in .the|
|00001900| 20 6d 65 6e 75 20 68 69 | 65 72 61 72 63 68 79 2e | menu hi|erarchy.|
|00001910| 20 20 28 5c 22 46 69 6c | 65 5c 22 20 5c 22 53 61 |  (\"Fil|e\" \"Sa|
|00001920| 76 65 5c 22 29 20 6d 65 | 61 6e 73 20 74 68 65 20 |ve\") me|ans the |
|00001930| 6d 65 6e 75 20 69 74 65 | 6d 20 63 61 6c 6c 65 64 |menu ite|m called|
|00001940| 20 5c 22 53 61 76 65 5c | 22 0a 75 6e 64 65 72 20 | \"Save\|".under |
|00001950| 74 68 65 20 74 6f 70 6c | 65 76 65 6c 20 5c 22 46 |the topl|evel \"F|
|00001960| 69 6c 65 5c 22 20 6d 65 | 6e 75 2e 20 20 28 5c 22 |ile\" me|nu.  (\"|
|00001970| 4d 65 6e 75 5c 22 20 5c | 22 46 6f 6f 5c 22 20 5c |Menu\" \|"Foo\" \|
|00001980| 22 49 74 65 6d 5c 22 29 | 20 6d 65 61 6e 73 20 74 |"Item\")| means t|
|00001990| 68 65 20 0a 6d 65 6e 75 | 20 69 74 65 6d 20 63 61 |he .menu| item ca|
|000019a0| 6c 6c 65 64 20 5c 22 49 | 74 65 6d 5c 22 20 75 6e |lled \"I|tem\" un|
|000019b0| 64 65 72 20 74 68 65 20 | 5c 22 46 6f 6f 5c 22 20 |der the |\"Foo\" |
|000019c0| 73 75 62 6d 65 6e 75 20 | 6f 66 20 5c 22 4d 65 6e |submenu |of \"Men|
|000019d0| 75 5c 22 2e 22 5d 29 0a | 28 64 65 66 61 6c 69 61 |u\"."]).|(defalia|
|000019e0| 73 20 27 65 6e 61 62 6c | 65 2d 6d 65 6e 75 2d 69 |s 'enabl|e-menu-i|
|000019f0| 74 65 6d 20 23 5b 28 70 | 61 74 68 29 20 22 08 19 |tem #[(p|ath) "..|
|00001a00| c2 09 0b 5c 22 89 1c 40 | 1d 5c 66 41 1e 06 0d 84 |...\"..@|.\fA....|
|00001a10| 5c 22 00 c7 c8 0e 06 83 | 1d 00 c9 82 1e 00 ca 0b |\"......|........|
|00001a20| 44 5c 22 88 0d 3a 83 2c | 00 c8 cb 0b 5c 22 88 0d |D\"..:.,|....\"..|
|00001a30| cc cd 49 88 ce 20 88 0d | 2c 87 22 20 5b 63 75 72 |..I.. ..|,." [cur|
|00001a40| 72 65 6e 74 2d 6d 65 6e | 75 62 61 72 20 6d 65 6e |rent-men|ubar men|
|00001a50| 75 62 61 72 20 66 69 6e | 64 2d 6d 65 6e 75 2d 69 |ubar fin|d-menu-i|
|00001a60| 74 65 6d 20 70 61 74 68 | 20 70 61 69 72 20 69 74 |tem path| pair it|
|00001a70| 65 6d 20 6d 65 6e 75 20 | 73 69 67 6e 61 6c 20 65 |em menu |signal e|
|00001a80| 72 72 6f 72 20 22 4e 6f | 20 73 75 63 68 20 6d 65 |rror "No| such me|
|00001a90| 6e 75 20 69 74 65 6d 22 | 20 22 4e 6f 20 73 75 63 |nu item"| "No suc|
|00001aa0| 68 20 6d 65 6e 75 22 20 | 22 25 53 20 69 73 20 61 |h menu" |"%S is a|
|00001ab0| 20 6d 65 6e 75 2c 20 6e | 6f 74 20 61 20 6d 65 6e | menu, n|ot a men|
|00001ac0| 75 20 69 74 65 6d 22 20 | 32 20 74 20 73 65 74 2d |u item" |2 t set-|
|00001ad0| 6d 65 6e 75 62 61 72 2d | 64 69 72 74 79 2d 66 6c |menubar-|dirty-fl|
|00001ae0| 61 67 5d 20 35 20 22 5c | 0a 4d 61 6b 65 20 74 68 |ag] 5 "\|.Make th|
|00001af0| 65 20 6e 61 6d 65 64 20 | 6d 65 6e 75 20 69 74 65 |e named |menu ite|
|00001b00| 6d 20 62 65 20 73 65 6c | 65 63 74 61 62 6c 65 2e |m be sel|ectable.|
|00001b10| 0a 50 41 54 48 20 69 73 | 20 61 20 6c 69 73 74 20 |.PATH is| a list |
|00001b20| 6f 66 20 73 74 72 69 6e | 67 73 20 77 68 69 63 68 |of strin|gs which|
|00001b30| 20 69 64 65 6e 74 69 66 | 79 20 74 68 65 20 70 6f | identif|y the po|
|00001b40| 73 69 74 69 6f 6e 20 6f | 66 20 74 68 65 20 6d 65 |sition o|f the me|
|00001b50| 6e 75 20 69 74 65 6d 20 | 69 6e 20 0a 74 68 65 20 |nu item |in .the |
|00001b60| 6d 65 6e 75 20 68 69 65 | 72 61 72 63 68 79 2e 20 |menu hie|rarchy. |
|00001b70| 20 28 5c 22 46 69 6c 65 | 5c 22 20 5c 22 53 61 76 | (\"File|\" \"Sav|
|00001b80| 65 5c 22 29 20 6d 65 61 | 6e 73 20 74 68 65 20 6d |e\") mea|ns the m|
|00001b90| 65 6e 75 20 69 74 65 6d | 20 63 61 6c 6c 65 64 20 |enu item| called |
|00001ba0| 5c 22 53 61 76 65 5c 22 | 0a 75 6e 64 65 72 20 74 |\"Save\"|.under t|
|00001bb0| 68 65 20 74 6f 70 6c 65 | 76 65 6c 20 5c 22 46 69 |he tople|vel \"Fi|
|00001bc0| 6c 65 5c 22 20 6d 65 6e | 75 2e 20 20 28 5c 22 4d |le\" men|u.  (\"M|
|00001bd0| 65 6e 75 5c 22 20 5c 22 | 46 6f 6f 5c 22 20 5c 22 |enu\" \"|Foo\" \"|
|00001be0| 49 74 65 6d 5c 22 29 20 | 6d 65 61 6e 73 20 74 68 |Item\") |means th|
|00001bf0| 65 20 0a 6d 65 6e 75 20 | 69 74 65 6d 20 63 61 6c |e .menu |item cal|
|00001c00| 6c 65 64 20 5c 22 49 74 | 65 6d 5c 22 20 75 6e 64 |led \"It|em\" und|
|00001c10| 65 72 20 74 68 65 20 5c | 22 46 6f 6f 5c 22 20 73 |er the \|"Foo\" s|
|00001c20| 75 62 6d 65 6e 75 20 6f | 66 20 5c 22 4d 65 6e 75 |ubmenu o|f \"Menu|
|00001c30| 5c 22 2e 22 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |\"."]).(|defalias|
|00001c40| 20 28 71 75 6f 74 65 20 | 61 64 64 2d 6d 65 6e 75 | (quote |add-menu|
|00001c50| 2d 69 74 65 6d 2d 31 29 | 20 23 5b 28 69 74 65 6d |-item-1)| #[(item|
|00001c60| 2d 70 20 6d 65 6e 75 2d | 70 61 74 68 20 69 74 65 |-p menu-|path ite|
|00001c70| 6d 2d 6e 61 6d 65 20 69 | 74 65 6d 2d 64 61 74 61 |m-name i|tem-data|
|00001c80| 20 65 6e 61 62 6c 65 64 | 2d 70 20 62 65 66 6f 72 | enabled|-p befor|
|00001c90| 65 29 20 22 08 83 07 00 | 08 97 10 09 1a c3 c4 c5 |e) "....|........|
|00001ca0| 8f 89 1e 06 3c 83 20 00 | c7 0e 06 41 0e 08 43 5c |....<. .|...A..C\|
|00001cb0| 22 40 82 27 00 c9 ca cb | 0e 5c 66 44 5c 22 1e 0d |"@.'....|.\fD\"..|
|00001cc0| 0e 06 84 94 00 0e 5c 66 | 5c 6e 1e 0e 89 1e 0f 83 |......\f|\n......|
|00001cd0| 93 00 0e 0e 5c 6e 3d 83 | 4c 00 c7 0e 0e 0e 0f 40 |....\n=.|L......@|
|00001ce0| 43 5c 22 40 82 56 00 c7 | 0e 0e 41 0e 0f 40 43 5c |C\"@.V..|..A..@C\|
|00001cf0| 22 40 89 16 06 84 86 00 | 0e 0e 89 1e 10 41 83 75 |"@......|.....A.u|
|00001d00| 00 0e 10 41 40 83 75 00 | 0e 10 41 89 16 10 82 61 |...A@.u.|..A....a|
|00001d10| 00 0e 10 0e 0f 40 43 89 | 16 06 43 0e 10 41 a4 a1 |.....@C.|..C..A..|
|00001d20| 88 29 0e 06 16 0e 0e 0f | 41 89 16 0f 84 39 00 2a |.)......|A....9.*|
|00001d30| 0e 06 84 9c 00 5c 6e 16 | 06 0e 0d 84 1f 01 0e 11 |.....\n.|........|
|00001d40| 83 b3 00 d2 0e 08 0e 13 | 0e 14 23 16 0d 82 ba 00 |........|..#.....|
|00001d50| 0e 08 0e 13 42 16 0d 08 | 83 c6 00 c7 0e 06 08 43 |....B...|.......C|
|00001d60| 5c 22 40 10 0e 06 c3 1e | 15 1e 0f 0e 0f 83 f7 00 |\"@.....|........|
|00001d70| 08 0e 0f 41 40 3d 83 ee | 00 0e 0f 0e 0d 0e 0f 41 |...A@=..|.......A|
|00001d80| 42 a1 88 c3 16 0f d6 16 | 15 82 cd 00 0e 0f 41 89 |B.......|......A.|
|00001d90| 16 0f 84 d2 00 0e 15 84 | 1e 01 0e 06 5c 6e 3d 83 |........|....\n=.|
|00001da0| 17 01 08 0e 06 40 3d 83 | 17 01 0e 0d 0e 06 42 89 |.....@=.|......B.|
|00001db0| 16 06 11 82 1e 01 0e 06 | 0e 0d 43 a4 88 2a 0e 11 |........|..C..*..|
|00001dc0| 83 37 01 0e 0d d7 0e 13 | 49 88 0e 0d d8 0e 14 3f |.7......|I......?|
|00001dd0| 3f 49 88 82 43 01 0e 0d | 0e 08 a0 88 0e 0d 0e 13 |?I..C...|........|
|00001de0| a1 88 d9 20 88 0e 0d 2b | 87 22 20 5b 62 65 66 6f |... ...+|." [befo|
|00001df0| 72 65 20 63 75 72 72 65 | 6e 74 2d 6d 65 6e 75 62 |re curre|nt-menub|
|00001e00| 61 72 20 6d 65 6e 75 62 | 61 72 20 6e 69 6c 20 28 |ar menub|ar nil (|
|00001e10| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 09 5c 6e 5c |byte-cod|e "..\n\|
|00001e20| 22 40 87 22 20 5b 66 69 | 6e 64 2d 6d 65 6e 75 2d |"@." [fi|nd-menu-|
|00001e30| 69 74 65 6d 20 6d 65 6e | 75 62 61 72 20 6d 65 6e |item men|ubar men|
|00001e40| 75 2d 70 61 74 68 5d 20 | 33 29 20 28 28 65 72 72 |u-path] |3) ((err|
|00001e50| 6f 72 29 29 20 6d 65 6e | 75 20 66 69 6e 64 2d 6d |or)) men|u find-m|
|00001e60| 65 6e 75 2d 69 74 65 6d | 20 69 74 65 6d 2d 6e 61 |enu-item| item-na|
|00001e70| 6d 65 20 73 69 67 6e 61 | 6c 20 65 72 72 6f 72 20 |me signa|l error |
|00001e80| 22 6e 6f 74 20 61 20 73 | 75 62 6d 65 6e 75 22 20 |"not a s|ubmenu" |
|00001e90| 6d 65 6e 75 2d 70 61 74 | 68 20 69 74 65 6d 20 73 |menu-pat|h item s|
|00001ea0| 6f 2d 66 61 72 20 72 65 | 73 74 20 72 65 73 74 32 |o-far re|st rest2|
|00001eb0| 20 69 74 65 6d 2d 70 20 | 76 65 63 74 6f 72 20 69 | item-p |vector i|
|00001ec0| 74 65 6d 2d 64 61 74 61 | 20 65 6e 61 62 6c 65 64 |tem-data| enabled|
|00001ed0| 2d 70 20 61 64 64 65 64 | 2d 62 65 66 6f 72 65 20 |-p added|-before |
|00001ee0| 74 20 31 20 32 20 73 65 | 74 2d 6d 65 6e 75 62 61 |t 1 2 se|t-menuba|
|00001ef0| 72 2d 64 69 72 74 79 2d | 66 6c 61 67 5d 20 35 5d |r-dirty-|flag] 5]|
|00001f00| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 61 64 64 |).(defal|ias 'add|
|00001f10| 2d 6d 65 6e 75 2d 69 74 | 65 6d 20 23 5b 28 6d 65 |-menu-it|em #[(me|
|00001f20| 6e 75 2d 70 61 74 68 20 | 69 74 65 6d 2d 6e 61 6d |nu-path |item-nam|
|00001f30| 65 20 66 75 6e 63 74 69 | 6f 6e 20 65 6e 61 62 6c |e functi|on enabl|
|00001f40| 65 64 2d 70 20 26 6f 70 | 74 69 6f 6e 61 6c 20 62 |ed-p &op|tional b|
|00001f50| 65 66 6f 72 65 29 20 22 | 08 84 08 00 c1 c2 21 88 |efore) "|......!.|
|00001f60| 0b 84 10 00 c1 c4 21 88 | c5 c6 08 0b 0e 07 0e 08 |......!.|........|
|00001f70| 0e 09 26 06 87 22 20 5b | 6d 65 6e 75 2d 70 61 74 |..&.." [|menu-pat|
|00001f80| 68 20 65 72 72 6f 72 20 | 22 6d 75 73 74 20 73 70 |h error |"must sp|
|00001f90| 65 63 69 66 79 20 61 20 | 6d 65 6e 75 20 70 61 74 |ecify a |menu pat|
|00001fa0| 68 22 20 69 74 65 6d 2d | 6e 61 6d 65 20 22 6d 75 |h" item-|name "mu|
|00001fb0| 73 74 20 73 70 65 63 69 | 66 79 20 61 6e 20 69 74 |st speci|fy an it|
|00001fc0| 65 6d 20 6e 61 6d 65 22 | 20 61 64 64 2d 6d 65 6e |em name"| add-men|
|00001fd0| 75 2d 69 74 65 6d 2d 31 | 20 74 20 66 75 6e 63 74 |u-item-1| t funct|
|00001fe0| 69 6f 6e 20 65 6e 61 62 | 6c 65 64 2d 70 20 62 65 |ion enab|led-p be|
|00001ff0| 66 6f 72 65 5d 20 37 20 | 22 5c 0a 41 64 64 20 61 |fore] 7 |"\.Add a|
|00002000| 20 6d 65 6e 75 20 69 74 | 65 6d 20 74 6f 20 73 6f | menu it|em to so|
|00002010| 6d 65 20 6d 65 6e 75 2c | 20 63 72 65 61 74 69 6e |me menu,| creatin|
|00002020| 67 20 74 68 65 20 6d 65 | 6e 75 20 66 69 72 73 74 |g the me|nu first|
|00002030| 20 69 66 20 6e 65 63 65 | 73 73 61 72 79 2e 0a 49 | if nece|ssary..I|
|00002040| 66 20 74 68 65 20 6e 61 | 6d 65 64 20 69 74 65 6d |f the na|med item|
|00002050| 20 65 78 69 73 74 73 20 | 61 6c 72 65 61 64 79 2c | exists |already,|
|00002060| 20 69 74 20 69 73 20 63 | 68 61 6e 67 65 64 2e 0a | it is c|hanged..|
|00002070| 4d 45 4e 55 2d 50 41 54 | 48 20 69 64 65 6e 74 69 |MENU-PAT|H identi|
|00002080| 66 69 65 73 20 74 68 65 | 20 6d 65 6e 75 20 75 6e |fies the| menu un|
|00002090| 64 65 72 20 77 68 69 63 | 68 20 74 68 65 20 6e 65 |der whic|h the ne|
|000020a0| 77 20 6d 65 6e 75 20 69 | 74 65 6d 20 73 68 6f 75 |w menu i|tem shou|
|000020b0| 6c 64 20 62 65 20 69 6e | 73 65 72 74 65 64 2e 0a |ld be in|serted..|
|000020c0| 20 49 74 20 69 73 20 61 | 20 6c 69 73 74 20 6f 66 | It is a| list of|
|000020d0| 20 73 74 72 69 6e 67 73 | 3b 20 66 6f 72 20 65 78 | strings|; for ex|
|000020e0| 61 6d 70 6c 65 2c 20 28 | 5c 22 46 69 6c 65 5c 22 |ample, (|\"File\"|
|000020f0| 29 20 6e 61 6d 65 73 20 | 74 68 65 20 74 6f 70 2d |) names |the top-|
|00002100| 6c 65 76 65 6c 20 5c 22 | 46 69 6c 65 5c 22 0a 20 |level \"|File\". |
|00002110| 6d 65 6e 75 2e 20 20 28 | 5c 22 46 69 6c 65 5c 22 |menu.  (|\"File\"|
|00002120| 20 5c 22 46 6f 6f 5c 22 | 29 20 6e 61 6d 65 73 20 | \"Foo\"|) names |
|00002130| 61 20 68 79 70 6f 74 68 | 65 74 69 63 61 6c 20 73 |a hypoth|etical s|
|00002140| 75 62 6d 65 6e 75 20 6f | 66 20 5c 22 46 69 6c 65 |ubmenu o|f \"File|
|00002150| 5c 22 2e 0a 49 54 45 4d | 2d 4e 41 4d 45 20 69 73 |\"..ITEM|-NAME is|
|00002160| 20 74 68 65 20 73 74 72 | 69 6e 67 20 6e 61 6d 69 | the str|ing nami|
|00002170| 6e 67 20 74 68 65 20 6d | 65 6e 75 20 69 74 65 6d |ng the m|enu item|
|00002180| 20 74 6f 20 62 65 20 61 | 64 64 65 64 2e 0a 46 55 | to be a|dded..FU|
|00002190| 4e 43 54 49 4f 4e 20 69 | 73 20 74 68 65 20 63 6f |NCTION i|s the co|
|000021a0| 6d 6d 61 6e 64 20 74 6f | 20 69 6e 76 6f 6b 65 20 |mmand to| invoke |
|000021b0| 77 68 65 6e 20 74 68 69 | 73 20 6d 65 6e 75 20 69 |when thi|s menu i|
|000021c0| 74 65 6d 20 69 73 20 73 | 65 6c 65 63 74 65 64 2e |tem is s|elected.|
|000021d0| 0a 20 49 66 20 69 74 20 | 69 73 20 61 20 73 79 6d |. If it |is a sym|
|000021e0| 62 6f 6c 2c 20 74 68 65 | 6e 20 69 74 20 69 73 20 |bol, the|n it is |
|000021f0| 69 6e 76 6f 6b 65 64 20 | 77 69 74 68 20 60 63 61 |invoked |with `ca|
|00002200| 6c 6c 2d 69 6e 74 65 72 | 61 63 74 69 76 65 6c 79 |ll-inter|actively|
|00002210| 27 2c 20 69 6e 20 74 68 | 65 20 73 61 6d 65 0a 20 |', in th|e same. |
|00002220| 77 61 79 20 74 68 61 74 | 20 66 75 6e 63 74 69 6f |way that| functio|
|00002230| 6e 73 20 62 6f 75 6e 64 | 20 74 6f 20 6b 65 79 73 |ns bound| to keys|
|00002240| 20 61 72 65 20 69 6e 76 | 6f 6b 65 64 2e 20 20 49 | are inv|oked.  I|
|00002250| 66 20 69 74 20 69 73 20 | 61 20 6c 69 73 74 2c 20 |f it is |a list, |
|00002260| 74 68 65 6e 20 74 68 65 | 20 0a 20 6c 69 73 74 20 |then the| . list |
|00002270| 69 73 20 73 69 6d 70 6c | 79 20 65 76 61 6c 75 61 |is simpl|y evalua|
|00002280| 74 65 64 2e 0a 45 4e 41 | 42 4c 45 44 2d 50 20 63 |ted..ENA|BLED-P c|
|00002290| 6f 6e 74 72 6f 6c 73 20 | 77 68 65 74 68 65 72 20 |ontrols |whether |
|000022a0| 74 68 65 20 69 74 65 6d | 20 69 73 20 73 65 6c 65 |the item| is sele|
|000022b0| 63 74 61 62 6c 65 20 6f | 72 20 6e 6f 74 2e 0a 42 |ctable o|r not..B|
|000022c0| 45 46 4f 52 45 2c 20 69 | 66 20 70 72 6f 76 69 64 |EFORE, i|f provid|
|000022d0| 65 64 2c 20 69 73 20 74 | 68 65 20 6e 61 6d 65 20 |ed, is t|he name |
|000022e0| 6f 66 20 61 20 6d 65 6e | 75 20 69 74 65 6d 20 62 |of a men|u item b|
|000022f0| 65 66 6f 72 65 20 77 68 | 69 63 68 20 74 68 69 73 |efore wh|ich this|
|00002300| 20 69 74 65 6d 20 73 68 | 6f 75 6c 64 0a 20 62 65 | item sh|ould. be|
|00002310| 20 61 64 64 65 64 2c 20 | 69 66 20 74 68 69 73 20 | added, |if this |
|00002320| 69 74 65 6d 20 69 73 20 | 6e 6f 74 20 6f 6e 20 74 |item is |not on t|
|00002330| 68 65 20 6d 65 6e 75 20 | 61 6c 72 65 61 64 79 2e |he menu |already.|
|00002340| 20 20 49 66 20 74 68 65 | 20 69 74 65 6d 20 69 73 |  If the| item is|
|00002350| 20 61 6c 72 65 61 64 79 | 0a 20 70 72 65 73 65 6e | already|. presen|
|00002360| 74 2c 20 69 74 20 77 69 | 6c 6c 20 6e 6f 74 20 62 |t, it wi|ll not b|
|00002370| 65 20 6d 6f 76 65 64 2e | 22 5d 29 0a 28 64 65 66 |e moved.|"]).(def|
|00002380| 61 6c 69 61 73 20 27 64 | 65 6c 65 74 65 2d 6d 65 |alias 'd|elete-me|
|00002390| 6e 75 2d 69 74 65 6d 20 | 23 5b 28 70 61 74 68 29 |nu-item |#[(path)|
|000023a0| 20 22 08 19 c2 09 0b 5c | 22 89 1c 40 1d 5c 66 41 | ".....\|"..@.\fA|
|000023b0| 86 10 00 09 1e 06 0d 3f | 3f 85 32 00 0e 06 08 3d |.......?|?.2....=|
|000023c0| 83 28 00 c7 0d 0e 06 5c | 22 10 82 2e 00 c7 0d 0e |.(.....\|".......|
|000023d0| 06 5c 22 88 c8 20 88 0d | 2c 87 22 20 5b 63 75 72 |.\".. ..|,." [cur|
|000023e0| 72 65 6e 74 2d 6d 65 6e | 75 62 61 72 20 6d 65 6e |rent-men|ubar men|
|000023f0| 75 62 61 72 20 66 69 6e | 64 2d 6d 65 6e 75 2d 69 |ubar fin|d-menu-i|
|00002400| 74 65 6d 20 70 61 74 68 | 20 70 61 69 72 20 69 74 |tem path| pair it|
|00002410| 65 6d 20 6d 65 6e 75 20 | 64 65 6c 71 20 73 65 74 |em menu |delq set|
|00002420| 2d 6d 65 6e 75 62 61 72 | 2d 64 69 72 74 79 2d 66 |-menubar|-dirty-f|
|00002430| 6c 61 67 5d 20 34 20 22 | 5c 0a 52 65 6d 6f 76 65 |lag] 4 "|\.Remove|
|00002440| 20 74 68 65 20 6e 61 6d | 65 64 20 6d 65 6e 75 20 | the nam|ed menu |
|00002450| 69 74 65 6d 20 66 72 6f | 6d 20 74 68 65 20 6d 65 |item fro|m the me|
|00002460| 6e 75 20 68 69 65 72 61 | 72 63 68 79 2e 0a 50 41 |nu hiera|rchy..PA|
|00002470| 54 48 20 69 73 20 61 20 | 6c 69 73 74 20 6f 66 20 |TH is a |list of |
|00002480| 73 74 72 69 6e 67 73 20 | 77 68 69 63 68 20 69 64 |strings |which id|
|00002490| 65 6e 74 69 66 79 20 74 | 68 65 20 70 6f 73 69 74 |entify t|he posit|
|000024a0| 69 6f 6e 20 6f 66 20 74 | 68 65 20 6d 65 6e 75 20 |ion of t|he menu |
|000024b0| 69 74 65 6d 20 69 6e 20 | 0a 74 68 65 20 6d 65 6e |item in |.the men|
|000024c0| 75 20 68 69 65 72 61 72 | 63 68 79 2e 20 20 28 5c |u hierar|chy.  (\|
|000024d0| 22 46 69 6c 65 5c 22 20 | 5c 22 53 61 76 65 5c 22 |"File\" |\"Save\"|
|000024e0| 29 20 6d 65 61 6e 73 20 | 74 68 65 20 6d 65 6e 75 |) means |the menu|
|000024f0| 20 69 74 65 6d 20 63 61 | 6c 6c 65 64 20 5c 22 53 | item ca|lled \"S|
|00002500| 61 76 65 5c 22 0a 75 6e | 64 65 72 20 74 68 65 20 |ave\".un|der the |
|00002510| 74 6f 70 6c 65 76 65 6c | 20 5c 22 46 69 6c 65 5c |toplevel| \"File\|
|00002520| 22 20 6d 65 6e 75 2e 20 | 20 28 5c 22 4d 65 6e 75 |" menu. | (\"Menu|
|00002530| 5c 22 20 5c 22 46 6f 6f | 5c 22 20 5c 22 49 74 65 |\" \"Foo|\" \"Ite|
|00002540| 6d 5c 22 29 20 6d 65 61 | 6e 73 20 74 68 65 20 0a |m\") mea|ns the .|
|00002550| 6d 65 6e 75 20 69 74 65 | 6d 20 63 61 6c 6c 65 64 |menu ite|m called|
|00002560| 20 5c 22 49 74 65 6d 5c | 22 20 75 6e 64 65 72 20 | \"Item\|" under |
|00002570| 74 68 65 20 5c 22 46 6f | 6f 5c 22 20 73 75 62 6d |the \"Fo|o\" subm|
|00002580| 65 6e 75 20 6f 66 20 5c | 22 4d 65 6e 75 5c 22 2e |enu of \|"Menu\".|
|00002590| 22 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 72 |"]).(def|alias 'r|
|000025a0| 65 6c 61 62 65 6c 2d 6d | 65 6e 75 2d 69 74 65 6d |elabel-m|enu-item|
|000025b0| 20 23 5b 28 70 61 74 68 | 20 6e 65 77 2d 6e 61 6d | #[(path| new-nam|
|000025c0| 65 29 20 22 08 3b 84 5c | 66 00 c1 c2 c3 08 44 5c |e) ".;.\|f.....D\|
|000025d0| 22 10 5c 66 1d c6 0d 0e | 07 5c 22 89 1e 08 40 1e |".\f....|.\"...@.|
|000025e0| 09 0e 08 41 1e 5c 6e 0e | 09 84 34 00 c1 cb 0e 5c |...A.\n.|..4....\|
|000025f0| 6e 83 2e 00 cc 82 2f 00 | cd 0e 07 44 5c 22 88 0e |n...../.|...D\"..|
|00002600| 09 3a 83 49 00 0e 09 40 | 3b 83 49 00 0e 09 08 a0 |.:.I...@|;.I.....|
|00002610| 88 82 4f 00 0e 09 ce 08 | 49 88 cf 20 88 0e 09 2c |..O.....|I.. ...,|
|00002620| 87 22 20 5b 6e 65 77 2d | 6e 61 6d 65 20 73 69 67 |." [new-|name sig|
|00002630| 6e 61 6c 20 77 72 6f 6e | 67 2d 74 79 70 65 2d 61 |nal wron|g-type-a|
|00002640| 72 67 75 6d 65 6e 74 20 | 73 74 72 69 6e 67 70 20 |rgument |stringp |
|00002650| 63 75 72 72 65 6e 74 2d | 6d 65 6e 75 62 61 72 20 |current-|menubar |
|00002660| 6d 65 6e 75 62 61 72 20 | 66 69 6e 64 2d 6d 65 6e |menubar |find-men|
|00002670| 75 2d 69 74 65 6d 20 70 | 61 74 68 20 70 61 69 72 |u-item p|ath pair|
|00002680| 20 69 74 65 6d 20 6d 65 | 6e 75 20 65 72 72 6f 72 | item me|nu error|
|00002690| 20 22 4e 6f 20 73 75 63 | 68 20 6d 65 6e 75 20 69 | "No suc|h menu i|
|000026a0| 74 65 6d 22 20 22 4e 6f | 20 73 75 63 68 20 6d 65 |tem" "No| such me|
|000026b0| 6e 75 22 20 30 20 73 65 | 74 2d 6d 65 6e 75 62 61 |nu" 0 se|t-menuba|
|000026c0| 72 2d 64 69 72 74 79 2d | 66 6c 61 67 5d 20 35 20 |r-dirty-|flag] 5 |
|000026d0| 22 5c 0a 43 68 61 6e 67 | 65 20 74 68 65 20 73 74 |"\.Chang|e the st|
|000026e0| 72 69 6e 67 20 6f 66 20 | 74 68 65 20 73 70 65 63 |ring of |the spec|
|000026f0| 69 66 69 65 64 20 6d 65 | 6e 75 20 69 74 65 6d 2e |ified me|nu item.|
|00002700| 0a 50 41 54 48 20 69 73 | 20 61 20 6c 69 73 74 20 |.PATH is| a list |
|00002710| 6f 66 20 73 74 72 69 6e | 67 73 20 77 68 69 63 68 |of strin|gs which|
|00002720| 20 69 64 65 6e 74 69 66 | 79 20 74 68 65 20 70 6f | identif|y the po|
|00002730| 73 69 74 69 6f 6e 20 6f | 66 20 74 68 65 20 6d 65 |sition o|f the me|
|00002740| 6e 75 20 69 74 65 6d 20 | 69 6e 20 0a 74 68 65 20 |nu item |in .the |
|00002750| 6d 65 6e 75 20 68 69 65 | 72 61 72 63 68 79 2e 20 |menu hie|rarchy. |
|00002760| 20 28 5c 22 46 69 6c 65 | 5c 22 20 5c 22 53 61 76 | (\"File|\" \"Sav|
|00002770| 65 5c 22 29 20 6d 65 61 | 6e 73 20 74 68 65 20 6d |e\") mea|ns the m|
|00002780| 65 6e 75 20 69 74 65 6d | 20 63 61 6c 6c 65 64 20 |enu item| called |
|00002790| 5c 22 53 61 76 65 5c 22 | 0a 75 6e 64 65 72 20 74 |\"Save\"|.under t|
|000027a0| 68 65 20 74 6f 70 6c 65 | 76 65 6c 20 5c 22 46 69 |he tople|vel \"Fi|
|000027b0| 6c 65 5c 22 20 6d 65 6e | 75 2e 20 20 28 5c 22 4d |le\" men|u.  (\"M|
|000027c0| 65 6e 75 5c 22 20 5c 22 | 46 6f 6f 5c 22 20 5c 22 |enu\" \"|Foo\" \"|
|000027d0| 49 74 65 6d 5c 22 29 20 | 6d 65 61 6e 73 20 74 68 |Item\") |means th|
|000027e0| 65 20 0a 6d 65 6e 75 20 | 69 74 65 6d 20 63 61 6c |e .menu |item cal|
|000027f0| 6c 65 64 20 5c 22 49 74 | 65 6d 5c 22 20 75 6e 64 |led \"It|em\" und|
|00002800| 65 72 20 74 68 65 20 5c | 22 46 6f 6f 5c 22 20 73 |er the \|"Foo\" s|
|00002810| 75 62 6d 65 6e 75 20 6f | 66 20 5c 22 4d 65 6e 75 |ubmenu o|f \"Menu|
|00002820| 5c 22 2e 0a 4e 45 57 2d | 4e 41 4d 45 20 69 73 20 |\"..NEW-|NAME is |
|00002830| 74 68 65 20 73 74 72 69 | 6e 67 20 74 68 61 74 20 |the stri|ng that |
|00002840| 74 68 65 20 6d 65 6e 75 | 20 69 74 65 6d 20 77 69 |the menu| item wi|
|00002850| 6c 6c 20 62 65 20 70 72 | 69 6e 74 65 64 20 61 73 |ll be pr|inted as|
|00002860| 20 66 72 6f 6d 20 6e 6f | 77 20 6f 6e 2e 22 5d 29 | from no|w on."])|
|00002870| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 61 64 64 2d |.(defali|as 'add-|
|00002880| 6d 65 6e 75 20 23 5b 28 | 6d 65 6e 75 2d 70 61 74 |menu #[(|menu-pat|
|00002890| 68 20 6d 65 6e 75 2d 6e | 61 6d 65 20 6d 65 6e 75 |h menu-n|ame menu|
|000028a0| 2d 69 74 65 6d 73 20 26 | 6f 70 74 69 6f 6e 61 6c |-items &|optional|
|000028b0| 20 62 65 66 6f 72 65 29 | 20 22 08 84 08 00 c1 c2 | before)| "......|
|000028c0| 21 88 0b 84 10 00 c1 c4 | 21 88 c5 c6 0e 07 08 0b |!.......|!.......|
|000028d0| c8 0e 09 26 06 87 22 20 | 5b 6d 65 6e 75 2d 6e 61 |...&.." |[menu-na|
|000028e0| 6d 65 20 65 72 72 6f 72 | 20 22 6d 75 73 74 20 73 |me error| "must s|
|000028f0| 70 65 63 69 66 79 20 61 | 20 6d 65 6e 75 20 6e 61 |pecify a| menu na|
|00002900| 6d 65 22 20 6d 65 6e 75 | 2d 69 74 65 6d 73 20 22 |me" menu|-items "|
|00002910| 6d 75 73 74 20 73 70 65 | 63 69 66 79 20 73 6f 6d |must spe|cify som|
|00002920| 65 20 6d 65 6e 75 20 69 | 74 65 6d 73 22 20 61 64 |e menu i|tems" ad|
|00002930| 64 2d 6d 65 6e 75 2d 69 | 74 65 6d 2d 31 20 6e 69 |d-menu-i|tem-1 ni|
|00002940| 6c 20 6d 65 6e 75 2d 70 | 61 74 68 20 74 20 62 65 |l menu-p|ath t be|
|00002950| 66 6f 72 65 5d 20 37 20 | 22 5c 0a 41 64 64 20 61 |fore] 7 |"\.Add a|
|00002960| 20 6d 65 6e 75 20 74 6f | 20 74 68 65 20 6d 65 6e | menu to| the men|
|00002970| 75 62 61 72 20 6f 72 20 | 6f 6e 65 20 6f 66 20 69 |ubar or |one of i|
|00002980| 74 73 20 73 75 62 6d 65 | 6e 75 73 2e 0a 49 66 20 |ts subme|nus..If |
|00002990| 74 68 65 20 6e 61 6d 65 | 64 20 6d 65 6e 75 20 65 |the name|d menu e|
|000029a0| 78 69 73 74 73 20 61 6c | 72 65 61 64 79 2c 20 69 |xists al|ready, i|
|000029b0| 74 20 69 73 20 63 68 61 | 6e 67 65 64 2e 0a 4d 45 |t is cha|nged..ME|
|000029c0| 4e 55 2d 50 41 54 48 20 | 69 64 65 6e 74 69 66 69 |NU-PATH |identifi|
|000029d0| 65 73 20 74 68 65 20 6d | 65 6e 75 20 75 6e 64 65 |es the m|enu unde|
|000029e0| 72 20 77 68 69 63 68 20 | 74 68 65 20 6e 65 77 20 |r which |the new |
|000029f0| 6d 65 6e 75 20 73 68 6f | 75 6c 64 20 62 65 20 69 |menu sho|uld be i|
|00002a00| 6e 73 65 72 74 65 64 2e | 0a 20 49 74 20 69 73 20 |nserted.|. It is |
|00002a10| 61 20 6c 69 73 74 20 6f | 66 20 73 74 72 69 6e 67 |a list o|f string|
|00002a20| 73 3b 20 66 6f 72 20 65 | 78 61 6d 70 6c 65 2c 20 |s; for e|xample, |
|00002a30| 28 5c 22 46 69 6c 65 5c | 22 29 20 6e 61 6d 65 73 |(\"File\|") names|
|00002a40| 20 74 68 65 20 74 6f 70 | 2d 6c 65 76 65 6c 20 5c | the top|-level \|
|00002a50| 22 46 69 6c 65 5c 22 0a | 20 6d 65 6e 75 2e 20 20 |"File\".| menu.  |
|00002a60| 28 5c 22 46 69 6c 65 5c | 22 20 5c 22 46 6f 6f 5c |(\"File\|" \"Foo\|
|00002a70| 22 29 20 6e 61 6d 65 73 | 20 61 20 68 79 70 6f 74 |") names| a hypot|
|00002a80| 68 65 74 69 63 61 6c 20 | 73 75 62 6d 65 6e 75 20 |hetical |submenu |
|00002a90| 6f 66 20 5c 22 46 69 6c | 65 5c 22 2e 0a 20 49 66 |of \"Fil|e\".. If|
|00002aa0| 20 4d 45 4e 55 2d 50 41 | 54 48 20 69 73 20 6e 69 | MENU-PA|TH is ni|
|00002ab0| 6c 2c 20 74 68 65 6e 20 | 74 68 65 20 6d 65 6e 75 |l, then |the menu|
|00002ac0| 20 77 69 6c 6c 20 62 65 | 20 61 64 64 65 64 20 74 | will be| added t|
|00002ad0| 6f 20 74 68 65 20 6d 65 | 6e 75 62 61 72 20 69 74 |o the me|nubar it|
|00002ae0| 73 65 6c 66 2e 0a 4d 45 | 4e 55 2d 4e 41 4d 45 20 |self..ME|NU-NAME |
|00002af0| 69 73 20 74 68 65 20 73 | 74 72 69 6e 67 20 6e 61 |is the s|tring na|
|00002b00| 6d 69 6e 67 20 74 68 65 | 20 6d 65 6e 75 20 74 6f |ming the| menu to|
|00002b10| 20 62 65 20 61 64 64 65 | 64 2e 0a 4d 45 4e 55 2d | be adde|d..MENU-|
|00002b20| 49 54 45 4d 53 20 69 73 | 20 61 20 6c 69 73 74 20 |ITEMS is| a list |
|00002b30| 6f 66 20 6d 65 6e 75 20 | 69 74 65 6d 20 64 65 73 |of menu |item des|
|00002b40| 63 72 69 70 74 69 6f 6e | 73 2e 0a 20 45 61 63 68 |cription|s.. Each|
|00002b50| 20 6d 65 6e 75 20 69 74 | 65 6d 20 73 68 6f 75 6c | menu it|em shoul|
|00002b60| 64 20 62 65 20 61 20 76 | 65 63 74 6f 72 20 6f 66 |d be a v|ector of|
|00002b70| 20 74 68 72 65 65 20 65 | 6c 65 6d 65 6e 74 73 3a | three e|lements:|
|00002b80| 0a 20 20 20 2d 20 61 20 | 73 74 72 69 6e 67 2c 20 |.   - a |string, |
|00002b90| 74 68 65 20 6e 61 6d 65 | 20 6f 66 20 74 68 65 20 |the name| of the |
|00002ba0| 6d 65 6e 75 20 69 74 65 | 6d 3b 0a 20 20 20 2d 20 |menu ite|m;.   - |
|00002bb0| 61 20 73 79 6d 62 6f 6c | 20 6e 61 6d 69 6e 67 20 |a symbol| naming |
|00002bc0| 61 20 63 6f 6d 6d 61 6e | 64 2c 20 6f 72 20 61 20 |a comman|d, or a |
|00002bd0| 66 6f 72 6d 20 74 6f 20 | 65 76 61 6c 75 61 74 65 |form to |evaluate|
|00002be0| 3b 0a 20 20 20 2d 20 61 | 6e 64 20 61 20 66 6f 72 |;.   - a|nd a for|
|00002bf0| 6d 20 77 68 6f 73 65 20 | 76 61 6c 75 65 20 64 65 |m whose |value de|
|00002c00| 74 65 72 6d 69 6e 65 73 | 20 77 68 65 74 68 65 72 |termines| whether|
|00002c10| 20 74 68 69 73 20 69 74 | 65 6d 20 69 73 20 73 65 | this it|em is se|
|00002c20| 6c 65 63 74 61 62 6c 65 | 2e 0a 42 45 46 4f 52 45 |lectable|..BEFORE|
|00002c30| 2c 20 69 66 20 70 72 6f | 76 69 64 65 64 2c 20 69 |, if pro|vided, i|
|00002c40| 73 20 74 68 65 20 6e 61 | 6d 65 20 6f 66 20 61 20 |s the na|me of a |
|00002c50| 6d 65 6e 75 20 62 65 66 | 6f 72 65 20 77 68 69 63 |menu bef|ore whic|
|00002c60| 68 20 74 68 69 73 20 6d | 65 6e 75 20 73 68 6f 75 |h this m|enu shou|
|00002c70| 6c 64 0a 20 62 65 20 61 | 64 64 65 64 2c 20 69 66 |ld. be a|dded, if|
|00002c80| 20 74 68 69 73 20 6d 65 | 6e 75 20 69 73 20 6e 6f | this me|nu is no|
|00002c90| 74 20 6f 6e 20 69 74 73 | 20 70 61 72 65 6e 74 20 |t on its| parent |
|00002ca0| 61 6c 72 65 61 64 79 2e | 20 20 49 66 20 74 68 65 |already.|  If the|
|00002cb0| 20 6d 65 6e 75 20 69 73 | 20 61 6c 72 65 61 64 79 | menu is| already|
|00002cc0| 0a 20 70 72 65 73 65 6e | 74 2c 20 69 74 20 77 69 |. presen|t, it wi|
|00002cd0| 6c 6c 20 6e 6f 74 20 62 | 65 20 6d 6f 76 65 64 2e |ll not b|e moved.|
|00002ce0| 22 5d 29 0a 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |"]).(byt|e-code "|
|00002cf0| c0 c1 21 84 08 00 c2 11 | c3 5c 66 21 88 c5 c6 21 |..!.....|.\f!...!|
|00002d00| 87 22 20 5b 62 6f 75 6e | 64 70 20 70 75 74 2d 62 |." [boun|dp put-b|
|00002d10| 75 66 66 65 72 2d 6e 61 | 6d 65 73 2d 69 6e 2d 66 |uffer-na|mes-in-f|
|00002d20| 69 6c 65 2d 6d 65 6e 75 | 20 74 20 73 65 74 2d 6d |ile-menu| t set-m|
|00002d30| 65 6e 75 62 61 72 20 64 | 65 66 61 75 6c 74 2d 6d |enubar d|efault-m|
|00002d40| 65 6e 75 62 61 72 20 70 | 72 6f 76 69 64 65 20 6c |enubar p|rovide l|
|00002d50| 6d 65 6e 75 5d 20 32 29 | 0a                      |menu] 2)|.       |
+--------+-------------------------+-------------------------+--------+--------+