/ Linux Cubed Series 2: Applications / Linux Cubed Series 2 - Applications.iso / editors / emacs / xemacs / xemacs-1.006 / xemacs-1 / lib / xemacs-19.13 / lisp / hyperbole / hui-menus.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 63 74 68 6f 6d 70 40 |piled by| cthomp@|
|00000020| 77 69 6c 6c 6f 77 2e 63 | 73 2e 75 69 75 63 2e 65 |willow.c|s.uiuc.e|
|00000030| 64 75 20 6f 6e 20 54 75 | 65 20 41 75 67 20 32 39 |du on Tu|e Aug 29|
|00000040| 20 31 34 3a 35 32 3a 32 | 38 20 31 39 39 35 0a 3b | 14:52:2|8 1995.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 65 78 |;; from |file /ex|
|00000060| 70 6f 72 74 2f 77 69 6c | 6c 6f 77 33 2f 78 65 6d |port/wil|low3/xem|
|00000070| 61 63 73 2d 31 39 2e 31 | 33 2d 72 65 6c 65 61 73 |acs-19.1|3-releas|
|00000080| 65 2f 65 64 69 74 6f 72 | 2f 6c 69 73 70 2f 68 79 |e/editor|/lisp/hy|
|00000090| 70 65 72 62 6f 6c 65 2f | 68 75 69 2d 6d 65 6e 75 |perbole/|hui-menu|
|000000a0| 73 2e 65 6c 0a 3b 3b 3b | 20 65 6d 61 63 73 20 76 |s.el.;;;| emacs v|
|000000b0| 65 72 73 69 6f 6e 20 31 | 39 2e 31 33 20 58 45 6d |ersion 1|9.13 XEm|
|000000c0| 61 63 73 20 4c 75 63 69 | 64 2e 0a 3b 3b 3b 20 62 |acs Luci|d..;;; b|
|000000d0| 79 74 65 63 6f 6d 70 20 | 76 65 72 73 69 6f 6e 20 |ytecomp |version |
|000000e0| 32 2e 32 35 3b 20 31 2d | 53 65 70 2d 39 34 2e 0a |2.25; 1-|Sep-94..|
|000000f0| 3b 3b 3b 20 6f 70 74 69 | 6d 69 7a 61 74 69 6f 6e |;;; opti|mization|
|00000100| 20 69 73 20 6f 6e 2e 0a | 3b 3b 3b 20 74 68 69 73 | is on..|;;; this|
|00000110| 20 66 69 6c 65 20 75 73 | 65 73 20 6f 70 63 6f 64 | file us|es opcod|
|00000120| 65 73 20 77 68 69 63 68 | 20 64 6f 20 6e 6f 74 20 |es which| do not |
|00000130| 65 78 69 73 74 20 69 6e | 20 45 6d 61 63 73 20 31 |exist in| Emacs 1|
|00000140| 38 2e 0a 0a 28 69 66 20 | 28 61 6e 64 20 28 62 6f |8...(if |(and (bo|
|00000150| 75 6e 64 70 20 27 65 6d | 61 63 73 2d 76 65 72 73 |undp 'em|acs-vers|
|00000160| 69 6f 6e 29 0a 09 20 28 | 6f 72 20 28 61 6e 64 20 |ion).. (|or (and |
|00000170| 28 62 6f 75 6e 64 70 20 | 27 65 70 6f 63 68 3a 3a |(boundp |'epoch::|
|00000180| 76 65 72 73 69 6f 6e 29 | 20 65 70 6f 63 68 3a 3a |version)| epoch::|
|00000190| 76 65 72 73 69 6f 6e 29 | 0a 09 20 20 20 20 20 28 |version)|..     (|
|000001a0| 73 74 72 69 6e 67 2d 6c | 65 73 73 70 20 65 6d 61 |string-l|essp ema|
|000001b0| 63 73 2d 76 65 72 73 69 | 6f 6e 20 22 31 39 22 29 |cs-versi|on "19")|
|000001c0| 29 29 0a 20 20 20 20 28 | 65 72 72 6f 72 20 22 54 |)).    (|error "T|
|000001d0| 68 69 73 20 66 69 6c 65 | 20 77 61 73 20 63 6f 6d |his file| was com|
|000001e0| 70 69 6c 65 64 20 66 6f | 72 20 45 6d 61 63 73 20 |piled fo|r Emacs |
|000001f0| 31 39 2e 22 29 29 0a 0a | 28 72 65 71 75 69 72 65 |19."))..|(require|
|00000200| 20 27 68 79 70 62 29 0a | 28 64 65 66 76 61 72 20 | 'hypb).|(defvar |
|00000210| 68 75 69 3a 6d 65 6e 75 | 2d 73 65 6c 65 63 74 20 |hui:menu|-select |
|00000220| 22 0d 22 20 22 5c 0a 2a | 55 70 70 65 72 20 63 61 |"." "\.*|Upper ca|
|00000230| 73 65 20 63 68 61 72 2d | 73 74 72 69 6e 67 20 77 |se char-|string w|
|00000240| 68 69 63 68 20 73 65 6c | 65 63 74 73 20 74 68 65 |hich sel|ects the|
|00000250| 20 48 79 70 65 72 62 6f | 6c 65 20 6d 65 6e 75 20 | Hyperbo|le menu |
|00000260| 69 74 65 6d 20 61 74 20 | 70 6f 69 6e 74 2e 22 29 |item at |point.")|
|00000270| 0a 28 64 65 66 76 61 72 | 20 68 75 69 3a 6d 65 6e |.(defvar| hui:men|
|00000280| 75 2d 71 75 69 74 20 22 | 51 22 20 22 5c 0a 2a 55 |u-quit "|Q" "\.*U|
|00000290| 70 70 65 72 20 63 61 73 | 65 20 63 68 61 72 2d 73 |pper cas|e char-s|
|000002a0| 74 72 69 6e 67 20 77 68 | 69 63 68 20 71 75 69 74 |tring wh|ich quit|
|000002b0| 73 20 73 65 6c 65 63 74 | 69 6e 67 20 66 72 6f 6d |s select|ing from|
|000002c0| 20 61 20 48 79 70 65 72 | 62 6f 6c 65 20 6d 65 6e | a Hyper|bole men|
|000002d0| 75 20 69 74 65 6d 2e 22 | 29 0a 28 64 65 66 76 61 |u item."|).(defva|
|000002e0| 72 20 68 75 69 3a 6d 65 | 6e 75 2d 61 62 6f 72 74 |r hui:me|nu-abort|
|000002f0| 20 22 07 22 20 22 5c 0a | 2a 53 61 6d 65 20 66 75 | "." "\.|*Same fu|
|00000300| 6e 63 74 69 6f 6e 20 61 | 73 20 27 68 75 69 3a 6d |nction a|s 'hui:m|
|00000310| 65 6e 75 2d 71 75 69 74 | 27 2e 22 29 0a 28 64 65 |enu-quit|'.").(de|
|00000320| 66 76 61 72 20 68 75 69 | 3a 6d 65 6e 75 2d 74 6f |fvar hui|:menu-to|
|00000330| 70 20 22 14 22 20 22 5c | 0a 2a 43 68 61 72 61 63 |p "." "\|.*Charac|
|00000340| 74 65 72 20 77 68 69 63 | 68 20 72 65 74 75 72 6e |ter whic|h return|
|00000350| 73 20 74 6f 20 74 6f 70 | 20 48 79 70 65 72 62 6f |s to top| Hyperbo|
|00000360| 6c 65 20 6d 65 6e 75 2e | 22 29 0a 28 64 65 66 76 |le menu.|").(defv|
|00000370| 61 72 20 68 75 69 3a 6d | 65 6e 75 2d 70 20 6e 69 |ar hui:m|enu-p ni|
|00000380| 6c 20 22 5c 0a 4e 6f 6e | 2d 6e 69 6c 20 69 66 66 |l "\.Non|-nil iff|
|00000390| 20 61 20 63 75 72 72 65 | 6e 74 20 48 79 70 65 72 | a curre|nt Hyper|
|000003a0| 62 6f 6c 65 20 6d 65 6e | 75 20 61 63 74 69 76 61 |bole men|u activa|
|000003b0| 74 69 6f 6e 20 65 78 69 | 73 74 73 2e 22 29 0a 28 |tion exi|sts.").(|
|000003c0| 64 65 66 76 61 72 20 68 | 75 69 3a 6d 65 6e 75 73 |defvar h|ui:menus|
|000003d0| 20 6e 69 6c 20 22 5c 0a | 43 6f 6d 6d 61 6e 64 20 | nil "\.|Command |
|000003e0| 6d 65 6e 75 73 20 66 6f | 72 20 75 73 65 20 77 69 |menus fo|r use wi|
|000003f0| 74 68 20 74 68 65 20 64 | 65 66 61 75 6c 74 20 48 |th the d|efault H|
|00000400| 79 70 65 72 62 6f 6c 65 | 20 75 73 65 72 20 69 6e |yperbole| user in|
|00000410| 74 65 72 66 61 63 65 2e | 22 29 0a 28 62 79 74 65 |terface.|").(byte|
|00000420| 2d 63 6f 64 65 20 22 c0 | c1 c2 c3 0c c5 48 c6 55 |-code ".|.....H.U|
|00000430| ab 86 0c c7 c1 4f aa 81 | 0c 1e 08 c9 0e 08 ca 51 |.....O..|.......Q|
|00000440| 29 43 43 c0 c1 cb cc cd | ce cf d0 d1 d2 0e 13 ad |)CC.....|........|
|00000450| 81 d4 d5 d6 af 0b 5c 22 | 5c 22 42 d7 d8 d9 da db |......\"|\"B.....|
|00000460| dc dd 0e 13 ad 81 de df | e0 e1 af 0c 5c 22 16 5c |........|....\".\|
|00000470| 22 e3 c2 4d 87 22 20 5b | 64 65 6c 71 20 6e 69 6c |"..M." [|delq nil|
|00000480| 20 68 79 70 65 72 62 6f | 6c 65 20 61 70 70 65 6e | hyperbo|le appen|
|00000490| 64 20 68 79 70 65 72 62 | 3a 76 65 72 73 69 6f 6e |d hyperb|:version|
|000004a0| 20 30 20 34 38 20 31 20 | 76 65 72 73 69 6f 6e 20 | 0 48 1 |version |
|000004b0| 22 48 79 22 20 22 3e 22 | 20 28 22 41 63 74 22 20 |"Hy" ">"| ("Act" |
|000004c0| 68 75 69 3a 68 62 75 74 | 2d 61 63 74 20 22 41 63 |hui:hbut|-act "Ac|
|000004d0| 74 69 76 61 74 65 73 20 | 62 75 74 74 6f 6e 20 61 |tivates |button a|
|000004e0| 74 20 70 6f 69 6e 74 20 | 6f 72 20 70 72 6f 6d 70 |t point |or promp|
|000004f0| 74 73 20 66 6f 72 20 65 | 78 70 6c 69 63 69 74 20 |ts for e|xplicit |
|00000500| 62 75 74 74 6f 6e 2e 22 | 29 20 28 22 42 75 74 66 |button."|) ("Butf|
|00000510| 69 6c 65 2f 22 20 28 6d | 65 6e 75 20 2e 20 62 75 |ile/" (m|enu . bu|
|00000520| 74 66 69 6c 65 29 20 22 | 51 75 69 63 6b 20 61 63 |tfile) "|Quick ac|
|00000530| 63 65 73 73 20 62 75 74 | 74 6f 6e 20 66 69 6c 65 |cess but|ton file|
|00000540| 73 20 6d 65 6e 75 73 2e | 22 29 20 28 22 44 6f 63 |s menus.|") ("Doc|
|00000550| 2f 22 20 28 6d 65 6e 75 | 20 2e 20 64 6f 63 29 20 |/" (menu| . doc) |
|00000560| 22 51 75 69 63 6b 20 61 | 63 63 65 73 73 20 74 6f |"Quick a|ccess to|
|00000570| 20 48 79 70 65 72 62 6f | 6c 65 20 64 6f 63 75 6d | Hyperbo|le docum|
|00000580| 65 6e 74 61 74 69 6f 6e | 2e 22 29 20 28 22 45 62 |entation|.") ("Eb|
|00000590| 75 74 2f 22 20 28 6d 65 | 6e 75 20 2e 20 65 62 75 |ut/" (me|nu . ebu|
|000005a0| 74 29 20 22 45 78 70 6c | 69 63 69 74 20 62 75 74 |t) "Expl|icit but|
|000005b0| 74 6f 6e 20 63 6f 6d 6d | 61 6e 64 73 2e 22 29 20 |ton comm|ands.") |
|000005c0| 28 22 47 62 75 74 2f 22 | 20 28 6d 65 6e 75 20 2e |("Gbut/"| (menu .|
|000005d0| 20 67 62 75 74 29 20 22 | 47 6c 6f 62 61 6c 20 62 | gbut) "|Global b|
|000005e0| 75 74 74 6f 6e 20 63 6f | 6d 6d 61 6e 64 73 2e 22 |utton co|mmands."|
|000005f0| 29 20 28 22 48 69 73 74 | 22 20 28 68 68 69 73 74 |) ("Hist|" (hhist|
|00000600| 3a 72 65 6d 6f 76 65 20 | 63 75 72 72 65 6e 74 2d |:remove |current-|
|00000610| 70 72 65 66 69 78 2d 61 | 72 67 29 20 22 4a 75 6d |prefix-a|rg) "Jum|
|00000620| 70 73 20 62 61 63 6b 20 | 74 6f 20 6c 6f 63 61 74 |ps back |to locat|
|00000630| 69 6f 6e 20 70 72 69 6f | 72 20 74 6f 20 6c 61 73 |ion prio|r to las|
|00000640| 74 20 48 79 70 65 72 62 | 6f 6c 65 20 62 75 74 74 |t Hyperb|ole butt|
|00000650| 6f 6e 20 66 6f 6c 6c 6f | 77 2e 22 29 20 28 22 49 |on follo|w.") ("I|
|00000660| 62 75 74 2f 22 20 28 6d | 65 6e 75 20 2e 20 69 62 |but/" (m|enu . ib|
|00000670| 75 74 29 20 22 49 6d 70 | 6c 69 63 69 74 20 62 75 |ut) "Imp|licit bu|
|00000680| 74 74 6f 6e 20 61 6e 64 | 20 62 75 74 74 6f 6e 20 |tton and| button |
|00000690| 74 79 70 65 20 63 6f 6d | 6d 61 6e 64 73 2e 22 29 |type com|mands.")|
|000006a0| 20 28 22 4d 73 67 2f 22 | 20 28 6d 65 6e 75 20 2e | ("Msg/"| (menu .|
|000006b0| 20 6d 73 67 29 20 22 4d | 61 69 6c 20 61 6e 64 20 | msg) "M|ail and |
|000006c0| 4e 65 77 73 20 6d 65 73 | 73 61 67 69 6e 67 20 66 |News mes|saging f|
|000006d0| 61 63 69 6c 69 74 69 65 | 73 2e 22 29 20 68 79 70 |acilitie|s.") hyp|
|000006e0| 65 72 62 3a 6b 6f 74 6c | 2d 70 20 28 22 4f 74 6c |erb:kotl|-p ("Otl|
|000006f0| 2f 22 20 28 6d 65 6e 75 | 20 2e 20 6f 74 6c 29 20 |/" (menu| . otl) |
|00000700| 22 41 75 74 6f 6e 75 6d | 62 65 72 65 64 20 6f 75 |"Autonum|bered ou|
|00000710| 74 6c 69 6e 69 6e 67 20 | 61 6e 64 20 68 79 70 65 |tlining |and hype|
|00000720| 72 2d 6e 6f 64 65 20 66 | 61 63 69 6c 69 74 69 65 |r-node f|acilitie|
|00000730| 73 2e 22 29 20 28 22 52 | 6f 6c 6f 2f 22 20 28 6d |s.") ("R|olo/" (m|
|00000740| 65 6e 75 20 2e 20 72 6f | 6c 6f 29 20 22 48 69 65 |enu . ro|lo) "Hie|
|00000750| 72 61 72 63 68 69 63 61 | 6c 2c 20 6d 75 6c 74 69 |rarchica|l, multi|
|00000760| 2d 66 69 6c 65 20 72 6f | 6c 6f 64 65 78 20 6c 6f |-file ro|lodex lo|
|00000770| 6f 6b 75 70 20 61 6e 64 | 20 65 64 69 74 20 63 6f |okup and| edit co|
|00000780| 6d 6d 61 6e 64 73 2e 22 | 29 20 28 22 57 69 6e 2f |mmands."|) ("Win/|
|00000790| 22 20 28 6d 65 6e 75 20 | 2e 20 77 69 6e 29 20 22 |" (menu |. win) "|
|000007a0| 57 69 6e 64 6f 77 20 63 | 6f 6e 66 69 67 75 72 61 |Window c|onfigura|
|000007b0| 74 69 6f 6e 20 6d 61 6e | 61 67 65 6d 65 6e 74 20 |tion man|agement |
|000007c0| 63 6f 6d 6d 61 6e 64 2e | 22 29 20 28 62 75 74 66 |command.|") (butf|
|000007d0| 69 6c 65 20 28 22 42 75 | 74 66 69 6c 65 3e 22 29 |ile ("Bu|tfile>")|
|000007e0| 20 28 22 44 69 72 46 69 | 6c 65 22 20 28 66 69 6e | ("DirFi|le" (fin|
|000007f0| 64 2d 66 69 6c 65 20 68 | 62 6d 61 70 3a 66 69 6c |d-file h|bmap:fil|
|00000800| 65 6e 61 6d 65 29 20 22 | 45 64 69 74 73 20 64 69 |ename) "|Edits di|
|00000810| 72 65 63 74 6f 72 79 2d | 73 70 65 63 69 66 69 63 |rectory-|specific|
|00000820| 20 62 75 74 74 6f 6e 20 | 66 69 6c 65 2e 22 29 20 | button |file.") |
|00000830| 28 22 49 6e 66 6f 22 20 | 28 68 61 63 74 20 27 6c |("Info" |(hact 'l|
|00000840| 69 6e 6b 2d 74 6f 2d 49 | 6e 66 6f 2d 6e 6f 64 65 |ink-to-I|nfo-node|
|00000850| 20 22 28 68 79 70 65 72 | 62 6f 6c 65 2e 69 6e 66 | "(hyper|bole.inf|
|00000860| 6f 29 42 75 74 74 6f 6e | 20 46 69 6c 65 73 22 29 |o)Button| Files")|
|00000870| 20 22 44 69 73 70 6c 61 | 79 73 20 6d 61 6e 75 61 | "Displa|ys manua|
|00000880| 6c 20 73 65 63 74 69 6f | 6e 20 6f 6e 20 62 75 74 |l sectio|n on but|
|00000890| 74 6f 6e 20 66 69 6c 65 | 73 2e 22 29 20 28 22 50 |ton file|s.") ("P|
|000008a0| 65 72 73 6f 6e 61 6c 46 | 69 6c 65 22 20 28 66 69 |ersonalF|ile" (fi|
|000008b0| 6e 64 2d 66 69 6c 65 20 | 28 65 78 70 61 6e 64 2d |nd-file |(expand-|
|000008c0| 66 69 6c 65 2d 6e 61 6d | 65 20 68 62 6d 61 70 3a |file-nam|e hbmap:|
|000008d0| 66 69 6c 65 6e 61 6d 65 | 20 68 62 6d 61 70 3a 64 |filename| hbmap:d|
|000008e0| 69 72 2d 75 73 65 72 29 | 29 20 22 45 64 69 74 73 |ir-user)|) "Edits|
|000008f0| 20 75 73 65 72 2d 73 70 | 65 63 69 66 69 63 20 62 | user-sp|ecific b|
|00000900| 75 74 74 6f 6e 20 66 69 | 6c 65 2e 22 29 29 20 28 |utton fi|le.")) (|
|00000910| 64 6f 63 20 28 22 44 6f | 63 3e 22 29 20 28 22 44 |doc ("Do|c>") ("D|
|00000920| 65 6d 6f 22 20 28 66 69 | 6e 64 2d 66 69 6c 65 2d |emo" (fi|nd-file-|
|00000930| 72 65 61 64 2d 6f 6e 6c | 79 20 28 65 78 70 61 6e |read-onl|y (expan|
|00000940| 64 2d 66 69 6c 65 2d 6e | 61 6d 65 20 22 44 45 4d |d-file-n|ame "DEM|
|00000950| 4f 22 20 68 79 70 65 72 | 62 3a 64 69 72 29 29 20 |O" hyper|b:dir)) |
|00000960| 22 44 65 6d 6f 6e 73 74 | 72 61 74 65 73 20 48 79 |"Demonst|rates Hy|
|00000970| 70 65 72 62 6f 6c 65 20 | 66 65 61 74 75 72 65 73 |perbole |features|
|00000980| 2e 22 29 20 28 22 46 69 | 6c 65 73 22 20 28 66 69 |.") ("Fi|les" (fi|
|00000990| 6e 64 2d 66 69 6c 65 2d | 72 65 61 64 2d 6f 6e 6c |nd-file-|read-onl|
|000009a0| 79 20 28 65 78 70 61 6e | 64 2d 66 69 6c 65 2d 6e |y (expan|d-file-n|
|000009b0| 61 6d 65 20 22 4d 41 4e | 49 46 45 53 54 22 20 68 |ame "MAN|IFEST" h|
|000009c0| 79 70 65 72 62 3a 64 69 | 72 29 29 20 22 53 75 6d |yperb:di|r)) "Sum|
|000009d0| 6d 61 72 69 7a 65 73 20 | 48 79 70 65 72 62 6f 6c |marizes |Hyperbol|
|000009e0| 65 20 73 79 73 74 65 6d | 20 66 69 6c 65 73 2e 20 |e system| files. |
|000009f0| 20 43 6c 69 63 6b 20 6f | 6e 20 61 6e 20 65 6e 74 | Click o|n an ent|
|00000a00| 72 79 20 74 6f 20 76 69 | 65 77 20 69 74 2e 22 29 |ry to vi|ew it.")|
|00000a10| 20 28 22 47 6c 6f 73 73 | 61 72 79 22 20 28 68 61 | ("Gloss|ary" (ha|
|00000a20| 63 74 20 27 6c 69 6e 6b | 2d 74 6f 2d 49 6e 66 6f |ct 'link|-to-Info|
|00000a30| 2d 6e 6f 64 65 20 22 28 | 68 79 70 65 72 62 6f 6c |-node "(|hyperbol|
|00000a40| 65 2e 69 6e 66 6f 29 47 | 6c 6f 73 73 61 72 79 22 |e.info)G|lossary"|
|00000a50| 29 20 22 47 6c 6f 73 73 | 61 72 79 20 6f 66 20 48 |) "Gloss|ary of H|
|00000a60| 79 70 65 72 62 6f 6c 65 | 20 74 65 72 6d 73 2e 22 |yperbole| terms."|
|00000a70| 29 20 28 22 48 79 70 62 | 43 6f 70 79 22 20 28 70 |) ("Hypb|Copy" (p|
|00000a80| 72 6f 67 6e 20 28 68 61 | 63 74 20 27 6c 69 6e 6b |rogn (ha|ct 'link|
|00000a90| 2d 74 6f 2d 73 74 72 69 | 6e 67 2d 6d 61 74 63 68 |-to-stri|ng-match|
|00000aa0| 20 22 2a 20 43 6f 70 79 | 72 69 67 68 74 22 20 32 | "* Copy|right" 2|
|00000ab0| 20 28 65 78 70 61 6e 64 | 2d 66 69 6c 65 2d 6e 61 | (expand|-file-na|
|00000ac0| 6d 65 20 22 52 45 41 44 | 4d 45 22 20 68 79 70 65 |me "READ|ME" hype|
|00000ad0| 72 62 3a 64 69 72 29 29 | 20 28 73 65 74 71 20 62 |rb:dir))| (setq b|
|00000ae0| 75 66 66 65 72 2d 72 65 | 61 64 2d 6f 6e 6c 79 20 |uffer-re|ad-only |
|00000af0| 6e 69 6c 29 20 28 74 6f | 67 67 6c 65 2d 72 65 61 |nil) (to|ggle-rea|
|00000b00| 64 2d 6f 6e 6c 79 29 29 | 20 22 44 69 73 70 6c 61 |d-only))| "Displa|
|00000b10| 79 73 20 67 65 6e 65 72 | 61 6c 20 48 79 70 65 72 |ys gener|al Hyper|
|00000b20| 62 6f 6c 65 20 63 6f 70 | 79 72 69 67 68 74 20 61 |bole cop|yright a|
|00000b30| 6e 64 20 6c 69 63 65 6e | 73 65 20 64 65 74 61 69 |nd licen|se detai|
|00000b40| 6c 73 2e 22 29 20 28 22 | 49 6e 66 6f 22 20 28 68 |ls.") ("|Info" (h|
|00000b50| 61 63 74 20 27 6c 69 6e | 6b 2d 74 6f 2d 49 6e 66 |act 'lin|k-to-Inf|
|00000b60| 6f 2d 6e 6f 64 65 20 22 | 28 68 79 70 65 72 62 6f |o-node "|(hyperbo|
|00000b70| 6c 65 2e 69 6e 66 6f 29 | 54 6f 70 22 29 20 22 4f |le.info)|Top") "O|
|00000b80| 6e 6c 69 6e 65 20 49 6e | 66 6f 20 76 65 72 73 69 |nline In|fo versi|
|00000b90| 6f 6e 20 6f 66 20 48 79 | 70 65 72 62 6f 6c 65 20 |on of Hy|perbole |
|00000ba0| 6d 61 6e 75 61 6c 2e 22 | 29 20 28 22 4d 61 69 6c |manual."|) ("Mail|
|00000bb0| 4c 69 73 74 73 22 20 28 | 70 72 6f 67 6e 20 28 68 |Lists" (|progn (h|
|00000bc0| 61 63 74 20 27 6c 69 6e | 6b 2d 74 6f 2d 73 74 72 |act 'lin|k-to-str|
|00000bd0| 69 6e 67 2d 6d 61 74 63 | 68 20 22 2a 20 4d 61 69 |ing-matc|h "* Mai|
|00000be0| 6c 20 4c 69 73 74 73 22 | 20 32 20 28 65 78 70 61 |l Lists"| 2 (expa|
|00000bf0| 6e 64 2d 66 69 6c 65 2d | 6e 61 6d 65 20 22 52 45 |nd-file-|name "RE|
|00000c00| 41 44 4d 45 22 20 68 79 | 70 65 72 62 3a 64 69 72 |ADME" hy|perb:dir|
|00000c10| 29 29 20 28 73 65 74 71 | 20 62 75 66 66 65 72 2d |)) (setq| buffer-|
|00000c20| 72 65 61 64 2d 6f 6e 6c | 79 20 6e 69 6c 29 20 28 |read-onl|y nil) (|
|00000c30| 74 6f 67 67 6c 65 2d 72 | 65 61 64 2d 6f 6e 6c 79 |toggle-r|ead-only|
|00000c40| 29 29 20 22 44 65 74 61 | 69 6c 73 20 6f 6e 20 48 |)) "Deta|ils on H|
|00000c50| 79 70 65 72 62 6f 6c 65 | 20 6d 61 69 6c 20 6c 69 |yperbole| mail li|
|00000c60| 73 74 20 73 75 62 73 63 | 72 69 70 74 69 6f 6e 73 |st subsc|riptions|
|00000c70| 2e 22 29 20 28 22 4e 65 | 77 22 20 28 70 72 6f 67 |.") ("Ne|w" (prog|
|00000c80| 6e 20 28 68 61 63 74 20 | 27 6c 69 6e 6b 2d 74 6f |n (hact |'link-to|
|00000c90| 2d 73 74 72 69 6e 67 2d | 6d 61 74 63 68 20 22 2a |-string-|match "*|
|00000ca0| 20 57 68 61 74 27 73 20 | 4e 65 77 22 20 32 20 28 | What's |New" 2 (|
|00000cb0| 65 78 70 61 6e 64 2d 66 | 69 6c 65 2d 6e 61 6d 65 |expand-f|ile-name|
|00000cc0| 20 22 52 45 41 44 4d 45 | 22 20 68 79 70 65 72 62 | "README|" hyperb|
|00000cd0| 3a 64 69 72 29 29 20 28 | 73 65 74 71 20 62 75 66 |:dir)) (|setq buf|
|00000ce0| 66 65 72 2d 72 65 61 64 | 2d 6f 6e 6c 79 20 6e 69 |fer-read|-only ni|
|00000cf0| 6c 29 20 28 74 6f 67 67 | 6c 65 2d 72 65 61 64 2d |l) (togg|le-read-|
|00000d00| 6f 6e 6c 79 29 29 20 22 | 52 65 63 65 6e 74 20 63 |only)) "|Recent c|
|00000d10| 68 61 6e 67 65 73 20 74 | 6f 20 48 79 70 65 72 62 |hanges t|o Hyperb|
|00000d20| 6f 6c 65 2e 22 29 20 28 | 22 53 6d 61 72 74 4b 79 |ole.") (|"SmartKy|
|00000d30| 22 20 28 66 69 6e 64 2d | 66 69 6c 65 2d 72 65 61 |" (find-|file-rea|
|00000d40| 64 2d 6f 6e 6c 79 20 28 | 68 79 70 62 3a 6d 6f 75 |d-only (|hypb:mou|
|00000d50| 73 65 2d 68 65 6c 70 2d | 66 69 6c 65 29 29 20 22 |se-help-|file)) "|
|00000d60| 53 75 6d 6d 61 72 69 7a | 65 73 20 53 6d 61 72 74 |Summariz|es Smart|
|00000d70| 20 4b 65 79 20 6d 6f 75 | 73 65 20 6f 72 20 6b 65 | Key mou|se or ke|
|00000d80| 79 62 6f 61 72 64 20 68 | 61 6e 64 6c 69 6e 67 2e |yboard h|andling.|
|00000d90| 22 29 20 28 22 54 79 70 | 65 73 2f 22 20 28 6d 65 |") ("Typ|es/" (me|
|00000da0| 6e 75 20 2e 20 74 79 70 | 65 73 29 20 22 50 72 6f |nu . typ|es) "Pro|
|00000db0| 76 69 64 65 73 20 64 6f | 63 75 6d 65 6e 74 61 74 |vides do|cumentat|
|00000dc0| 69 6f 6e 20 6f 6e 20 48 | 79 70 65 72 62 6f 6c 65 |ion on H|yperbole|
|00000dd0| 20 74 79 70 65 73 2e 22 | 29 29 20 28 65 62 75 74 | types."|)) (ebut|
|00000de0| 20 28 22 45 42 75 74 74 | 6f 6e 3e 22 29 20 28 22 | ("EButt|on>") ("|
|00000df0| 41 63 74 22 20 68 75 69 | 3a 68 62 75 74 2d 61 63 |Act" hui|:hbut-ac|
|00000e00| 74 20 22 41 63 74 69 76 | 61 74 65 73 20 62 75 74 |t "Activ|ates but|
|00000e10| 74 6f 6e 20 61 74 20 70 | 6f 69 6e 74 20 6f 72 20 |ton at p|oint or |
|00000e20| 70 72 6f 6d 70 74 73 20 | 66 6f 72 20 65 78 70 6c |prompts |for expl|
|00000e30| 69 63 69 74 20 62 75 74 | 74 6f 6e 2e 22 29 20 28 |icit but|ton.") (|
|00000e40| 22 43 72 65 61 74 65 22 | 20 68 75 69 3a 65 62 75 |"Create"| hui:ebu|
|00000e50| 74 2d 63 72 65 61 74 65 | 29 20 28 22 44 65 6c 65 |t-create|) ("Dele|
|00000e60| 74 65 22 20 68 75 69 3a | 65 62 75 74 2d 64 65 6c |te" hui:|ebut-del|
|00000e70| 65 74 65 29 20 28 22 45 | 64 69 74 22 20 68 75 69 |ete) ("E|dit" hui|
|00000e80| 3a 65 62 75 74 2d 6d 6f | 64 69 66 79 20 22 4d 6f |:ebut-mo|dify "Mo|
|00000e90| 64 69 66 69 65 73 20 61 | 6e 79 20 64 65 73 69 72 |difies a|ny desir|
|00000ea0| 65 64 20 62 75 74 74 6f | 6e 20 61 74 74 72 69 62 |ed butto|n attrib|
|00000eb0| 75 74 65 73 2e 22 29 20 | 28 22 48 65 6c 70 2f 22 |utes.") |("Help/"|
|00000ec0| 20 28 6d 65 6e 75 20 2e | 20 65 62 75 74 2d 68 65 | (menu .| ebut-he|
|00000ed0| 6c 70 29 20 22 53 75 6d | 6d 61 72 69 7a 65 73 20 |lp) "Sum|marizes |
|00000ee0| 62 75 74 74 6f 6e 20 61 | 74 74 72 69 62 75 74 65 |button a|ttribute|
|00000ef0| 73 2e 22 29 20 28 22 49 | 6e 66 6f 22 20 28 68 61 |s.") ("I|nfo" (ha|
|00000f00| 63 74 20 27 6c 69 6e 6b | 2d 74 6f 2d 49 6e 66 6f |ct 'link|-to-Info|
|00000f10| 2d 6e 6f 64 65 20 22 28 | 68 79 70 65 72 62 6f 6c |-node "(|hyperbol|
|00000f20| 65 2e 69 6e 66 6f 29 45 | 78 70 6c 69 63 69 74 20 |e.info)E|xplicit |
|00000f30| 42 75 74 74 6f 6e 73 22 | 29 20 22 44 69 73 70 6c |Buttons"|) "Displ|
|00000f40| 61 79 73 20 6d 61 6e 75 | 61 6c 20 73 65 63 74 69 |ays manu|al secti|
|00000f50| 6f 6e 20 6f 6e 20 65 78 | 70 6c 69 63 69 74 20 62 |on on ex|plicit b|
|00000f60| 75 74 74 6f 6e 73 2e 22 | 29 20 28 22 4d 6f 64 69 |uttons."|) ("Modi|
|00000f70| 66 79 22 20 68 75 69 3a | 65 62 75 74 2d 6d 6f 64 |fy" hui:|ebut-mod|
|00000f80| 69 66 79 20 22 4d 6f 64 | 69 66 69 65 73 20 61 6e |ify "Mod|ifies an|
|00000f90| 79 20 64 65 73 69 72 65 | 64 20 62 75 74 74 6f 6e |y desire|d button|
|00000fa0| 20 61 74 74 72 69 62 75 | 74 65 73 2e 22 29 20 28 | attribu|tes.") (|
|00000fb0| 22 52 65 6e 61 6d 65 22 | 20 68 75 69 3a 65 62 75 |"Rename"| hui:ebu|
|00000fc0| 74 2d 72 65 6e 61 6d 65 | 20 22 52 65 6c 61 62 65 |t-rename| "Relabe|
|00000fd0| 6c 73 20 61 6e 20 65 78 | 70 6c 69 63 69 74 20 62 |ls an ex|plicit b|
|00000fe0| 75 74 74 6f 6e 2e 22 29 | 20 28 22 53 65 61 72 63 |utton.")| ("Searc|
|00000ff0| 68 22 20 68 75 69 3a 65 | 62 75 74 2d 73 65 61 72 |h" hui:e|but-sear|
|00001000| 63 68 20 22 4c 6f 63 61 | 74 65 73 20 61 6e 64 20 |ch "Loca|tes and |
|00001010| 64 69 73 70 6c 61 79 73 | 20 70 65 72 73 6f 6e 61 |displays| persona|
|00001020| 6c 6c 79 20 63 72 65 61 | 74 65 64 20 62 75 74 74 |lly crea|ted butt|
|00001030| 6f 6e 73 20 69 6e 20 63 | 6f 6e 74 65 78 74 2e 22 |ons in c|ontext."|
|00001040| 29 29 20 28 65 62 75 74 | 2d 68 65 6c 70 20 28 22 |)) (ebut|-help ("|
|00001050| 48 65 6c 70 20 6f 6e 3e | 22 29 20 28 22 42 75 66 |Help on>|") ("Buf|
|00001060| 66 65 72 42 75 74 73 22 | 20 28 68 75 69 3a 68 62 |ferButs"| (hui:hb|
|00001070| 75 74 2d 72 65 70 6f 72 | 74 20 2d 31 29 20 22 53 |ut-repor|t -1) "S|
|00001080| 75 6d 6d 61 72 69 7a 65 | 73 20 61 6c 6c 20 65 78 |ummarize|s all ex|
|00001090| 70 6c 69 63 69 74 20 62 | 75 74 74 6f 6e 73 20 69 |plicit b|uttons i|
|000010a0| 6e 20 62 75 66 66 65 72 | 2e 22 29 20 28 22 43 75 |n buffer|.") ("Cu|
|000010b0| 72 72 65 6e 74 42 75 74 | 22 20 28 68 75 69 3a 68 |rrentBut|" (hui:h|
|000010c0| 62 75 74 2d 72 65 70 6f | 72 74 29 20 22 53 75 6d |but-repo|rt) "Sum|
|000010d0| 6d 61 72 69 7a 65 73 20 | 6f 6e 6c 79 20 63 75 72 |marizes |only cur|
|000010e0| 72 65 6e 74 20 62 75 74 | 74 6f 6e 20 69 6e 20 62 |rent but|ton in b|
|000010f0| 75 66 66 65 72 2e 22 29 | 20 28 22 4f 72 64 65 72 |uffer.")| ("Order|
|00001100| 65 64 42 75 74 73 22 20 | 28 68 75 69 3a 68 62 75 |edButs" |(hui:hbu|
|00001110| 74 2d 72 65 70 6f 72 74 | 20 31 29 20 22 53 75 6d |t-report| 1) "Sum|
|00001120| 6d 61 72 69 7a 65 73 20 | 65 78 70 6c 69 63 69 74 |marizes |explicit|
|00001130| 20 62 75 74 74 6f 6e 73 | 20 69 6e 20 6c 65 78 69 | buttons| in lexi|
|00001140| 63 6f 67 72 61 70 68 69 | 63 61 6c 6c 79 20 6f 72 |cographi|cally or|
|00001150| 64 65 72 2e 22 29 29 20 | 28 67 62 75 74 20 28 22 |der.")) |(gbut ("|
|00001160| 47 42 75 74 74 6f 6e 3e | 22 29 20 28 22 41 63 74 |GButton>|") ("Act|
|00001170| 22 20 67 62 75 74 3a 61 | 63 74 20 22 41 63 74 69 |" gbut:a|ct "Acti|
|00001180| 76 61 74 65 73 20 67 6c | 6f 62 61 6c 20 62 75 74 |vates gl|obal but|
|00001190| 74 6f 6e 20 62 79 20 6e | 61 6d 65 2e 22 29 20 28 |ton by n|ame.") (|
|000011a0| 22 43 72 65 61 74 65 22 | 20 68 75 69 3a 67 62 75 |"Create"| hui:gbu|
|000011b0| 74 2d 63 72 65 61 74 65 | 20 22 41 64 64 73 20 61 |t-create| "Adds a|
|000011c0| 20 67 6c 6f 62 61 6c 20 | 62 75 74 74 6f 6e 20 74 | global |button t|
|000011d0| 6f 20 67 62 75 74 3a 66 | 69 6c 65 2e 22 29 20 28 |o gbut:f|ile.") (|
|000011e0| 22 45 64 69 74 22 20 68 | 75 69 3a 67 62 75 74 2d |"Edit" h|ui:gbut-|
|000011f0| 6d 6f 64 69 66 79 20 22 | 4d 6f 64 69 66 69 65 73 |modify "|Modifies|
|00001200| 20 67 6c 6f 62 61 6c 20 | 62 75 74 74 6f 6e 20 61 | global |button a|
|00001210| 74 74 72 69 62 75 74 65 | 73 2e 22 29 20 28 22 48 |ttribute|s.") ("H|
|00001220| 65 6c 70 22 20 67 62 75 | 74 3a 68 65 6c 70 20 22 |elp" gbu|t:help "|
|00001230| 52 65 70 6f 72 74 73 20 | 6f 6e 20 61 20 67 6c 6f |Reports |on a glo|
|00001240| 62 61 6c 20 62 75 74 74 | 6f 6e 20 62 79 20 6e 61 |bal butt|on by na|
|00001250| 6d 65 2e 22 29 20 28 22 | 49 6e 66 6f 22 20 28 68 |me.") ("|Info" (h|
|00001260| 61 63 74 20 27 6c 69 6e | 6b 2d 74 6f 2d 49 6e 66 |act 'lin|k-to-Inf|
|00001270| 6f 2d 6e 6f 64 65 20 22 | 28 68 79 70 65 72 62 6f |o-node "|(hyperbo|
|00001280| 6c 65 2e 69 6e 66 6f 29 | 47 6c 6f 62 61 6c 20 42 |le.info)|Global B|
|00001290| 75 74 74 6f 6e 73 22 29 | 20 22 44 69 73 70 6c 61 |uttons")| "Displa|
|000012a0| 79 73 20 6d 61 6e 75 61 | 6c 20 73 65 63 74 69 6f |ys manua|l sectio|
|000012b0| 6e 20 6f 6e 20 67 6c 6f | 62 61 6c 20 62 75 74 74 |n on glo|bal butt|
|000012c0| 6f 6e 73 2e 22 29 20 28 | 22 4d 6f 64 69 66 79 22 |ons.") (|"Modify"|
|000012d0| 20 68 75 69 3a 67 62 75 | 74 2d 6d 6f 64 69 66 79 | hui:gbu|t-modify|
|000012e0| 20 22 4d 6f 64 69 66 69 | 65 73 20 67 6c 6f 62 61 | "Modifi|es globa|
|000012f0| 6c 20 62 75 74 74 6f 6e | 20 61 74 74 72 69 62 75 |l button| attribu|
|00001300| 74 65 73 2e 22 29 29 20 | 28 69 62 75 74 20 28 22 |tes.")) |(ibut ("|
|00001310| 49 42 75 74 74 6f 6e 3e | 22 29 20 28 22 41 63 74 |IButton>|") ("Act|
|00001320| 22 20 68 75 69 3a 68 62 | 75 74 2d 61 63 74 20 22 |" hui:hb|ut-act "|
|00001330| 41 63 74 69 76 61 74 65 | 73 20 69 6d 70 6c 69 63 |Activate|s implic|
|00001340| 69 74 20 62 75 74 74 6f | 6e 20 61 74 20 70 6f 69 |it butto|n at poi|
|00001350| 6e 74 2e 22 29 20 28 22 | 44 65 6c 65 74 65 49 42 |nt.") ("|DeleteIB|
|00001360| 75 74 54 79 70 65 22 20 | 28 68 75 69 3a 68 74 79 |utType" |(hui:hty|
|00001370| 70 65 2d 64 65 6c 65 74 | 65 20 27 69 62 74 79 70 |pe-delet|e 'ibtyp|
|00001380| 65 73 29 20 22 44 65 6c | 65 74 65 73 20 73 70 65 |es) "Del|etes spe|
|00001390| 63 69 66 69 65 64 20 62 | 75 74 74 6f 6e 20 74 79 |cified b|utton ty|
|000013a0| 70 65 2e 22 29 20 28 22 | 48 65 6c 70 22 20 68 75 |pe.") ("|Help" hu|
|000013b0| 69 3a 68 62 75 74 2d 68 | 65 6c 70 20 22 52 65 70 |i:hbut-h|elp "Rep|
|000013c0| 6f 72 74 73 20 6f 6e 20 | 62 75 74 74 6f 6e 27 73 |orts on |button's|
|000013d0| 20 61 74 74 72 69 62 75 | 74 65 73 2e 22 29 20 28 | attribu|tes.") (|
|000013e0| 22 49 6e 66 6f 22 20 28 | 68 61 63 74 20 27 6c 69 |"Info" (|hact 'li|
|000013f0| 6e 6b 2d 74 6f 2d 49 6e | 66 6f 2d 6e 6f 64 65 20 |nk-to-In|fo-node |
|00001400| 22 28 68 79 70 65 72 62 | 6f 6c 65 2e 69 6e 66 6f |"(hyperb|ole.info|
|00001410| 29 49 6d 70 6c 69 63 69 | 74 20 42 75 74 74 6f 6e |)Implici|t Button|
|00001420| 73 20 61 6e 64 20 54 79 | 70 65 73 22 29 20 22 44 |s and Ty|pes") "D|
|00001430| 69 73 70 6c 61 79 73 20 | 6d 61 6e 75 61 6c 20 73 |isplays |manual s|
|00001440| 65 63 74 69 6f 6e 20 6f | 6e 20 69 6d 70 6c 69 63 |ection o|n implic|
|00001450| 69 74 20 62 75 74 74 6f | 6e 73 2e 22 29 20 28 22 |it butto|ns.") ("|
|00001460| 54 79 70 65 73 22 20 28 | 68 75 69 3a 68 74 79 70 |Types" (|hui:htyp|
|00001470| 65 2d 68 65 6c 70 20 27 | 69 62 74 79 70 65 73 20 |e-help '|ibtypes |
|00001480| 27 6e 6f 2d 73 6f 72 74 | 29 20 22 44 69 73 70 6c |'no-sort|) "Displ|
|00001490| 61 79 73 20 64 6f 63 75 | 6d 65 6e 74 61 74 69 6f |ays docu|mentatio|
|000014a0| 6e 20 66 6f 72 20 6f 6e | 65 20 6f 72 20 61 6c 6c |n for on|e or all|
|000014b0| 20 69 6d 70 6c 69 63 69 | 74 20 62 75 74 74 6f 6e | implici|t button|
|000014c0| 20 74 79 70 65 73 2e 22 | 29 29 20 28 6d 73 67 20 | types."|)) (msg |
|000014d0| 28 22 4d 73 67 3e 22 29 | 20 28 22 43 6f 6d 70 6f |("Msg>")| ("Compo|
|000014e0| 73 65 2d 48 79 70 62 2d | 4d 61 69 6c 22 20 28 68 |se-Hypb-|Mail" (h|
|000014f0| 6d 61 69 6c 3a 63 6f 6d | 70 6f 73 65 20 22 68 79 |mail:com|pose "hy|
|00001500| 70 65 72 62 6f 6c 65 40 | 68 75 62 2e 75 63 73 62 |perbole@|hub.ucsb|
|00001510| 2e 65 64 75 22 20 27 28 | 68 61 63 74 20 27 68 79 |.edu" '(|hact 'hy|
|00001520| 70 2d 63 6f 6e 66 69 67 | 29 29 20 22 53 65 6e 64 |p-config|)) "Send|
|00001530| 20 61 20 6d 65 73 73 61 | 67 65 20 74 6f 20 74 68 | a messa|ge to th|
|00001540| 65 20 48 79 70 65 72 62 | 6f 6c 65 20 64 69 73 63 |e Hyperb|ole disc|
|00001550| 75 73 73 69 6f 6e 20 6c | 69 73 74 2e 22 29 20 28 |ussion l|ist.") (|
|00001560| 22 45 64 69 74 2d 48 79 | 70 62 2d 4c 69 73 74 2d |"Edit-Hy|pb-List-|
|00001570| 45 6e 74 72 79 22 20 28 | 68 6d 61 69 6c 3a 63 6f |Entry" (|hmail:co|
|00001580| 6d 70 6f 73 65 20 22 68 | 79 70 65 72 62 6f 6c 65 |mpose "h|yperbole|
|00001590| 2d 72 65 71 75 65 73 74 | 40 68 75 62 2e 75 63 73 |-request|@hub.ucs|
|000015a0| 62 2e 65 64 75 22 20 27 | 28 68 61 63 74 20 27 68 |b.edu" '|(hact 'h|
|000015b0| 79 70 2d 72 65 71 75 65 | 73 74 29 29 20 22 41 64 |yp-reque|st)) "Ad|
|000015c0| 64 2c 20 72 65 6d 6f 76 | 65 20 6f 72 20 63 68 61 |d, remov|e or cha|
|000015d0| 6e 67 65 20 79 6f 75 72 | 20 65 6e 74 72 79 20 6f |nge your| entry o|
|000015e0| 6e 20 61 20 68 79 70 65 | 72 62 6f 6c 65 20 6d 61 |n a hype|rbole ma|
|000015f0| 69 6c 20 6c 69 73 74 2e | 22 29 20 28 22 4d 6f 64 |il list.|") ("Mod|
|00001600| 69 66 79 2d 48 79 70 62 | 2d 41 6e 6e 6f 75 6e 63 |ify-Hypb|-Announc|
|00001610| 65 2d 45 6e 74 72 79 22 | 20 28 68 6d 61 69 6c 3a |e-Entry"| (hmail:|
|00001620| 63 6f 6d 70 6f 73 65 20 | 22 68 79 70 65 72 62 6f |compose |"hyperbo|
|00001630| 6c 65 2d 61 6e 6e 6f 75 | 6e 63 65 2d 72 65 71 75 |le-annou|nce-requ|
|00001640| 65 73 74 40 68 75 62 2e | 75 63 73 62 2e 65 64 75 |est@hub.|ucsb.edu|
|00001650| 22 20 27 28 68 61 63 74 | 20 27 68 79 70 2d 72 65 |" '(hact| 'hyp-re|
|00001660| 71 75 65 73 74 29 29 20 | 22 41 64 64 2c 20 72 65 |quest)) |"Add, re|
|00001670| 6d 6f 76 65 20 6f 72 20 | 63 68 61 6e 67 65 20 79 |move or |change y|
|00001680| 6f 75 72 20 65 6e 74 72 | 79 20 6f 6e 20 61 20 68 |our entr|y on a h|
|00001690| 79 70 65 72 62 6f 6c 65 | 20 6d 61 69 6c 20 6c 69 |yperbole| mail li|
|000016a0| 73 74 2e 22 29 29 20 28 | 6f 74 6c 20 28 22 4f 74 |st.")) (|otl ("Ot|
|000016b0| 6c 3e 22 29 20 28 22 41 | 6c 6c 22 20 6b 6f 74 6c |l>") ("A|ll" kotl|
|000016c0| 2d 6d 6f 64 65 3a 73 68 | 6f 77 2d 61 6c 6c 20 22 |-mode:sh|ow-all "|
|000016d0| 45 78 70 61 6e 64 20 61 | 6c 6c 20 63 6f 6c 6c 61 |Expand a|ll colla|
|000016e0| 70 73 65 64 20 63 65 6c | 6c 73 2e 22 29 20 28 22 |psed cel|ls.") ("|
|000016f0| 42 65 6c 6f 77 22 20 6b | 6f 74 6c 2d 6d 6f 64 65 |Below" k|otl-mode|
|00001700| 3a 68 69 64 65 2d 73 75 | 62 6c 65 76 65 6c 73 20 |:hide-su|blevels |
|00001710| 22 48 69 64 65 20 61 6c | 6c 20 63 65 6c 6c 73 20 |"Hide al|l cells |
|00001720| 69 6e 20 6f 75 74 6c 69 | 6e 65 20 64 65 65 70 65 |in outli|ne deepe|
|00001730| 72 20 74 68 61 6e 20 61 | 20 70 61 72 74 69 63 75 |r than a| particu|
|00001740| 6c 61 72 20 6c 65 76 65 | 6c 2e 22 29 20 28 22 43 |lar leve|l.") ("C|
|00001750| 72 65 61 74 65 22 20 6b | 66 69 6c 65 3a 66 69 6e |reate" k|file:fin|
|00001760| 64 20 22 43 72 65 61 74 | 65 20 6f 72 20 65 64 69 |d "Creat|e or edi|
|00001770| 74 20 61 6e 20 6f 75 74 | 6c 69 6e 65 20 66 69 6c |t an out|line fil|
|00001780| 65 2e 22 29 20 28 22 45 | 78 61 6d 70 6c 65 22 20 |e.") ("E|xample" |
|00001790| 28 66 69 6e 64 2d 66 69 | 6c 65 2d 72 65 61 64 2d |(find-fi|le-read-|
|000017a0| 6f 6e 6c 79 20 28 65 78 | 70 61 6e 64 2d 66 69 6c |only (ex|pand-fil|
|000017b0| 65 2d 6e 61 6d 65 20 22 | 45 58 41 4d 50 4c 45 2e |e-name "|EXAMPLE.|
|000017c0| 6b 6f 74 6c 22 20 28 63 | 6f 6e 63 61 74 20 68 79 |kotl" (c|oncat hy|
|000017d0| 70 65 72 62 3a 64 69 72 | 20 22 6b 6f 74 6c 2f 22 |perb:dir| "kotl/"|
|000017e0| 29 29 29 20 22 44 69 73 | 70 6c 61 79 20 61 20 73 |))) "Dis|play a s|
|000017f0| 65 6c 66 2d 64 65 73 63 | 72 69 70 74 69 76 65 20 |elf-desc|riptive |
|00001800| 65 78 61 6d 70 6c 65 20 | 6f 75 74 6c 69 6e 65 20 |example |outline |
|00001810| 66 69 6c 65 2e 22 29 20 | 28 22 48 69 64 65 22 20 |file.") |("Hide" |
|00001820| 28 70 72 6f 67 6e 20 28 | 6b 6f 74 6c 2d 6d 6f 64 |(progn (|kotl-mod|
|00001830| 65 3a 69 73 2d 70 29 20 | 28 6b 6f 74 6c 2d 6d 6f |e:is-p) |(kotl-mo|
|00001840| 64 65 3a 68 69 64 65 2d | 74 72 65 65 20 28 6b 63 |de:hide-|tree (kc|
|00001850| 65 6c 6c 2d 76 69 65 77 | 3a 6c 61 62 65 6c 29 29 |ell-view|:label))|
|00001860| 29 20 22 43 6f 6c 6c 61 | 70 73 65 20 74 72 65 65 |) "Colla|pse tree|
|00001870| 20 72 6f 6f 74 65 64 20 | 61 74 20 70 6f 69 6e 74 | rooted |at point|
|00001880| 2e 22 29 20 28 22 49 6e | 66 6f 22 20 28 68 61 63 |.") ("In|fo" (hac|
|00001890| 74 20 27 6c 69 6e 6b 2d | 74 6f 2d 49 6e 66 6f 2d |t 'link-|to-Info-|
|000018a0| 6e 6f 64 65 20 22 28 68 | 79 70 65 72 62 6f 6c 65 |node "(h|yperbole|
|000018b0| 2e 69 6e 66 6f 29 4f 75 | 74 6c 69 6e 65 72 22 29 |.info)Ou|tliner")|
|000018c0| 20 22 44 69 73 70 6c 61 | 79 20 6d 61 6e 75 61 6c | "Displa|y manual|
|000018d0| 20 73 65 63 74 69 6f 6e | 20 6f 6e 20 48 79 70 65 | section| on Hype|
|000018e0| 72 62 6f 6c 65 20 6f 75 | 74 6c 69 6e 65 72 2e 22 |rbole ou|tliner."|
|000018f0| 29 20 28 22 4b 69 6c 6c | 22 20 6b 6f 74 6c 2d 6d |) ("Kill|" kotl-m|
|00001900| 6f 64 65 3a 6b 69 6c 6c | 2d 74 72 65 65 20 22 4b |ode:kill|-tree "K|
|00001910| 69 6c 6c 20 41 52 47 20 | 66 6f 6c 6c 6f 77 69 6e |ill ARG |followin|
|00001920| 67 20 74 72 65 65 73 20 | 73 74 61 72 74 69 6e 67 |g trees |starting|
|00001930| 20 66 72 6f 6d 20 70 6f | 69 6e 74 2e 22 29 20 28 | from po|int.") (|
|00001940| 22 4c 69 6e 6b 22 20 6b | 6c 69 6e 6b 3a 63 72 65 |"Link" k|link:cre|
|00001950| 61 74 65 20 22 43 72 65 | 61 74 65 20 61 6e 64 20 |ate "Cre|ate and |
|00001960| 69 6e 73 65 72 74 20 61 | 6e 20 69 6d 70 6c 69 63 |insert a|n implic|
|00001970| 69 74 20 6c 69 6e 6b 20 | 61 74 20 70 6f 69 6e 74 |it link |at point|
|00001980| 2e 22 29 20 28 22 4f 76 | 65 72 76 69 65 77 22 20 |.") ("Ov|erview" |
|00001990| 6b 6f 74 6c 2d 6d 6f 64 | 65 3a 6f 76 65 72 76 69 |kotl-mod|e:overvi|
|000019a0| 65 77 20 22 53 68 6f 77 | 20 66 69 72 73 74 20 6c |ew "Show| first l|
|000019b0| 69 6e 65 20 6f 66 20 65 | 61 63 68 20 63 65 6c 6c |ine of e|ach cell|
|000019c0| 2e 22 29 20 28 22 53 68 | 6f 77 22 20 28 70 72 6f |.") ("Sh|ow" (pro|
|000019d0| 67 6e 20 28 6b 6f 74 6c | 2d 6d 6f 64 65 3a 69 73 |gn (kotl|-mode:is|
|000019e0| 2d 70 29 20 28 6b 6f 74 | 6c 2d 6d 6f 64 65 3a 73 |-p) (kot|l-mode:s|
|000019f0| 68 6f 77 2d 74 72 65 65 | 20 28 6b 63 65 6c 6c 2d |how-tree| (kcell-|
|00001a00| 76 69 65 77 3a 6c 61 62 | 65 6c 29 29 29 20 22 45 |view:lab|el))) "E|
|00001a10| 78 70 61 6e 64 20 74 72 | 65 65 20 72 6f 6f 74 65 |xpand tr|ee roote|
|00001a20| 64 20 61 74 20 70 6f 69 | 6e 74 2e 22 29 20 28 22 |d at poi|nt.") ("|
|00001a30| 54 6f 70 22 20 6b 6f 74 | 6c 2d 6d 6f 64 65 3a 74 |Top" kot|l-mode:t|
|00001a40| 6f 70 2d 63 65 6c 6c 73 | 20 22 48 69 64 65 20 61 |op-cells| "Hide a|
|00001a50| 6c 6c 20 62 75 74 20 74 | 6f 70 2d 6c 65 76 65 6c |ll but t|op-level|
|00001a60| 20 63 65 6c 6c 73 2e 22 | 29 20 28 22 56 69 65 77 | cells."|) ("View|
|00001a70| 22 20 6b 66 69 6c 65 3a | 76 69 65 77 20 22 56 69 |" kfile:|view "Vi|
|00001a80| 65 77 20 61 6e 20 6f 75 | 74 6c 69 6e 65 20 66 69 |ew an ou|tline fi|
|00001a90| 6c 65 20 69 6e 20 72 65 | 61 64 2d 6f 6e 6c 79 20 |le in re|ad-only |
|00001aa0| 6d 6f 64 65 2e 22 29 29 | 20 28 72 6f 6c 6f 20 28 |mode."))| (rolo (|
|00001ab0| 22 52 6f 6c 6f 3e 22 29 | 20 28 22 41 64 64 22 20 |"Rolo>")| ("Add" |
|00001ac0| 72 6f 6c 6f 2d 61 64 64 | 20 22 41 64 64 20 61 20 |rolo-add| "Add a |
|00001ad0| 6e 65 77 20 72 6f 6c 6f | 20 65 6e 74 72 79 2e 22 |new rolo| entry."|
|00001ae0| 29 20 28 22 44 69 73 70 | 6c 61 79 22 20 72 6f 6c |) ("Disp|lay" rol|
|00001af0| 6f 2d 64 69 73 70 6c 61 | 79 2d 6d 61 74 63 68 65 |o-displa|y-matche|
|00001b00| 73 20 22 44 69 73 70 6c | 61 79 20 6c 61 73 74 20 |s "Displ|ay last |
|00001b10| 66 6f 75 6e 64 20 72 6f | 6c 6f 64 65 78 20 6d 61 |found ro|lodex ma|
|00001b20| 74 63 68 65 73 20 61 67 | 61 69 6e 2e 22 29 20 28 |tches ag|ain.") (|
|00001b30| 22 45 64 69 74 22 20 72 | 6f 6c 6f 2d 65 64 69 74 |"Edit" r|olo-edit|
|00001b40| 20 22 45 64 69 74 20 61 | 6e 20 65 78 69 73 74 69 | "Edit a|n existi|
|00001b50| 6e 67 20 72 6f 6c 6f 20 | 65 6e 74 72 79 2e 22 29 |ng rolo |entry.")|
|00001b60| 20 28 22 49 6e 66 6f 22 | 20 28 68 61 63 74 20 27 | ("Info"| (hact '|
|00001b70| 6c 69 6e 6b 2d 74 6f 2d | 49 6e 66 6f 2d 6e 6f 64 |link-to-|Info-nod|
|00001b80| 65 20 22 28 68 79 70 65 | 72 62 6f 6c 65 2e 69 6e |e "(hype|rbole.in|
|00001b90| 66 6f 29 52 6f 6c 6f 64 | 65 78 22 29 20 22 44 69 |fo)Rolod|ex") "Di|
|00001ba0| 73 70 6c 61 79 73 20 6d | 61 6e 75 61 6c 20 73 65 |splays m|anual se|
|00001bb0| 63 74 69 6f 6e 20 6f 6e | 20 48 79 70 65 72 62 6f |ction on| Hyperbo|
|00001bc0| 6c 65 20 72 6f 6c 6f 64 | 65 78 2e 22 29 20 28 22 |le rolod|ex.") ("|
|00001bd0| 4b 69 6c 6c 22 20 72 6f | 6c 6f 2d 6b 69 6c 6c 20 |Kill" ro|lo-kill |
|00001be0| 22 4b 69 6c 6c 20 61 6e | 20 65 78 69 73 74 69 6e |"Kill an| existin|
|00001bf0| 67 20 72 6f 6c 6f 20 65 | 6e 74 72 79 2e 22 29 20 |g rolo e|ntry.") |
|00001c00| 28 22 4f 72 64 65 72 22 | 20 72 6f 6c 6f 2d 73 6f |("Order"| rolo-so|
|00001c10| 72 74 20 22 4f 72 64 65 | 72 20 72 6f 6c 6f 20 65 |rt "Orde|r rolo e|
|00001c20| 6e 74 72 69 65 73 20 69 | 6e 20 61 20 66 69 6c 65 |ntries i|n a file|
|00001c30| 2e 22 29 20 28 22 52 65 | 67 65 78 46 69 6e 64 22 |.") ("Re|gexFind"|
|00001c40| 20 72 6f 6c 6f 2d 67 72 | 65 70 20 22 46 69 6e 64 | rolo-gr|ep "Find|
|00001c50| 20 65 6e 74 72 69 65 73 | 20 63 6f 6e 74 61 69 6e | entries| contain|
|00001c60| 69 6e 67 20 61 20 72 65 | 67 65 78 70 2e 22 29 20 |ing a re|gexp.") |
|00001c70| 28 22 53 74 72 69 6e 67 | 46 69 6e 64 22 20 72 6f |("String|Find" ro|
|00001c80| 6c 6f 2d 66 67 72 65 70 | 20 22 46 69 6e 64 20 65 |lo-fgrep| "Find e|
|00001c90| 6e 74 72 69 65 73 20 63 | 6f 6e 74 61 69 6e 69 6e |ntries c|ontainin|
|00001ca0| 67 20 61 20 73 74 72 69 | 6e 67 2e 22 29 20 28 22 |g a stri|ng.") ("|
|00001cb0| 57 6f 72 64 46 69 6e 64 | 22 20 72 6f 6c 6f 2d 77 |WordFind|" rolo-w|
|00001cc0| 6f 72 64 20 22 46 69 6e | 64 20 65 6e 74 72 69 65 |ord "Fin|d entrie|
|00001cd0| 73 20 63 6f 6e 74 61 69 | 6e 69 6e 67 20 77 6f 72 |s contai|ning wor|
|00001ce0| 64 73 2e 22 29 20 28 22 | 59 61 6e 6b 22 20 72 6f |ds.") ("|Yank" ro|
|00001cf0| 6c 6f 2d 79 61 6e 6b 20 | 22 46 69 6e 64 20 61 6e |lo-yank |"Find an|
|00001d00| 20 65 6e 74 72 79 20 63 | 6f 6e 74 61 69 6e 69 6e | entry c|ontainin|
|00001d10| 67 20 61 20 73 74 72 69 | 6e 67 20 61 6e 64 20 69 |g a stri|ng and i|
|00001d20| 6e 73 65 72 74 20 69 74 | 20 61 74 20 70 6f 69 6e |nsert it| at poin|
|00001d30| 74 2e 22 29 29 20 28 74 | 79 70 65 73 20 28 22 54 |t.")) (t|ypes ("T|
|00001d40| 79 70 65 73 3e 22 29 20 | 28 22 41 63 74 69 6f 6e |ypes>") |("Action|
|00001d50| 54 79 70 65 73 22 20 28 | 68 75 69 3a 68 74 79 70 |Types" (|hui:htyp|
|00001d60| 65 2d 68 65 6c 70 20 27 | 61 63 74 79 70 65 73 29 |e-help '|actypes)|
|00001d70| 20 22 44 69 73 70 6c 61 | 79 73 20 64 6f 63 75 6d | "Displa|ys docum|
|00001d80| 65 6e 74 61 74 69 6f 6e | 20 66 6f 72 20 6f 6e 65 |entation| for one|
|00001d90| 20 6f 72 20 61 6c 6c 20 | 61 63 74 69 6f 6e 20 74 | or all |action t|
|00001da0| 79 70 65 73 2e 22 29 20 | 28 22 49 42 75 74 54 79 |ypes.") |("IButTy|
|00001db0| 70 65 73 22 20 28 68 75 | 69 3a 68 74 79 70 65 2d |pes" (hu|i:htype-|
|00001dc0| 68 65 6c 70 20 27 69 62 | 74 79 70 65 73 20 27 6e |help 'ib|types 'n|
|00001dd0| 6f 2d 73 6f 72 74 29 20 | 22 44 69 73 70 6c 61 79 |o-sort) |"Display|
|00001de0| 73 20 64 6f 63 75 6d 65 | 6e 74 61 74 69 6f 6e 20 |s docume|ntation |
|00001df0| 66 6f 72 20 6f 6e 65 20 | 6f 72 20 61 6c 6c 20 69 |for one |or all i|
|00001e00| 6d 70 6c 69 63 69 74 20 | 62 75 74 74 6f 6e 20 74 |mplicit |button t|
|00001e10| 79 70 65 73 2e 22 29 29 | 20 28 77 69 6e 20 28 22 |ypes."))| (win ("|
|00001e20| 57 69 6e 43 6f 6e 66 69 | 67 3e 22 29 20 28 22 41 |WinConfi|g>") ("A|
|00001e30| 64 64 4e 61 6d 65 22 20 | 77 63 6f 6e 66 69 67 2d |ddName" |wconfig-|
|00001e40| 61 64 64 2d 62 79 2d 6e | 61 6d 65 20 22 4e 61 6d |add-by-n|ame "Nam|
|00001e50| 65 20 63 75 72 72 65 6e | 74 20 77 69 6e 64 6f 77 |e curren|t window|
|00001e60| 20 63 6f 6e 66 69 67 75 | 72 61 74 69 6f 6e 2e 22 | configu|ration."|
|00001e70| 29 20 28 22 44 65 6c 65 | 74 65 4e 61 6d 65 22 20 |) ("Dele|teName" |
|00001e80| 77 63 6f 6e 66 69 67 2d | 64 65 6c 65 74 65 2d 62 |wconfig-|delete-b|
|00001e90| 79 2d 6e 61 6d 65 20 22 | 44 65 6c 65 74 65 20 6e |y-name "|Delete n|
|00001ea0| 61 6d 65 64 20 77 69 6e | 64 6f 77 20 63 6f 6e 66 |amed win|dow conf|
|00001eb0| 69 67 75 72 61 74 69 6f | 6e 2e 22 29 20 28 22 52 |iguratio|n.") ("R|
|00001ec0| 65 73 74 6f 72 65 4e 61 | 6d 65 22 20 77 63 6f 6e |estoreNa|me" wcon|
|00001ed0| 66 69 67 2d 72 65 73 74 | 6f 72 65 2d 62 79 2d 6e |fig-rest|ore-by-n|
|00001ee0| 61 6d 65 20 22 52 65 73 | 74 6f 72 65 20 66 72 61 |ame "Res|tore fra|
|00001ef0| 6d 65 20 74 6f 20 77 69 | 6e 64 6f 77 20 63 6f 6e |me to wi|ndow con|
|00001f00| 66 69 67 75 72 61 74 69 | 6f 6e 20 67 69 76 65 6e |figurati|on given|
|00001f10| 20 62 79 20 6e 61 6d 65 | 2e 22 29 20 28 22 50 6f | by name|.") ("Po|
|00001f20| 70 52 69 6e 67 22 20 77 | 63 6f 6e 66 69 67 2d 64 |pRing" w|config-d|
|00001f30| 65 6c 65 74 65 2d 70 6f | 70 20 22 52 65 73 74 6f |elete-po|p "Resto|
|00001f40| 72 65 73 20 77 69 6e 64 | 6f 77 20 63 6f 6e 66 69 |res wind|ow confi|
|00001f50| 67 75 72 61 74 69 6f 6e | 20 66 72 6f 6d 20 72 69 |guration| from ri|
|00001f60| 6e 67 20 61 6e 64 20 72 | 65 6d 6f 76 65 73 20 69 |ng and r|emoves i|
|00001f70| 74 20 66 72 6f 6d 20 72 | 69 6e 67 2e 22 29 20 28 |t from r|ing.") (|
|00001f80| 22 53 61 76 65 52 69 6e | 67 22 20 77 63 6f 6e 66 |"SaveRin|g" wconf|
|00001f90| 69 67 2d 72 69 6e 67 2d | 73 61 76 65 20 22 53 61 |ig-ring-|save "Sa|
|00001fa0| 76 65 73 20 63 75 72 72 | 65 6e 74 20 77 69 6e 64 |ves curr|ent wind|
|00001fb0| 6f 77 20 63 6f 6e 66 69 | 67 75 72 61 74 69 6f 6e |ow confi|guration|
|00001fc0| 20 74 6f 20 72 69 6e 67 | 2e 22 29 20 28 22 59 61 | to ring|.") ("Ya|
|00001fd0| 6e 6b 52 69 6e 67 22 20 | 77 63 6f 6e 66 69 67 2d |nkRing" |wconfig-|
|00001fe0| 79 61 6e 6b 2d 70 6f 70 | 20 22 52 65 73 74 6f 72 |yank-pop| "Restor|
|00001ff0| 65 73 20 6e 65 78 74 20 | 77 69 6e 64 6f 77 20 63 |es next |window c|
|00002000| 6f 6e 66 69 67 75 72 61 | 74 69 6f 6e 20 66 72 6f |onfigura|tion fro|
|00002010| 6d 20 72 69 6e 67 2e 22 | 29 29 20 68 75 69 3a 6d |m ring."|)) hui:m|
|00002020| 65 6e 75 73 20 68 75 69 | 3a 6d 65 6e 75 5d 20 31 |enus hui|:menu] 1|
|00002030| 38 29 0a 28 66 73 65 74 | 20 27 68 79 70 65 72 62 |8).(fset| 'hyperb|
|00002040| 6f 6c 65 20 23 5b 28 26 | 6f 70 74 69 6f 6e 61 6c |ole #[(&|optional|
|00002050| 20 6d 65 6e 75 20 6d 65 | 6e 75 2d 6c 69 73 74 29 | menu me|nu-list)|
|00002060| 20 22 08 ab 8b c1 20 c2 | 56 ab 85 c3 20 88 c4 87 | ".... .|V... ...|
|00002070| c5 8e c6 c7 21 88 c8 20 | 88 c9 10 ca 0e 0b ae 81 |....!.. |........|
|00002080| cc 0e 0d 5c 22 88 29 c9 | 87 22 20 5b 68 75 69 3a |...\".).|." [hui:|
|00002090| 6d 65 6e 75 2d 70 20 6d | 69 6e 69 62 75 66 66 65 |menu-p m|inibuffe|
|000020a0| 72 2d 64 65 70 74 68 20 | 30 20 62 65 65 70 20 6e |r-depth |0 beep n|
|000020b0| 69 6c 20 28 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |il ((byt|e-code "|
|000020c0| c0 11 c0 87 22 20 5b 6e | 69 6c 20 68 75 69 3a 6d |...." [n|il hui:m|
|000020d0| 65 6e 75 2d 70 5d 20 31 | 29 29 20 72 65 71 75 69 |enu-p] 1|)) requi|
|000020e0| 72 65 20 68 73 69 74 65 | 20 68 79 70 65 72 62 3a |re hsite| hyperb:|
|000020f0| 69 6e 69 74 2d 6d 65 6e | 75 62 61 72 20 74 20 68 |init-men|ubar t h|
|00002100| 75 69 3a 6d 65 6e 75 2d | 61 63 74 20 6d 65 6e 75 |ui:menu-|act menu|
|00002110| 20 68 79 70 65 72 62 6f | 6c 65 20 6d 65 6e 75 2d | hyperbo|le menu-|
|00002120| 6c 69 73 74 5d 20 33 20 | 22 5c 0a 49 6e 76 6f 6b |list] 3 |"\.Invok|
|00002130| 65 73 20 64 65 66 61 75 | 6c 74 20 48 79 70 65 72 |es defau|lt Hyper|
|00002140| 62 6f 6c 65 20 6d 65 6e | 75 20 75 73 65 72 20 69 |bole men|u user i|
|00002150| 6e 74 65 72 66 61 63 65 | 20 77 68 65 6e 20 6e 6f |nterface| when no|
|00002160| 74 20 61 6c 72 65 61 64 | 79 20 61 63 74 69 76 65 |t alread|y active|
|00002170| 2e 0a 53 75 69 74 61 62 | 6c 65 20 66 6f 72 20 62 |..Suitab|le for b|
|00002180| 69 6e 64 69 6e 67 20 74 | 6f 20 61 20 6b 65 79 2c |inding t|o a key,|
|00002190| 20 65 2e 67 2e 20 7b 43 | 2d 68 20 68 7d 2e 0a 4e | e.g. {C|-h h}..N|
|000021a0| 6f 6e 2d 69 6e 74 65 72 | 61 63 74 69 76 65 6c 79 |on-inter|actively|
|000021b0| 2c 20 72 65 74 75 72 6e | 73 20 74 20 69 66 20 6d |, return|s t if m|
|000021c0| 65 6e 75 20 69 73 20 61 | 63 74 75 61 6c 6c 79 20 |enu is a|ctually |
|000021d0| 69 6e 76 6f 6b 65 64 20 | 62 79 20 63 61 6c 6c 2c |invoked |by call,|
|000021e0| 20 65 6c 73 65 20 6e 69 | 6c 2e 0a 0a 54 77 6f 20 | else ni|l...Two |
|000021f0| 6f 70 74 69 6f 6e 61 6c | 20 61 72 67 75 6d 65 6e |optional| argumen|
|00002200| 74 73 20 6d 61 79 20 62 | 65 20 67 69 76 65 6e 20 |ts may b|e given |
|00002210| 74 6f 20 69 6e 76 6f 6b | 65 20 61 6c 74 65 72 6e |to invok|e altern|
|00002220| 61 74 69 76 65 20 6d 65 | 6e 75 73 2e 0a 4d 45 4e |ative me|nus..MEN|
|00002230| 55 20 28 61 20 73 79 6d | 62 6f 6c 29 20 73 70 65 |U (a sym|bol) spe|
|00002240| 63 69 66 69 65 73 20 74 | 68 65 20 6d 65 6e 75 20 |cifies t|he menu |
|00002250| 74 6f 20 69 6e 76 6f 6b | 65 20 66 72 6f 6d 20 4d |to invok|e from M|
|00002260| 45 4e 55 2d 4c 49 53 54 | 2c 20 28 61 0a 48 79 70 |ENU-LIST|, (a.Hyp|
|00002270| 65 72 62 6f 6c 65 20 6d | 65 6e 75 20 6c 69 73 74 |erbole m|enu list|
|00002280| 20 73 74 72 75 63 74 75 | 72 65 29 2e 20 20 4d 45 | structu|re).  ME|
|00002290| 4e 55 20 64 65 66 61 75 | 6c 74 73 20 74 6f 20 27 |NU defau|lts to '|
|000022a0| 68 79 70 65 72 62 6f 6c | 65 20 61 6e 64 20 4d 45 |hyperbol|e and ME|
|000022b0| 4e 55 2d 4c 49 53 54 0a | 74 6f 20 60 68 75 69 3a |NU-LIST.|to `hui:|
|000022c0| 6d 65 6e 75 73 27 2e 20 | 20 53 65 65 20 60 68 75 |menus'. | See `hu|
|000022d0| 69 3a 6d 65 6e 75 73 27 | 20 64 65 66 69 6e 69 74 |i:menus'| definit|
|000022e0| 69 6f 6e 20 66 6f 72 20 | 74 68 65 20 66 6f 72 6d |ion for |the form|
|000022f0| 61 74 20 6f 66 20 74 68 | 65 20 6d 65 6e 75 20 6c |at of th|e menu l|
|00002300| 69 73 74 0a 73 74 72 75 | 63 74 75 72 65 2e 22 20 |ist.stru|cture." |
|00002310| 6e 69 6c 5d 29 0a 28 66 | 73 65 74 20 27 68 75 69 |nil]).(f|set 'hui|
|00002320| 3a 6d 65 6e 75 2d 61 63 | 74 20 23 5b 28 6d 65 6e |:menu-ac|t #[(men|
|00002330| 75 20 26 6f 70 74 69 6f | 6e 61 6c 20 6d 65 6e 75 |u &optio|nal menu|
|00002340| 2d 6c 69 73 74 29 20 22 | c0 c1 c2 89 89 1b 1c 1d |-list) "|........|
|00002350| 1e 06 1e 07 0e 06 ab d0 | c8 0e 07 21 ab ca c9 0c |........|...!....|
|00002360| 21 89 13 3a ab 8f 0b 41 | ab 8b 0b 41 39 ab 86 0b |!..:...A|...A9...|
|00002370| 41 16 5c 6e aa 5f 0b ab | aa 0e 0b 1e 0c 0b 39 ab |A.\n._..|......9.|
|00002380| 8e 0b c1 3d ac 9a c2 16 | 06 cd 0b 21 15 aa 91 0b |...=....|...!....|
|00002390| 3b ab 86 ce 0b 21 88 aa | 87 c2 16 06 c8 0b 21 15 |;....!..|......!.|
|000023a0| 29 aa 32 c2 89 16 06 ac | 30 0d 2d 87 22 20 5b 28 |).2.....|0.-." [(|
|000023b0| 6f 72 20 28 61 6e 64 20 | 6d 65 6e 75 20 28 73 79 |or (and |menu (sy|
|000023c0| 6d 62 6f 6c 70 20 6d 65 | 6e 75 29 20 28 73 65 74 |mbolp me|nu) (set|
|000023d0| 71 20 6d 65 6e 75 2d 61 | 6c 69 73 74 20 28 63 64 |q menu-a|list (cd|
|000023e0| 72 20 28 61 73 73 71 20 | 6d 65 6e 75 20 28 6f 72 |r (assq |menu (or|
|000023f0| 20 6d 65 6e 75 2d 6c 69 | 73 74 20 68 75 69 3a 6d | menu-li|st hui:m|
|00002400| 65 6e 75 73 29 29 29 29 | 29 20 28 68 79 70 62 3a |enus))))|) (hypb:|
|00002410| 65 72 72 6f 72 20 22 28 | 6d 65 6e 75 2d 61 63 74 |error "(|menu-act|
|00002420| 29 3a 20 49 6e 76 61 6c | 69 64 20 6d 65 6e 75 20 |): Inval|id menu |
|00002430| 73 79 6d 62 6f 6c 20 61 | 72 67 3a 20 25 73 22 20 |symbol a|rg: %s" |
|00002440| 6d 65 6e 75 29 29 20 74 | 20 6e 69 6c 20 61 63 74 |menu)) t| nil act|
|00002450| 2d 66 6f 72 6d 20 6d 65 | 6e 75 2d 61 6c 69 73 74 |-form me|nu-alist|
|00002460| 20 72 74 6e 20 73 68 6f | 77 2d 6d 65 6e 75 20 73 | rtn sho|w-menu s|
|00002470| 65 74 2d 6d 65 6e 75 20 | 65 76 61 6c 20 68 75 69 |et-menu |eval hui|
|00002480| 3a 6d 65 6e 75 2d 73 65 | 6c 65 63 74 20 6d 65 6e |:menu-se|lect men|
|00002490| 75 20 63 75 72 72 65 6e | 74 2d 70 72 65 66 69 78 |u curren|t-prefix|
|000024a0| 2d 61 72 67 20 70 72 65 | 66 69 78 2d 61 72 67 20 |-arg pre|fix-arg |
|000024b0| 63 61 6c 6c 2d 69 6e 74 | 65 72 61 63 74 69 76 65 |call-int|eractive|
|000024c0| 6c 79 20 68 75 69 3a 6d | 65 6e 75 2d 68 65 6c 70 |ly hui:m|enu-help|
|000024d0| 5d 20 36 20 22 5c 0a 50 | 72 6f 6d 70 74 73 20 75 |] 6 "\.P|rompts u|
|000024e0| 73 65 72 20 77 69 74 68 | 20 48 79 70 65 72 62 6f |ser with| Hyperbo|
|000024f0| 6c 65 20 4d 45 4e 55 20 | 28 61 20 73 79 6d 62 6f |le MENU |(a symbo|
|00002500| 6c 29 20 61 6e 64 20 70 | 65 72 66 6f 72 6d 73 20 |l) and p|erforms |
|00002510| 73 65 6c 65 63 74 65 64 | 20 69 74 65 6d 2e 0a 4f |selected| item..O|
|00002520| 70 74 69 6f 6e 61 6c 20 | 73 65 63 6f 6e 64 20 61 |ptional |second a|
|00002530| 72 67 75 6d 65 6e 74 20 | 4d 45 4e 55 2d 4c 49 53 |rgument |MENU-LIS|
|00002540| 54 20 69 73 20 61 20 48 | 79 70 65 72 62 6f 6c 65 |T is a H|yperbole|
|00002550| 20 6d 65 6e 75 20 6c 69 | 73 74 20 73 74 72 75 63 | menu li|st struc|
|00002560| 74 75 72 65 20 66 72 6f | 6d 0a 77 68 69 63 68 20 |ture fro|m.which |
|00002570| 74 6f 20 65 78 74 72 61 | 63 74 20 4d 45 4e 55 2e |to extra|ct MENU.|
|00002580| 20 20 49 74 20 64 65 66 | 61 75 6c 74 73 20 74 6f |  It def|aults to|
|00002590| 20 60 68 75 69 3a 6d 65 | 6e 75 73 27 2e 20 20 53 | `hui:me|nus'.  S|
|000025a0| 65 65 20 69 74 73 20 64 | 65 66 69 6e 69 74 69 6f |ee its d|efinitio|
|000025b0| 6e 20 66 6f 72 0a 74 68 | 65 20 6d 65 6e 75 20 6c |n for.th|e menu l|
|000025c0| 69 73 74 20 73 74 72 75 | 63 74 75 72 65 2e 22 5d |ist stru|cture."]|
|000025d0| 29 0a 28 66 73 65 74 20 | 27 68 75 69 3a 6d 65 6e |).(fset |'hui:men|
|000025e0| 75 2d 65 6e 74 65 72 20 | 23 5b 28 26 6f 70 74 69 |u-enter |#[(&opti|
|000025f0| 6f 6e 61 6c 20 63 68 61 | 72 2d 73 74 72 29 20 22 |onal cha|r-str) "|
|00002600| 08 ae 87 c1 20 c1 20 47 | 53 48 1a 0b ab 8f 5c 6e |.... . G|SH....\n|
|00002610| a8 ac 98 c4 5c 6e 21 ab | 93 c5 5c 6e 21 12 aa 8d |....\n!.|..\n!...|
|00002620| 0e 06 ab 89 c4 5c 6e 21 | ab 84 c7 5c 6e 21 12 5c |.....\n!|...\n!.\|
|00002630| 6e 39 ac 89 5c 6e a8 ab | 88 5c 6e c8 55 ab 83 c9 |n9..\n..|.\n.U...|
|00002640| 20 12 ca 20 88 5c 6e 39 | ac 83 5c 6e 63 88 29 cb | .. .\n9|..\nc.).|
|00002650| 20 87 22 20 5b 63 68 61 | 72 2d 73 74 72 20 72 65 | ." [cha|r-str re|
|00002660| 63 65 6e 74 2d 6b 65 79 | 73 20 69 6e 70 75 74 20 |cent-key|s input |
|00002670| 68 79 70 65 72 62 3a 65 | 6d 61 63 73 31 39 2d 70 |hyperb:e|macs19-p|
|00002680| 20 65 76 65 6e 74 70 20 | 65 76 65 6e 74 2d 62 61 | eventp |event-ba|
|00002690| 73 69 63 2d 74 79 70 65 | 20 68 79 70 65 72 62 3a |sic-type| hyperb:|
|000026a0| 6c 65 6d 61 63 73 2d 70 | 20 65 76 65 6e 74 2d 74 |lemacs-p| event-t|
|000026b0| 6f 2d 63 68 61 72 61 63 | 74 65 72 20 31 33 20 68 |o-charac|ter 13 h|
|000026c0| 61 72 67 73 3a 61 74 2d | 70 20 65 72 61 73 65 2d |args:at-|p erase-|
|000026d0| 62 75 66 66 65 72 20 65 | 78 69 74 2d 6d 69 6e 69 |buffer e|xit-mini|
|000026e0| 62 75 66 66 65 72 5d 20 | 32 20 22 5c 0a 55 73 65 |buffer] |2 "\.Use|
|000026f0| 73 20 43 48 41 52 2d 53 | 54 52 20 6f 72 20 6c 61 |s CHAR-S|TR or la|
|00002700| 73 74 20 69 6e 70 75 74 | 20 63 68 61 72 61 63 74 |st input| charact|
|00002710| 65 72 20 61 73 20 6d 69 | 6e 69 62 75 66 66 65 72 |er as mi|nibuffer|
|00002720| 20 61 72 67 75 6d 65 6e | 74 2e 22 20 6e 69 6c 5d | argumen|t." nil]|
|00002730| 29 0a 28 66 73 65 74 20 | 27 68 75 69 3a 6d 65 6e |).(fset |'hui:men|
|00002740| 75 2d 68 65 6c 70 20 23 | 5b 28 68 65 6c 70 2d 73 |u-help #|[(help-s|
|00002750| 74 72 29 20 22 c0 19 c2 | 20 1b c4 c5 21 1e 06 c7 |tr) "...| ...!...|
|00002760| 8e c8 8b 88 c2 20 c9 20 | 3d ab 84 ca cb 21 88 cc |..... . |=....!..|
|00002770| cd 21 47 cb 55 ab 84 ce | cf 21 88 d0 d1 20 21 88 |.!G.U...|.!... !.|
|00002780| d2 d3 0e 06 21 21 88 cf | 16 14 d5 20 88 d6 0e 17 |....!!..|... ....|
|00002790| b1 02 88 d8 cf 21 88 d9 | da 20 db cf dc dd 0e 17 |.....!..|. ......|
|000027a0| 5c 22 5c 22 47 de 5c 5c | 5a 21 2c 87 22 20 5b 32 |\"\"G.\\|Z!,." [2|
|000027b0| 20 77 69 6e 64 6f 77 2d | 6d 69 6e 2d 68 65 69 67 | window-|min-heig|
|000027c0| 68 74 20 73 65 6c 65 63 | 74 65 64 2d 77 69 6e 64 |ht selec|ted-wind|
|000027d0| 6f 77 20 6f 77 69 6e 64 | 20 68 79 70 62 3a 68 65 |ow owind| hypb:he|
|000027e0| 6c 70 2d 62 75 66 2d 6e | 61 6d 65 20 22 4d 65 6e |lp-buf-n|ame "Men|
|000027f0| 75 22 20 62 75 66 2d 6e | 61 6d 65 20 28 28 73 65 |u" buf-n|ame ((se|
|00002800| 6c 65 63 74 2d 77 69 6e | 64 6f 77 20 6f 77 69 6e |lect-win|dow owin|
|00002810| 64 29 29 20 28 28 68 6b | 65 79 2d 68 65 6c 70 2d |d)) ((hk|ey-help-|
|00002820| 73 68 6f 77 20 62 75 66 | 2d 6e 61 6d 65 29 29 20 |show buf|-name)) |
|00002830| 6d 69 6e 69 62 75 66 66 | 65 72 2d 77 69 6e 64 6f |minibuff|er-windo|
|00002840| 77 20 6f 74 68 65 72 2d | 77 69 6e 64 6f 77 20 31 |w other-|window 1|
|00002850| 20 68 79 70 62 3a 77 69 | 6e 64 6f 77 2d 6c 69 73 | hypb:wi|ndow-lis|
|00002860| 74 20 6e 6f 2d 6d 69 6e | 69 20 73 70 6c 69 74 2d |t no-min|i split-|
|00002870| 77 69 6e 64 6f 77 2d 76 | 65 72 74 69 63 61 6c 6c |window-v|erticall|
|00002880| 79 20 6e 69 6c 20 73 65 | 6c 65 63 74 2d 77 69 6e |y nil se|lect-win|
|00002890| 64 6f 77 20 68 75 69 3a | 62 6f 74 74 6f 6d 2d 77 |dow hui:|bottom-w|
|000028a0| 69 6e 64 6f 77 20 73 77 | 69 74 63 68 2d 74 6f 2d |indow sw|itch-to-|
|000028b0| 62 75 66 66 65 72 20 67 | 65 74 2d 62 75 66 66 65 |buffer g|et-buffe|
|000028c0| 72 2d 63 72 65 61 74 65 | 20 62 75 66 66 65 72 2d |r-create| buffer-|
|000028d0| 72 65 61 64 2d 6f 6e 6c | 79 20 65 72 61 73 65 2d |read-onl|y erase-|
|000028e0| 62 75 66 66 65 72 20 22 | 5c 6e 22 20 68 65 6c 70 |buffer "|\n" help|
|000028f0| 2d 73 74 72 20 73 65 74 | 2d 62 75 66 66 65 72 2d |-str set|-buffer-|
|00002900| 6d 6f 64 69 66 69 65 64 | 2d 70 20 73 68 72 69 6e |modified|-p shrin|
|00002910| 6b 2d 77 69 6e 64 6f 77 | 20 77 69 6e 64 6f 77 2d |k-window| window-|
|00002920| 68 65 69 67 68 74 20 64 | 65 6c 71 20 6d 61 70 63 |height d|elq mapc|
|00002930| 61 72 20 23 5b 28 63 68 | 72 29 20 22 08 c1 55 87 |ar #[(ch|r) "..U.|
|00002940| 22 20 5b 63 68 72 20 31 | 30 5d 20 32 5d 20 33 5d |" [chr 1|0] 2] 3]|
|00002950| 20 37 20 22 5c 0a 44 69 | 73 70 6c 61 79 73 20 48 | 7 "\.Di|splays H|
|00002960| 45 4c 50 2d 53 54 52 20 | 69 6e 20 61 20 73 6d 61 |ELP-STR |in a sma|
|00002970| 6c 6c 20 77 69 6e 64 6f | 77 2e 20 20 48 45 4c 50 |ll windo|w.  HELP|
|00002980| 2d 53 54 52 20 6d 75 73 | 74 20 62 65 20 61 20 73 |-STR mus|t be a s|
|00002990| 74 72 69 6e 67 2e 22 5d | 29 0a 28 66 73 65 74 20 |tring."]|).(fset |
|000029a0| 27 68 75 69 3a 6d 65 6e | 75 2d 78 65 6d 61 63 73 |'hui:men|u-xemacs|
|000029b0| 20 23 5b 28 26 6f 70 74 | 69 6f 6e 61 6c 20 6d 65 | #[(&opt|ional me|
|000029c0| 6e 75 20 6d 65 6e 75 2d | 6c 69 73 74 29 20 22 c0 |nu menu-|list) ".|
|000029d0| c1 5c 6e ae 81 c3 0c ae | 81 0d 9e 41 5c 22 87 22 |.\n.....|...A\"."|
|000029e0| 20 5b 6d 61 70 63 61 72 | 20 23 5b 28 65 6e 74 72 | [mapcar| #[(entr|
|000029f0| 79 29 20 22 08 3a ac 85 | c1 c2 08 5c 22 88 08 40 |y) ".:..|...\"..@|
|00002a00| 08 41 40 1b 1c 0b ac 88 | c5 c6 0c c7 c8 24 aa 95 |.A@.....|.....$..|
|00002a10| 0b 3a ab 8c 0b 40 c9 3d | ab 86 ca 0b 41 21 aa 85 |.:...@.=|....A!..|
|00002a20| cb 0c 0b c8 23 2a 87 22 | 20 5b 65 6e 74 72 79 20 |....#*."| [entry |
|00002a30| 65 72 72 6f 72 20 22 28 | 68 75 69 3a 6d 65 6e 75 |error "(|hui:menu|
|00002a40| 2d 78 65 6d 61 63 73 29 | 3a 20 49 6e 76 61 6c 69 |-xemacs)|: Invali|
|00002a50| 64 20 6d 65 6e 75 20 65 | 6e 74 72 79 3a 20 25 73 |d menu e|ntry: %s|
|00002a60| 22 20 63 6f 6e 74 65 6e | 74 20 6c 61 62 65 6c 20 |" conten|t label |
|00002a70| 68 79 70 62 3a 72 65 70 | 6c 61 63 65 2d 6d 61 74 |hypb:rep|lace-mat|
|00002a80| 63 68 2d 73 74 72 69 6e | 67 20 22 3e 24 22 20 22 |ch-strin|g ">$" "|
|00002a90| 22 20 74 20 6d 65 6e 75 | 20 68 75 69 3a 6d 65 6e |" t menu| hui:men|
|00002aa0| 75 2d 78 65 6d 61 63 73 | 20 76 65 63 74 6f 72 5d |u-xemacs| vector]|
|00002ab0| 20 35 5d 20 6d 65 6e 75 | 20 68 79 70 65 72 62 6f | 5] menu| hyperbo|
|00002ac0| 6c 65 20 6d 65 6e 75 2d | 6c 69 73 74 20 68 75 69 |le menu-|list hui|
|00002ad0| 3a 6d 65 6e 75 73 5d 20 | 34 20 22 5c 0a 52 65 74 |:menus] |4 "\.Ret|
|00002ae0| 75 72 6e 73 20 61 6e 20 | 58 45 6d 61 63 73 20 6d |urns an |XEmacs m|
|00002af0| 65 6e 75 20 62 75 69 6c | 74 20 66 72 6f 6d 20 48 |enu buil|t from H|
|00002b00| 79 70 65 72 62 6f 6c 65 | 20 74 79 70 65 20 6d 65 |yperbole| type me|
|00002b10| 6e 75 73 2e 0a 4f 70 74 | 69 6f 6e 61 6c 20 4d 45 |nus..Opt|ional ME|
|00002b20| 4e 55 20 28 61 20 73 79 | 6d 62 6f 6c 29 20 73 70 |NU (a sy|mbol) sp|
|00002b30| 65 63 69 66 69 65 73 20 | 61 20 73 70 65 63 69 66 |ecifies |a specif|
|00002b40| 69 63 20 73 75 62 6d 65 | 6e 75 20 6f 66 20 6f 70 |ic subme|nu of op|
|00002b50| 74 69 6f 6e 61 6c 20 4d | 45 4e 55 2d 4c 49 53 54 |tional M|ENU-LIST|
|00002b60| 2e 0a 61 20 48 79 70 65 | 72 62 6f 6c 65 20 6d 65 |..a Hype|rbole me|
|00002b70| 6e 75 20 6c 69 73 74 20 | 73 74 72 75 63 74 75 72 |nu list |structur|
|00002b80| 65 2e 20 20 4f 74 68 65 | 72 77 69 73 65 2c 20 61 |e.  Othe|rwise, a|
|00002b90| 6c 6c 20 6d 65 6e 75 73 | 20 61 72 65 20 75 73 65 |ll menus| are use|
|00002ba0| 64 2e 0a 4d 45 4e 55 20 | 64 65 66 61 75 6c 74 73 |d..MENU |defaults|
|00002bb0| 20 74 6f 20 27 68 79 70 | 65 72 62 6f 6c 65 20 61 | to 'hyp|erbole a|
|00002bc0| 6e 64 20 4d 45 4e 55 2d | 4c 49 53 54 20 74 6f 20 |nd MENU-|LIST to |
|00002bd0| 60 68 75 69 3a 6d 65 6e | 75 73 27 2e 20 20 53 65 |`hui:men|us'.  Se|
|00002be0| 65 20 60 68 75 69 3a 6d | 65 6e 75 73 27 0a 64 65 |e `hui:m|enus'.de|
|00002bf0| 66 69 6e 69 74 69 6f 6e | 20 66 6f 72 20 74 68 65 |finition| for the|
|00002c00| 20 66 6f 72 6d 61 74 20 | 6f 66 20 74 68 65 20 6d | format |of the m|
|00002c10| 65 6e 75 20 6c 69 73 74 | 20 73 74 72 75 63 74 75 |enu list| structu|
|00002c20| 72 65 2e 22 5d 29 0a 28 | 66 73 65 74 20 27 68 75 |re."]).(|fset 'hu|
|00002c30| 69 3a 6d 65 6e 75 2d 73 | 65 6c 65 63 74 20 23 5b |i:menu-s|elect #[|
|00002c40| 28 6d 65 6e 75 2d 61 6c | 69 73 74 29 20 22 c0 09 |(menu-al|ist) "..|
|00002c50| 21 1a c3 1c c5 0e 06 21 | 1e 07 c5 0e 08 21 1e 09 |!......!|.....!..|
|00002c60| c5 0e 5c 6e 21 1e 0b c5 | 0e 0c 21 1e 0d ce cf ce |..\n!...|..!.....|
|00002c70| d0 09 41 5c 22 5c 22 1e | 11 d2 d3 0e 07 0e 09 0e |..A\"\".|........|
|00002c80| 0b 0e 0d 0e 11 26 06 1e | 14 d5 1e 16 d7 1e 18 d9 |.....&..|........|
|00002c90| 1e 1a c5 db dc 5c 6e 0e | 1d 23 21 96 89 16 16 0e |.....\n.|.#!.....|
|00002ca0| 14 3e ac 8b de 20 88 d7 | 16 18 df 20 88 aa 64 0e |.>... ..|... ..d.|
|00002cb0| 16 0e 09 3d ab 83 d9 aa | f2 0e 16 0e 0b 3d ab 86 |...=....|.....=..|
|00002cc0| de 20 88 d9 aa e5 0e 16 | 0e 0d 3d ab 83 e0 aa db |. ......|..=.....|
|00002cd0| 0e 16 0e 07 3d ab 96 8a | e1 e2 d9 e3 23 ab 8a e2 |....=...|....#...|
|00002ce0| d9 77 88 67 16 16 d9 aa | 81 e3 29 ae be 0e 16 0e |.w.g....|..).....|
|00002cf0| 11 3e 89 16 1a ad b4 0e | 11 47 54 0e 1a 47 5a 09 |.>......|.GT..GZ.|
|00002d00| 38 89 1e 24 41 40 1e 25 | 0e 18 e6 3d ab 9a 0e 24 |8..$A@.%|...=...$|
|00002d10| 41 41 40 ae 81 e7 1e 28 | 0e 24 40 e9 0e 28 ea eb |AA@....(|.$@..(..|
|00002d20| 0e 25 21 b0 05 29 aa 82 | 0e 25 2a 2e 0b 87 22 20 |.%!..)..|.%*..." |
|00002d30| 5b 68 75 69 3a 6d 65 6e | 75 2d 6c 69 6e 65 20 6d |[hui:men|u-line m|
|00002d40| 65 6e 75 2d 61 6c 69 73 | 74 20 6d 65 6e 75 2d 6c |enu-alis|t menu-l|
|00002d50| 69 6e 65 20 65 71 20 73 | 65 74 3a 65 71 75 61 6c |ine eq s|et:equal|
|00002d60| 2d 6f 70 20 73 74 72 69 | 6e 67 2d 74 6f 2d 63 68 |-op stri|ng-to-ch|
|00002d70| 61 72 20 68 75 69 3a 6d | 65 6e 75 2d 73 65 6c 65 |ar hui:m|enu-sele|
|00002d80| 63 74 20 73 65 6c 65 63 | 74 2d 63 68 61 72 20 68 |ct selec|t-char h|
|00002d90| 75 69 3a 6d 65 6e 75 2d | 71 75 69 74 20 71 75 69 |ui:menu-|quit qui|
|00002da0| 74 2d 63 68 61 72 20 68 | 75 69 3a 6d 65 6e 75 2d |t-char h|ui:menu-|
|00002db0| 61 62 6f 72 74 20 61 62 | 6f 72 74 2d 63 68 61 72 |abort ab|ort-char|
|00002dc0| 20 68 75 69 3a 6d 65 6e | 75 2d 74 6f 70 20 74 6f | hui:men|u-top to|
|00002dd0| 70 2d 63 68 61 72 20 6d | 61 70 63 61 72 20 23 5b |p-char m|apcar #[|
|00002de0| 28 69 74 65 6d 29 20 22 | 08 c1 48 87 22 20 5b 69 |(item) "|..H." [i|
|00002df0| 74 65 6d 20 30 5d 20 32 | 5d 20 63 61 72 20 69 74 |tem 0] 2|] car it|
|00002e00| 65 6d 2d 6b 65 79 73 20 | 61 70 70 6c 79 20 6c 69 |em-keys |apply li|
|00002e10| 73 74 20 6b 65 79 73 20 | 30 20 6b 65 79 20 68 6d |st keys |0 key hm|
|00002e20| 65 6e 75 20 68 61 72 67 | 73 3a 72 65 61 64 69 6e |enu harg|s:readin|
|00002e30| 67 2d 70 20 6e 69 6c 20 | 73 75 62 6c 69 73 74 20 |g-p nil |sublist |
|00002e40| 72 65 61 64 2d 66 72 6f | 6d 2d 6d 69 6e 69 62 75 |read-fro|m-minibu|
|00002e50| 66 66 65 72 20 22 22 20 | 68 75 69 3a 6d 65 6e 75 |ffer "" |hui:menu|
|00002e60| 2d 6d 6f 64 65 2d 6d 61 | 70 20 62 65 65 70 20 64 |-mode-ma|p beep d|
|00002e70| 69 73 63 61 72 64 2d 69 | 6e 70 75 74 20 28 6d 65 |iscard-i|nput (me|
|00002e80| 6e 75 20 2e 20 68 79 70 | 65 72 62 6f 6c 65 29 20 |nu . hyp|erbole) |
|00002e90| 73 65 61 72 63 68 2d 62 | 61 63 6b 77 61 72 64 20 |search-b|ackward |
|00002ea0| 22 20 22 20 74 20 6c 61 | 62 65 6c 2d 61 63 74 2d |" " t la|bel-act-|
|00002eb0| 68 65 6c 70 2d 6c 69 73 | 74 20 61 63 74 2d 66 6f |help-lis|t act-fo|
|00002ec0| 72 6d 20 68 6d 65 6e 75 | 2d 68 65 6c 70 20 22 4e |rm hmenu|-help "N|
|00002ed0| 6f 20 68 65 6c 70 20 64 | 6f 63 75 6d 65 6e 74 61 |o help d|ocumenta|
|00002ee0| 74 69 6f 6e 20 66 6f 72 | 20 74 68 69 73 20 69 74 |tion for| this it|
|00002ef0| 65 6d 2e 22 20 68 65 6c | 70 2d 73 74 72 20 22 5c |em." hel|p-str "\|
|00002f00| 6e 20 20 22 20 22 5c 6e | 20 20 20 20 41 63 74 69 |n  " "\n|    Acti|
|00002f10| 6f 6e 3a 20 22 20 70 72 | 69 6e 31 2d 74 6f 2d 73 |on: " pr|in1-to-s|
|00002f20| 74 72 69 6e 67 5d 20 38 | 20 22 5c 0a 50 72 6f 6d |tring] 8| "\.Prom|
|00002f30| 70 74 73 20 75 73 65 72 | 20 74 6f 20 63 68 6f 6f |pts user| to choo|
|00002f40| 73 65 20 74 68 65 20 66 | 69 72 73 74 20 63 68 61 |se the f|irst cha|
|00002f50| 72 61 63 74 65 72 20 6f | 66 20 61 6e 79 20 69 74 |racter o|f any it|
|00002f60| 65 6d 20 66 72 6f 6d 20 | 4d 45 4e 55 2d 41 4c 49 |em from |MENU-ALI|
|00002f70| 53 54 2e 0a 43 61 73 65 | 20 69 73 20 6e 6f 74 20 |ST..Case| is not |
|00002f80| 73 69 67 6e 69 66 69 63 | 61 6e 74 2e 20 20 49 66 |signific|ant.  If|
|00002f90| 20 63 68 6f 73 65 6e 20 | 62 79 20 64 69 72 65 63 | chosen |by direc|
|00002fa0| 74 20 73 65 6c 65 63 74 | 69 6f 6e 20 77 69 74 68 |t select|ion with|
|00002fb0| 20 74 68 65 20 41 73 73 | 69 73 74 20 4b 65 79 2c | the Ass|ist Key,|
|00002fc0| 0a 72 65 74 75 72 6e 73 | 20 61 6e 79 20 68 65 6c |.returns| any hel|
|00002fd0| 70 20 73 74 72 69 6e 67 | 20 66 6f 72 20 69 74 65 |p string| for ite|
|00002fe0| 6d 2c 20 65 6c 73 65 20 | 72 65 74 75 72 6e 73 20 |m, else |returns |
|00002ff0| 74 68 65 20 61 63 74 69 | 6f 6e 20 66 6f 72 6d 20 |the acti|on form |
|00003000| 66 6f 72 20 74 68 65 20 | 69 74 65 6d 2e 22 5d 29 |for the |item."])|
|00003010| 0a 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 c1 21 |.(byte-c|ode "..!|
|00003020| ab 86 c2 c3 4d 88 aa 84 | c2 c4 4d 88 c0 87 22 20 |....M...|..M..." |
|00003030| 5b 66 62 6f 75 6e 64 70 | 20 77 69 6e 64 6f 77 2d |[fboundp| window-|
|00003040| 6c 6f 77 65 73 74 2d 70 | 20 68 75 69 3a 62 6f 74 |lowest-p| hui:bot|
|00003050| 74 6f 6d 2d 77 69 6e 64 | 6f 77 20 23 5b 6e 69 6c |tom-wind|ow #[nil|
|00003060| 20 22 c0 c1 21 c2 1b 1c | 0b ac 94 0c ab 91 c5 0c | "..!...|........|
|00003070| 40 21 ab 86 0c 40 89 13 | aa 6f 0c 41 14 aa 69 0b |@!...@..|.o.A..i.|
|00003080| 2a 87 22 20 5b 68 79 70 | 62 3a 77 69 6e 64 6f 77 |*." [hyp|b:window|
|00003090| 2d 6c 69 73 74 20 6e 6f | 2d 6d 69 6e 69 20 6e 69 |-list no|-mini ni|
|000030a0| 6c 20 77 69 6e 64 6f 77 | 20 77 69 6e 64 73 20 77 |l window| winds w|
|000030b0| 69 6e 64 6f 77 2d 6c 6f | 77 65 73 74 2d 70 5d 20 |indow-lo|west-p] |
|000030c0| 33 20 22 52 65 74 75 72 | 6e 20 61 20 77 69 6e 64 |3 "Retur|n a wind|
|000030d0| 6f 77 20 74 68 61 74 20 | 69 73 20 61 74 20 74 68 |ow that |is at th|
|000030e0| 65 20 62 6f 74 74 6f 6d | 20 6f 66 20 74 68 65 20 |e bottom| of the |
|000030f0| 73 65 6c 65 63 74 65 64 | 20 66 72 61 6d 65 2e 22 |selected| frame."|
|00003100| 5d 20 23 5b 6e 69 6c 20 | 22 c0 c1 21 1a c3 c4 5c |] #[nil |"..!...\|
|00003110| 6e 5c 22 1d c6 c7 0d 5c | 22 1e 08 5c 6e 47 0e 08 |n\"....\|"..\nG..|
|00003120| 0d 3e 47 5a 5c 6e 38 2b | 87 22 20 5b 68 79 70 62 |.>GZ\n8+|." [hypb|
|00003130| 3a 77 69 6e 64 6f 77 2d | 6c 69 73 74 20 6e 6f 2d |:window-|list no-|
|00003140| 6d 69 6e 69 20 77 69 6e | 64 73 20 6d 61 70 63 61 |mini win|ds mapca|
|00003150| 72 20 23 5b 28 77 69 6e | 64 29 20 22 c0 c1 5c 6e |r #[(win|d) "..\n|
|00003160| 21 38 87 22 20 5b 33 20 | 77 69 6e 64 6f 77 2d 65 |!8." [3 |window-e|
|00003170| 64 67 65 73 20 77 69 6e | 64 5d 20 33 5d 20 62 6f |dges win|d] 3] bo|
|00003180| 74 2d 6c 69 73 74 20 61 | 70 70 6c 79 20 6d 61 78 |t-list a|pply max|
|00003190| 20 62 6f 74 5d 20 33 20 | 22 52 65 74 75 72 6e 20 | bot] 3 |"Return |
|000031a0| 61 20 77 69 6e 64 6f 77 | 20 74 68 61 74 20 69 73 |a window| that is|
|000031b0| 20 61 74 20 74 68 65 20 | 62 6f 74 74 6f 6d 20 6f | at the |bottom o|
|000031c0| 66 20 74 68 65 20 73 65 | 6c 65 63 74 65 64 20 66 |f the se|lected f|
|000031d0| 72 61 6d 65 2e 22 5d 5d | 20 32 29 0a 28 66 73 65 |rame."]]| 2).(fse|
|000031e0| 74 20 27 68 75 69 3a 6d | 65 6e 75 2d 6c 69 6e 65 |t 'hui:m|enu-line|
|000031f0| 20 23 5b 28 6d 65 6e 75 | 2d 61 6c 69 73 74 29 20 | #[(menu|-alist) |
|00003200| 22 08 40 40 c1 50 c2 c3 | 08 41 c1 23 c4 1d 1e 06 |".@@.P..|.A.#....|
|00003210| 89 1e 07 0e 06 50 89 15 | 47 c8 20 53 59 ab 8b 0e |.....P..|G. SY...|
|00003220| 07 c2 c3 08 41 c9 23 50 | aa 81 0d 2b 87 22 20 5b |....A.#P|...+." [|
|00003230| 6d 65 6e 75 2d 61 6c 69 | 73 74 20 22 20 20 22 20 |menu-ali|st "  " |
|00003240| 6d 61 70 63 6f 6e 63 61 | 74 20 63 61 72 20 6e 69 |mapconca|t car ni|
|00003250| 6c 20 6d 65 6e 75 2d 6c | 69 6e 65 20 6d 65 6e 75 |l menu-l|ine menu|
|00003260| 2d 69 74 65 6d 73 20 6d | 65 6e 75 2d 70 72 6f 6d |-items m|enu-prom|
|00003270| 70 74 20 66 72 61 6d 65 | 2d 77 69 64 74 68 20 22 |pt frame|-width "|
|00003280| 20 22 5d 20 36 20 22 5c | 0a 52 65 74 75 72 6e 73 | "] 6 "\|.Returns|
|00003290| 20 61 20 6d 65 6e 75 20 | 6c 69 6e 65 20 73 74 72 | a menu |line str|
|000032a0| 69 6e 67 20 62 75 69 6c | 74 20 66 72 6f 6d 20 4d |ing buil|t from M|
|000032b0| 45 4e 55 2d 41 4c 49 53 | 54 2e 22 5d 29 0a 28 70 |ENU-ALIS|T."]).(p|
|000032c0| 75 74 20 27 68 75 69 3a | 6d 65 6e 75 2d 6d 6f 64 |ut 'hui:|menu-mod|
|000032d0| 65 20 27 6d 6f 64 65 2d | 63 6c 61 73 73 20 27 73 |e 'mode-|class 's|
|000032e0| 70 65 63 69 61 6c 29 0a | 28 64 65 66 76 61 72 20 |pecial).|(defvar |
|000032f0| 68 75 69 3a 6d 65 6e 75 | 2d 6d 6f 64 65 2d 6d 61 |hui:menu|-mode-ma|
|00003300| 70 20 6e 69 6c 20 22 5c | 0a 4b 65 79 6d 61 70 20 |p nil "\|.Keymap |
|00003310| 63 6f 6e 74 61 69 6e 69 | 6e 67 20 68 75 69 3a 6d |containi|ng hui:m|
|00003320| 65 6e 75 20 63 6f 6d 6d | 61 6e 64 73 2e 22 29 0a |enu comm|ands.").|
|00003330| 28 62 79 74 65 2d 63 6f | 64 65 20 22 08 ac ca c1 |(byte-co|de "....|
|00003340| 20 10 c2 08 21 88 c3 08 | 0c c5 23 88 c3 08 0e 06 | ...!...|..#.....|
|00003350| c5 23 88 c3 08 0e 07 c5 | 23 88 c3 08 0e 08 c5 23 |.#......|#......#|
|00003360| 88 0e 09 ab 8a 0e 5c 6e | ab 86 c3 08 cb cc 23 88 |......\n|......#.|
|00003370| cd 1e 0e cd cf 58 ab 91 | c3 08 d0 0e 0e 21 c5 23 |.....X..|.....!.#|
|00003380| 88 0e 0e 54 89 16 0e aa | 6b 29 d1 d2 21 87 22 20 |...T....|k)..!." |
|00003390| 5b 68 75 69 3a 6d 65 6e | 75 2d 6d 6f 64 65 2d 6d |[hui:men|u-mode-m|
|000033a0| 61 70 20 6d 61 6b 65 2d | 6b 65 79 6d 61 70 20 73 |ap make-|keymap s|
|000033b0| 75 70 70 72 65 73 73 2d | 6b 65 79 6d 61 70 20 64 |uppress-|keymap d|
|000033c0| 65 66 69 6e 65 2d 6b 65 | 79 20 68 75 69 3a 6d 65 |efine-ke|y hui:me|
|000033d0| 6e 75 2d 71 75 69 74 20 | 68 75 69 3a 6d 65 6e 75 |nu-quit |hui:menu|
|000033e0| 2d 65 6e 74 65 72 20 68 | 75 69 3a 6d 65 6e 75 2d |-enter h|ui:menu-|
|000033f0| 61 62 6f 72 74 20 68 75 | 69 3a 6d 65 6e 75 2d 74 |abort hu|i:menu-t|
|00003400| 6f 70 20 68 75 69 3a 6d | 65 6e 75 2d 73 65 6c 65 |op hui:m|enu-sele|
|00003410| 63 74 20 68 79 70 65 72 | 62 3a 6c 65 6d 61 63 73 |ct hyper|b:lemacs|
|00003420| 2d 70 20 77 69 6e 64 6f | 77 2d 73 79 73 74 65 6d |-p windo|w-system|
|00003430| 20 62 75 74 74 6f 6e 31 | 20 6d 6f 75 73 65 2d 73 | button1| mouse-s|
|00003440| 65 74 2d 70 6f 69 6e 74 | 20 33 32 20 69 20 31 32 |et-point| 32 i 12|
|00003450| 36 20 63 68 61 72 2d 74 | 6f 2d 73 74 72 69 6e 67 |6 char-t|o-string|
|00003460| 20 70 72 6f 76 69 64 65 | 20 68 75 69 2d 6d 65 6e | provide| hui-men|
|00003470| 75 73 5d 20 35 29 0a    |                         |us] 5). |        |
+--------+-------------------------+-------------------------+--------+--------+