/ BCI NET 2 / BCI NET 2.iso / archives / programming / source / a2.0bemacs-src.lha / Emacs-19.25 / lisp / imenu.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 75 6e 20 | 4d 61 79 20 32 32 20 31 | on Sun |May 22 1|
|00000040| 38 3a 32 38 3a 30 35 20 | 31 39 39 34 0a 3b 3b 3b |8:28:05 |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 69 6d 65 6e 75 2e | 65 6c 0a 3b 3b 3b 20 65 |p/imenu.|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 69 6d |/rms/e19|/lisp/im|
|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 64 | 65 66 76 61 72 20 69 6d |9"))..(d|efvar im|
|000001e0| 65 6e 75 2d 61 6c 77 61 | 79 73 2d 75 73 65 2d 63 |enu-alwa|ys-use-c|
|000001f0| 6f 6d 70 6c 65 74 69 6f | 6e 2d 62 75 66 66 65 72 |ompletio|n-buffer|
|00000200| 2d 70 20 6e 69 6c 20 22 | 5c 0a 2a 53 65 74 20 74 |-p nil "|\.*Set t|
|00000210| 68 69 73 20 74 6f 20 6e | 6f 6e 2d 6e 69 6c 20 66 |his to n|on-nil f|
|00000220| 6f 72 20 64 69 73 70 6c | 61 79 69 6e 67 20 74 68 |or displ|aying th|
|00000230| 65 20 69 6e 64 65 78 20 | 69 6e 20 61 20 63 6f 6d |e index |in a com|
|00000240| 70 6c 65 74 69 6f 6e 20 | 62 75 66 66 65 72 2e 0a |pletion |buffer..|
|00000250| 0a 4e 6f 6e 2d 6e 69 6c | 20 6d 65 61 6e 73 20 61 |.Non-nil| means a|
|00000260| 6c 77 61 79 73 20 64 69 | 73 70 6c 61 79 20 74 68 |lways di|splay th|
|00000270| 65 20 69 6e 64 65 78 20 | 69 6e 20 61 20 63 6f 6d |e index |in a com|
|00000280| 70 6c 65 74 69 6f 6e 20 | 62 75 66 66 65 72 2e 0a |pletion |buffer..|
|00000290| 4e 69 6c 20 6d 65 61 6e | 73 20 64 69 73 70 6c 61 |Nil mean|s displa|
|000002a0| 79 20 74 68 65 20 69 6e | 64 65 78 20 61 73 20 61 |y the in|dex as a|
|000002b0| 20 6d 6f 75 73 65 20 6d | 65 6e 75 20 77 68 65 6e | mouse m|enu when|
|000002c0| 20 74 68 65 20 6d 6f 75 | 73 65 20 77 61 73 0a 75 | the mou|se was.u|
|000002d0| 73 65 64 20 74 6f 20 69 | 6e 76 6f 6b 65 20 60 69 |sed to i|nvoke `i|
|000002e0| 6d 65 6e 75 27 2e 22 29 | 0a 28 64 65 66 76 61 72 |menu'.")|.(defvar|
|000002f0| 20 69 6d 65 6e 75 2d 73 | 6f 72 74 2d 66 75 6e 63 | imenu-s|ort-func|
|00000300| 74 69 6f 6e 20 6e 69 6c | 20 22 5c 0a 2a 54 68 65 |tion nil| "\.*The|
|00000310| 20 66 75 6e 63 74 69 6f | 6e 20 74 6f 20 75 73 65 | functio|n to use|
|00000320| 20 66 6f 72 20 73 6f 72 | 74 69 6e 67 20 74 68 65 | for sor|ting the|
|00000330| 20 69 6e 64 65 78 20 6d | 6f 75 73 65 2d 6d 65 6e | index m|ouse-men|
|00000340| 75 2e 0a 0a 41 66 66 65 | 63 74 73 20 6f 6e 6c 79 |u...Affe|cts only|
|00000350| 20 74 68 65 20 6d 6f 75 | 73 65 20 69 6e 64 65 78 | the mou|se index|
|00000360| 20 6d 65 6e 75 2e 0a 0a | 53 65 74 20 74 68 69 73 | menu...|Set this|
|00000370| 20 74 6f 20 6e 69 6c 20 | 69 66 20 79 6f 75 20 64 | to nil |if you d|
|00000380| 6f 6e 27 74 20 77 61 6e | 74 20 61 6e 79 20 73 6f |on't wan|t any so|
|00000390| 72 74 69 6e 67 20 28 66 | 61 73 74 65 72 29 2e 0a |rting (f|aster)..|
|000003a0| 54 68 65 20 69 74 65 6d | 73 20 69 6e 20 74 68 65 |The item|s in the|
|000003b0| 20 6d 65 6e 75 20 61 72 | 65 20 74 68 65 6e 20 70 | menu ar|e then p|
|000003c0| 72 65 73 65 6e 74 65 64 | 20 69 6e 20 74 68 65 20 |resented| in the |
|000003d0| 6f 72 64 65 72 20 74 68 | 65 79 20 77 65 72 65 20 |order th|ey were |
|000003e0| 66 6f 75 6e 64 0a 69 6e | 20 74 68 65 20 62 75 66 |found.in| the buf|
|000003f0| 66 65 72 2e 0a 0a 53 65 | 74 20 69 74 20 74 6f 20 |fer...Se|t it to |
|00000400| 60 69 6d 65 6e 75 2d 2d | 73 6f 72 74 2d 62 79 2d |`imenu--|sort-by-|
|00000410| 6e 61 6d 65 27 20 69 66 | 20 79 6f 75 20 77 61 6e |name' if| you wan|
|00000420| 74 20 61 6c 70 68 61 62 | 65 74 69 63 20 73 6f 72 |t alphab|etic sor|
|00000430| 74 69 6e 67 2e 0a 0a 54 | 68 65 20 66 75 6e 63 74 |ting...T|he funct|
|00000440| 69 6f 6e 20 73 68 6f 75 | 6c 64 20 74 61 6b 65 20 |ion shou|ld take |
|00000450| 74 77 6f 20 61 72 67 75 | 6d 65 6e 74 73 20 61 6e |two argu|ments an|
|00000460| 64 20 72 65 74 75 72 6e | 20 54 20 69 66 20 74 68 |d return| T if th|
|00000470| 65 20 66 69 72 73 74 0a | 65 6c 65 6d 65 6e 74 20 |e first.|element |
|00000480| 73 68 6f 75 6c 64 20 63 | 6f 6d 65 20 62 65 66 6f |should c|ome befo|
|00000490| 72 65 20 74 68 65 20 73 | 65 63 6f 6e 64 2e 20 20 |re the s|econd.  |
|000004a0| 54 68 65 20 61 72 67 75 | 6d 65 6e 74 73 20 61 72 |The argu|ments ar|
|000004b0| 65 20 63 6f 6e 73 20 63 | 65 6c 6c 73 3b 0a 28 4e |e cons c|ells;.(N|
|000004c0| 41 4d 45 20 2e 20 50 4f | 53 49 54 49 4f 4e 29 2e |AME . PO|SITION).|
|000004d0| 20 20 4c 6f 6f 6b 20 61 | 74 20 60 69 6d 65 6e 75 |  Look a|t `imenu|
|000004e0| 2d 2d 73 6f 72 74 2d 62 | 79 2d 6e 61 6d 65 27 20 |--sort-b|y-name' |
|000004f0| 66 6f 72 20 61 6e 20 65 | 78 61 6d 70 6c 65 2e 22 |for an e|xample."|
|00000500| 29 0a 28 64 65 66 76 61 | 72 20 69 6d 65 6e 75 2d |).(defva|r imenu-|
|00000510| 6d 61 78 2d 69 74 65 6d | 73 20 32 35 20 22 5c 0a |max-item|s 25 "\.|
|00000520| 2a 4d 61 78 69 6d 75 6d | 20 6e 75 6d 62 65 72 20 |*Maximum| number |
|00000530| 6f 66 20 65 6c 65 6d 65 | 6e 74 73 20 69 6e 20 61 |of eleme|nts in a|
|00000540| 6e 20 69 6e 64 65 78 20 | 6d 6f 75 73 65 2d 6d 65 |n index |mouse-me|
|00000550| 6e 75 2e 22 29 0a 28 64 | 65 66 76 61 72 20 69 6d |nu.").(d|efvar im|
|00000560| 65 6e 75 2d 73 63 61 6e | 6e 69 6e 67 2d 6d 65 73 |enu-scan|ning-mes|
|00000570| 73 61 67 65 20 22 53 63 | 61 6e 6e 69 6e 67 20 62 |sage "Sc|anning b|
|00000580| 75 66 66 65 72 20 66 6f | 72 20 69 6e 64 65 78 2e |uffer fo|r index.|
|00000590| 20 28 25 33 64 25 25 29 | 22 20 22 5c 0a 2a 50 72 | (%3d%%)|" "\.*Pr|
|000005a0| 6f 67 72 65 73 73 20 6d | 65 73 73 61 67 65 20 64 |ogress m|essage d|
|000005b0| 75 72 69 6e 67 20 74 68 | 65 20 69 6e 64 65 78 20 |uring th|e index |
|000005c0| 73 63 61 6e 6e 69 6e 67 | 20 6f 66 20 74 68 65 20 |scanning| of the |
|000005d0| 62 75 66 66 65 72 2e 0a | 49 66 20 6e 6f 6e 20 4e |buffer..|If non N|
|000005e0| 49 4c 2c 20 75 73 65 72 | 20 67 65 74 73 20 61 20 |IL, user| gets a |
|000005f0| 6d 65 73 73 61 67 65 20 | 64 75 72 69 6e 67 20 74 |message |during t|
|00000600| 68 65 20 73 63 61 6e 6e | 69 6e 67 20 6f 66 20 74 |he scann|ing of t|
|00000610| 68 65 20 62 75 66 66 65 | 72 0a 0a 52 65 6c 65 76 |he buffe|r..Relev|
|00000620| 61 6e 74 20 6f 6e 6c 79 | 20 69 66 20 74 68 65 20 |ant only| if the |
|00000630| 6d 6f 64 65 2d 73 70 65 | 63 69 66 69 63 20 66 75 |mode-spe|cific fu|
|00000640| 6e 63 74 69 6f 6e 20 74 | 68 61 74 20 63 72 65 61 |nction t|hat crea|
|00000650| 74 65 73 20 74 68 65 20 | 62 75 66 66 65 72 0a 69 |tes the |buffer.i|
|00000660| 6e 64 65 78 20 75 73 65 | 20 60 69 6d 65 6e 75 2d |ndex use| `imenu-|
|00000670| 70 72 6f 67 72 65 73 73 | 2d 6d 65 73 73 61 67 65 |progress|-message|
|00000680| 27 2e 22 29 0a 28 64 65 | 66 76 61 72 20 69 6d 65 |'.").(de|fvar ime|
|00000690| 6e 75 2d 73 70 61 63 65 | 2d 72 65 70 6c 61 63 65 |nu-space|-replace|
|000006a0| 6d 65 6e 74 20 22 5e 22 | 20 22 5c 0a 2a 54 68 65 |ment "^"| "\.*The|
|000006b0| 20 72 65 70 6c 61 63 65 | 6d 65 6e 74 20 73 74 72 | replace|ment str|
|000006c0| 69 6e 67 20 66 6f 72 20 | 73 70 61 63 65 73 20 69 |ing for |spaces i|
|000006d0| 6e 20 69 6e 64 65 78 20 | 6e 61 6d 65 73 2e 0a 55 |n index |names..U|
|000006e0| 73 65 64 20 77 68 65 6e | 20 70 72 65 73 65 6e 74 |sed when| present|
|000006f0| 69 6e 67 20 74 68 65 20 | 69 6e 64 65 78 20 69 6e |ing the |index in|
|00000700| 20 61 20 63 6f 6d 70 6c | 65 74 69 6f 6e 2d 62 75 | a compl|etion-bu|
|00000710| 66 66 65 72 20 74 6f 20 | 6d 61 6b 65 20 74 68 65 |ffer to |make the|
|00000720| 0a 6e 61 6d 65 73 20 77 | 6f 72 6b 20 61 73 20 74 |.names w|ork as t|
|00000730| 6f 6b 65 6e 73 2e 22 29 | 0a 28 64 65 66 76 61 72 |okens.")|.(defvar|
|00000740| 20 69 6d 65 6e 75 2d 6c | 65 76 65 6c 2d 73 65 70 | imenu-l|evel-sep|
|00000750| 61 72 61 74 6f 72 20 22 | 3a 22 20 22 5c 0a 2a 54 |arator "|:" "\.*T|
|00000760| 68 65 20 73 65 70 61 72 | 61 74 6f 72 20 62 65 74 |he separ|ator bet|
|00000770| 77 65 65 6e 20 69 6e 64 | 65 78 20 6e 61 6d 65 73 |ween ind|ex names|
|00000780| 20 6f 66 20 64 69 66 66 | 65 72 65 6e 74 20 6c 65 | of diff|erent le|
|00000790| 76 65 6c 73 2e 0a 55 73 | 65 64 20 66 6f 72 20 6d |vels..Us|ed for m|
|000007a0| 61 6b 69 6e 67 20 6d 6f | 75 73 65 2d 6d 65 6e 75 |aking mo|use-menu|
|000007b0| 20 74 69 74 6c 65 73 20 | 61 6e 64 20 66 6f 72 20 | titles |and for |
|000007c0| 66 6c 61 74 74 65 6e 69 | 6e 67 20 6e 65 73 74 65 |flatteni|ng neste|
|000007d0| 64 20 69 6e 64 65 78 65 | 73 0a 77 69 74 68 20 6e |d indexe|s.with n|
|000007e0| 61 6d 65 20 63 6f 6e 63 | 61 74 65 6e 61 74 69 6f |ame conc|atenatio|
|000007f0| 6e 2e 22 29 0a 28 64 65 | 66 76 61 72 20 69 6d 65 |n.").(de|fvar ime|
|00000800| 6e 75 2d 73 75 62 6d 65 | 6e 75 2d 6e 61 6d 65 2d |nu-subme|nu-name-|
|00000810| 66 6f 72 6d 61 74 20 22 | 25 73 2e 2e 2e 22 20 22 |format "|%s..." "|
|00000820| 5c 0a 2a 54 68 65 20 66 | 6f 72 6d 61 74 20 66 6f |\.*The f|ormat fo|
|00000830| 72 20 6d 61 6b 69 6e 67 | 20 61 20 73 75 62 6d 65 |r making| a subme|
|00000840| 6e 75 20 6e 61 6d 65 2e | 22 29 0a 28 64 65 66 76 |nu name.|").(defv|
|00000850| 61 72 20 69 6d 65 6e 75 | 2d 63 72 65 61 74 65 2d |ar imenu|-create-|
|00000860| 69 6e 64 65 78 2d 66 75 | 6e 63 74 69 6f 6e 20 28 |index-fu|nction (|
|00000870| 71 75 6f 74 65 20 69 6d | 65 6e 75 2d 64 65 66 61 |quote im|enu-defa|
|00000880| 75 6c 74 2d 63 72 65 61 | 74 65 2d 69 6e 64 65 78 |ult-crea|te-index|
|00000890| 2d 66 75 6e 63 74 69 6f | 6e 29 20 22 5c 0a 54 68 |-functio|n) "\.Th|
|000008a0| 65 20 66 75 6e 63 74 69 | 6f 6e 20 74 6f 20 75 73 |e functi|on to us|
|000008b0| 65 20 66 6f 72 20 63 72 | 65 61 74 69 6e 67 20 61 |e for cr|eating a|
|000008c0| 20 62 75 66 66 65 72 20 | 69 6e 64 65 78 2e 0a 0a | buffer |index...|
|000008d0| 49 74 20 73 68 6f 75 6c | 64 20 62 65 20 61 20 66 |It shoul|d be a f|
|000008e0| 75 6e 63 74 69 6f 6e 20 | 74 68 61 74 20 74 61 6b |unction |that tak|
|000008f0| 65 73 20 6e 6f 20 61 72 | 67 75 6d 65 6e 74 73 20 |es no ar|guments |
|00000900| 61 6e 64 20 72 65 74 75 | 72 6e 73 20 61 6e 20 69 |and retu|rns an i|
|00000910| 6e 64 65 78 0a 6f 66 20 | 74 68 65 20 63 75 72 72 |ndex.of |the curr|
|00000920| 65 6e 74 20 62 75 66 66 | 65 72 20 61 73 20 61 6e |ent buff|er as an|
|00000930| 20 61 6c 69 73 74 2e 20 | 54 68 65 20 65 6c 65 6d | alist. |The elem|
|00000940| 65 6e 74 73 20 69 6e 20 | 74 68 65 20 61 6c 69 73 |ents in |the alis|
|00000950| 74 20 6c 6f 6f 6b 0a 6c | 69 6b 65 3a 20 28 49 4e |t look.l|ike: (IN|
|00000960| 44 45 58 2d 4e 41 4d 45 | 20 2e 20 49 4e 44 45 58 |DEX-NAME| . INDEX|
|00000970| 2d 50 4f 53 49 54 49 4f | 4e 29 2e 20 59 6f 75 20 |-POSITIO|N). You |
|00000980| 6d 61 79 20 61 6c 73 6f | 20 6e 65 73 74 20 69 6e |may also| nest in|
|00000990| 64 65 78 20 6c 69 73 74 | 20 6c 69 6b 65 0a 28 49 |dex list| like.(I|
|000009a0| 4e 44 45 58 2d 4e 41 4d | 45 20 2e 20 49 4e 44 45 |NDEX-NAM|E . INDE|
|000009b0| 58 2d 41 4c 49 53 54 29 | 2e 0a 0a 54 68 69 73 20 |X-ALIST)|...This |
|000009c0| 66 75 6e 63 74 69 6f 6e | 20 69 73 20 63 61 6c 6c |function| is call|
|000009d0| 65 64 20 77 69 74 68 69 | 6e 20 61 20 60 73 61 76 |ed withi|n a `sav|
|000009e0| 65 2d 65 78 63 75 72 73 | 69 6f 6e 27 2e 0a 0a 54 |e-excurs|ion'...T|
|000009f0| 68 65 20 76 61 72 69 61 | 62 6c 65 20 69 73 20 62 |he varia|ble is b|
|00000a00| 75 66 66 65 72 2d 6c 6f | 63 61 6c 2e 22 29 0a 28 |uffer-lo|cal.").(|
|00000a10| 6d 61 6b 65 2d 76 61 72 | 69 61 62 6c 65 2d 62 75 |make-var|iable-bu|
|00000a20| 66 66 65 72 2d 6c 6f 63 | 61 6c 20 28 71 75 6f 74 |ffer-loc|al (quot|
|00000a30| 65 20 69 6d 65 6e 75 2d | 63 72 65 61 74 65 2d 69 |e imenu-|create-i|
|00000a40| 6e 64 65 78 2d 66 75 6e | 63 74 69 6f 6e 29 29 0a |ndex-fun|ction)).|
|00000a50| 28 64 65 66 76 61 72 20 | 69 6d 65 6e 75 2d 70 72 |(defvar |imenu-pr|
|00000a60| 65 76 2d 69 6e 64 65 78 | 2d 70 6f 73 69 74 69 6f |ev-index|-positio|
|00000a70| 6e 2d 66 75 6e 63 74 69 | 6f 6e 20 28 71 75 6f 74 |n-functi|on (quot|
|00000a80| 65 20 62 65 67 69 6e 6e | 69 6e 67 2d 6f 66 2d 64 |e beginn|ing-of-d|
|00000a90| 65 66 75 6e 29 20 22 5c | 0a 46 75 6e 63 74 69 6f |efun) "\|.Functio|
|00000aa0| 6e 20 66 6f 72 20 66 69 | 6e 64 69 6e 67 20 74 68 |n for fi|nding th|
|00000ab0| 65 20 6e 65 78 74 20 69 | 6e 64 65 78 20 70 6f 73 |e next i|ndex pos|
|00000ac0| 69 74 69 6f 6e 2e 0a 0a | 49 66 20 60 69 6d 65 6e |ition...|If `imen|
|00000ad0| 75 2d 63 72 65 61 74 65 | 2d 69 6e 64 65 78 2d 66 |u-create|-index-f|
|00000ae0| 75 6e 63 74 69 6f 6e 27 | 20 69 73 20 73 65 74 20 |unction'| is set |
|00000af0| 74 6f 0a 60 69 6d 65 6e | 75 2d 64 65 66 61 75 6c |to.`imen|u-defaul|
|00000b00| 74 2d 63 72 65 61 74 65 | 2d 69 6e 64 65 78 2d 66 |t-create|-index-f|
|00000b10| 75 6e 63 74 69 6f 6e 27 | 2c 20 74 68 65 6e 20 79 |unction'|, then y|
|00000b20| 6f 75 20 6d 75 73 74 20 | 73 65 74 20 74 68 69 73 |ou must |set this|
|00000b30| 20 76 61 72 69 61 62 6c | 65 0a 74 6f 20 61 20 66 | variabl|e.to a f|
|00000b40| 75 6e 63 74 69 6f 6e 20 | 74 68 61 74 20 77 69 6c |unction |that wil|
|00000b50| 6c 20 66 69 6e 64 20 74 | 68 65 20 6e 65 78 74 20 |l find t|he next |
|00000b60| 69 6e 64 65 78 2c 20 6c | 6f 6f 6b 69 6e 67 20 62 |index, l|ooking b|
|00000b70| 61 63 6b 77 61 72 64 73 | 20 69 6e 20 74 68 65 0a |ackwards| in the.|
|00000b80| 66 69 6c 65 2e 0a 0a 54 | 68 65 20 66 75 6e 63 74 |file...T|he funct|
|00000b90| 69 6f 6e 20 73 68 6f 75 | 6c 64 20 6c 65 61 76 65 |ion shou|ld leave|
|00000ba0| 20 70 6f 69 6e 74 20 61 | 74 20 74 68 65 20 70 6c | point a|t the pl|
|00000bb0| 61 63 65 20 74 6f 20 62 | 65 20 63 6f 6e 6e 65 63 |ace to b|e connec|
|00000bc0| 74 65 64 20 74 6f 20 74 | 68 65 0a 69 6e 64 65 78 |ted to t|he.index|
|00000bd0| 20 61 6e 64 20 69 74 20 | 73 68 6f 75 6c 64 20 72 | and it |should r|
|00000be0| 65 74 75 72 6e 20 6e 69 | 6c 20 77 68 65 6e 20 69 |eturn ni|l when i|
|00000bf0| 74 20 64 6f 65 73 6e 27 | 74 20 66 69 6e 64 20 61 |t doesn'|t find a|
|00000c00| 6e 6f 74 68 65 72 20 69 | 6e 64 65 78 2e 20 22 29 |nother i|ndex. ")|
|00000c10| 0a 28 6d 61 6b 65 2d 76 | 61 72 69 61 62 6c 65 2d |.(make-v|ariable-|
|00000c20| 62 75 66 66 65 72 2d 6c | 6f 63 61 6c 20 28 71 75 |buffer-l|ocal (qu|
|00000c30| 6f 74 65 20 69 6d 65 6e | 75 2d 70 72 65 76 2d 69 |ote imen|u-prev-i|
|00000c40| 6e 64 65 78 2d 70 6f 73 | 69 74 69 6f 6e 2d 66 75 |ndex-pos|ition-fu|
|00000c50| 6e 63 74 69 6f 6e 29 29 | 0a 28 64 65 66 76 61 72 |nction))|.(defvar|
|00000c60| 20 69 6d 65 6e 75 2d 65 | 78 74 72 61 63 74 2d 69 | imenu-e|xtract-i|
|00000c70| 6e 64 65 78 2d 6e 61 6d | 65 2d 66 75 6e 63 74 69 |ndex-nam|e-functi|
|00000c80| 6f 6e 20 6e 69 6c 20 22 | 5c 0a 46 75 6e 63 74 69 |on nil "|\.Functi|
|00000c90| 6f 6e 20 66 6f 72 20 65 | 78 74 72 61 63 74 69 6e |on for e|xtractin|
|00000ca0| 67 20 74 68 65 20 69 6e | 64 65 78 20 6e 61 6d 65 |g the in|dex name|
|00000cb0| 2e 0a 0a 54 68 69 73 20 | 66 75 6e 63 74 69 6f 6e |...This |function|
|00000cc0| 20 69 73 20 63 61 6c 6c | 65 64 20 61 66 74 65 72 | is call|ed after|
|00000cd0| 20 74 68 65 20 66 75 6e | 63 74 69 6f 6e 20 70 6f | the fun|ction po|
|00000ce0| 69 6e 74 65 64 20 6f 75 | 74 20 62 79 0a 60 69 6d |inted ou|t by.`im|
|00000cf0| 65 6e 75 2d 70 72 65 76 | 2d 69 6e 64 65 78 2d 70 |enu-prev|-index-p|
|00000d00| 6f 73 69 74 69 6f 6e 2d | 66 75 6e 63 74 69 6f 6e |osition-|function|
|00000d10| 27 2e 22 29 0a 28 62 79 | 74 65 2d 63 6f 64 65 20 |'.").(by|te-code |
|00000d20| 22 c0 c1 21 88 c2 13 c4 | c5 21 84 0e 00 c6 15 c0 |"..!....|.!......|
|00000d30| c5 21 88 c4 c7 21 84 1b | 00 c6 16 07 c0 c7 21 88 |.!...!..|......!.|
|00000d40| c8 c9 ca 5c 22 88 c8 cb | cc 5c 22 88 c8 cd ce 5c |...\"...|.\"....\|
|00000d50| 22 88 c8 cf d0 5c 22 88 | c8 d1 d2 5c 22 88 c8 d3 |"....\".|...\"...|
|00000d60| d4 5c 22 88 c8 d5 d6 5c | 22 87 22 20 5b 6d 61 6b |.\"....\|"." [mak|
|00000d70| 65 2d 76 61 72 69 61 62 | 6c 65 2d 62 75 66 66 65 |e-variab|le-buffe|
|00000d80| 72 2d 6c 6f 63 61 6c 20 | 69 6d 65 6e 75 2d 65 78 |r-local |imenu-ex|
|00000d90| 74 72 61 63 74 2d 69 6e | 64 65 78 2d 6e 61 6d 65 |tract-in|dex-name|
|00000da0| 2d 66 75 6e 63 74 69 6f | 6e 20 28 22 2a 52 65 73 |-functio|n ("*Res|
|00000db0| 63 61 6e 2a 22 20 2e 20 | 2d 39 39 29 20 69 6d 65 |can*" . |-99) ime|
|00000dc0| 6e 75 2d 2d 72 65 73 63 | 61 6e 2d 69 74 65 6d 20 |nu--resc|an-item |
|00000dd0| 62 6f 75 6e 64 70 20 69 | 6d 65 6e 75 2d 2d 69 6e |boundp i|menu--in|
|00000de0| 64 65 78 2d 61 6c 69 73 | 74 20 6e 69 6c 20 69 6d |dex-alis|t nil im|
|00000df0| 65 6e 75 2d 2d 68 69 73 | 74 6f 72 79 2d 6c 69 73 |enu--his|tory-lis|
|00000e00| 74 20 64 65 66 61 6c 69 | 61 73 20 69 6d 65 6e 75 |t defali|as imenu|
|00000e10| 2d 2d 73 6f 72 74 2d 62 | 79 2d 6e 61 6d 65 20 23 |--sort-b|y-name #|
|00000e20| 5b 28 69 74 65 6d 31 20 | 69 74 65 6d 32 29 20 22 |[(item1 |item2) "|
|00000e30| 08 40 09 40 99 87 22 20 | 5b 69 74 65 6d 31 20 69 |.@.@.." |[item1 i|
|00000e40| 74 65 6d 32 5d 20 32 5d | 20 69 6d 65 6e 75 2d 2d |tem2] 2]| imenu--|
|00000e50| 72 65 6c 61 74 69 76 65 | 2d 70 6f 73 69 74 69 6f |relative|-positio|
|00000e60| 6e 20 23 5b 28 26 6f 70 | 74 69 6f 6e 61 6c 20 72 |n #[(&op|tional r|
|00000e70| 65 76 65 72 73 65 29 20 | 22 60 c0 20 19 1a 0b 83 |everse) |"`. ....|
|00000e80| 0d 00 09 5c 6e 5a 12 09 | c4 56 83 1e 00 5c 6e 53 |...\nZ..|.V...\nS|
|00000e90| 09 c5 a5 c6 5d a5 82 26 | 00 5c 6e 53 c5 5f 09 c6 |....]..&|.\nS._..|
|00000ea0| 5d a5 2a 87 22 20 5b 62 | 75 66 66 65 72 2d 73 69 |].*." [b|uffer-si|
|00000eb0| 7a 65 20 74 6f 74 61 6c | 20 70 6f 73 20 72 65 76 |ze total| pos rev|
|00000ec0| 65 72 73 65 20 35 30 30 | 30 30 20 31 30 30 20 31 |erse 500|00 100 1|
|00000ed0| 5d 20 33 5d 20 69 6d 65 | 6e 75 2d 70 72 6f 67 72 |] 3] ime|nu-progr|
|00000ee0| 65 73 73 2d 6d 65 73 73 | 61 67 65 20 28 6d 61 63 |ess-mess|age (mac|
|00000ef0| 72 6f 20 2e 20 23 5b 28 | 26 6f 70 74 69 6f 6e 61 |ro . #[(|&optiona|
|00000f00| 6c 20 72 65 6c 70 6f 73 | 20 72 65 76 65 72 73 65 |l relpos| reverse|
|00000f10| 29 20 22 c0 c1 c2 c1 0b | 83 5c 66 00 0b 82 0f 00 |) ".....|.\f.....|
|00000f20| c4 0d 44 45 45 87 22 20 | 5b 61 6e 64 20 69 6d 65 |..DEE." |[and ime|
|00000f30| 6e 75 2d 73 63 61 6e 6e | 69 6e 67 2d 6d 65 73 73 |nu-scann|ing-mess|
|00000f40| 61 67 65 20 6d 65 73 73 | 61 67 65 20 72 65 6c 70 |age mess|age relp|
|00000f50| 6f 73 20 69 6d 65 6e 75 | 2d 2d 72 65 6c 61 74 69 |os imenu|--relati|
|00000f60| 76 65 2d 70 6f 73 69 74 | 69 6f 6e 20 72 65 76 65 |ve-posit|ion reve|
|00000f70| 72 73 65 5d 20 36 5d 29 | 20 69 6d 65 6e 75 2d 63 |rse] 6])| imenu-c|
|00000f80| 72 65 61 74 65 2d 73 75 | 62 6d 65 6e 75 2d 6e 61 |reate-su|bmenu-na|
|00000f90| 6d 65 20 23 5b 28 6e 61 | 6d 65 29 20 22 c0 09 5c |me #[(na|me) "..\|
|00000fa0| 6e 5c 22 87 22 20 5b 66 | 6f 72 6d 61 74 20 69 6d |n\"." [f|ormat im|
|00000fb0| 65 6e 75 2d 73 75 62 6d | 65 6e 75 2d 6e 61 6d 65 |enu-subm|enu-name|
|00000fc0| 2d 66 6f 72 6d 61 74 20 | 6e 61 6d 65 5d 20 33 5d |-format |name] 3]|
|00000fd0| 20 69 6d 65 6e 75 2d 2d | 73 70 6c 69 74 20 23 5b | imenu--|split #[|
|00000fe0| 28 6c 69 73 74 20 6e 29 | 20 22 08 c1 89 c2 1b 1c |(list n)| "......|
|00000ff0| 1d 1e 06 0e 06 83 2e 00 | 0e 06 89 41 16 06 40 5c |........|...A..@\|
|00001000| 66 42 14 0b 54 89 13 0e | 07 55 83 09 00 5c 66 9f |fB..T...|.U...\f.|
|00001010| 0d 42 15 c2 13 c1 14 82 | 09 00 5c 66 83 37 00 5c |.B......|..\f.7.\|
|00001020| 66 9f 0d 42 15 0d 9f 2c | 87 22 20 5b 6c 69 73 74 |f..B...,|." [list|
|00001030| 20 6e 69 6c 20 30 20 69 | 20 73 75 62 6c 69 73 74 | nil 0 i| sublist|
|00001040| 20 72 65 73 75 6c 74 20 | 72 65 6d 61 69 6e 20 6e | result |remain n|
|00001050| 5d 20 35 5d 20 69 6d 65 | 6e 75 2d 2d 73 70 6c 69 |] 5] ime|nu--spli|
|00001060| 74 2d 6d 65 6e 75 20 23 | 5b 28 6d 65 6e 75 6c 69 |t-menu #|[(menuli|
|00001070| 73 74 20 74 69 74 6c 65 | 29 20 22 c0 c1 c2 c3 5c |st title|) "....\|
|00001080| 66 0d 5c 22 5c 22 42 87 | 22 20 5b 22 46 75 6e 63 |f.\"\"B.|" ["Func|
|00001090| 74 69 6f 6e 20 6d 65 6e | 75 73 22 20 6d 61 70 63 |tion men|us" mapc|
|000010a0| 61 72 20 23 5b 28 6d 65 | 6e 75 29 20 22 c0 c1 5c |ar #[(me|nu) "..\|
|000010b0| 6e 5c 22 0b 42 87 22 20 | 5b 66 6f 72 6d 61 74 20 |n\".B." |[format |
|000010c0| 22 28 25 73 29 22 20 74 | 69 74 6c 65 20 6d 65 6e |"(%s)" t|itle men|
|000010d0| 75 5d 20 33 5d 20 69 6d | 65 6e 75 2d 2d 73 70 6c |u] 3] im|enu--spl|
|000010e0| 69 74 20 6d 65 6e 75 6c | 69 73 74 20 69 6d 65 6e |it menul|ist imen|
|000010f0| 75 2d 6d 61 78 2d 69 74 | 65 6d 73 5d 20 36 5d 20 |u-max-it|ems] 6] |
|00001100| 69 6d 65 6e 75 2d 2d 6d | 61 6b 65 2d 69 6e 64 65 |imenu--m|ake-inde|
|00001110| 78 2d 61 6c 69 73 74 20 | 23 5b 6e 69 6c 20 22 08 |x-alist |#[nil ".|
|00001120| 84 09 00 8a 09 20 29 10 | 08 84 11 00 c2 c3 21 88 |..... ).|......!.|
|00001130| 5c 66 08 42 87 22 20 5b | 69 6d 65 6e 75 2d 2d 69 |\f.B." [|imenu--i|
|00001140| 6e 64 65 78 2d 61 6c 69 | 73 74 20 69 6d 65 6e 75 |ndex-ali|st imenu|
|00001150| 2d 63 72 65 61 74 65 2d | 69 6e 64 65 78 2d 66 75 |-create-|index-fu|
|00001160| 6e 63 74 69 6f 6e 20 65 | 72 72 6f 72 20 22 4e 6f |nction e|rror "No|
|00001170| 20 69 74 65 6d 73 20 73 | 75 69 74 61 62 6c 65 20 | items s|uitable |
|00001180| 66 6f 72 20 61 6e 20 69 | 6e 64 65 78 20 66 6f 75 |for an i|ndex fou|
|00001190| 6e 64 20 69 6e 20 74 68 | 69 73 20 62 75 66 66 65 |nd in th|is buffe|
|000011a0| 72 2e 22 20 69 6d 65 6e | 75 2d 2d 72 65 73 63 61 |r." imen|u--resca|
|000011b0| 6e 2d 69 74 65 6d 5d 20 | 32 5d 5d 20 33 29 0a 28 |n-item] |2]] 3).(|
|000011c0| 64 65 66 61 6c 69 61 73 | 20 27 69 6d 65 6e 75 2d |defalias| 'imenu-|
|000011d0| 64 65 66 61 75 6c 74 2d | 63 72 65 61 74 65 2d 69 |default-|create-i|
|000011e0| 6e 64 65 78 2d 66 75 6e | 63 74 69 6f 6e 20 23 5b |ndex-fun|ction #[|
|000011f0| 6e 69 6c 20 22 08 c1 3d | 83 09 00 c2 20 87 08 c3 |nil "..=|.... ...|
|00001200| 3d 83 12 00 c2 20 87 08 | c4 3d 83 1b 00 c5 20 87 |=.... ..|.=.... .|
|00001210| 08 c6 3d 83 24 00 c7 20 | 87 c8 0e 09 21 83 32 00 |..=.$.. |....!.2.|
|00001220| c8 0e 5c 6e 21 84 38 00 | cb cc 0e 0d 5c 22 88 ce |..\n!.8.|....\"..|
|00001230| 89 1e 0f 1e 10 64 62 88 | 0e 11 83 4c 00 d2 0e 11 |.....db.|...L....|
|00001240| d3 5c 22 88 0e 09 20 83 | 78 00 0e 11 83 5f 00 d2 |.\"... .|x...._..|
|00001250| 0e 11 d4 d5 21 5c 22 88 | 8a 0e 5c 6e 20 16 0f 29 |....!\".|..\n ..)|
|00001260| 0e 0f 3b 83 4c 00 0e 0f | 60 42 0e 10 42 16 10 82 |..;.L...|`B..B...|
|00001270| 4c 00 0e 11 83 83 00 d2 | 0e 11 d6 5c 22 88 0e 10 |L.......|...\"...|
|00001280| 2a 87 22 20 5b 6d 61 6a | 6f 72 2d 6d 6f 64 65 20 |*." [maj|or-mode |
|00001290| 65 6d 61 63 73 2d 6c 69 | 73 70 2d 6d 6f 64 65 20 |emacs-li|sp-mode |
|000012a0| 69 6d 65 6e 75 2d 65 78 | 61 6d 70 6c 65 2d 2d 63 |imenu-ex|ample--c|
|000012b0| 72 65 61 74 65 2d 6c 69 | 73 70 2d 69 6e 64 65 78 |reate-li|sp-index|
|000012c0| 20 6c 69 73 70 2d 6d 6f | 64 65 20 63 2b 2b 2d 6d | lisp-mo|de c++-m|
|000012d0| 6f 64 65 20 69 6d 65 6e | 75 2d 65 78 61 6d 70 6c |ode imen|u-exampl|
|000012e0| 65 2d 2d 63 72 65 61 74 | 65 2d 63 2b 2b 2d 69 6e |e--creat|e-c++-in|
|000012f0| 64 65 78 20 63 2d 6d 6f | 64 65 20 69 6d 65 6e 75 |dex c-mo|de imenu|
|00001300| 2d 65 78 61 6d 70 6c 65 | 2d 2d 63 72 65 61 74 65 |-example|--create|
|00001310| 2d 63 2d 69 6e 64 65 78 | 20 66 62 6f 75 6e 64 70 |-c-index| fboundp|
|00001320| 20 69 6d 65 6e 75 2d 70 | 72 65 76 2d 69 6e 64 65 | imenu-p|rev-inde|
|00001330| 78 2d 70 6f 73 69 74 69 | 6f 6e 2d 66 75 6e 63 74 |x-positi|on-funct|
|00001340| 69 6f 6e 20 69 6d 65 6e | 75 2d 65 78 74 72 61 63 |ion imen|u-extrac|
|00001350| 74 2d 69 6e 64 65 78 2d | 6e 61 6d 65 2d 66 75 6e |t-index-|name-fun|
|00001360| 63 74 69 6f 6e 20 65 72 | 72 6f 72 20 22 54 68 65 |ction er|ror "The|
|00001370| 20 6d 6f 64 65 20 5c 22 | 25 73 5c 22 20 64 6f 65 | mode \"|%s\" doe|
|00001380| 73 20 6e 6f 74 20 74 61 | 6b 65 20 66 75 6c 6c 20 |s not ta|ke full |
|00001390| 61 64 76 61 6e 74 61 67 | 65 20 6f 66 20 69 6d 65 |advantag|e of ime|
|000013a0| 6e 75 2e 65 6c 20 79 65 | 74 2e 22 20 6d 6f 64 65 |nu.el ye|t." mode|
|000013b0| 2d 6e 61 6d 65 20 6e 69 | 6c 20 6e 61 6d 65 20 69 |-name ni|l name i|
|000013c0| 6e 64 65 78 2d 61 6c 69 | 73 74 20 69 6d 65 6e 75 |ndex-ali|st imenu|
|000013d0| 2d 73 63 61 6e 6e 69 6e | 67 2d 6d 65 73 73 61 67 |-scannin|g-messag|
|000013e0| 65 20 6d 65 73 73 61 67 | 65 20 30 20 69 6d 65 6e |e messag|e 0 imen|
|000013f0| 75 2d 2d 72 65 6c 61 74 | 69 76 65 2d 70 6f 73 69 |u--relat|ive-posi|
|00001400| 74 69 6f 6e 20 74 20 31 | 30 30 5d 20 34 20 22 5c |tion t 1|00] 4 "\|
|00001410| 0a 2a 57 72 61 70 70 65 | 72 20 66 6f 72 20 69 6e |.*Wrappe|r for in|
|00001420| 64 65 78 20 73 65 61 72 | 63 68 69 6e 67 20 66 75 |dex sear|ching fu|
|00001430| 6e 63 74 69 6f 6e 73 2e | 0a 0a 4d 6f 76 65 73 20 |nctions.|..Moves |
|00001440| 70 6f 69 6e 74 20 74 6f | 20 65 6e 64 20 6f 66 20 |point to| end of |
|00001450| 62 75 66 66 65 72 20 61 | 6e 64 20 74 68 65 6e 20 |buffer a|nd then |
|00001460| 72 65 70 65 61 74 65 64 | 6c 79 20 63 61 6c 6c 73 |repeated|ly calls|
|00001470| 0a 60 69 6d 65 6e 75 2d | 70 72 65 76 2d 69 6e 64 |.`imenu-|prev-ind|
|00001480| 65 78 2d 70 6f 73 69 74 | 69 6f 6e 2d 66 75 6e 63 |ex-posit|ion-func|
|00001490| 74 69 6f 6e 27 20 61 6e | 64 20 60 69 6d 65 6e 75 |tion' an|d `imenu|
|000014a0| 2d 65 78 74 72 61 63 74 | 2d 69 6e 64 65 78 2d 6e |-extract|-index-n|
|000014b0| 61 6d 65 2d 66 75 6e 63 | 74 69 6f 6e 27 2e 0a 54 |ame-func|tion'..T|
|000014c0| 68 65 69 72 20 72 65 73 | 75 6c 74 73 20 61 72 65 |heir res|ults are|
|000014d0| 20 67 61 74 68 65 72 65 | 64 20 69 6e 74 6f 20 61 | gathere|d into a|
|000014e0| 6e 20 69 6e 64 65 78 20 | 61 6c 69 73 74 2e 22 5d |n index |alist."]|
|000014f0| 29 0a 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 c1 |).(byte-|code "..|
|00001500| c2 5c 22 88 c0 c3 c4 5c | 22 87 22 20 5b 64 65 66 |.\"....\|"." [def|
|00001510| 61 6c 69 61 73 20 69 6d | 65 6e 75 2d 2d 72 65 70 |alias im|enu--rep|
|00001520| 6c 61 63 65 2d 73 70 61 | 63 65 73 20 23 5b 28 6e |lace-spa|ces #[(n|
|00001530| 61 6d 65 20 72 65 70 6c | 61 63 65 6d 65 6e 74 29 |ame repl|acement)|
|00001540| 20 22 c0 c1 5c 6e c3 23 | 87 22 20 5b 6d 61 70 63 | "..\n.#|." [mapc|
|00001550| 6f 6e 63 61 74 20 23 5b | 28 63 68 29 20 22 c0 09 |oncat #[|(ch) "..|
|00001560| c2 5c 22 83 09 00 0b 87 | c4 09 21 87 22 20 5b 63 |.\".....|..!." [c|
|00001570| 68 61 72 2d 65 71 75 61 | 6c 20 63 68 20 33 32 20 |har-equa|l ch 32 |
|00001580| 72 65 70 6c 61 63 65 6d | 65 6e 74 20 63 68 61 72 |replacem|ent char|
|00001590| 2d 74 6f 2d 73 74 72 69 | 6e 67 5d 20 33 5d 20 6e |-to-stri|ng] 3] n|
|000015a0| 61 6d 65 20 22 22 5d 20 | 34 5d 20 69 6d 65 6e 75 |ame ""] |4] imenu|
|000015b0| 2d 2d 66 6c 61 74 74 65 | 6e 2d 69 6e 64 65 78 2d |--flatte|n-index-|
|000015c0| 61 6c 69 73 74 20 23 5b | 28 69 6e 64 65 78 2d 61 |alist #[|(index-a|
|000015d0| 6c 69 73 74 20 26 6f 70 | 74 69 6f 6e 61 6c 20 63 |list &op|tional c|
|000015e0| 6f 6e 63 61 74 2d 6e 61 | 6d 65 73 20 70 72 65 66 |oncat-na|mes pref|
|000015f0| 69 78 29 20 22 c0 c1 5c | 6e 5c 22 87 22 20 5b 6d |ix) "..\|n\"." [m|
|00001600| 61 70 63 61 6e 20 23 5b | 28 69 74 65 6d 29 20 22 |apcan #[|(item) "|
|00001610| 08 40 19 08 41 1a 0b 85 | 16 00 5c 66 83 15 00 5c |.@..A...|..\f...\|
|00001620| 66 0d 09 51 82 16 00 09 | 1e 06 5c 6e a7 83 25 00 |f..Q....|..\n..%.|
|00001630| 0e 06 5c 6e 42 43 82 2a | 00 c7 5c 6e 0e 06 5c 22 |..\nBC.*|..\n..\"|
|00001640| 2b 87 22 20 5b 69 74 65 | 6d 20 6e 61 6d 65 20 70 |+." [ite|m name p|
|00001650| 6f 73 20 63 6f 6e 63 61 | 74 2d 6e 61 6d 65 73 20 |os conca|t-names |
|00001660| 70 72 65 66 69 78 20 69 | 6d 65 6e 75 2d 6c 65 76 |prefix i|menu-lev|
|00001670| 65 6c 2d 73 65 70 61 72 | 61 74 6f 72 20 6e 65 77 |el-separ|ator new|
|00001680| 2d 70 72 65 66 69 78 20 | 69 6d 65 6e 75 2d 2d 66 |-prefix |imenu--f|
|00001690| 6c 61 74 74 65 6e 2d 69 | 6e 64 65 78 2d 61 6c 69 |latten-i|ndex-ali|
|000016a0| 73 74 5d 20 33 5d 20 69 | 6e 64 65 78 2d 61 6c 69 |st] 3] i|ndex-ali|
|000016b0| 73 74 5d 20 33 5d 5d 20 | 33 29 0a 28 64 65 66 61 |st] 3]] |3).(defa|
|000016c0| 6c 69 61 73 20 27 69 6d | 65 6e 75 2d 2d 63 6f 6d |lias 'im|enu--com|
|000016d0| 70 6c 65 74 69 6f 6e 2d | 62 75 66 66 65 72 20 23 |pletion-|buffer #|
|000016e0| 5b 28 69 6e 64 65 78 2d | 61 6c 69 73 74 20 26 6f |[(index-|alist &o|
|000016f0| 70 74 69 6f 6e 61 6c 20 | 70 72 6f 6d 70 74 29 20 |ptional |prompt) |
|00001700| 22 c0 89 c1 c2 0b 5c 22 | 1c 1d 1e 06 c7 8b 88 0e |".....\"|........|
|00001710| 06 3b 84 17 00 c0 82 3a | 00 0e 06 0e 08 40 98 83 |.;.....:|.....@..|
|00001720| 24 00 c9 82 3a 00 ca 0e | 06 5c 66 5c 22 89 15 41 |$...:...|.\f\"..A|
|00001730| 3c 83 39 00 cb 0d 41 0e | 5c 66 5c 22 82 3a 00 0d |<.9...A.|\f\".:..|
|00001740| 2b 87 22 20 5b 6e 69 6c | 20 6d 61 70 63 61 72 20 |+." [nil| mapcar |
|00001750| 23 5b 28 69 74 65 6d 29 | 20 22 c0 09 40 5c 6e 5c |#[(item)| "..@\n\|
|00001760| 22 09 41 42 87 22 20 5b | 69 6d 65 6e 75 2d 2d 72 |".AB." [|imenu--r|
|00001770| 65 70 6c 61 63 65 2d 73 | 70 61 63 65 73 20 69 74 |eplace-s|paces it|
|00001780| 65 6d 20 69 6d 65 6e 75 | 2d 73 70 61 63 65 2d 72 |em imenu|-space-r|
|00001790| 65 70 6c 61 63 65 6d 65 | 6e 74 5d 20 33 5d 20 69 |eplaceme|nt] 3] i|
|000017a0| 6e 64 65 78 2d 61 6c 69 | 73 74 20 70 72 65 70 61 |ndex-ali|st prepa|
|000017b0| 72 65 64 2d 69 6e 64 65 | 78 2d 61 6c 69 73 74 20 |red-inde|x-alist |
|000017c0| 63 68 6f 69 63 65 20 6e | 61 6d 65 20 28 28 62 79 |choice n|ame ((by|
|000017d0| 74 65 2d 63 6f 64 65 20 | 22 c0 90 c1 c2 c3 5c 66 |te-code |".....\f|
|000017e0| 5c 22 21 91 88 c5 1e 06 | c7 0e 08 86 14 00 c9 5c |\"!.....|.......\|
|000017f0| 66 ca cb ca cc 26 06 16 | 0d 29 ca 87 22 20 5b 22 |f....&..|.).." ["|
|00001800| 2a 43 6f 6d 70 6c 65 74 | 69 6f 6e 73 2a 22 20 64 |*Complet|ions*" d|
|00001810| 69 73 70 6c 61 79 2d 63 | 6f 6d 70 6c 65 74 69 6f |isplay-c|ompletio|
|00001820| 6e 2d 6c 69 73 74 20 61 | 6c 6c 2d 63 6f 6d 70 6c |n-list a|ll-compl|
|00001830| 65 74 69 6f 6e 73 20 22 | 22 20 70 72 65 70 61 72 |etions "|" prepar|
|00001840| 65 64 2d 69 6e 64 65 78 | 2d 61 6c 69 73 74 20 23 |ed-index|-alist #|
|00001850| 5b 6e 69 6c 20 22 70 18 | 8a c1 71 88 08 89 12 2a |[nil "p.|..q....*|
|00001860| 87 22 20 5b 62 75 66 66 | 65 72 20 22 2a 43 6f 6d |." [buff|er "*Com|
|00001870| 70 6c 65 74 69 6f 6e 73 | 2a 22 20 63 6f 6d 70 6c |pletions|*" compl|
|00001880| 65 74 69 6f 6e 2d 72 65 | 66 65 72 65 6e 63 65 2d |etion-re|ference-|
|00001890| 62 75 66 66 65 72 5d 20 | 32 5d 20 6d 69 6e 69 62 |buffer] |2] minib|
|000018a0| 75 66 66 65 72 2d 73 65 | 74 75 70 2d 68 6f 6f 6b |uffer-se|tup-hook|
|000018b0| 20 63 6f 6d 70 6c 65 74 | 69 6e 67 2d 72 65 61 64 | complet|ing-read|
|000018c0| 20 70 72 6f 6d 70 74 20 | 22 49 6e 64 65 78 20 69 | prompt |"Index i|
|000018d0| 74 65 6d 3a 20 22 20 6e | 69 6c 20 74 20 69 6d 65 |tem: " n|il t ime|
|000018e0| 6e 75 2d 2d 68 69 73 74 | 6f 72 79 2d 6c 69 73 74 |nu--hist|ory-list|
|000018f0| 20 6e 61 6d 65 5d 20 37 | 29 29 20 69 6d 65 6e 75 | name] 7|)) imenu|
|00001900| 2d 2d 72 65 73 63 61 6e | 2d 69 74 65 6d 20 74 20 |--rescan|-item t |
|00001910| 61 73 73 6f 63 20 69 6d | 65 6e 75 2d 2d 63 6f 6d |assoc im|enu--com|
|00001920| 70 6c 65 74 69 6f 6e 2d | 62 75 66 66 65 72 20 70 |pletion-|buffer p|
|00001930| 72 6f 6d 70 74 5d 20 36 | 20 22 5c 0a 4c 65 74 20 |rompt] 6| "\.Let |
|00001940| 74 68 65 20 75 73 65 72 | 20 73 65 6c 65 63 74 20 |the user| select |
|00001950| 66 72 6f 6d 20 49 4e 44 | 45 58 2d 41 4c 49 53 54 |from IND|EX-ALIST|
|00001960| 20 69 6e 20 61 20 63 6f | 6d 70 6c 65 74 69 6f 6e | in a co|mpletion|
|00001970| 20 62 75 66 66 65 72 20 | 77 69 74 68 20 50 52 4f | buffer |with PRO|
|00001980| 4d 50 54 2e 0a 0a 52 65 | 74 75 72 6e 73 20 74 20 |MPT...Re|turns t |
|00001990| 66 6f 72 20 72 65 73 63 | 61 6e 20 61 6e 64 20 6f |for resc|an and o|
|000019a0| 74 68 65 72 77 69 73 65 | 20 61 20 70 6f 73 69 74 |therwise| a posit|
|000019b0| 69 6f 6e 20 6e 75 6d 62 | 65 72 2e 22 5d 29 0a 28 |ion numb|er."]).(|
|000019c0| 64 65 66 61 6c 69 61 73 | 20 27 69 6d 65 6e 75 2d |defalias| 'imenu-|
|000019d0| 2d 6d 6f 75 73 65 2d 6d | 65 6e 75 20 23 5b 28 69 |-mouse-m|enu #[(i|
|000019e0| 6e 64 65 78 2d 61 6c 69 | 73 74 20 65 76 65 6e 74 |ndex-ali|st event|
|000019f0| 20 26 6f 70 74 69 6f 6e | 61 6c 20 74 69 74 6c 65 | &option|al title|
|00001a00| 29 20 22 c0 09 83 2b 00 | c2 c3 5c 66 1d 1e 06 0d |) "...+.|..\f....|
|00001a10| 3a 83 1d 00 0d 89 41 15 | 40 0e 06 42 16 06 82 0b |:.....A.|@..B....|
|00001a20| 00 0e 06 9f 0e 06 0d a1 | 88 2a 09 5c 22 82 2c 00 |........|.*.\".,.|
|00001a30| 5c 66 0e 07 86 33 00 c8 | 20 5c 22 1e 09 c3 1e 5c |\f...3..| \"....\|
|00001a40| 6e cb 0e 5c 66 0e 09 5c | 22 89 16 5c 6e c3 3d 83 |n..\f..\|"..\n.=.|
|00001a50| 4c 00 0e 5c 6e 82 86 00 | 0e 5c 6e 3c 83 74 00 cd |L..\n...|.\n<.t..|
|00001a60| 0e 5c 6e 0e 5c 66 0e 07 | 83 6a 00 0e 07 0e 0e cf |.\n.\f..|.j......|
|00001a70| 0e 5c 6e 5c 66 5c 22 40 | 51 82 70 00 cf 0e 5c 6e |.\n\f\"@|Q.p...\n|
|00001a80| 5c 66 5c 22 40 23 82 86 | 00 0e 5c 6e 0e 10 41 55 |\f\"@#..|..\n..AU|
|00001a90| 83 81 00 d1 82 86 00 cf | 0e 5c 6e 5c 66 5c 22 2a |........|.\n\f\"*|
|00001aa0| 87 22 20 5b 69 6d 65 6e | 75 2d 2d 73 70 6c 69 74 |." [imen|u--split|
|00001ab0| 2d 6d 65 6e 75 20 69 6d | 65 6e 75 2d 73 6f 72 74 |-menu im|enu-sort|
|00001ac0| 2d 66 75 6e 63 74 69 6f | 6e 20 73 6f 72 74 20 6e |-functio|n sort n|
|00001ad0| 69 6c 20 69 6e 64 65 78 | 2d 61 6c 69 73 74 20 6f |il index|-alist o|
|00001ae0| 6c 64 6c 69 73 74 20 72 | 65 73 20 74 69 74 6c 65 |ldlist r|es title|
|00001af0| 20 62 75 66 66 65 72 2d | 6e 61 6d 65 20 6d 65 6e | buffer-|name men|
|00001b00| 75 20 70 6f 73 69 74 69 | 6f 6e 20 78 2d 70 6f 70 |u positi|on x-pop|
|00001b10| 75 70 2d 6d 65 6e 75 20 | 65 76 65 6e 74 20 69 6d |up-menu |event im|
|00001b20| 65 6e 75 2d 2d 6d 6f 75 | 73 65 2d 6d 65 6e 75 20 |enu--mou|se-menu |
|00001b30| 69 6d 65 6e 75 2d 6c 65 | 76 65 6c 2d 73 65 70 61 |imenu-le|vel-sepa|
|00001b40| 72 61 74 6f 72 20 72 61 | 73 73 71 20 69 6d 65 6e |rator ra|ssq imen|
|00001b50| 75 2d 2d 72 65 73 63 61 | 6e 2d 69 74 65 6d 20 74 |u--resca|n-item t|
|00001b60| 5d 20 39 20 22 5c 0a 4c | 65 74 20 74 68 65 20 75 |] 9 "\.L|et the u|
|00001b70| 73 65 72 20 73 65 6c 65 | 63 74 20 66 72 6f 6d 20 |ser sele|ct from |
|00001b80| 61 20 62 75 66 66 65 72 | 20 69 6e 64 65 78 20 66 |a buffer| index f|
|00001b90| 72 6f 6d 20 61 20 6d 6f | 75 73 65 20 6d 65 6e 75 |rom a mo|use menu|
|00001ba0| 2e 0a 0a 49 4e 44 45 58 | 2d 41 4c 49 53 54 20 69 |...INDEX|-ALIST i|
|00001bb0| 73 20 74 68 65 20 62 75 | 66 66 65 72 20 69 6e 64 |s the bu|ffer ind|
|00001bc0| 65 78 20 61 6e 64 20 45 | 56 45 4e 54 20 69 73 20 |ex and E|VENT is |
|00001bd0| 61 20 6d 6f 75 73 65 20 | 65 76 65 6e 74 2e 0a 0a |a mouse |event...|
|00001be0| 52 65 74 75 72 6e 73 20 | 74 20 66 6f 72 20 72 65 |Returns |t for re|
|00001bf0| 73 63 61 6e 20 61 6e 64 | 20 6f 74 68 65 72 77 69 |scan and| otherwi|
|00001c00| 73 65 20 61 20 70 6f 73 | 69 74 69 6f 6e 20 6e 75 |se a pos|ition nu|
|00001c10| 6d 62 65 72 2e 22 5d 29 | 0a 28 64 65 66 61 6c 69 |mber."])|.(defali|
|00001c20| 61 73 20 27 69 6d 65 6e | 75 2d 63 68 6f 6f 73 65 |as 'imen|u-choose|
|00001c30| 2d 62 75 66 66 65 72 2d | 69 6e 64 65 78 20 23 5b |-buffer-|index #[|
|00001c40| 28 26 6f 70 74 69 6f 6e | 61 6c 20 70 72 6f 6d 70 |(&option|al promp|
|00001c50| 74 20 61 6c 69 73 74 29 | 20 22 c0 09 3c c2 1b 1c |t alist)| "..<...|
|00001c60| 1d 5c 66 83 26 00 09 89 | 1e 06 41 40 29 89 1e 07 |.\f.&...|..A@)...|
|00001c70| 40 29 1e 08 c9 0e 08 21 | 84 25 00 ca 0e 08 21 88 |@).....!|.%....!.|
|00001c80| 29 0b c2 3d 83 5b 00 0e | 0b 83 36 00 0e 0b 82 38 |)..=.[..|..6....8|
|00001c90| 00 cc 20 15 5c 66 83 49 | 00 0e 0d 84 49 00 ce 0d |.. .\f.I|....I...|
|00001ca0| 09 5c 22 82 4e 00 cf 0d | 0e 10 5c 22 89 13 c2 3d |.\".N...|..\"...=|
|00001cb0| 83 26 00 c0 16 11 82 26 | 00 0b 2b 87 22 20 5b 6e |.&.....&|..+." [n|
|00001cc0| 69 6c 20 6c 61 73 74 2d | 63 6f 6d 6d 61 6e 64 2d |il last-|command-|
|00001cd0| 65 76 65 6e 74 20 74 20 | 72 65 73 75 6c 74 20 6d |event t |result m|
|00001ce0| 6f 75 73 65 2d 74 72 69 | 67 67 65 72 65 64 20 69 |ouse-tri|ggered i|
|00001cf0| 6e 64 65 78 2d 61 6c 69 | 73 74 20 65 76 65 6e 74 |ndex-ali|st event|
|00001d00| 20 70 6f 73 69 74 69 6f | 6e 20 77 69 6e 64 6f 77 | positio|n window|
|00001d10| 20 66 72 61 6d 65 70 20 | 73 65 6c 65 63 74 2d 77 | framep |select-w|
|00001d20| 69 6e 64 6f 77 20 61 6c | 69 73 74 20 69 6d 65 6e |indow al|ist imen|
|00001d30| 75 2d 2d 6d 61 6b 65 2d | 69 6e 64 65 78 2d 61 6c |u--make-|index-al|
|00001d40| 69 73 74 20 69 6d 65 6e | 75 2d 61 6c 77 61 79 73 |ist imen|u-always|
|00001d50| 2d 75 73 65 2d 63 6f 6d | 70 6c 65 74 69 6f 6e 2d |-use-com|pletion-|
|00001d60| 62 75 66 66 65 72 2d 70 | 20 69 6d 65 6e 75 2d 2d |buffer-p| imenu--|
|00001d70| 6d 6f 75 73 65 2d 6d 65 | 6e 75 20 69 6d 65 6e 75 |mouse-me|nu imenu|
|00001d80| 2d 2d 63 6f 6d 70 6c 65 | 74 69 6f 6e 2d 62 75 66 |--comple|tion-buf|
|00001d90| 66 65 72 20 70 72 6f 6d | 70 74 20 69 6d 65 6e 75 |fer prom|pt imenu|
|00001da0| 2d 2d 69 6e 64 65 78 2d | 61 6c 69 73 74 5d 20 34 |--index-|alist] 4|
|00001db0| 20 22 5c 0a 4c 65 74 20 | 74 68 65 20 75 73 65 72 | "\.Let |the user|
|00001dc0| 20 73 65 6c 65 63 74 20 | 66 72 6f 6d 20 61 20 62 | select |from a b|
|00001dd0| 75 66 66 65 72 20 69 6e | 64 65 78 20 61 6e 64 20 |uffer in|dex and |
|00001de0| 72 65 74 75 72 6e 20 74 | 68 65 20 63 68 6f 73 65 |return t|he chose|
|00001df0| 6e 20 69 6e 64 65 78 2e | 0a 0a 49 66 20 74 68 65 |n index.|..If the|
|00001e00| 20 75 73 65 72 20 6f 72 | 69 67 69 6e 61 6c 6c 79 | user or|iginally|
|00001e10| 20 61 63 74 69 76 61 74 | 65 64 20 74 68 69 73 20 | activat|ed this |
|00001e20| 66 75 6e 63 74 69 6f 6e | 20 77 69 74 68 20 74 68 |function| with th|
|00001e30| 65 20 6d 6f 75 73 65 2c | 20 61 20 6d 6f 75 73 65 |e mouse,| a mouse|
|00001e40| 0a 6d 65 6e 75 20 69 73 | 20 75 73 65 64 2e 20 20 |.menu is| used.  |
|00001e50| 4f 74 68 65 72 77 69 73 | 65 20 61 20 63 6f 6d 70 |Otherwis|e a comp|
|00001e60| 6c 65 74 69 6f 6e 20 62 | 75 66 66 65 72 20 69 73 |letion b|uffer is|
|00001e70| 20 75 73 65 64 20 61 6e | 64 20 74 68 65 20 75 73 | used an|d the us|
|00001e80| 65 72 20 69 73 0a 70 72 | 6f 6d 70 74 65 64 20 77 |er is.pr|ompted w|
|00001e90| 69 74 68 20 50 52 4f 4d | 50 54 2e 0a 0a 49 66 20 |ith PROM|PT...If |
|00001ea0| 79 6f 75 20 63 61 6c 6c | 20 74 68 69 73 20 66 75 |you call| this fu|
|00001eb0| 6e 63 74 69 6f 6e 20 77 | 69 74 68 20 69 6e 64 65 |nction w|ith inde|
|00001ec0| 78 20 61 6c 69 73 74 20 | 41 4c 49 53 54 2c 20 74 |x alist |ALIST, t|
|00001ed0| 68 65 6e 20 69 74 20 6c | 65 74 73 20 74 68 65 20 |hen it l|ets the |
|00001ee0| 75 73 65 72 0a 73 65 6c | 65 63 74 20 66 72 6f 6d |user.sel|ect from|
|00001ef0| 20 41 4c 49 53 54 2e 0a | 0a 57 69 74 68 20 6e 6f | ALIST..|.With no|
|00001f00| 20 69 6e 64 65 78 20 61 | 6c 69 73 74 20 41 4c 49 | index a|list ALI|
|00001f10| 53 54 2c 20 69 74 20 63 | 61 6c 6c 73 20 60 69 6d |ST, it c|alls `im|
|00001f20| 65 6e 75 2d 2d 6d 61 6b | 65 2d 69 6e 64 65 78 2d |enu--mak|e-index-|
|00001f30| 61 6c 69 73 74 27 20 74 | 6f 0a 63 72 65 61 74 65 |alist' t|o.create|
|00001f40| 20 74 68 65 20 69 6e 64 | 65 78 20 61 6c 69 73 74 | the ind|ex alist|
|00001f50| 2e 0a 0a 49 66 20 60 69 | 6d 65 6e 75 2d 61 6c 77 |...If `i|menu-alw|
|00001f60| 61 79 73 2d 75 73 65 2d | 63 6f 6d 70 6c 65 74 69 |ays-use-|completi|
|00001f70| 6f 6e 2d 62 75 66 66 65 | 72 2d 70 27 20 69 73 20 |on-buffe|r-p' is |
|00001f80| 6e 6f 6e 2d 6e 69 6c 2c | 20 74 68 65 6e 20 74 68 |non-nil,| then th|
|00001f90| 65 0a 63 6f 6d 70 6c 65 | 74 69 6f 6e 20 62 75 66 |e.comple|tion buf|
|00001fa0| 66 65 72 20 69 73 20 61 | 6c 77 61 79 73 20 75 73 |fer is a|lways us|
|00001fb0| 65 64 2c 20 6e 6f 20 6d | 61 74 74 65 72 20 69 66 |ed, no m|atter if|
|00001fc0| 20 74 68 65 20 6d 6f 75 | 73 65 20 77 61 73 20 75 | the mou|se was u|
|00001fd0| 73 65 64 20 6f 72 0a 6e | 6f 74 2e 0a 0a 54 68 65 |sed or.n|ot...The|
|00001fe0| 20 72 65 74 75 72 6e 65 | 64 20 76 61 6c 75 65 20 | returne|d value |
|00001ff0| 69 73 20 6f 6e 20 74 68 | 65 20 66 6f 72 6d 20 28 |is on th|e form (|
|00002000| 49 4e 44 45 58 2d 4e 41 | 4d 45 20 2e 20 49 4e 44 |INDEX-NA|ME . IND|
|00002010| 45 58 2d 50 4f 53 49 54 | 49 4f 4e 29 2e 22 5d 29 |EX-POSIT|ION)."])|
|00002020| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 69 6d 65 6e |.(defali|as 'imen|
|00002030| 75 20 23 5b 6e 69 6c 20 | 22 c0 20 89 19 85 0d 00 |u #[nil |". .....|
|00002040| c2 20 88 09 41 62 29 87 | 22 20 5b 69 6d 65 6e 75 |. ..Ab).|" [imenu|
|00002050| 2d 63 68 6f 6f 73 65 2d | 62 75 66 66 65 72 2d 69 |-choose-|buffer-i|
|00002060| 6e 64 65 78 20 69 6e 64 | 65 78 2d 69 74 65 6d 20 |ndex ind|ex-item |
|00002070| 70 75 73 68 2d 6d 61 72 | 6b 5d 20 32 20 22 5c 0a |push-mar|k] 2 "\.|
|00002080| 4a 75 6d 70 20 74 6f 20 | 61 20 70 6c 61 63 65 20 |Jump to |a place |
|00002090| 69 6e 20 74 68 65 20 62 | 75 66 66 65 72 20 63 68 |in the b|uffer ch|
|000020a0| 6f 73 65 6e 20 75 73 69 | 6e 67 20 61 20 62 75 66 |osen usi|ng a buf|
|000020b0| 66 65 72 20 6d 65 6e 75 | 20 6f 72 20 6d 6f 75 73 |fer menu| or mous|
|000020c0| 65 20 6d 65 6e 75 2e 0a | 53 65 65 20 60 69 6d 65 |e menu..|See `ime|
|000020d0| 6e 75 2d 63 68 6f 6f 73 | 65 2d 62 75 66 66 65 72 |nu-choos|e-buffer|
|000020e0| 2d 69 6e 64 65 78 27 20 | 66 6f 72 20 6d 6f 72 65 |-index' |for more|
|000020f0| 20 69 6e 66 6f 72 6d 61 | 74 69 6f 6e 2e 22 20 6e | informa|tion." n|
|00002100| 69 6c 5d 29 0a 28 62 79 | 74 65 2d 63 6f 64 65 20 |il]).(by|te-code |
|00002110| 22 c0 c1 c2 5c 22 88 c0 | c3 c4 5c 22 88 c0 c5 c6 |"...\"..|..\"....|
|00002120| 5c 22 88 c7 c8 21 84 1e | 00 c9 ca 89 cb cc b0 05 |\"...!..|........|
|00002130| 16 08 c0 cd ce 5c 22 88 | c7 cf 21 84 32 00 d0 d1 |.....\".|..!.2...|
|00002140| 89 cb d2 b0 05 16 0f c0 | d3 d4 5c 22 88 d5 d6 21 |........|..\"...!|
|00002150| 87 22 20 5b 64 65 66 61 | 6c 69 61 73 20 69 6d 65 |." [defa|lias ime|
|00002160| 6e 75 2d 65 78 61 6d 70 | 6c 65 2d 2d 6e 61 6d 65 |nu-examp|le--name|
|00002170| 2d 61 6e 64 2d 70 6f 73 | 69 74 69 6f 6e 20 23 5b |-and-pos|ition #[|
|00002180| 6e 69 6c 20 22 8a c0 c1 | 21 88 60 c0 20 88 60 1a |nil "...|!.`. .`.|
|00002190| 89 1b 5c 6e 7b 0b 2b 42 | 87 22 20 5b 66 6f 72 77 |..\n{.+B|." [forw|
|000021a0| 61 72 64 2d 73 65 78 70 | 20 2d 31 20 65 6e 64 20 |ard-sexp| -1 end |
|000021b0| 62 65 67 5d 20 33 5d 20 | 69 6d 65 6e 75 2d 65 78 |beg] 3] |imenu-ex|
|000021c0| 61 6d 70 6c 65 2d 2d 6c | 69 73 70 2d 65 78 74 72 |ample--l|isp-extr|
|000021d0| 61 63 74 2d 69 6e 64 65 | 78 2d 6e 61 6d 65 20 23 |act-inde|x-name #|
|000021e0| 5b 6e 69 6c 20 22 c0 20 | 19 c2 8e c3 c4 21 85 0f |[nil ". |.....!..|
|000021f0| 00 c5 c6 c7 8f 2a 87 22 | 20 5b 6d 61 74 63 68 2d |.....*."| [match-|
|00002200| 64 61 74 61 20 6d 61 74 | 63 68 2d 64 61 74 61 20 |data mat|ch-data |
|00002210| 28 28 73 74 6f 72 65 2d | 6d 61 74 63 68 2d 64 61 |((store-|match-da|
|00002220| 74 61 20 6d 61 74 63 68 | 2d 64 61 74 61 29 29 20 |ta match|-data)) |
|00002230| 6c 6f 6f 6b 69 6e 67 2d | 61 74 20 22 28 64 65 66 |looking-|at "(def|
|00002240| 22 20 6e 69 6c 20 28 62 | 79 74 65 2d 63 6f 64 65 |" nil (b|yte-code|
|00002250| 20 22 c0 c1 21 88 c2 c3 | 21 88 60 c2 c4 21 88 60 | "..!...|!.`..!.`|
|00002260| 1d 89 1e 06 0d 7b 2a 87 | 22 20 5b 64 6f 77 6e 2d |.....{*.|" [down-|
|00002270| 6c 69 73 74 20 31 20 66 | 6f 72 77 61 72 64 2d 73 |list 1 f|orward-s|
|00002280| 65 78 70 20 32 20 2d 31 | 20 65 6e 64 20 62 65 67 |exp 2 -1| end beg|
|00002290| 5d 20 34 29 20 28 28 65 | 72 72 6f 72 29 29 5d 20 |] 4) ((e|rror))] |
|000022a0| 33 5d 20 69 6d 65 6e 75 | 2d 65 78 61 6d 70 6c 65 |3] imenu|-example|
|000022b0| 2d 2d 63 72 65 61 74 65 | 2d 6c 69 73 70 2d 69 6e |--create|-lisp-in|
|000022c0| 64 65 78 20 23 5b 6e 69 | 6c 20 22 c0 89 89 89 19 |dex #[ni|l ".....|
|000022d0| 1a 1b 1c 64 62 88 0d 83 | 14 00 c6 0d c7 5c 22 88 |...db...|.....\".|
|000022e0| c8 20 83 8d 00 0d 83 24 | 00 c6 0d c9 ca 21 5c 22 |. .....$|.....!\"|
|000022f0| 88 cb 20 1e 5c 66 cd 8e | ce cf 21 83 89 00 8a d0 |.. .\f..|..!.....|
|00002300| d1 21 88 ce d2 21 83 47 | 00 d3 d4 21 88 d5 20 0b |.!...!.G|...!.. .|
|00002310| 42 13 82 88 00 ce d6 21 | 83 59 00 d3 d4 21 88 d5 |B......!|.Y...!..|
|00002320| 20 5c 66 42 14 82 88 00 | ce d7 21 83 7f 00 d3 d4 | \fB....|..!.....|
|00002330| 21 88 60 53 66 d8 55 83 | 77 00 d3 d9 21 88 d0 d1 |!.`Sf.U.|w...!...|
|00002340| 21 88 d3 d1 21 88 d5 20 | 5c 6e 42 12 82 88 00 d3 |!...!.. |\nB.....|
|00002350| d4 21 88 d5 20 09 42 11 | 29 2a 82 14 00 0d 83 96 |.!.. .B.|)*......|
|00002360| 00 c6 0d da 5c 22 88 0b | 83 a2 00 db dc 21 0b 42 |....\"..|.....!.B|
|00002370| 5c 66 42 14 5c 6e 83 ae | 00 db dd 21 5c 6e 42 5c |\fB.\n..|...!\nB\|
|00002380| 66 42 14 09 83 ba 00 db | de 21 09 42 5c 66 42 14 |fB......|.!.B\fB.|
|00002390| 5c 66 2c 87 22 20 5b 6e | 69 6c 20 69 6e 64 65 78 |\f,." [n|il index|
|000023a0| 2d 75 6e 6b 6e 6f 77 6e | 2d 61 6c 69 73 74 20 69 |-unknown|-alist i|
|000023b0| 6e 64 65 78 2d 74 79 70 | 65 2d 61 6c 69 73 74 20 |ndex-typ|e-alist |
|000023c0| 69 6e 64 65 78 2d 76 61 | 72 2d 61 6c 69 73 74 20 |index-va|r-alist |
|000023d0| 69 6e 64 65 78 2d 61 6c | 69 73 74 20 69 6d 65 6e |index-al|ist imen|
|000023e0| 75 2d 73 63 61 6e 6e 69 | 6e 67 2d 6d 65 73 73 61 |u-scanni|ng-messa|
|000023f0| 67 65 20 6d 65 73 73 61 | 67 65 20 30 20 62 65 67 |ge messa|ge 0 beg|
|00002400| 69 6e 6e 69 6e 67 2d 6f | 66 2d 64 65 66 75 6e 20 |inning-o|f-defun |
|00002410| 69 6d 65 6e 75 2d 2d 72 | 65 6c 61 74 69 76 65 2d |imenu--r|elative-|
|00002420| 70 6f 73 69 74 69 6f 6e | 20 74 20 6d 61 74 63 68 |position| t match|
|00002430| 2d 64 61 74 61 20 6d 61 | 74 63 68 2d 64 61 74 61 |-data ma|tch-data|
|00002440| 20 28 28 73 74 6f 72 65 | 2d 6d 61 74 63 68 2d 64 | ((store|-match-d|
|00002450| 61 74 61 20 6d 61 74 63 | 68 2d 64 61 74 61 29 29 |ata matc|h-data))|
|00002460| 20 6c 6f 6f 6b 69 6e 67 | 2d 61 74 20 22 28 64 65 | looking|-at "(de|
|00002470| 66 22 20 64 6f 77 6e 2d | 6c 69 73 74 20 31 20 22 |f" down-|list 1 "|
|00002480| 64 65 66 5c 5c 28 76 61 | 72 5c 5c 7c 63 6f 6e 73 |def\\(va|r\\|cons|
|00002490| 74 5c 5c 29 22 20 66 6f | 72 77 61 72 64 2d 73 65 |t\\)" fo|rward-se|
|000024a0| 78 70 20 32 20 69 6d 65 | 6e 75 2d 65 78 61 6d 70 |xp 2 ime|nu-examp|
|000024b0| 6c 65 2d 2d 6e 61 6d 65 | 2d 61 6e 64 2d 70 6f 73 |le--name|-and-pos|
|000024c0| 69 74 69 6f 6e 20 22 64 | 65 66 5c 5c 28 75 6e 5c |ition "d|ef\\(un\|
|000024d0| 5c 7c 73 75 62 73 74 5c | 5c 7c 6d 61 63 72 6f 5c |\|subst\|\|macro\|
|000024e0| 5c 7c 61 64 76 69 63 65 | 5c 5c 29 22 20 22 64 65 |\|advice|\\)" "de|
|000024f0| 66 5c 5c 28 74 79 70 65 | 5c 5c 7c 73 74 72 75 63 |f\\(type|\\|struc|
|00002500| 74 5c 5c 7c 63 6c 61 73 | 73 5c 5c 7c 69 6e 65 2d |t\\|clas|s\\|ine-|
|00002510| 63 6f 6e 64 69 74 69 6f | 6e 5c 5c 29 22 20 34 31 |conditio|n\\)" 41|
|00002520| 20 2d 31 20 31 30 30 20 | 69 6d 65 6e 75 2d 63 72 | -1 100 |imenu-cr|
|00002530| 65 61 74 65 2d 73 75 62 | 6d 65 6e 75 2d 6e 61 6d |eate-sub|menu-nam|
|00002540| 65 20 22 56 61 72 69 61 | 62 6c 65 73 22 20 22 54 |e "Varia|bles" "T|
|00002550| 79 70 65 73 22 20 22 53 | 79 6e 74 61 78 2d 75 6e |ypes" "S|yntax-un|
|00002560| 6b 6e 6f 77 6e 22 5d 20 | 34 5d 20 62 6f 75 6e 64 |known"] |4] bound|
|00002570| 70 20 69 6d 65 6e 75 2d | 65 78 61 6d 70 6c 65 2d |p imenu-|example-|
|00002580| 2d 66 75 6e 63 74 69 6f | 6e 2d 6e 61 6d 65 2d 72 |-functio|n-name-r|
|00002590| 65 67 65 78 70 2d 63 20 | 22 5e 5b 61 2d 7a 41 2d |egexp-c |"^[a-zA-|
|000025a0| 5a 30 2d 39 5d 2b 5b 20 | 09 5d 3f 22 20 22 5c 5c |Z0-9]+[ |.]?" "\\|
|000025b0| 28 5b 61 2d 7a 41 2d 5a | 30 2d 39 5f 2a 5d 2b 5b |([a-zA-Z|0-9_*]+[|
|000025c0| 20 09 5d 2b 5c 5c 29 3f | 22 20 22 5c 5c 28 5b 2a | .]+\\)?|" "\\([*|
|000025d0| 26 5d 2b 5b 20 09 5d 2a | 5c 5c 29 3f 22 20 22 5c |&]+[ .]*|\\)?" "\|
|000025e0| 5c 28 5b 61 2d 7a 41 2d | 5a 30 2d 39 5f 2a 5d 2b |\([a-zA-|Z0-9_*]+|
|000025f0| 5c 5c 29 5b 20 09 5d 2a | 28 22 20 69 6d 65 6e 75 |\\)[ .]*|(" imenu|
|00002600| 2d 65 78 61 6d 70 6c 65 | 2d 2d 63 72 65 61 74 65 |-example|--create|
|00002610| 2d 63 2d 69 6e 64 65 78 | 20 23 5b 28 26 6f 70 74 |-c-index| #[(&opt|
|00002620| 69 6f 6e 61 6c 20 72 65 | 67 65 78 70 29 20 22 c0 |ional re|gexp) ".|
|00002630| 89 19 1a 65 62 88 0b 83 | 10 00 c4 0b c5 5c 22 88 |...eb...|.....\".|
|00002640| c6 20 1e 07 c8 8e c9 0e | 5c 6e 86 1e 00 0e 0b c0 |. ......|\n......|
|00002650| cc 23 83 4b 00 0b 83 2f | 00 c4 0b cd c0 21 5c 22 |.#.K.../|.....!\"|
|00002660| 88 ce cf 21 88 8a d0 60 | cf 5c 22 62 88 67 11 29 |...!...`|.\"b.g.)|
|00002670| 09 d1 3d 84 16 00 d2 20 | 5c 6e 42 12 82 16 00 2a |..=.... |\nB....*|
|00002680| 0b 83 55 00 c4 0b d3 5c | 22 88 5c 6e 9f 2a 87 22 |..U....\|".\n.*."|
|00002690| 20 5b 6e 69 6c 20 63 68 | 61 72 20 69 6e 64 65 78 | [nil ch|ar index|
|000026a0| 2d 61 6c 69 73 74 20 69 | 6d 65 6e 75 2d 73 63 61 |-alist i|menu-sca|
|000026b0| 6e 6e 69 6e 67 2d 6d 65 | 73 73 61 67 65 20 6d 65 |nning-me|ssage me|
|000026c0| 73 73 61 67 65 20 30 20 | 6d 61 74 63 68 2d 64 61 |ssage 0 |match-da|
|000026d0| 74 61 20 6d 61 74 63 68 | 2d 64 61 74 61 20 28 28 |ta match|-data ((|
|000026e0| 73 74 6f 72 65 2d 6d 61 | 74 63 68 2d 64 61 74 61 |store-ma|tch-data|
|000026f0| 20 6d 61 74 63 68 2d 64 | 61 74 61 29 29 20 72 65 | match-d|ata)) re|
|00002700| 2d 73 65 61 72 63 68 2d | 66 6f 72 77 61 72 64 20 |-search-|forward |
|00002710| 72 65 67 65 78 70 20 69 | 6d 65 6e 75 2d 65 78 61 |regexp i|menu-exa|
|00002720| 6d 70 6c 65 2d 2d 66 75 | 6e 63 74 69 6f 6e 2d 6e |mple--fu|nction-n|
|00002730| 61 6d 65 2d 72 65 67 65 | 78 70 2d 63 20 74 20 69 |ame-rege|xp-c t i|
|00002740| 6d 65 6e 75 2d 2d 72 65 | 6c 61 74 69 76 65 2d 70 |menu--re|lative-p|
|00002750| 6f 73 69 74 69 6f 6e 20 | 62 61 63 6b 77 61 72 64 |osition |backward|
|00002760| 2d 75 70 2d 6c 69 73 74 | 20 31 20 73 63 61 6e 2d |-up-list| 1 scan-|
|00002770| 73 65 78 70 73 20 35 39 | 20 69 6d 65 6e 75 2d 65 |sexps 59| imenu-e|
|00002780| 78 61 6d 70 6c 65 2d 2d | 6e 61 6d 65 2d 61 6e 64 |xample--|name-and|
|00002790| 2d 70 6f 73 69 74 69 6f | 6e 20 31 30 30 5d 20 34 |-positio|n 100] 4|
|000027a0| 5d 20 69 6d 65 6e 75 2d | 65 78 61 6d 70 6c 65 2d |] imenu-|example-|
|000027b0| 2d 66 75 6e 63 74 69 6f | 6e 2d 6e 61 6d 65 2d 72 |-functio|n-name-r|
|000027c0| 65 67 65 78 70 2d 63 2b | 2b 20 22 5e 5b 61 2d 7a |egexp-c+|+ "^[a-z|
|000027d0| 41 2d 5a 30 2d 39 3a 5d | 2b 5b 20 09 5d 3f 22 20 |A-Z0-9:]|+[ .]?" |
|000027e0| 22 5c 5c 28 5b 61 2d 7a | 41 2d 5a 30 2d 39 5f 3a |"\\([a-z|A-Z0-9_:|
|000027f0| 7e 2a 5d 2b 5b 20 09 5d | 2b 5c 5c 29 3f 22 20 22 |~*]+[ .]|+\\)?" "|
|00002800| 5c 5c 28 5b 61 2d 7a 41 | 2d 5a 30 2d 39 5f 3a 2a |\\([a-zA|-Z0-9_:*|
|00002810| 5d 2b 5c 5c 29 5b 20 09 | 5d 2a 28 22 20 69 6d 65 |]+\\)[ .|]*(" ime|
|00002820| 6e 75 2d 65 78 61 6d 70 | 6c 65 2d 2d 63 72 65 61 |nu-examp|le--crea|
|00002830| 74 65 2d 63 2b 2b 2d 69 | 6e 64 65 78 20 23 5b 6e |te-c++-i|ndex #[n|
|00002840| 69 6c 20 22 c0 09 21 87 | 22 20 5b 69 6d 65 6e 75 |il "..!.|" [imenu|
|00002850| 2d 65 78 61 6d 70 6c 65 | 2d 2d 63 72 65 61 74 65 |-example|--create|
|00002860| 2d 63 2d 69 6e 64 65 78 | 20 69 6d 65 6e 75 2d 65 |-c-index| imenu-e|
|00002870| 78 61 6d 70 6c 65 2d 2d | 66 75 6e 63 74 69 6f 6e |xample--|function|
|00002880| 2d 6e 61 6d 65 2d 72 65 | 67 65 78 70 2d 63 2b 2b |-name-re|gexp-c++|
|00002890| 5d 20 32 5d 20 70 72 6f | 76 69 64 65 20 69 6d 65 |] 2] pro|vide ime|
|000028a0| 6e 75 5d 20 35 29 0a    |                         |nu] 5). |        |
+--------+-------------------------+-------------------------+--------+--------+