/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / lucid / lemacs-19.6 / lisp / energize / energize-mode.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 6a 6c 7a 40 61 73 68 |piled by| jlz@ash|
|00000020| 77 65 64 6e 65 73 64 61 | 79 20 6f 6e 20 46 72 69 |wednesda|y on Fri|
|00000030| 20 4d 61 72 20 31 39 20 | 30 39 3a 32 31 3a 35 34 | Mar 19 |09:21:54|
|00000040| 20 31 39 39 33 0a 3b 3b | 3b 20 66 72 6f 6d 20 66 | 1993.;;|; from f|
|00000050| 69 6c 65 20 2f 63 61 64 | 69 6c 6c 61 63 2d 61 77 |ile /cad|illac-aw|
|00000060| 32 2f 74 65 73 74 62 69 | 6e 2d 62 75 69 6c 64 73 |2/testbi|n-builds|
|00000070| 2f 6c 65 6d 61 63 73 2f | 6c 69 73 70 2f 65 6e 65 |/lemacs/|lisp/ene|
|00000080| 72 67 69 7a 65 2f 65 6e | 65 72 67 69 7a 65 2d 6d |rgize/en|ergize-m|
|00000090| 6f 64 65 2e 65 6c 0a 3b | 3b 3b 20 65 6d 61 63 73 |ode.el.;|;; emacs|
|000000a0| 20 76 65 72 73 69 6f 6e | 20 31 39 2e 36 20 28 62 | version| 19.6 (b|
|000000b0| 65 74 61 32 29 20 4c 75 | 63 69 64 2e 0a 3b 3b 3b |eta2) Lu|cid..;;;|
|000000c0| 20 62 79 74 65 63 6f 6d | 70 20 76 65 72 73 69 6f | bytecom|p versio|
|000000d0| 6e 20 32 2e 31 30 3b 20 | 31 36 2d 66 65 62 2d 39 |n 2.10; |16-feb-9|
|000000e0| 33 2e 0a 3b 3b 3b 20 6f | 70 74 69 6d 69 7a 61 74 |3..;;; o|ptimizat|
|000000f0| 69 6f 6e 20 69 73 20 6f | 6e 2e 0a 3b 3b 3b 20 74 |ion is o|n..;;; t|
|00000100| 68 69 73 20 66 69 6c 65 | 20 75 73 65 73 20 6f 70 |his file| uses op|
|00000110| 63 6f 64 65 73 20 77 68 | 69 63 68 20 64 6f 20 6e |codes wh|ich do n|
|00000120| 6f 74 20 65 78 69 73 74 | 20 69 6e 20 45 6d 61 63 |ot exist| in Emac|
|00000130| 73 31 38 2e 0a 0a 28 69 | 66 20 28 61 6e 64 20 28 |s18...(i|f (and (|
|00000140| 62 6f 75 6e 64 70 20 27 | 65 6d 61 63 73 2d 76 65 |boundp '|emacs-ve|
|00000150| 72 73 69 6f 6e 29 0a 09 | 20 28 6f 72 20 28 61 6e |rsion)..| (or (an|
|00000160| 64 20 28 62 6f 75 6e 64 | 70 20 27 65 70 6f 63 68 |d (bound|p 'epoch|
|00000170| 3a 3a 76 65 72 73 69 6f | 6e 29 20 65 70 6f 63 68 |::versio|n) epoch|
|00000180| 3a 3a 76 65 72 73 69 6f | 6e 29 0a 09 20 20 20 20 |::versio|n)..    |
|00000190| 20 28 73 74 72 69 6e 67 | 2d 6c 65 73 73 70 20 65 | (string|-lessp e|
|000001a0| 6d 61 63 73 2d 76 65 72 | 73 69 6f 6e 20 22 31 39 |macs-ver|sion "19|
|000001b0| 22 29 29 29 0a 20 20 20 | 20 28 65 72 72 6f 72 20 |"))).   | (error |
|000001c0| 22 54 68 69 73 20 66 69 | 6c 65 20 77 61 73 20 63 |"This fi|le was c|
|000001d0| 6f 6d 70 69 6c 65 64 20 | 66 6f 72 20 45 6d 61 63 |ompiled |for Emac|
|000001e0| 73 31 39 2e 22 29 29 0a | 0a 28 62 79 74 65 2d 63 |s19.")).|.(byte-c|
|000001f0| 6f 64 65 20 22 c0 c1 21 | 88 c0 c2 21 88 c3 c4 21 |ode "..!|...!...!|
|00000200| ab 87 c5 c4 4b a2 3d ab | 84 c6 c7 21 88 c0 87 22 |....K.=.|...!..."|
|00000210| 20 5b 72 65 71 75 69 72 | 65 20 67 64 62 20 63 6f | [requir|e gdb co|
|00000220| 6d 70 69 6c 65 20 66 62 | 6f 75 6e 64 70 20 61 73 |mpile fb|oundp as|
|00000230| 6b 2d 75 73 65 72 2d 61 | 62 6f 75 74 2d 6c 6f 63 |k-user-a|bout-loc|
|00000240| 6b 20 61 75 74 6f 6c 6f | 61 64 20 6c 6f 61 64 2d |k autolo|ad load-|
|00000250| 6c 69 62 72 61 72 79 20 | 22 75 73 65 72 6c 6f 63 |library |"userloc|
|00000260| 6b 22 5d 20 32 29 0a 28 | 66 73 65 74 20 27 65 6e |k"] 2).(|fset 'en|
|00000270| 65 72 67 69 7a 65 2d 6e | 65 78 74 2d 65 72 72 6f |ergize-n|ext-erro|
|00000280| 72 20 23 5b 28 26 6f 70 | 74 69 6f 6e 61 6c 20 61 |r #[(&op|tional a|
|00000290| 72 67 29 20 22 c0 c1 21 | ab 9a c0 c2 21 ab 95 09 |rg) "..!|....!...|
|000002a0| ab 92 5c 6e ab 8f c3 5c | 6e 21 ab 8a c4 5c 6e 21 |..\n...\|n!...\n!|
|000002b0| ab 85 c5 0e 06 21 87 c7 | 0e 06 ab 83 c8 aa 81 c9 |.....!..|........|
|000002c0| 21 87 22 20 5b 62 6f 75 | 6e 64 70 20 63 6f 6d 70 |!." [bou|ndp comp|
|000002d0| 69 6c 61 74 69 6f 6e 2d | 65 72 72 6f 72 2d 6c 69 |ilation-|error-li|
|000002e0| 73 74 20 63 6f 6d 70 69 | 6c 61 74 69 6f 6e 2d 65 |st compi|lation-e|
|000002f0| 72 72 6f 72 2d 62 75 66 | 66 65 72 20 62 75 66 66 |rror-buf|fer buff|
|00000300| 65 72 70 20 62 75 66 66 | 65 72 2d 6e 61 6d 65 20 |erp buff|er-name |
|00000310| 65 6e 65 72 67 69 7a 65 | 2d 6f 72 69 67 2d 6e 65 |energize|-orig-ne|
|00000320| 78 74 2d 65 72 72 6f 72 | 20 61 72 67 20 65 6e 65 |xt-error| arg ene|
|00000330| 72 67 69 7a 65 2d 65 78 | 65 63 75 74 65 2d 63 6f |rgize-ex|ecute-co|
|00000340| 6d 6d 61 6e 64 20 22 70 | 72 65 76 69 6f 75 73 65 |mmand "p|reviouse|
|00000350| 72 72 6f 72 22 20 22 6e | 65 78 74 65 72 72 6f 72 |rror" "n|exterror|
|00000360| 22 5d 20 32 20 22 5c 0a | 49 66 20 74 68 65 20 63 |"] 2 "\.|If the c|
|00000370| 75 72 72 65 6e 74 20 62 | 75 66 66 65 72 20 69 73 |urrent b|uffer is|
|00000380| 20 61 6e 20 45 6e 65 72 | 67 69 7a 65 20 62 75 66 | an Ener|gize buf|
|00000390| 66 65 72 2c 20 74 68 65 | 20 73 65 72 76 65 72 20 |fer, the| server |
|000003a0| 69 73 20 63 6f 6e 73 75 | 6c 74 65 64 2e 0a 49 6e |is consu|lted..In|
|000003b0| 20 74 68 69 73 20 63 61 | 73 65 2c 20 61 20 70 72 | this ca|se, a pr|
|000003c0| 65 66 69 78 20 61 72 67 | 75 6d 65 6e 74 20 6d 65 |efix arg|ument me|
|000003d0| 61 6e 73 20 60 60 70 72 | 65 76 69 6f 75 73 20 65 |ans ``pr|evious e|
|000003e0| 72 72 6f 72 27 27 2e 20 | 20 4f 74 68 65 72 77 69 |rror''. | Otherwi|
|000003f0| 73 65 2c 0a 75 73 65 20 | 74 68 65 20 6f 72 69 67 |se,.use |the orig|
|00000400| 69 6e 61 6c 20 64 65 66 | 69 6e 69 74 69 6f 6e 20 |inal def|inition |
|00000410| 6f 66 20 6e 65 78 74 2d | 65 72 72 6f 72 2e 22 20 |of next-|error." |
|00000420| 22 50 22 5d 29 0a 28 66 | 73 65 74 20 27 65 6e 65 |"P"]).(f|set 'ene|
|00000430| 72 67 69 7a 65 2d 73 65 | 74 2d 76 69 73 69 74 65 |rgize-se|t-visite|
|00000440| 64 2d 66 69 6c 65 2d 6e | 61 6d 65 20 23 5b 28 66 |d-file-n|ame #[(f|
|00000450| 69 6c 65 6e 61 6d 65 29 | 20 22 c0 20 ab 89 09 5c |ilename)| ". ...\|
|00000460| 6e 9a ac 84 c3 c4 21 87 | c5 09 21 88 c6 70 21 ad |n.....!.|..!..p!.|
|00000470| 82 c7 20 87 22 20 5b 65 | 6e 65 72 67 69 7a 65 2d |.. ." [e|nergize-|
|00000480| 77 72 69 74 65 2d 66 69 | 6c 65 2d 62 75 66 66 65 |write-fi|le-buffe|
|00000490| 72 2d 70 20 66 69 6c 65 | 6e 61 6d 65 20 62 75 66 |r-p file|name buf|
|000004a0| 66 65 72 2d 66 69 6c 65 | 2d 6e 61 6d 65 20 65 72 |fer-file|-name er|
|000004b0| 72 6f 72 20 22 43 61 6e | 27 74 20 63 68 61 6e 67 |ror "Can|'t chang|
|000004c0| 65 20 74 68 65 20 6e 61 | 6d 65 20 61 73 73 6f 63 |e the na|me assoc|
|000004d0| 69 61 74 65 64 20 77 69 | 74 68 20 61 6e 20 45 6e |iated wi|th an En|
|000004e0| 65 72 67 69 7a 65 20 62 | 75 66 66 65 72 2e 22 20 |ergize b|uffer." |
|000004f0| 65 6e 65 72 67 69 7a 65 | 2d 6f 72 69 67 2d 73 65 |energize|-orig-se|
|00000500| 74 2d 76 69 73 69 74 65 | 64 2d 66 69 6c 65 2d 6e |t-visite|d-file-n|
|00000510| 61 6d 65 20 65 6e 65 72 | 67 69 7a 65 2d 62 75 66 |ame ener|gize-buf|
|00000520| 66 65 72 2d 70 20 65 6e | 65 72 67 69 7a 65 2d 6d |fer-p en|ergize-m|
|00000530| 6f 64 65 2d 69 6e 74 65 | 72 6e 61 6c 5d 20 32 20 |ode-inte|rnal] 2 |
|00000540| 22 5c 0a 54 68 69 73 20 | 69 73 20 69 6c 6c 65 67 |"\.This |is illeg|
|00000550| 61 6c 20 66 6f 72 20 45 | 6e 65 72 67 69 7a 65 20 |al for E|nergize |
|00000560| 62 75 66 66 65 72 73 2e | 22 20 22 46 53 65 74 20 |buffers.|" "FSet |
|00000570| 76 69 73 69 74 65 64 20 | 66 69 6c 65 20 6e 61 6d |visited |file nam|
|00000580| 65 3a 20 22 5d 29 0a 28 | 66 73 65 74 20 27 65 6e |e: "]).(|fset 'en|
|00000590| 65 72 67 69 7a 65 2d 66 | 69 6e 64 2d 66 69 6c 65 |ergize-f|ind-file|
|000005a0| 2d 6e 6f 73 65 6c 65 63 | 74 20 23 5b 28 66 69 6c |-noselec|t #[(fil|
|000005b0| 65 6e 61 6d 65 20 26 6f | 70 74 69 6f 6e 61 6c 20 |ename &o|ptional |
|000005c0| 6e 6f 77 61 72 6e 29 20 | 22 c0 20 ab 8f c1 5c 6e |nowarn) |". ...\n|
|000005d0| 21 ac 8a c3 5c 6e c4 5c | 22 ab 84 c3 5c 6e 21 87 |!...\n.\|"...\n!.|
|000005e0| c5 5c 6e 0e 06 5c 22 87 | 22 20 5b 63 6f 6e 6e 65 |.\n..\".|" [conne|
|000005f0| 63 74 65 64 2d 74 6f 2d | 65 6e 65 72 67 69 7a 65 |cted-to-|energize|
|00000600| 2d 70 20 66 69 6c 65 2d | 64 69 72 65 63 74 6f 72 |-p file-|director|
|00000610| 79 2d 70 20 66 69 6c 65 | 6e 61 6d 65 20 65 6e 65 |y-p file|name ene|
|00000620| 72 67 69 7a 65 2d 71 75 | 65 72 79 2d 62 75 66 66 |rgize-qu|ery-buff|
|00000630| 65 72 20 74 20 65 6e 65 | 72 67 69 7a 65 2d 6f 72 |er t ene|rgize-or|
|00000640| 69 67 2d 66 69 6e 64 2d | 66 69 6c 65 2d 6e 6f 73 |ig-find-|file-nos|
|00000650| 65 6c 65 63 74 20 6e 6f | 77 61 72 6e 5d 20 33 20 |elect no|warn] 3 |
|00000660| 22 5c 0a 57 68 65 6e 20 | 63 6f 6e 6e 65 63 74 65 |"\.When |connecte|
|00000670| 64 20 74 6f 20 45 6e 65 | 72 67 69 7a 65 2c 20 69 |d to Ene|rgize, i|
|00000680| 66 20 74 68 65 20 76 69 | 73 69 74 65 64 20 66 69 |f the vi|sited fi|
|00000690| 6c 65 20 69 73 20 6f 6e | 65 20 74 68 61 74 0a 45 |le is on|e that.E|
|000006a0| 6e 65 72 67 69 7a 65 20 | 6b 6e 6f 77 73 20 61 62 |nergize |knows ab|
|000006b0| 6f 75 74 2c 20 69 74 20 | 77 69 6c 6c 20 62 65 20 |out, it |will be |
|000006c0| 63 6f 72 72 65 63 74 6c | 79 20 61 6e 6e 6f 74 61 |correctl|y annota|
|000006d0| 74 65 64 2e 22 5d 29 0a | 28 66 73 65 74 20 27 65 |ted."]).|(fset 'e|
|000006e0| 6e 65 72 67 69 7a 65 2d | 61 73 6b 2d 75 73 65 72 |nergize-|ask-user|
|000006f0| 2d 61 62 6f 75 74 2d 6c | 6f 63 6b 20 23 5b 28 66 |-about-l|ock #[(f|
|00000700| 6e 20 6f 70 70 6f 6e 65 | 6e 74 29 20 22 c0 70 21 |n oppone|nt) ".p!|
|00000710| ab 82 c1 87 c2 0b 0c 5c | 22 87 22 20 5b 65 6e 65 |.......\|"." [ene|
|00000720| 72 67 69 7a 65 2d 62 75 | 66 66 65 72 2d 70 20 74 |rgize-bu|ffer-p t|
|00000730| 20 65 6e 65 72 67 69 7a | 65 2d 6f 72 69 67 2d 61 | energiz|e-orig-a|
|00000740| 73 6b 2d 75 73 65 72 2d | 61 62 6f 75 74 2d 6c 6f |sk-user-|about-lo|
|00000750| 63 6b 20 66 6e 20 6f 70 | 70 6f 6e 65 6e 74 5d 20 |ck fn op|ponent] |
|00000760| 33 20 22 5c 0a 45 6e 65 | 72 67 69 7a 65 20 62 75 |3 "\.Ene|rgize bu|
|00000770| 66 66 65 72 73 20 64 6f | 20 74 68 69 73 20 62 79 |ffers do| this by|
|00000780| 20 61 73 6b 69 6e 67 20 | 74 68 65 20 73 65 72 76 | asking |the serv|
|00000790| 65 72 2e 22 5d 29 0a 28 | 62 79 74 65 2d 63 6f 64 |er."]).(|byte-cod|
|000007a0| 65 20 22 c0 c1 4d 88 c2 | c3 4d 87 22 20 5b 65 6e |e "..M..|.M." [en|
|000007b0| 65 72 67 69 7a 65 2d 69 | 6e 69 74 20 23 5b 6e 69 |ergize-i|nit #[ni|
|000007c0| 6c 20 22 c0 c1 21 c2 55 | ad 85 c3 c4 89 4e 21 87 |l "..!.U|.....N!.|
|000007d0| 22 20 5b 65 6e 65 72 67 | 69 7a 65 2d 62 69 74 73 |" [energ|ize-bits|
|000007e0| 20 31 30 32 34 20 30 20 | 65 6e 65 72 67 69 7a 65 | 1024 0 |energize|
|000007f0| 2d 61 6e 6e 6f 75 6e 63 | 65 20 65 6e 65 72 67 69 |-announc|e energi|
|00000800| 7a 65 5d 20 33 5d 20 65 | 6e 65 72 67 69 7a 65 2d |ze] 3] e|nergize-|
|00000810| 77 72 69 74 65 2d 66 69 | 6c 65 2d 62 75 66 66 65 |write-fi|le-buffe|
|00000820| 72 2d 70 20 23 5b 6e 69 | 6c 20 22 c0 70 21 87 22 |r-p #[ni|l ".p!."|
|00000830| 20 5b 65 6e 65 72 67 69 | 7a 65 2d 62 75 66 66 65 | [energi|ze-buffe|
|00000840| 72 2d 70 5d 20 32 5d 5d | 20 32 29 0a 28 66 73 65 |r-p] 2]]| 2).(fse|
|00000850| 74 20 27 65 6e 65 72 67 | 69 7a 65 2d 77 72 69 74 |t 'energ|ize-writ|
|00000860| 65 2d 66 69 6c 65 20 23 | 5b 28 66 69 6c 65 6e 61 |e-file #|[(filena|
|00000870| 6d 65 29 20 22 c0 20 ac | 84 c1 5c 6e 21 87 c3 5c |me) ". .|..\n!..\|
|00000880| 6e 21 ab 8c c4 c5 c6 5c | 6e 5c 22 21 ac 84 c7 c8 |n!.....\|n\"!....|
|00000890| 21 88 c9 65 64 5c 6e ca | 89 25 88 0e 0b ab 85 cc |!..ed\n.|.%......|
|000008a0| cd 89 5c 22 88 ce ca 21 | 88 cf d0 20 d1 5c 6e 21 |..\"...!|... .\n!|
|000008b0| 5c 22 87 22 20 5b 65 6e | 65 72 67 69 7a 65 2d 77 |\"." [en|ergize-w|
|000008c0| 72 69 74 65 2d 66 69 6c | 65 2d 62 75 66 66 65 72 |rite-fil|e-buffer|
|000008d0| 2d 70 20 65 6e 65 72 67 | 69 7a 65 2d 6f 72 69 67 |-p energ|ize-orig|
|000008e0| 2d 77 72 69 74 65 2d 66 | 69 6c 65 20 66 69 6c 65 |-write-f|ile file|
|000008f0| 6e 61 6d 65 20 66 69 6c | 65 2d 65 78 69 73 74 73 |name fil|e-exists|
|00000900| 2d 70 20 79 65 73 2d 6f | 72 2d 6e 6f 2d 70 20 66 |-p yes-o|r-no-p f|
|00000910| 6f 72 6d 61 74 20 22 46 | 69 6c 65 20 25 73 20 61 |ormat "F|ile %s a|
|00000920| 6c 72 65 61 64 79 20 65 | 78 69 73 74 73 2e 20 20 |lready e|xists.  |
|00000930| 4f 76 65 72 77 72 69 74 | 65 20 69 74 3f 20 22 20 |Overwrit|e it? " |
|00000940| 65 72 72 6f 72 20 22 41 | 62 6f 72 74 65 64 22 20 |error "A|borted" |
|00000950| 77 72 69 74 65 2d 72 65 | 67 69 6f 6e 20 6e 69 6c |write-re|gion nil|
|00000960| 20 62 75 66 66 65 72 2d | 66 69 6c 65 2d 6e 61 6d | buffer-|file-nam|
|00000970| 65 20 72 65 76 65 72 74 | 2d 62 75 66 66 65 72 20 |e revert|-buffer |
|00000980| 74 20 6b 69 6c 6c 2d 62 | 75 66 66 65 72 20 73 65 |t kill-b|uffer se|
|00000990| 74 2d 77 69 6e 64 6f 77 | 2d 62 75 66 66 65 72 20 |t-window|-buffer |
|000009a0| 73 65 6c 65 63 74 65 64 | 2d 77 69 6e 64 6f 77 20 |selected|-window |
|000009b0| 66 69 6e 64 2d 66 69 6c | 65 2d 6e 6f 73 65 6c 65 |find-fil|e-nosele|
|000009c0| 63 74 5d 20 36 20 22 5c | 0a 57 68 65 6e 20 65 78 |ct] 6 "\|.When ex|
|000009d0| 65 63 75 74 65 64 20 6f | 6e 20 61 6e 20 45 6e 65 |ecuted o|n an Ene|
|000009e0| 72 67 69 7a 65 20 62 75 | 66 66 65 72 2c 20 74 68 |rgize bu|ffer, th|
|000009f0| 69 73 20 77 69 6c 6c 20 | 63 61 75 73 65 20 61 6c |is will |cause al|
|00000a00| 6c 20 0a 61 6e 6e 6f 74 | 61 74 69 6f 6e 73 20 74 |l .annot|ations t|
|00000a10| 6f 20 62 65 20 6c 6f 73 | 74 20 28 74 68 61 74 20 |o be los|t (that |
|00000a20| 69 73 2c 20 74 68 65 20 | 62 75 66 66 65 72 20 77 |is, the |buffer w|
|00000a30| 69 6c 6c 20 62 65 63 6f | 6d 65 20 61 20 6e 6f 72 |ill beco|me a nor|
|00000a40| 6d 61 6c 0a 62 75 66 66 | 65 72 2c 20 6e 6f 74 20 |mal.buff|er, not |
|00000a50| 6f 6e 65 20 74 68 61 74 | 20 74 68 65 20 45 6e 65 |one that| the Ene|
|00000a60| 72 67 69 7a 65 20 73 65 | 72 76 65 72 20 6b 6e 6f |rgize se|rver kno|
|00000a70| 77 73 20 61 62 6f 75 74 | 2e 29 22 20 28 62 79 74 |ws about|.)" (byt|
|00000a80| 65 2d 63 6f 64 65 20 22 | c0 20 ab 83 c1 aa 81 c2 |e-code "|. ......|
|00000a90| 1b 0c ab 89 c5 0b c6 89 | 89 89 25 aa 8c c5 0b c7 |........|..%.....|
|00000aa0| c8 20 9e 41 c6 89 c9 20 | 25 29 43 87 22 20 5b 65 |. .A... |%)C." [e|
|00000ab0| 6e 65 72 67 69 7a 65 2d | 77 72 69 74 65 2d 66 69 |nergize-|write-fi|
|00000ac0| 6c 65 2d 62 75 66 66 65 | 72 2d 70 20 22 57 72 69 |le-buffe|r-p "Wri|
|00000ad0| 74 65 20 45 6e 65 72 67 | 69 7a 65 20 62 75 66 66 |te Energ|ize buff|
|00000ae0| 65 72 20 74 6f 20 66 69 | 6c 65 3a 20 22 20 22 57 |er to fi|le: " "W|
|00000af0| 72 69 74 65 20 66 69 6c | 65 3a 20 22 20 70 72 6f |rite fil|e: " pro|
|00000b00| 6d 70 74 20 62 75 66 66 | 65 72 2d 66 69 6c 65 2d |mpt buff|er-file-|
|00000b10| 6e 61 6d 65 20 72 65 61 | 64 2d 66 69 6c 65 2d 6e |name rea|d-file-n|
|00000b20| 61 6d 65 20 6e 69 6c 20 | 64 65 66 61 75 6c 74 2d |ame nil |default-|
|00000b30| 64 69 72 65 63 74 6f 72 | 79 20 62 75 66 66 65 72 |director|y buffer|
|00000b40| 2d 6c 6f 63 61 6c 2d 76 | 61 72 69 61 62 6c 65 73 |-local-v|ariables|
|00000b50| 20 62 75 66 66 65 72 2d | 6e 61 6d 65 5d 20 36 29 | buffer-|name] 6)|
|00000b60| 5d 29 0a 28 66 73 65 74 | 20 27 65 6e 65 72 67 69 |]).(fset| 'energi|
|00000b70| 7a 65 2d 67 64 62 2d 62 | 72 65 61 6b 20 23 5b 28 |ze-gdb-b|reak #[(|
|00000b80| 61 72 67 29 20 22 c0 70 | 21 ac 84 c1 5c 6e 21 87 |arg) ".p|!...\n!.|
|00000b90| c3 c4 21 87 22 20 5b 65 | 6e 65 72 67 69 7a 65 2d |..!." [e|nergize-|
|00000ba0| 62 75 66 66 65 72 2d 70 | 20 65 6e 65 72 67 69 7a |buffer-p| energiz|
|00000bb0| 65 2d 6f 72 69 67 2d 67 | 64 62 2d 62 72 65 61 6b |e-orig-g|db-break|
|00000bc0| 20 61 72 67 20 65 6e 65 | 72 67 69 7a 65 2d 65 78 | arg ene|rgize-ex|
|00000bd0| 65 63 75 74 65 2d 63 6f | 6d 6d 61 6e 64 20 22 73 |ecute-co|mmand "s|
|00000be0| 65 74 62 72 65 61 6b 70 | 6f 69 6e 74 22 5d 20 32 |etbreakp|oint"] 2|
|00000bf0| 20 22 5c 0a 49 66 20 74 | 68 65 20 63 75 72 72 65 | "\.If t|he curre|
|00000c00| 6e 74 20 62 75 66 66 65 | 72 20 69 73 20 61 6e 20 |nt buffe|r is an |
|00000c10| 45 6e 65 72 67 69 7a 65 | 20 62 75 66 66 65 72 2c |Energize| buffer,|
|00000c20| 20 74 68 65 6e 20 74 68 | 69 73 20 77 6f 72 6b 73 | then th|is works|
|00000c30| 20 62 79 20 74 61 6c 6b | 69 6e 67 20 0a 74 6f 20 | by talk|ing .to |
|00000c40| 74 68 65 20 73 65 72 76 | 65 72 2e 22 20 22 50 22 |the serv|er." "P"|
|00000c50| 5d 29 0a 28 66 73 65 74 | 20 27 65 6e 65 72 67 69 |]).(fset| 'energi|
|00000c60| 7a 65 2d 67 64 62 2d 73 | 74 65 70 20 23 5b 28 61 |ze-gdb-s|tep #[(a|
|00000c70| 72 67 29 20 22 c0 70 21 | ac 84 c1 5c 6e 21 87 5c |rg) ".p!|...\n!.\|
|00000c80| 6e c3 56 ad 8a c4 c5 21 | 88 5c 6e 53 89 12 aa 72 |n.V....!|.\nS...r|
|00000c90| 87 22 20 5b 65 6e 65 72 | 67 69 7a 65 2d 62 75 66 |." [ener|gize-buf|
|00000ca0| 66 65 72 2d 70 20 65 6e | 65 72 67 69 7a 65 2d 6f |fer-p en|ergize-o|
|00000cb0| 72 69 67 2d 67 64 62 2d | 73 74 65 70 20 61 72 67 |rig-gdb-|step arg|
|00000cc0| 20 30 20 65 6e 65 72 67 | 69 7a 65 2d 65 78 65 63 | 0 energ|ize-exec|
|00000cd0| 75 74 65 2d 63 6f 6d 6d | 61 6e 64 20 22 73 74 65 |ute-comm|and "ste|
|00000ce0| 70 6f 6e 63 65 22 5d 20 | 33 20 22 5c 0a 49 66 20 |ponce"] |3 "\.If |
|00000cf0| 74 68 65 20 63 75 72 72 | 65 6e 74 20 62 75 66 66 |the curr|ent buff|
|00000d00| 65 72 20 69 73 20 61 6e | 20 45 6e 65 72 67 69 7a |er is an| Energiz|
|00000d10| 65 20 62 75 66 66 65 72 | 2c 20 74 68 65 6e 20 74 |e buffer|, then t|
|00000d20| 68 69 73 20 77 6f 72 6b | 73 20 62 79 20 74 61 6c |his work|s by tal|
|00000d30| 6b 69 6e 67 20 74 6f 0a | 74 68 65 20 73 65 72 76 |king to.|the serv|
|00000d40| 65 72 2e 22 20 22 70 22 | 5d 29 0a 28 66 73 65 74 |er." "p"|]).(fset|
|00000d50| 20 27 65 6e 65 72 67 69 | 7a 65 2d 67 64 62 2d 73 | 'energi|ze-gdb-s|
|00000d60| 74 65 70 69 20 23 5b 28 | 61 72 67 29 20 22 c0 70 |tepi #[(|arg) ".p|
|00000d70| 21 ac 84 c1 5c 6e 21 87 | 8a c3 71 88 64 62 88 c4 |!...\n!.|..q.db..|
|00000d80| c5 5c 6e 5c 22 63 88 c6 | 20 29 87 22 20 5b 65 6e |.\n\"c..| )." [en|
|00000d90| 65 72 67 69 7a 65 2d 62 | 75 66 66 65 72 2d 70 20 |ergize-b|uffer-p |
|00000da0| 65 6e 65 72 67 69 7a 65 | 2d 6f 72 69 67 2d 67 64 |energize|-orig-gd|
|00000db0| 62 2d 73 74 65 70 20 61 | 72 67 20 22 2a 44 65 62 |b-step a|rg "*Deb|
|00000dc0| 75 67 67 65 72 2a 22 20 | 66 6f 72 6d 61 74 20 22 |ugger*" |format "|
|00000dd0| 73 74 65 70 69 20 25 64 | 22 20 63 6f 6d 69 6e 74 |stepi %d|" comint|
|00000de0| 2d 73 65 6e 64 2d 69 6e | 70 75 74 5d 20 33 20 22 |-send-in|put] 3 "|
|00000df0| 5c 0a 49 66 20 74 68 65 | 20 63 75 72 72 65 6e 74 |\.If the| current|
|00000e00| 20 62 75 66 66 65 72 20 | 69 73 20 61 6e 20 45 6e | buffer |is an En|
|00000e10| 65 72 67 69 7a 65 20 62 | 75 66 66 65 72 2c 20 74 |ergize b|uffer, t|
|00000e20| 68 65 6e 20 74 68 69 73 | 20 77 6f 72 6b 73 20 62 |hen this| works b|
|00000e30| 79 20 74 61 6c 6b 69 6e | 67 20 74 6f 0a 74 68 65 |y talkin|g to.the|
|00000e40| 20 73 65 72 76 65 72 2e | 22 20 22 70 22 5d 29 0a | server.|" "p"]).|
|00000e50| 28 66 73 65 74 20 27 65 | 6e 65 72 67 69 7a 65 2d |(fset 'e|nergize-|
|00000e60| 62 65 67 69 6e 6e 69 6e | 67 2d 6f 66 2d 64 65 66 |beginnin|g-of-def|
|00000e70| 75 6e 20 23 5b 28 26 6f | 70 74 69 6f 6e 61 6c 20 |un #[(&o|ptional |
|00000e80| 61 72 67 29 20 22 08 ac | 82 c1 10 c2 70 21 ac 84 |arg) "..|....p!..|
|00000e90| c3 c4 21 87 08 c5 57 ab | 85 c6 08 5b 21 87 08 c5 |..!...W.|...[!...|
|00000ea0| 56 ad a7 6f ac 83 c7 75 | 88 6f ac 8a c8 60 21 ac |V..o...u|.o...`!.|
|00000eb0| 85 c7 75 88 aa 73 60 1e | 09 ca cb 70 60 60 cc cd |..u..s`.|...p``..|
|00000ec0| 26 06 88 29 08 53 89 10 | aa 55 87 22 20 5b 61 72 |&..).S..|.U." [ar|
|00000ed0| 67 20 31 20 65 6e 65 72 | 67 69 7a 65 2d 62 75 66 |g 1 ener|gize-buf|
|00000ee0| 66 65 72 2d 70 20 65 72 | 72 6f 72 20 22 4e 6f 74 |fer-p er|ror "Not|
|00000ef0| 20 61 6e 20 45 6e 65 72 | 67 69 7a 65 20 62 75 66 | an Ener|gize buf|
|00000f00| 66 65 72 22 20 30 20 65 | 6e 65 72 67 69 7a 65 2d |fer" 0 e|nergize-|
|00000f10| 65 6e 64 2d 6f 66 2d 64 | 65 66 75 6e 20 2d 31 20 |end-of-d|efun -1 |
|00000f20| 65 78 74 65 6e 74 2d 61 | 74 20 70 6f 73 20 6d 61 |extent-a|t pos ma|
|00000f30| 70 2d 65 78 74 65 6e 74 | 73 20 23 5b 28 65 78 74 |p-extent|s #[(ext|
|00000f40| 65 6e 74 20 64 75 6d 6d | 79 29 20 22 c0 09 21 89 |ent dumm|y) "..!.|
|00000f50| 12 60 57 ad 82 5c 6e 62 | 87 22 20 5b 65 78 74 65 |.`W..\nb|." [exte|
|00000f60| 6e 74 2d 73 74 61 72 74 | 2d 70 6f 73 69 74 69 6f |nt-start|-positio|
|00000f70| 6e 20 65 78 74 65 6e 74 | 20 70 6f 73 5d 20 32 5d |n extent| pos] 2]|
|00000f80| 20 6e 69 6c 20 74 5d 20 | 38 20 22 5c 0a 4d 6f 76 | nil t] |8 "\.Mov|
|00000f90| 65 20 70 6f 69 6e 74 20 | 74 6f 20 74 68 65 20 62 |e point |to the b|
|00000fa0| 65 67 69 6e 6e 69 6e 67 | 20 6f 66 20 74 68 65 20 |eginning| of the |
|00000fb0| 63 75 72 72 65 6e 74 20 | 74 6f 70 2d 6c 65 76 65 |current |top-leve|
|00000fc0| 6c 20 66 6f 72 6d 2e 0a | 57 69 74 68 20 61 20 6e |l form..|With a n|
|00000fd0| 75 6d 65 72 69 63 20 61 | 72 67 75 6d 65 6e 74 2c |umeric a|rgument,|
|00000fe0| 20 6d 6f 76 65 20 62 61 | 63 6b 20 74 68 61 74 20 | move ba|ck that |
|00000ff0| 6d 61 6e 79 20 66 6f 72 | 6d 73 2e 22 20 22 70 22 |many for|ms." "p"|
|00001000| 5d 29 0a 28 66 73 65 74 | 20 27 65 6e 65 72 67 69 |]).(fset| 'energi|
|00001010| 7a 65 2d 65 6e 64 2d 6f | 66 2d 64 65 66 75 6e 20 |ze-end-o|f-defun |
|00001020| 23 5b 28 26 6f 70 74 69 | 6f 6e 61 6c 20 61 72 67 |#[(&opti|onal arg|
|00001030| 29 20 22 08 ac 82 c1 10 | c2 70 21 ac 84 c3 c4 21 |) ".....|.p!....!|
|00001040| 87 08 c5 57 ab 85 c6 08 | 5b 21 87 08 c5 56 ad a7 |...W....|[!...V..|
|00001050| 6d ac 83 c1 75 88 6d ac | 8a c7 60 21 ac 85 c1 75 |m...u.m.|..`!...u|
|00001060| 88 aa 73 60 1e 08 c9 ca | 70 60 60 cb cc 26 06 88 |..s`....|p``..&..|
|00001070| 29 08 53 89 10 aa 55 87 | 22 20 5b 61 72 67 20 31 |).S...U.|" [arg 1|
|00001080| 20 65 6e 65 72 67 69 7a | 65 2d 62 75 66 66 65 72 | energiz|e-buffer|
|00001090| 2d 70 20 65 72 72 6f 72 | 20 22 4e 6f 74 20 61 6e |-p error| "Not an|
|000010a0| 20 45 6e 65 72 67 69 7a | 65 20 62 75 66 66 65 72 | Energiz|e buffer|
|000010b0| 22 20 30 20 65 6e 65 72 | 67 69 7a 65 2d 62 65 67 |" 0 ener|gize-beg|
|000010c0| 69 6e 6e 69 6e 67 2d 6f | 66 2d 64 65 66 75 6e 20 |inning-o|f-defun |
|000010d0| 65 78 74 65 6e 74 2d 61 | 74 20 70 6f 73 20 6d 61 |extent-a|t pos ma|
|000010e0| 70 2d 65 78 74 65 6e 74 | 73 20 23 5b 28 65 78 74 |p-extent|s #[(ext|
|000010f0| 65 6e 74 20 64 75 6d 6d | 79 29 20 22 c0 09 21 89 |ent dumm|y) "..!.|
|00001100| 12 60 56 ad 82 5c 6e 62 | 87 22 20 5b 65 78 74 65 |.`V..\nb|." [exte|
|00001110| 6e 74 2d 65 6e 64 2d 70 | 6f 73 69 74 69 6f 6e 20 |nt-end-p|osition |
|00001120| 65 78 74 65 6e 74 20 70 | 6f 73 5d 20 32 5d 20 6e |extent p|os] 2] n|
|00001130| 69 6c 20 74 5d 20 38 20 | 22 5c 0a 4d 6f 76 65 20 |il t] 8 |"\.Move |
|00001140| 70 6f 69 6e 74 20 74 6f | 20 74 68 65 20 65 6e 64 |point to| the end|
|00001150| 20 6f 66 20 74 68 65 20 | 63 75 72 72 65 6e 74 20 | of the |current |
|00001160| 74 6f 70 2d 6c 65 76 65 | 6c 20 66 6f 72 6d 2e 0a |top-leve|l form..|
|00001170| 57 69 74 68 20 61 20 6e | 75 6d 65 72 69 63 20 61 |With a n|umeric a|
|00001180| 72 67 75 6d 65 6e 74 2c | 20 6d 6f 76 65 20 66 6f |rgument,| move fo|
|00001190| 72 77 61 72 64 20 6f 76 | 65 72 20 74 68 61 74 20 |rward ov|er that |
|000011a0| 6d 61 6e 79 20 66 6f 72 | 6d 73 2e 22 20 22 70 22 |many for|ms." "p"|
|000011b0| 5d 29 0a 28 66 73 65 74 | 20 27 65 6e 65 72 67 69 |]).(fset| 'energi|
|000011c0| 7a 65 2d 6e 6f 72 6d 61 | 6c 2d 6d 6f 64 65 20 23 |ze-norma|l-mode #|
|000011d0| 5b 28 26 6f 70 74 69 6f | 6e 61 6c 20 66 69 6e 64 |[(&optio|nal find|
|000011e0| 2d 66 69 6c 65 29 20 22 | c0 09 21 88 c2 70 21 ad |-file) "|..!..p!.|
|000011f0| 87 0b 3f ad 83 0c 70 21 | 87 22 20 5b 65 6e 65 72 |..?...p!|." [ener|
|00001200| 67 69 7a 65 2d 6f 72 69 | 67 2d 6e 6f 72 6d 61 6c |gize-ori|g-normal|
|00001210| 2d 6d 6f 64 65 20 66 69 | 6e 64 2d 66 69 6c 65 20 |-mode fi|nd-file |
|00001220| 65 6e 65 72 67 69 7a 65 | 2d 62 75 66 66 65 72 2d |energize|-buffer-|
|00001230| 70 20 69 6e 73 69 64 65 | 2d 65 6e 65 72 67 69 7a |p inside|-energiz|
|00001240| 65 2d 62 75 66 66 65 72 | 2d 63 72 65 61 74 69 6f |e-buffer|-creatio|
|00001250| 6e 2d 68 6f 6f 6b 2d 66 | 75 6e 63 74 69 6f 6e 20 |n-hook-f|unction |
|00001260| 65 6e 65 72 67 69 7a 65 | 2d 63 72 65 61 74 65 2d |energize|-create-|
|00001270| 62 75 66 66 65 72 2d 68 | 6f 6f 6b 5d 20 32 20 22 |buffer-h|ook] 2 "|
|00001280| 5c 0a 49 66 20 74 68 69 | 73 20 69 73 20 61 6e 20 |\.If thi|s is an |
|00001290| 45 6e 65 72 67 69 7a 65 | 20 62 75 66 66 65 72 2c |Energize| buffer,|
|000012a0| 20 74 68 65 6e 20 74 68 | 65 20 45 6e 65 72 67 69 | then th|e Energi|
|000012b0| 7a 65 20 6d 6f 64 65 73 | 20 61 72 65 20 74 75 72 |ze modes| are tur|
|000012c0| 6e 65 64 20 6f 6e 20 61 | 73 20 77 65 6c 6c 2e 22 |ned on a|s well."|
|000012d0| 20 6e 69 6c 5d 29 0a 28 | 62 79 74 65 2d 63 6f 64 | nil]).(|byte-cod|
|000012e0| 65 20 22 c0 c1 4d 88 c2 | c3 4d 88 c4 c5 4d 88 c6 |e "..M..|.M...M..|
|000012f0| c7 4d 87 22 20 5b 65 6e | 65 72 67 69 7a 65 2d 77 |.M." [en|ergize-w|
|00001300| 72 69 74 65 2d 64 61 74 | 61 2d 68 6f 6f 6b 20 23 |rite-dat|a-hook #|
|00001310| 5b 28 6e 61 6d 65 29 20 | 22 c0 70 21 ad 92 c1 c2 |[(name) |".p!....|
|00001320| 0b 5c 22 88 c4 c5 21 88 | c6 20 88 c1 c7 0b 5c 22 |.\"...!.|. ....\"|
|00001330| 88 c8 87 22 20 5b 65 6e | 65 72 67 69 7a 65 2d 62 |..." [en|ergize-b|
|00001340| 75 66 66 65 72 2d 70 20 | 6d 65 73 73 61 67 65 20 |uffer-p |message |
|00001350| 22 73 61 76 69 6e 67 20 | 25 73 20 74 6f 20 45 6e |"saving |%s to En|
|00001360| 65 72 67 69 7a 65 2e 2e | 2e 22 20 6e 61 6d 65 20 |ergize..|." name |
|00001370| 65 6e 65 72 67 69 7a 65 | 2d 65 78 65 63 75 74 65 |energize|-execute|
|00001380| 2d 63 6f 6d 6d 61 6e 64 | 20 22 73 61 76 65 22 20 |-command| "save" |
|00001390| 65 6e 65 72 67 69 7a 65 | 2d 75 70 64 61 74 65 2d |energize|-update-|
|000013a0| 6d 65 6e 75 62 61 72 20 | 22 73 61 76 65 64 20 25 |menubar |"saved %|
|000013b0| 73 20 74 6f 20 45 6e 65 | 72 67 69 7a 65 2e 22 20 |s to Ene|rgize." |
|000013c0| 74 5d 20 33 5d 20 65 6e | 65 72 67 69 7a 65 2d 72 |t] 3] en|ergize-r|
|000013d0| 65 76 65 72 74 2d 62 75 | 66 66 65 72 2d 69 6e 73 |evert-bu|ffer-ins|
|000013e0| 65 72 74 2d 66 69 6c 65 | 2d 63 6f 6e 74 65 6e 74 |ert-file|-content|
|000013f0| 73 2d 68 6f 6f 6b 20 23 | 5b 28 66 69 6c 65 20 6e |s-hook #|[(file n|
|00001400| 6f 63 6f 6e 66 69 72 6d | 29 20 22 c0 70 21 ac 84 |oconfirm|) ".p!..|
|00001410| c1 c2 21 88 7e 88 0b 0c | 9a ab 86 c5 c6 21 88 aa |..!.~...|.....!..|
|00001420| 91 c7 0b 21 ac 85 c1 c8 | 0b 5c 22 88 c9 20 88 ca |...!....|.\".. ..|
|00001430| 0b 21 88 cb 87 22 20 5b | 65 6e 65 72 67 69 7a 65 |.!..." [|energize|
|00001440| 2d 62 75 66 66 65 72 2d | 70 20 65 72 72 6f 72 20 |-buffer-|p error |
|00001450| 22 65 6e 65 72 67 69 7a | 65 2d 72 65 76 65 72 74 |"energiz|e-revert|
|00001460| 2d 62 75 66 66 65 72 2d | 68 6f 6f 6b 20 63 61 6c |-buffer-|hook cal|
|00001470| 6c 65 64 20 66 6f 72 20 | 61 20 6e 6f 6e 2d 65 6e |led for |a non-en|
|00001480| 65 72 67 69 7a 65 20 62 | 75 66 66 65 72 22 20 66 |ergize b|uffer" f|
|00001490| 69 6c 65 20 62 75 66 66 | 65 72 2d 66 69 6c 65 2d |ile buff|er-file-|
|000014a0| 6e 61 6d 65 20 65 6e 65 | 72 67 69 7a 65 2d 65 78 |name ene|rgize-ex|
|000014b0| 65 63 75 74 65 2d 63 6f | 6d 6d 61 6e 64 20 22 72 |ecute-co|mmand "r|
|000014c0| 65 76 65 72 74 22 20 66 | 69 6c 65 2d 65 78 69 73 |evert" f|ile-exis|
|000014d0| 74 73 2d 70 20 22 46 69 | 6c 65 20 25 73 20 6e 6f |ts-p "Fi|le %s no|
|000014e0| 20 6c 6f 6e 67 65 72 20 | 65 78 69 73 74 73 21 22 | longer |exists!"|
|000014f0| 20 65 72 61 73 65 2d 62 | 75 66 66 65 72 20 69 6e | erase-b|uffer in|
|00001500| 73 65 72 74 2d 66 69 6c | 65 2d 63 6f 6e 74 65 6e |sert-fil|e-conten|
|00001510| 74 73 20 74 5d 20 33 5d | 20 65 6e 65 72 67 69 7a |ts t] 3]| energiz|
|00001520| 65 2d 6b 69 6c 6c 2d 62 | 75 66 66 65 72 2d 68 6f |e-kill-b|uffer-ho|
|00001530| 6f 6b 20 23 5b 6e 69 6c | 20 22 c0 70 21 ab 86 c1 |ok #[nil| ".p!...|
|00001540| 70 21 88 aa 84 c2 c3 21 | 88 c4 87 22 20 5b 65 6e |p!.....!|..." [en|
|00001550| 65 72 67 69 7a 65 2d 62 | 75 66 66 65 72 2d 70 20 |ergize-b|uffer-p |
|00001560| 65 6e 65 72 67 69 7a 65 | 2d 72 65 71 75 65 73 74 |energize|-request|
|00001570| 2d 6b 69 6c 6c 2d 62 75 | 66 66 65 72 20 65 72 72 |-kill-bu|ffer err|
|00001580| 6f 72 20 22 65 6e 65 72 | 67 69 7a 65 2d 6b 69 6c |or "ener|gize-kil|
|00001590| 6c 2d 62 75 66 66 65 72 | 2d 68 6f 6f 6b 20 63 61 |l-buffer|-hook ca|
|000015a0| 6c 6c 65 64 20 6f 6e 20 | 61 20 6e 6f 6e 2d 65 6e |lled on |a non-en|
|000015b0| 65 72 67 69 7a 65 20 62 | 75 66 66 65 72 22 20 74 |ergize b|uffer" t|
|000015c0| 5d 20 32 5d 20 65 6e 65 | 72 67 69 7a 65 2d 65 64 |] 2] ene|rgize-ed|
|000015d0| 69 74 2d 64 65 66 69 6e | 69 74 69 6f 6e 2d 64 65 |it-defin|ition-de|
|000015e0| 66 61 75 6c 74 20 23 5b | 6e 69 6c 20 22 8a 68 7a |fault #[|nil ".hz|
|000015f0| c0 3e ac 8a c1 c2 21 ac | 85 c3 75 88 aa 76 c1 c4 |.>....!.|..u..v..|
|00001600| 21 ab 85 c3 75 88 aa 76 | c5 c4 c6 c7 23 ad 94 c3 |!...u..v|....#...|
|00001610| 75 88 60 c8 c9 21 88 c1 | ca 21 ab 85 c3 75 88 aa |u.`..!..|.!...u..|
|00001620| 76 60 7b 29 87 22 20 5b | 28 31 31 39 20 39 35 29 |v`{)." [|(119 95)|
|00001630| 20 6c 6f 6f 6b 69 6e 67 | 2d 61 74 20 22 5c 5c 73 | looking|-at "\\s|
|00001640| 77 5c 5c 7c 5c 5c 73 5f | 5c 5c 7c 5c 5c 27 22 20 |w\\|\\s_|\\|\\'" |
|00001650| 31 20 22 5c 5c 73 77 5c | 5c 7c 5c 5c 73 5f 22 20 |1 "\\sw\|\|\\s_" |
|00001660| 72 65 2d 73 65 61 72 63 | 68 2d 62 61 63 6b 77 61 |re-searc|h-backwa|
|00001670| 72 64 20 6e 69 6c 20 74 | 20 66 6f 72 77 61 72 64 |rd nil t| forward|
|00001680| 2d 73 65 78 70 20 2d 31 | 20 22 5c 5c 73 27 22 5d |-sexp -1| "\\s'"]|
|00001690| 20 34 5d 5d 20 32 29 0a | 28 66 73 65 74 20 27 65 | 4]] 2).|(fset 'e|
|000016a0| 6e 65 72 67 69 7a 65 2d | 65 64 69 74 2d 64 65 66 |nergize-|edit-def|
|000016b0| 69 6e 69 74 69 6f 6e 20 | 23 5b 28 64 65 66 29 20 |inition |#[(def) |
|000016c0| 22 c0 20 ab 87 c1 c2 c3 | 0c c5 24 87 c6 0c 21 87 |". .....|..$...!.|
|000016d0| 22 20 5b 63 6f 6e 6e 65 | 63 74 65 64 2d 74 6f 2d |" [conne|cted-to-|
|000016e0| 65 6e 65 72 67 69 7a 65 | 2d 70 20 65 6e 65 72 67 |energize|-p energ|
|000016f0| 69 7a 65 2d 65 78 65 63 | 75 74 65 2d 63 6f 6d 6d |ize-exec|ute-comm|
|00001700| 61 6e 64 20 22 65 64 69 | 74 64 65 66 22 20 6e 69 |and "edi|tdef" ni|
|00001710| 6c 20 64 65 66 20 74 20 | 66 69 6e 64 2d 74 61 67 |l def t |find-tag|
|00001720| 5d 20 35 20 22 5c 0a 49 | 66 20 63 6f 6e 6e 65 63 |] 5 "\.I|f connec|
|00001730| 74 65 64 20 74 6f 20 45 | 6e 65 72 67 69 7a 65 2c |ted to E|nergize,|
|00001740| 20 74 68 65 20 45 6e 65 | 72 67 69 7a 65 20 64 61 | the Ene|rgize da|
|00001750| 74 61 62 61 73 65 20 69 | 73 20 75 73 65 64 2e 20 |tabase i|s used. |
|00001760| 20 0a 4f 74 68 65 72 77 | 69 73 65 2c 20 60 66 69 | .Otherw|ise, `fi|
|00001770| 6e 64 2d 74 61 67 27 20 | 69 73 20 69 6e 76 6f 6b |nd-tag' |is invok|
|00001780| 65 64 2e 0a 54 68 65 20 | 58 20 73 65 6c 65 63 74 |ed..The |X select|
|00001790| 69 6f 6e 20 69 73 20 75 | 73 65 64 20 61 73 20 61 |ion is u|sed as a|
|000017a0| 20 64 65 66 61 75 6c 74 | 2c 20 69 66 20 69 74 20 | default|, if it |
|000017b0| 65 78 69 73 74 73 20 61 | 6e 64 20 63 6f 6e 74 61 |exists a|nd conta|
|000017c0| 69 6e 73 20 6e 6f 20 0a | 6e 65 77 6c 69 6e 65 73 |ins no .|newlines|
|000017d0| 2e 20 20 4f 74 68 65 72 | 77 69 73 65 2c 20 74 68 |.  Other|wise, th|
|000017e0| 65 20 70 72 65 63 65 65 | 64 69 6e 67 20 74 6f 6b |e precee|ding tok|
|000017f0| 65 6e 20 69 73 20 75 73 | 65 64 20 61 73 20 61 20 |en is us|ed as a |
|00001800| 64 65 66 61 75 6c 74 2e | 20 20 0a 49 66 20 69 6e |default.|  .If in|
|00001810| 76 6f 6b 65 64 20 66 72 | 6f 6d 20 61 20 6d 6f 75 |voked fr|om a mou|
|00001820| 73 65 20 63 6f 6d 6d 61 | 6e 64 2c 20 70 72 6f 6d |se comma|nd, prom|
|00001830| 70 74 69 6e 67 20 68 61 | 70 70 65 6e 73 20 77 69 |pting ha|ppens wi|
|00001840| 74 68 20 61 20 64 69 61 | 6c 6f 67 20 62 6f 78 3b |th a dia|log box;|
|00001850| 20 0a 6f 74 68 65 72 77 | 69 73 65 2c 20 74 68 65 | .otherw|ise, the|
|00001860| 20 6d 69 6e 69 62 75 66 | 66 65 72 20 69 73 20 75 | minibuf|fer is u|
|00001870| 73 65 64 2e 22 20 28 62 | 79 74 65 2d 63 6f 64 65 |sed." (b|yte-code|
|00001880| 20 22 c0 20 ab 91 c1 5c | 6e 21 ac 8a c3 5c 6e 21 | ". ...\|n!...\n!|
|00001890| ac 85 c4 5c 6e 21 ab 82 | c5 87 c6 89 1e 07 1e 08 |...\n!..|........|
|000018a0| c9 20 ab b0 ca 20 16 08 | cb cc 0e 08 5c 22 ab 8a |. ... ..|....\"..|
|000018b0| 0e 08 cd 95 c6 4f 16 08 | aa 6f cb ce 0e 08 5c 22 |.....O..|.o....\"|
|000018c0| ab 8a 0e 08 cd 89 94 4f | 16 08 aa 6f cb cf 0e 08 |.......O|...o....|
|000018d0| 5c 22 ab 83 c6 16 08 0e | 08 ac 84 d0 20 16 08 c0 |\"......|.... ...|
|000018e0| 20 ab 94 d1 0e 08 ab 87 | d2 d3 0e 08 5c 22 aa 81 | .......|....\"..|
|000018f0| d4 c6 89 89 89 25 aa 92 | d5 d6 21 ab 85 d5 d7 21 |.....%..|..!....!|
|00001900| ac 85 d8 d9 da 5c 22 88 | d6 d4 21 89 16 07 3a ab |.....\".|..!...:.|
|00001910| 85 0e 07 40 16 07 0e 07 | db 9a ab 84 0e 08 16 07 |...@....|........|
|00001920| 0e 07 2a 43 87 22 20 5b | 63 6f 6e 6e 65 63 74 65 |..*C." [|connecte|
|00001930| 64 2d 74 6f 2d 65 6e 65 | 72 67 69 7a 65 2d 70 20 |d-to-ene|rgize-p |
|00001940| 6d 65 6e 75 2d 65 76 65 | 6e 74 2d 70 20 6c 61 73 |menu-eve|nt-p las|
|00001950| 74 2d 63 6f 6d 6d 61 6e | 64 2d 65 76 65 6e 74 20 |t-comman|d-event |
|00001960| 62 75 74 74 6f 6e 2d 70 | 72 65 73 73 2d 65 76 65 |button-p|ress-eve|
|00001970| 6e 74 2d 70 20 62 75 74 | 74 6f 6e 2d 72 65 6c 65 |nt-p but|ton-rele|
|00001980| 61 73 65 2d 65 76 65 6e | 74 2d 70 20 28 6e 69 6c |ase-even|t-p (nil|
|00001990| 29 20 6e 69 6c 20 64 65 | 66 20 64 65 66 61 75 6c |) nil de|f defaul|
|000019a0| 74 20 78 2d 73 65 6c 65 | 63 74 69 6f 6e 2d 6f 77 |t x-sele|ction-ow|
|000019b0| 6e 65 72 2d 70 20 78 2d | 67 65 74 2d 73 65 6c 65 |ner-p x-|get-sele|
|000019c0| 63 74 69 6f 6e 20 73 74 | 72 69 6e 67 2d 6d 61 74 |ction st|ring-mat|
|000019d0| 63 68 20 22 5c 5c 60 5b | 20 09 5c 6e 5d 2b 22 20 |ch "\\`[| .\n]+" |
|000019e0| 30 20 22 5b 20 09 5c 6e | 5d 2b 5c 5c 27 22 20 22 |0 "[ .\n|]+\\'" "|
|000019f0| 5b 20 09 5c 6e 5d 22 20 | 65 6e 65 72 67 69 7a 65 |[ .\n]" |energize|
|00001a00| 2d 65 64 69 74 2d 64 65 | 66 69 6e 69 74 69 6f 6e |-edit-de|finition|
|00001a10| 2d 64 65 66 61 75 6c 74 | 20 63 6f 6d 70 6c 65 74 |-default| complet|
|00001a20| 69 6e 67 2d 72 65 61 64 | 20 66 6f 72 6d 61 74 20 |ing-read| format |
|00001a30| 22 45 64 69 74 20 64 65 | 66 69 6e 69 74 69 6f 6e |"Edit de|finition|
|00001a40| 20 5b 25 73 5d 3a 20 22 | 20 22 45 64 69 74 20 64 | [%s]: "| "Edit d|
|00001a50| 65 66 69 6e 69 74 69 6f | 6e 3a 20 22 20 66 62 6f |efinitio|n: " fbo|
|00001a60| 75 6e 64 70 20 66 69 6e | 64 2d 74 61 67 2d 74 61 |undp fin|d-tag-ta|
|00001a70| 67 20 66 69 6e 64 2d 74 | 61 67 2d 64 65 66 61 75 |g find-t|ag-defau|
|00001a80| 6c 74 20 72 65 71 75 69 | 72 65 20 74 61 67 73 20 |lt requi|re tags |
|00001a90| 22 65 74 61 67 73 22 20 | 22 22 5d 20 37 29 5d 29 |"etags" |""] 7)])|
|00001aa0| 0a 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 09 c2 |.(byte-c|ode "...|
|00001ab0| c3 23 88 c0 09 c4 c5 23 | 87 22 20 5b 64 65 66 69 |.#.....#|." [defi|
|00001ac0| 6e 65 2d 6b 65 79 20 67 | 6c 6f 62 61 6c 2d 6d 61 |ne-key g|lobal-ma|
|00001ad0| 70 20 22 ae 22 20 65 6e | 65 72 67 69 7a 65 2d 65 |p "." en|ergize-e|
|00001ae0| 64 69 74 2d 64 65 66 69 | 6e 69 74 69 6f 6e 20 22 |dit-defi|nition "|
|00001af0| c2 22 20 65 6e 65 72 67 | 69 7a 65 2d 62 75 69 6c |." energ|ize-buil|
|00001b00| 64 2d 61 2d 74 61 72 67 | 65 74 5d 20 34 29 0a 28 |d-a-targ|et] 4).(|
|00001b10| 66 73 65 74 20 27 64 69 | 73 63 6f 6e 6e 65 63 74 |fset 'di|sconnect|
|00001b20| 2d 66 72 6f 6d 2d 65 6e | 65 72 67 69 7a 65 2d 71 |-from-en|ergize-q|
|00001b30| 75 65 72 79 20 23 5b 6e | 69 6c 20 22 c0 c1 21 ac |uery #[n|il "..!.|
|00001b40| 84 c2 c3 21 88 c4 20 87 | 22 20 5b 79 2d 6f 72 2d |...!.. .|" [y-or-|
|00001b50| 6e 2d 70 20 22 44 69 73 | 63 6f 6e 6e 65 63 74 20 |n-p "Dis|connect |
|00001b60| 66 72 6f 6d 20 45 6e 65 | 72 67 69 7a 65 3f 20 22 |from Ene|rgize? "|
|00001b70| 20 65 72 72 6f 72 20 22 | 6e 6f 74 20 63 6f 6e 66 | error "|not conf|
|00001b80| 69 72 6d 65 64 22 20 64 | 69 73 63 6f 6e 6e 65 63 |irmed" d|isconnec|
|00001b90| 74 2d 66 72 6f 6d 2d 65 | 6e 65 72 67 69 7a 65 5d |t-from-e|nergize]|
|00001ba0| 20 32 20 22 5c 0a 44 69 | 73 63 6f 6e 6e 65 63 74 | 2 "\.Di|sconnect|
|00001bb0| 20 74 68 69 73 20 65 6d | 61 63 73 20 66 72 6f 6d | this em|acs from|
|00001bc0| 20 74 68 65 20 45 6e 65 | 72 67 69 7a 65 20 73 65 | the Ene|rgize se|
|00001bd0| 72 76 65 72 2c 20 61 66 | 74 65 72 20 63 6f 6e 66 |rver, af|ter conf|
|00001be0| 69 72 6d 69 6e 67 2e 22 | 20 6e 69 6c 5d 29 0a 28 |irming."| nil]).(|
|00001bf0| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 c1 4d 88 c2 |byte-cod|e "..M..|
|00001c00| c3 4d 88 c4 c5 4d 88 c6 | c7 4d 88 c8 c9 4d 88 ca |.M...M..|.M...M..|
|00001c10| cb 4d 88 cc cd 4d 88 ce | cf 4d 87 22 20 5b 65 6e |.M...M..|.M." [en|
|00001c20| 65 72 67 69 7a 65 2d 69 | 6e 73 65 72 74 2d 73 6c |ergize-i|nsert-sl|
|00001c30| 6f 74 73 20 23 5b 28 67 | 6f 74 2d 74 6f 2d 74 6f |ots #[(g|ot-to-to|
|00001c40| 70 2d 70 20 6c 29 20 22 | 08 c1 3d ac 84 c2 c3 21 |p-p l) "|..=....!|
|00001c50| 88 0c ab 85 c5 20 88 aa | 83 c6 79 88 c7 c8 c9 ca |..... ..|..y.....|
|00001c60| 23 ac 91 c7 cb c9 ca 23 | ac 8a cc c8 21 ac 85 cc |#......#|....!...|
|00001c70| cb 21 ab 84 cd ce 21 88 | cc cf 21 ac 8b 60 64 3d |.!....!.|..!..`d=|
|00001c80| ac 86 d0 d1 21 88 aa 70 | d2 20 88 8a d3 d4 0e 15 |....!..p|. ......|
|00001c90| 5c 22 88 29 d6 75 87 22 | 20 5b 6d 61 6a 6f 72 2d |\".).u."| [major-|
|00001ca0| 6d 6f 64 65 20 65 6e 65 | 72 67 69 7a 65 2d 70 72 |mode ene|rgize-pr|
|00001cb0| 6f 6a 65 63 74 2d 6d 6f | 64 65 20 65 72 72 6f 72 |oject-mo|de error|
|00001cc0| 20 22 43 6f 6d 6d 61 6e | 64 20 61 76 61 69 6c 61 | "Comman|d availa|
|00001cd0| 62 6c 65 20 6f 6e 6c 79 | 20 69 6e 20 70 72 6f 6a |ble only| in proj|
|00001ce0| 65 63 74 20 62 75 66 66 | 65 72 73 22 20 67 6f 74 |ect buff|ers" got|
|00001cf0| 2d 74 6f 2d 74 6f 70 2d | 70 20 62 65 67 69 6e 6e |-to-top-|p beginn|
|00001d00| 69 6e 67 2d 6f 66 2d 62 | 75 66 66 65 72 20 30 20 |ing-of-b|uffer 0 |
|00001d10| 73 65 61 72 63 68 2d 62 | 61 63 6b 77 61 72 64 20 |search-b|ackward |
|00001d20| 22 52 65 6c 61 74 65 64 | 20 50 72 6f 6a 65 63 74 |"Related| Project|
|00001d30| 73 3a 22 20 6e 69 6c 20 | 74 20 22 41 73 73 6f 63 |s:" nil |t "Assoc|
|00001d40| 69 61 74 65 64 20 46 69 | 6c 65 73 3a 22 20 6c 6f |iated Fi|les:" lo|
|00001d50| 6f 6b 69 6e 67 2d 61 74 | 20 70 72 65 76 69 6f 75 |oking-at| previou|
|00001d60| 73 2d 6c 69 6e 65 20 32 | 20 22 24 22 20 6e 65 78 |s-line 2| "$" nex|
|00001d70| 74 2d 6c 69 6e 65 20 31 | 20 6e 65 77 6c 69 6e 65 |t-line 1| newline|
|00001d80| 20 6d 61 70 63 61 72 20 | 23 5b 28 69 29 20 22 08 | mapcar |#[(i) ".|
|00001d90| 63 88 c1 20 87 22 20 5b | 69 20 6e 65 77 6c 69 6e |c.. ." [|i newlin|
|00001da0| 65 5d 20 31 5d 20 6c 20 | 31 38 5d 20 34 5d 20 65 |e] 1] l |18] 4] e|
|00001db0| 6e 65 72 67 69 7a 65 2d | 69 6e 73 65 72 74 2d 72 |nergize-|insert-r|
|00001dc0| 75 6c 65 20 23 5b 6e 69 | 6c 20 22 c0 c1 c2 5c 22 |ule #[ni|l "...\"|
|00001dd0| 87 22 20 5b 65 6e 65 72 | 67 69 7a 65 2d 69 6e 73 |." [ener|gize-ins|
|00001de0| 65 72 74 2d 73 6c 6f 74 | 73 20 74 20 28 22 20 20 |ert-slot|s t ("  |
|00001df0| 20 20 20 20 20 20 20 20 | 20 52 75 6c 65 73 3a 22 |        | Rules:"|
|00001e00| 20 22 20 20 20 20 20 20 | 20 20 20 20 3c 72 75 6c | "      |    <rul|
|00001e10| 65 3e 3a 20 6c 63 63 20 | 2d 58 65 7a 20 2d 63 20 |e>: lcc |-Xez -c |
|00001e20| 2d 67 20 2d 58 61 20 2d | 6f 20 24 6f 62 6a 65 63 |-g -Xa -|o $objec|
|00001e30| 74 20 24 73 6f 75 72 63 | 65 22 29 5d 20 33 20 6e |t $sourc|e")] 3 n|
|00001e40| 69 6c 20 6e 69 6c 5d 20 | 65 6e 65 72 67 69 7a 65 |il nil] |energize|
|00001e50| 2d 69 6e 73 65 72 74 2d | 6f 62 6a 65 63 74 2d 66 |-insert-|object-f|
|00001e60| 69 6c 65 2d 74 61 72 67 | 65 74 20 23 5b 6e 69 6c |ile-targ|et #[nil|
|00001e70| 20 22 c0 c1 c2 5c 22 87 | 22 20 5b 65 6e 65 72 67 | "...\".|" [energ|
|00001e80| 69 7a 65 2d 69 6e 73 65 | 72 74 2d 73 6c 6f 74 73 |ize-inse|rt-slots|
|00001e90| 20 6e 69 6c 20 28 22 20 | 20 20 20 20 4f 62 6a 65 | nil (" |    Obje|
|00001ea0| 63 74 20 46 69 6c 65 3a | 20 3c 6f 62 6a 65 63 74 |ct File:| <object|
|00001eb0| 2d 66 69 6c 65 3e 22 20 | 22 20 20 20 20 20 53 6f |-file>" |"     So|
|00001ec0| 75 72 63 65 20 46 69 6c | 65 3a 20 3c 73 6f 75 72 |urce Fil|e: <sour|
|00001ed0| 63 65 2d 66 69 6c 65 3e | 22 20 22 20 20 20 20 20 |ce-file>|" "     |
|00001ee0| 20 42 75 69 6c 64 20 52 | 75 6c 65 3a 20 3c 72 75 | Build R|ule: <ru|
|00001ef0| 6c 65 3e 22 29 5d 20 33 | 20 6e 69 6c 20 6e 69 6c |le>")] 3| nil nil|
|00001f00| 5d 20 65 6e 65 72 67 69 | 7a 65 2d 69 6e 73 65 72 |] energi|ze-inser|
|00001f10| 74 2d 65 78 65 63 75 74 | 61 62 6c 65 2d 74 61 72 |t-execut|able-tar|
|00001f20| 67 65 74 20 23 5b 6e 69 | 6c 20 22 c0 c1 c2 5c 22 |get #[ni|l "...\"|
|00001f30| 87 22 20 5b 65 6e 65 72 | 67 69 7a 65 2d 69 6e 73 |." [ener|gize-ins|
|00001f40| 65 72 74 2d 73 6c 6f 74 | 73 20 6e 69 6c 20 28 22 |ert-slot|s nil ("|
|00001f50| 20 20 20 20 20 20 45 78 | 65 63 75 74 61 62 6c 65 |      Ex|ecutable|
|00001f60| 3a 20 3c 65 78 65 63 75 | 74 61 62 6c 65 3e 22 20 |: <execu|table>" |
|00001f70| 22 20 20 20 42 75 69 6c | 64 20 43 6f 6d 6d 61 6e |"   Buil|d Comman|
|00001f80| 64 3a 20 6c 63 63 20 2d | 58 66 20 2d 58 65 7a 20 |d: lcc -|Xf -Xez |
|00001f90| 2d 6f 20 24 6f 62 6a 65 | 63 74 20 3c 6f 62 6a 65 |-o $obje|ct <obje|
|00001fa0| 63 74 2d 66 69 6c 65 3e | 20 2e 2e 2e 22 29 5d 20 |ct-file>| ...")] |
|00001fb0| 33 20 6e 69 6c 20 6e 69 | 6c 5d 20 65 6e 65 72 67 |3 nil ni|l] energ|
|00001fc0| 69 7a 65 2d 69 6e 73 65 | 72 74 2d 6c 69 62 72 61 |ize-inse|rt-libra|
|00001fd0| 72 79 2d 74 61 72 67 65 | 74 20 23 5b 6e 69 6c 20 |ry-targe|t #[nil |
|00001fe0| 22 c0 c1 c2 5c 22 87 22 | 20 5b 65 6e 65 72 67 69 |"...\"."| [energi|
|00001ff0| 7a 65 2d 69 6e 73 65 72 | 74 2d 73 6c 6f 74 73 20 |ze-inser|t-slots |
|00002000| 6e 69 6c 20 28 22 20 20 | 20 20 20 20 20 20 20 4c |nil ("  |       L|
|00002010| 69 62 72 61 72 79 3a 20 | 3c 6c 69 62 72 61 72 79 |ibrary: |<library|
|00002020| 3e 22 20 22 20 20 20 42 | 75 69 6c 64 20 43 6f 6d |>" "   B|uild Com|
|00002030| 6d 61 6e 64 3a 20 65 6e | 65 72 67 69 7a 65 5f 61 |mand: en|ergize_a|
|00002040| 72 20 2d 58 65 7a 20 2d | 72 65 6d 6f 76 65 20 2d |r -Xez -|remove -|
|00002050| 72 61 6e 6c 69 62 20 63 | 6c 71 20 24 6f 62 6a 65 |ranlib c|lq $obje|
|00002060| 63 74 20 5c 5c 22 20 22 | 20 20 20 20 20 20 20 20 |ct \\" "|        |
|00002070| 20 20 20 20 20 20 20 20 | 20 20 20 20 3c 6f 62 6a |        |    <obj|
|00002080| 65 63 74 2d 66 69 6c 65 | 3e 20 2e 2e 2e 22 29 5d |ect-file|> ...")]|
|00002090| 20 33 20 6e 69 6c 20 6e | 69 6c 5d 20 65 6e 65 72 | 3 nil n|il] ener|
|000020a0| 67 69 7a 65 2d 69 6e 73 | 65 72 74 2d 63 6f 6c 6c |gize-ins|ert-coll|
|000020b0| 65 63 74 69 6f 6e 2d 74 | 61 72 67 65 74 20 23 5b |ection-t|arget #[|
|000020c0| 6e 69 6c 20 22 c0 c1 c2 | 5c 22 87 22 20 5b 65 6e |nil "...|\"." [en|
|000020d0| 65 72 67 69 7a 65 2d 69 | 6e 73 65 72 74 2d 73 6c |ergize-i|nsert-sl|
|000020e0| 6f 74 73 20 6e 69 6c 20 | 28 22 20 20 20 20 20 20 |ots nil |("      |
|000020f0| 43 6f 6c 6c 65 63 74 69 | 6f 6e 3a 20 3c 63 6f 6c |Collecti|on: <col|
|00002100| 6c 65 63 74 69 6f 6e 3e | 22 20 22 20 20 20 42 75 |lection>|" "   Bu|
|00002110| 69 6c 64 20 43 6f 6d 6d | 61 6e 64 3a 20 65 6e 65 |ild Comm|and: ene|
|00002120| 72 67 69 7a 65 5f 63 6f | 6c 6c 65 63 74 20 2d 58 |rgize_co|llect -X|
|00002130| 65 7a 20 2d 6f 20 24 6f | 62 6a 65 63 74 20 3c 6f |ez -o $o|bject <o|
|00002140| 62 6a 65 63 74 2d 66 69 | 6c 65 3e 20 2e 2e 2e 22 |bject-fi|le> ..."|
|00002150| 29 5d 20 33 20 6e 69 6c | 20 6e 69 6c 5d 20 65 6e |)] 3 nil| nil] en|
|00002160| 65 72 67 69 7a 65 2d 69 | 6e 73 65 72 74 2d 66 69 |ergize-i|nsert-fi|
|00002170| 6c 65 2d 74 61 72 67 65 | 74 20 23 5b 6e 69 6c 20 |le-targe|t #[nil |
|00002180| 22 c0 c1 c2 5c 22 87 22 | 20 5b 65 6e 65 72 67 69 |"...\"."| [energi|
|00002190| 7a 65 2d 69 6e 73 65 72 | 74 2d 73 6c 6f 74 73 20 |ze-inser|t-slots |
|000021a0| 6e 69 6c 20 28 22 20 20 | 20 20 20 46 69 6c 65 20 |nil ("  |   File |
|000021b0| 54 61 72 67 65 74 3a 20 | 3c 74 61 72 67 65 74 3e |Target: |<target>|
|000021c0| 22 20 22 20 20 20 20 44 | 65 70 65 6e 64 65 6e 63 |" "    D|ependenc|
|000021d0| 69 65 73 3a 20 3c 74 61 | 72 67 65 74 3e 20 2e 2e |ies: <ta|rget> ..|
|000021e0| 2e 22 20 22 20 20 20 42 | 75 69 6c 64 20 43 6f 6d |." "   B|uild Com|
|000021f0| 6d 61 6e 64 3a 20 3c 73 | 68 65 6c 6c 2d 63 6f 6d |mand: <s|hell-com|
|00002200| 6d 61 6e 64 3e 22 29 5d | 20 33 20 6e 69 6c 20 6e |mand>")]| 3 nil n|
|00002210| 69 6c 5d 20 65 6e 65 72 | 67 69 7a 65 2d 69 6e 73 |il] ener|gize-ins|
|00002220| 65 72 74 2d 74 61 72 67 | 65 74 2d 74 61 72 67 65 |ert-targ|et-targe|
|00002230| 74 20 23 5b 6e 69 6c 20 | 22 c0 c1 c2 5c 22 87 22 |t #[nil |"...\"."|
|00002240| 20 5b 65 6e 65 72 67 69 | 7a 65 2d 69 6e 73 65 72 | [energi|ze-inser|
|00002250| 74 2d 73 6c 6f 74 73 20 | 6e 69 6c 20 28 22 20 20 |t-slots |nil ("  |
|00002260| 20 20 20 20 20 20 20 20 | 54 61 72 67 65 74 3a 20 |        |Target: |
|00002270| 3c 74 61 72 67 65 74 3e | 22 20 22 20 20 20 20 44 |<target>|" "    D|
|00002280| 65 70 65 6e 64 65 6e 63 | 69 65 73 3a 20 3c 74 61 |ependenc|ies: <ta|
|00002290| 72 67 65 74 3e 20 2e 2e | 2e 22 20 22 20 20 20 42 |rget> ..|." "   B|
|000022a0| 75 69 6c 64 20 43 6f 6d | 6d 61 6e 64 3a 20 3c 73 |uild Com|mand: <s|
|000022b0| 68 65 6c 6c 2d 63 6f 6d | 6d 61 6e 64 3e 22 29 5d |hell-com|mand>")]|
|000022c0| 20 33 20 6e 69 6c 20 6e | 69 6c 5d 5d 20 32 29 0a | 3 nil n|il]] 2).|
|000022d0| 28 64 65 66 76 61 72 20 | 65 6e 65 72 67 69 7a 65 |(defvar |energize|
|000022e0| 2d 6d 61 70 20 6e 69 6c | 20 22 5c 0a 2a 50 61 72 |-map nil| "\.*Par|
|000022f0| 65 6e 74 20 6b 65 79 6d | 61 70 20 66 6f 72 20 61 |ent keym|ap for a|
|00002300| 6c 6c 20 45 6e 65 72 67 | 69 7a 65 20 62 75 66 66 |ll Energ|ize buff|
|00002310| 65 72 73 22 29 0a 28 64 | 65 66 76 61 72 20 65 6e |ers").(d|efvar en|
|00002320| 65 72 67 69 7a 65 2d 74 | 6f 70 2d 6c 65 76 65 6c |ergize-t|op-level|
|00002330| 2d 6d 61 70 20 6e 69 6c | 20 22 5c 0a 2a 4b 65 79 |-map nil| "\.*Key|
|00002340| 6d 61 70 20 66 6f 72 20 | 74 68 65 20 45 6e 65 72 |map for |the Ener|
|00002350| 67 69 7a 65 20 74 6f 70 | 2d 6c 65 76 65 6c 20 62 |gize top|-level b|
|00002360| 75 66 66 65 72 22 29 0a | 28 64 65 66 76 61 72 20 |uffer").|(defvar |
|00002370| 65 6e 65 72 67 69 7a 65 | 2d 75 73 65 72 2d 69 6e |energize|-user-in|
|00002380| 70 75 74 2d 6d 61 70 20 | 6e 69 6c 20 22 5c 0a 2a |put-map |nil "\.*|
|00002390| 50 61 72 65 6e 74 20 6b | 65 79 6d 61 70 20 66 6f |Parent k|eymap fo|
|000023a0| 72 20 45 6e 65 72 67 69 | 7a 65 20 69 6e 70 75 74 |r Energi|ze input|
|000023b0| 20 62 75 66 66 65 72 73 | 22 29 0a 28 64 65 66 76 | buffers|").(defv|
|000023c0| 61 72 20 65 6e 65 72 67 | 69 7a 65 2d 64 65 62 75 |ar energ|ize-debu|
|000023d0| 67 67 65 72 2d 6d 61 70 | 20 6e 69 6c 20 22 5c 0a |gger-map| nil "\.|
|000023e0| 2a 4b 65 79 6d 61 70 20 | 66 6f 72 20 45 6e 65 72 |*Keymap |for Ener|
|000023f0| 67 69 7a 65 20 64 65 62 | 75 67 67 65 72 20 62 75 |gize deb|ugger bu|
|00002400| 66 66 65 72 73 22 29 0a | 28 64 65 66 76 61 72 20 |ffers").|(defvar |
|00002410| 65 6e 65 72 67 69 7a 65 | 2d 62 72 65 61 6b 70 6f |energize|-breakpo|
|00002420| 69 6e 74 2d 6d 61 70 20 | 6e 69 6c 20 22 5c 0a 2a |int-map |nil "\.*|
|00002430| 4b 65 79 6d 61 70 20 66 | 6f 72 20 45 6e 65 72 67 |Keymap f|or Energ|
|00002440| 69 7a 65 20 62 72 65 61 | 6b 70 6f 69 6e 74 2d 6c |ize brea|kpoint-l|
|00002450| 69 73 74 73 22 29 0a 28 | 64 65 66 76 61 72 20 65 |ists").(|defvar e|
|00002460| 6e 65 72 67 69 7a 65 2d | 62 72 6f 77 73 65 72 2d |nergize-|browser-|
|00002470| 6d 61 70 20 6e 69 6c 20 | 22 5c 0a 2a 4b 65 79 6d |map nil |"\.*Keym|
|00002480| 61 70 20 66 6f 72 20 45 | 6e 65 72 67 69 7a 65 20 |ap for E|nergize |
|00002490| 62 72 6f 77 73 65 72 20 | 62 75 66 66 65 72 73 22 |browser |buffers"|
|000024a0| 29 0a 28 64 65 66 76 61 | 72 20 65 6e 65 72 67 69 |).(defva|r energi|
|000024b0| 7a 65 2d 70 72 6f 6a 65 | 63 74 2d 6d 61 70 20 6e |ze-proje|ct-map n|
|000024c0| 69 6c 20 22 5c 0a 2a 4b | 65 79 6d 61 70 20 66 6f |il "\.*K|eymap fo|
|000024d0| 72 20 45 6e 65 72 67 69 | 7a 65 20 70 72 6f 6a 65 |r Energi|ze proje|
|000024e0| 63 74 20 62 75 66 66 65 | 72 73 22 29 0a 28 64 65 |ct buffe|rs").(de|
|000024f0| 66 76 61 72 20 65 6e 65 | 72 67 69 7a 65 2d 6e 6f |fvar ene|rgize-no|
|00002500| 2d 66 69 6c 65 2d 70 72 | 6f 6a 65 63 74 2d 6d 61 |-file-pr|oject-ma|
|00002510| 70 20 6e 69 6c 20 22 5c | 0a 2a 4b 65 79 6d 61 70 |p nil "\|.*Keymap|
|00002520| 20 66 6f 72 20 45 6e 65 | 72 67 69 7a 65 20 70 72 | for Ene|rgize pr|
|00002530| 6f 6a 65 63 74 20 62 75 | 66 66 65 72 73 20 6e 6f |oject bu|ffers no|
|00002540| 74 20 61 73 73 6f 63 69 | 61 74 65 64 20 77 69 74 |t associ|ated wit|
|00002550| 68 20 61 20 66 69 6c 65 | 22 29 0a 28 64 65 66 76 |h a file|").(defv|
|00002560| 61 72 20 65 6e 65 72 67 | 69 7a 65 2d 73 6f 75 72 |ar energ|ize-sour|
|00002570| 63 65 2d 6d 61 70 20 6e | 69 6c 20 22 5c 0a 2a 4b |ce-map n|il "\.*K|
|00002580| 65 79 6d 61 70 20 66 6f | 72 20 45 6e 65 72 67 69 |eymap fo|r Energi|
|00002590| 7a 65 20 73 6f 75 72 63 | 65 20 62 75 66 66 65 72 |ze sourc|e buffer|
|000025a0| 73 22 29 0a 28 64 65 66 | 76 61 72 20 65 6e 65 72 |s").(def|var ener|
|000025b0| 67 69 7a 65 2d 6d 6f 64 | 65 2d 68 6f 6f 6b 20 6e |gize-mod|e-hook n|
|000025c0| 69 6c 20 22 5c 0a 48 6f | 6f 6b 20 63 61 6c 6c 65 |il "\.Ho|ok calle|
|000025d0| 64 20 77 68 65 6e 20 65 | 61 63 68 20 65 6e 65 72 |d when e|ach ener|
|000025e0| 67 69 7a 65 20 62 75 66 | 66 65 72 20 69 73 20 63 |gize buf|fer is c|
|000025f0| 72 65 61 74 65 64 2e 22 | 29 0a 28 64 65 66 76 61 |reated."|).(defva|
|00002600| 72 20 65 6e 65 72 67 69 | 7a 65 2d 74 6f 70 2d 6c |r energi|ze-top-l|
|00002610| 65 76 65 6c 2d 6d 6f 64 | 65 2d 68 6f 6f 6b 20 6e |evel-mod|e-hook n|
|00002620| 69 6c 20 22 5c 0a 48 6f | 6f 6b 20 63 61 6c 6c 65 |il "\.Ho|ok calle|
|00002630| 64 20 77 68 65 6e 20 74 | 68 65 20 65 6e 65 72 67 |d when t|he energ|
|00002640| 69 7a 65 20 74 6f 70 2d | 6c 65 76 65 6c 20 62 75 |ize top-|level bu|
|00002650| 66 66 65 72 20 69 73 20 | 63 72 65 61 74 65 64 2e |ffer is |created.|
|00002660| 22 29 0a 28 64 65 66 76 | 61 72 20 65 6e 65 72 67 |").(defv|ar energ|
|00002670| 69 7a 65 2d 70 72 6f 6a | 65 63 74 2d 6d 6f 64 65 |ize-proj|ect-mode|
|00002680| 2d 68 6f 6f 6b 20 6e 69 | 6c 20 22 5c 0a 48 6f 6f |-hook ni|l "\.Hoo|
|00002690| 6b 20 63 61 6c 6c 65 64 | 20 77 68 65 6e 20 61 6e |k called| when an|
|000026a0| 20 45 6e 65 72 67 69 7a | 65 20 70 72 6f 6a 65 63 | Energiz|e projec|
|000026b0| 74 20 62 75 66 66 65 72 | 20 69 73 20 63 72 65 61 |t buffer| is crea|
|000026c0| 74 65 64 2e 22 29 0a 28 | 64 65 66 76 61 72 20 65 |ted.").(|defvar e|
|000026d0| 6e 65 72 67 69 7a 65 2d | 6e 6f 2d 66 69 6c 65 2d |nergize-|no-file-|
|000026e0| 70 72 6f 6a 65 63 74 2d | 6d 6f 64 65 2d 68 6f 6f |project-|mode-hoo|
|000026f0| 6b 20 6e 69 6c 20 22 5c | 0a 48 6f 6f 6b 20 63 61 |k nil "\|.Hook ca|
|00002700| 6c 6c 65 64 20 77 68 65 | 6e 20 61 6e 20 45 6e 65 |lled whe|n an Ene|
|00002710| 72 67 69 7a 65 20 70 72 | 6f 6a 65 63 74 20 62 75 |rgize pr|oject bu|
|00002720| 66 66 65 72 20 77 69 74 | 68 20 6e 6f 20 66 69 6c |ffer wit|h no fil|
|00002730| 65 20 69 73 20 63 72 65 | 61 74 65 64 2e 22 29 0a |e is cre|ated.").|
|00002740| 28 64 65 66 76 61 72 20 | 65 6e 65 72 67 69 7a 65 |(defvar |energize|
|00002750| 2d 62 72 65 61 6b 70 6f | 69 6e 74 2d 6d 6f 64 65 |-breakpo|int-mode|
|00002760| 2d 68 6f 6f 6b 20 6e 69 | 6c 20 22 5c 0a 48 6f 6f |-hook ni|l "\.Hoo|
|00002770| 6b 20 63 61 6c 6c 65 64 | 20 77 68 65 6e 20 61 6e |k called| when an|
|00002780| 20 45 6e 65 72 67 69 7a | 65 20 62 72 65 61 6b 70 | Energiz|e breakp|
|00002790| 6f 69 6e 74 2d 6c 69 73 | 74 20 62 75 66 66 65 72 |oint-lis|t buffer|
|000027a0| 20 69 73 20 63 72 65 61 | 74 65 64 2e 22 29 0a 28 | is crea|ted.").(|
|000027b0| 64 65 66 76 61 72 20 65 | 6e 65 72 67 69 7a 65 2d |defvar e|nergize-|
|000027c0| 62 72 6f 77 73 65 72 2d | 6d 6f 64 65 2d 68 6f 6f |browser-|mode-hoo|
|000027d0| 6b 20 6e 69 6c 20 22 5c | 0a 48 6f 6f 6b 20 63 61 |k nil "\|.Hook ca|
|000027e0| 6c 6c 65 64 20 77 68 65 | 6e 20 61 6e 20 45 6e 65 |lled whe|n an Ene|
|000027f0| 72 67 69 7a 65 20 62 72 | 6f 77 73 65 72 20 62 75 |rgize br|owser bu|
|00002800| 66 66 65 72 20 69 73 20 | 63 72 65 61 74 65 64 2e |ffer is |created.|
|00002810| 22 29 0a 28 64 65 66 76 | 61 72 20 65 6e 65 72 67 |").(defv|ar energ|
|00002820| 69 7a 65 2d 6c 6f 67 2d | 6d 6f 64 65 2d 68 6f 6f |ize-log-|mode-hoo|
|00002830| 6b 20 6e 69 6c 20 22 5c | 0a 48 6f 6f 6b 20 63 61 |k nil "\|.Hook ca|
|00002840| 6c 6c 65 64 20 77 68 65 | 6e 20 61 6e 20 45 6e 65 |lled whe|n an Ene|
|00002850| 72 67 69 7a 65 20 6c 6f | 67 20 62 75 66 66 65 72 |rgize lo|g buffer|
|00002860| 20 69 73 20 63 72 65 61 | 74 65 64 2e 22 29 0a 28 | is crea|ted.").(|
|00002870| 64 65 66 76 61 72 20 65 | 6e 65 72 67 69 7a 65 2d |defvar e|nergize-|
|00002880| 6d 61 6e 75 61 6c 2d 6d | 6f 64 65 2d 68 6f 6f 6b |manual-m|ode-hook|
|00002890| 20 6e 69 6c 20 22 5c 0a | 48 6f 6f 6b 20 63 61 6c | nil "\.|Hook cal|
|000028a0| 6c 65 64 20 77 68 65 6e | 20 61 6e 20 45 6e 65 72 |led when| an Ener|
|000028b0| 67 69 7a 65 20 6d 61 6e | 75 61 6c 20 62 75 66 66 |gize man|ual buff|
|000028c0| 65 72 20 69 73 20 63 72 | 65 61 74 65 64 2e 22 29 |er is cr|eated.")|
|000028d0| 0a 28 64 65 66 76 61 72 | 20 65 6e 65 72 67 69 7a |.(defvar| energiz|
|000028e0| 65 2d 73 6f 75 72 63 65 | 2d 6d 6f 64 65 2d 68 6f |e-source|-mode-ho|
|000028f0| 6f 6b 20 6e 69 6c 20 22 | 5c 0a 48 6f 6f 6b 20 63 |ok nil "|\.Hook c|
|00002900| 61 6c 6c 65 64 20 77 68 | 65 6e 20 61 6e 79 20 73 |alled wh|en any s|
|00002910| 6f 75 72 63 65 20 62 75 | 66 66 65 72 20 69 73 20 |ource bu|ffer is |
|00002920| 70 6c 61 63 65 64 20 69 | 6e 20 74 68 65 20 45 6e |placed i|n the En|
|00002930| 65 72 67 69 7a 65 20 6d | 69 6e 6f 72 2d 6d 6f 64 |ergize m|inor-mod|
|00002940| 65 2e 22 29 0a 28 62 79 | 74 65 2d 63 6f 64 65 20 |e.").(by|te-code |
|00002950| 22 08 ac b2 c1 20 10 c2 | 08 c0 5c 22 88 c3 08 c4 |".... ..|..\"....|
|00002960| c5 23 88 c3 08 c6 c7 23 | 88 c3 08 c8 c9 23 88 c3 |.#.....#|.....#..|
|00002970| 08 ca cb 23 88 c3 08 cc | cd 23 88 c3 08 ce cf 23 |...#....|.#.....#|
|00002980| 88 c3 08 d0 d1 23 88 0e | 12 ac f0 c1 20 16 12 c2 |.....#..|.... ...|
|00002990| 0e 12 d2 5c 22 88 d3 0e | 12 08 5c 22 88 d4 0e 12 |...\"...|..\"....|
|000029a0| 21 88 c3 0e 12 d5 d6 23 | 88 c3 0e 12 d7 d8 23 88 |!......#|......#.|
|000029b0| c3 0e 12 d9 d8 23 88 c3 | 0e 12 da db 23 88 c3 0e |.....#..|....#...|
|000029c0| 12 dc d8 23 88 c3 0e 12 | dd db 23 88 c3 0e 12 de |...#....|..#.....|
|000029d0| d8 23 88 c3 0e 12 df db | 23 88 c3 0e 12 e0 db 23 |.#......|#......#|
|000029e0| 88 c3 0e 12 e1 e2 23 88 | c3 0e 12 e3 e4 23 88 c3 |......#.|.....#..|
|000029f0| 0e 12 e5 e6 23 88 c3 0e | 12 e7 e8 23 88 0e 29 ac |....#...|...#..).|
|00002a00| ba c1 20 16 29 c2 0e 29 | e9 5c 22 88 d3 0e 29 08 |.. .)..)|.\"...).|
|00002a10| 5c 22 88 c3 0e 29 ea eb | 23 88 c3 0e 29 ec ed 23 |\"...)..|#...)..#|
|00002a20| 88 c3 0e 29 ee ef 23 88 | c3 0e 29 f0 f1 23 88 c3 |...)..#.|..)..#..|
|00002a30| 0e 29 f2 f3 23 88 c3 0e | 29 f4 f5 23 88 0e 36 ac |.)..#...|)..#..6.|
|00002a40| 90 c1 20 16 36 c2 0e 36 | f6 5c 22 88 d3 0e 36 08 |.. .6..6|.\"...6.|
|00002a50| 5c 22 88 0e 37 ac 90 c1 | 20 16 37 c2 0e 37 f7 5c |\"..7...| .7..7.\|
|00002a60| 22 88 d3 0e 37 08 5c 22 | 88 0e 38 ac 90 c1 20 16 |"...7.\"|..8... .|
|00002a70| 38 c2 0e 38 f8 5c 22 88 | d3 0e 38 08 5c 22 88 0e |8..8.\".|..8.\"..|
|00002a80| 39 ac 90 c1 20 16 39 c2 | 0e 39 f9 5c 22 88 d3 0e |9... .9.|.9.\"...|
|00002a90| 39 08 5c 22 88 0e 3a ac | ac fb 0e 3c 21 16 3a fd |9.\"..:.|...<!.:.|
|00002aa0| 0e 3c 21 ab 84 fe ff 21 | 88 d3 0e 3a 08 5c 22 88 |.<!....!|...:.\".|
|00002ab0| c3 0e 3a 81 40 00 81 41 | 00 23 88 c3 0e 3a 81 42 |..:.@..A|.#...:.B|
|00002ac0| 00 81 43 00 23 88 c1 87 | 22 20 5b 65 6e 65 72 67 |..C.#...|" [energ|
|00002ad0| 69 7a 65 2d 6d 61 70 20 | 6d 61 6b 65 2d 73 70 61 |ize-map |make-spa|
|00002ae0| 72 73 65 2d 6b 65 79 6d | 61 70 20 73 65 74 2d 6b |rse-keym|ap set-k|
|00002af0| 65 79 6d 61 70 2d 6e 61 | 6d 65 20 64 65 66 69 6e |eymap-na|me defin|
|00002b00| 65 2d 6b 65 79 20 22 03 | 06 22 20 65 6e 65 72 67 |e-key ".|." energ|
|00002b10| 69 7a 65 2d 66 69 6e 64 | 2d 70 72 6f 6a 65 63 74 |ize-find|-project|
|00002b20| 20 22 03 02 05 22 20 65 | 6e 65 72 67 69 7a 65 2d | "..." e|nergize-|
|00002b30| 62 72 6f 77 73 65 2d 65 | 72 72 6f 72 20 22 03 02 |browse-e|rror "..|
|00002b40| 0c 22 20 65 6e 65 72 67 | 69 7a 65 2d 62 72 6f 77 |." energ|ize-brow|
|00002b50| 73 65 2d 6c 61 6e 67 75 | 61 67 65 2d 65 6c 74 20 |se-langu|age-elt |
|00002b60| 22 03 02 14 22 20 65 6e | 65 72 67 69 7a 65 2d 62 |"..." en|ergize-b|
|00002b70| 72 6f 77 73 65 2d 74 72 | 65 65 20 22 03 02 03 22 |rowse-tr|ee "..."|
|00002b80| 20 65 6e 65 72 67 69 7a | 65 2d 62 72 6f 77 73 65 | energiz|e-browse|
|00002b90| 2d 63 6c 61 73 73 20 22 | c3 22 20 65 6e 65 72 67 |-class "|." energ|
|00002ba0| 69 7a 65 2d 64 65 66 61 | 75 6c 74 2d 63 6f 6d 70 |ize-defa|ult-comp|
|00002bb0| 69 6c 65 2d 66 69 6c 65 | 20 62 75 74 74 6f 6e 33 |ile-file| button3|
|00002bc0| 20 65 6e 65 72 67 69 7a | 65 2d 70 6f 70 75 70 2d | energiz|e-popup-|
|00002bd0| 6d 65 6e 75 20 65 6e 65 | 72 67 69 7a 65 2d 74 6f |menu ene|rgize-to|
|00002be0| 70 2d 6c 65 76 65 6c 2d | 6d 61 70 20 73 65 74 2d |p-level-|map set-|
|00002bf0| 6b 65 79 6d 61 70 2d 70 | 61 72 65 6e 74 20 73 75 |keymap-p|arent su|
|00002c00| 70 70 72 65 73 73 2d 6b | 65 79 6d 61 70 20 22 3f |ppress-k|eymap "?|
|00002c10| 22 20 64 65 73 63 72 69 | 62 65 2d 6d 6f 64 65 20 |" descri|be-mode |
|00002c20| 22 20 22 20 65 6e 65 72 | 67 69 7a 65 2d 74 6f 70 |" " ener|gize-top|
|00002c30| 2d 6e 65 78 74 2d 70 72 | 6f 6a 65 63 74 20 22 6e |-next-pr|oject "n|
|00002c40| 22 20 22 70 22 20 65 6e | 65 72 67 69 7a 65 2d 74 |" "p" en|ergize-t|
|00002c50| 6f 70 2d 70 72 65 76 2d | 70 72 6f 6a 65 63 74 20 |op-prev-|project |
|00002c60| 22 4e 22 20 22 50 22 20 | 22 09 22 20 28 73 68 69 |"N" "P" |"." (shi|
|00002c70| 66 74 20 74 61 62 29 20 | 28 63 6f 6e 74 72 6f 6c |ft tab) |(control|
|00002c80| 20 49 29 20 22 51 22 20 | 64 69 73 63 6f 6e 6e 65 | I) "Q" |disconne|
|00002c90| 63 74 2d 66 72 6f 6d 2d | 65 6e 65 72 67 69 7a 65 |ct-from-|energize|
|00002ca0| 2d 71 75 65 72 79 20 22 | 64 22 20 65 6e 65 72 67 |-query "|d" energ|
|00002cb0| 69 7a 65 2d 74 6f 70 2d | 64 65 62 75 67 20 22 04 |ize-top-|debug ".|
|00002cc0| 22 20 65 6e 65 72 67 69 | 7a 65 2d 74 6f 70 2d 64 |" energi|ze-top-d|
|00002cd0| 65 6c 65 74 65 2d 70 72 | 6f 6a 65 63 74 20 22 65 |elete-pr|oject "e|
|00002ce0| 22 20 65 6e 65 72 67 69 | 7a 65 2d 74 6f 70 2d 65 |" energi|ze-top-e|
|00002cf0| 64 69 74 2d 70 72 6f 6a | 65 63 74 20 65 6e 65 72 |dit-proj|ect ener|
|00002d00| 67 69 7a 65 2d 70 72 6f | 6a 65 63 74 2d 6d 61 70 |gize-pro|ject-map|
|00002d10| 20 22 03 09 22 20 65 6e | 65 72 67 69 7a 65 2d 69 | ".." en|ergize-i|
|00002d20| 6d 70 6f 72 74 2d 66 69 | 6c 65 20 22 03 05 22 20 |mport-fi|le ".." |
|00002d30| 65 6e 65 72 67 69 7a 65 | 2d 70 72 6f 6a 65 63 74 |energize|-project|
|00002d40| 2d 65 64 69 74 2d 66 69 | 6c 65 20 22 03 13 01 22 |-edit-fi|le "..."|
|00002d50| 20 65 6e 65 72 67 69 7a | 65 2d 70 72 6f 6a 65 63 | energiz|e-projec|
|00002d60| 74 2d 73 6f 72 74 2d 61 | 6c 70 68 61 20 22 03 13 |t-sort-a|lpha "..|
|00002d70| 0c 22 20 65 6e 65 72 67 | 69 7a 65 2d 70 72 6f 6a |." energ|ize-proj|
|00002d80| 65 63 74 2d 73 6f 72 74 | 2d 6c 69 6e 6b 20 22 03 |ect-sort|-link ".|
|00002d90| 16 0e 22 20 65 6e 65 72 | 67 69 7a 65 2d 70 72 6f |.." ener|gize-pro|
|00002da0| 6a 65 63 74 2d 76 69 65 | 77 2d 6e 61 6d 65 73 20 |ject-vie|w-names |
|00002db0| 22 03 16 03 22 20 65 6e | 65 72 67 69 7a 65 2d 70 |"..." en|ergize-p|
|00002dc0| 72 6f 6a 65 63 74 2d 76 | 69 65 77 2d 6f 70 74 69 |roject-v|iew-opti|
|00002dd0| 6f 6e 73 20 65 6e 65 72 | 67 69 7a 65 2d 6e 6f 2d |ons ener|gize-no-|
|00002de0| 66 69 6c 65 2d 70 72 6f | 6a 65 63 74 2d 6d 61 70 |file-pro|ject-map|
|00002df0| 20 65 6e 65 72 67 69 7a | 65 2d 62 72 65 61 6b 70 | energiz|e-breakp|
|00002e00| 6f 69 6e 74 2d 6d 61 70 | 20 65 6e 65 72 67 69 7a |oint-map| energiz|
|00002e10| 65 2d 62 72 6f 77 73 65 | 72 2d 6d 61 70 20 65 6e |e-browse|r-map en|
|00002e20| 65 72 67 69 7a 65 2d 73 | 6f 75 72 63 65 2d 6d 61 |ergize-s|ource-ma|
|00002e30| 70 20 65 6e 65 72 67 69 | 7a 65 2d 75 73 65 72 2d |p energi|ze-user-|
|00002e40| 69 6e 70 75 74 2d 6d 61 | 70 20 63 6f 70 79 2d 6b |input-ma|p copy-k|
|00002e50| 65 79 6d 61 70 20 63 6f | 6d 69 6e 74 2d 6d 6f 64 |eymap co|mint-mod|
|00002e60| 65 2d 6d 61 70 20 6b 65 | 79 6d 61 70 2d 70 61 72 |e-map ke|ymap-par|
|00002e70| 65 6e 74 20 65 72 72 6f | 72 20 22 63 6f 6d 69 6e |ent erro|r "comin|
|00002e80| 74 2d 6d 6f 64 65 2d 6d | 61 70 20 68 61 73 20 61 |t-mode-m|ap has a|
|00002e90| 20 70 61 72 65 6e 74 3f | 22 20 22 89 22 20 63 6f | parent?|" "." co|
|00002ea0| 6d 69 6e 74 2d 64 79 6e | 61 6d 69 63 2d 63 6f 6d |mint-dyn|amic-com|
|00002eb0| 70 6c 65 74 65 20 22 bf | 22 20 63 6f 6d 69 6e 74 |plete ".|" comint|
|00002ec0| 2d 64 79 6e 61 6d 69 63 | 2d 6c 69 73 74 2d 63 6f |-dynamic|-list-co|
|00002ed0| 6d 70 6c 65 74 69 6f 6e | 73 5d 20 34 29 0a 28 64 |mpletion|s] 4).(d|
|00002ee0| 65 66 76 61 72 20 65 6e | 65 72 67 69 7a 65 2d 6d |efvar en|ergize-m|
|00002ef0| 65 6e 75 2d 73 74 61 74 | 65 20 6e 69 6c 20 22 5c |enu-stat|e nil "\|
|00002f00| 0a 53 74 61 74 65 20 6f | 66 20 74 68 65 20 65 6e |.State o|f the en|
|00002f10| 65 72 67 69 7a 65 20 6d | 65 6e 75 20 69 74 65 6d |ergize m|enu item|
|00002f20| 73 20 6f 66 20 74 68 65 | 20 62 75 66 66 65 72 2e |s of the| buffer.|
|00002f30| 20 20 0a 41 75 74 6f 6d | 61 74 69 63 61 6c 6c 79 |  .Autom|atically|
|00002f40| 20 75 70 64 61 74 65 64 | 20 62 79 20 74 68 65 20 | updated| by the |
|00002f50| 6b 65 72 6e 65 6c 20 77 | 68 65 6e 20 74 68 65 20 |kernel w|hen the |
|00002f60| 73 74 61 74 65 20 63 68 | 61 6e 67 65 73 22 29 0a |state ch|anges").|
|00002f70| 28 64 65 66 76 61 72 20 | 65 6e 65 72 67 69 7a 65 |(defvar |energize|
|00002f80| 2d 64 65 66 61 75 6c 74 | 2d 6d 65 6e 75 2d 73 74 |-default|-menu-st|
|00002f90| 61 74 65 20 6e 69 6c 20 | 22 5c 0a 53 74 61 74 65 |ate nil |"\.State|
|00002fa0| 20 6f 66 20 74 68 65 20 | 65 6e 65 72 67 69 7a 65 | of the |energize|
|00002fb0| 20 64 65 66 61 75 6c 74 | 20 6d 65 6e 75 20 69 74 | default| menu it|
|00002fc0| 65 6d 73 2e 20 20 0a 41 | 75 74 6f 6d 61 74 69 63 |ems.  .A|utomatic|
|00002fd0| 61 6c 6c 79 20 75 70 64 | 61 74 65 64 20 62 79 20 |ally upd|ated by |
|00002fe0| 74 68 65 20 6b 65 72 6e | 65 6c 20 77 68 65 6e 20 |the kern|el when |
|00002ff0| 74 68 65 20 73 74 61 74 | 65 20 63 68 61 6e 67 65 |the stat|e change|
|00003000| 73 22 29 0a 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |s").(byt|e-code "|
|00003010| c0 c1 4d 88 c2 c3 4d 88 | c4 c5 c6 c7 23 88 c4 c8 |..M...M.|....#...|
|00003020| c6 c7 23 88 c4 c9 c6 c7 | 23 88 c4 ca c6 c7 23 88 |..#.....|#.....#.|
|00003030| c4 cb c6 c7 23 88 c4 cc | c6 c7 23 87 22 20 5b 65 |....#...|..#." [e|
|00003040| 6e 65 72 67 69 7a 65 2d | 6d 6f 64 65 2d 69 6e 74 |nergize-|mode-int|
|00003050| 65 72 6e 61 6c 20 23 5b | 6e 69 6c 20 22 c0 c1 21 |ernal #[|nil "..!|
|00003060| 88 c2 c1 c3 c4 23 88 c0 | c5 21 88 c6 15 c0 c7 21 |.....#..|.!.....!|
|00003070| 88 c8 16 07 c0 c9 21 88 | c4 16 09 c0 ca 21 88 cb |......!.|.....!..|
|00003080| cc 21 87 22 20 5b 6d 61 | 6b 65 2d 6c 6f 63 61 6c |.!." [ma|ke-local|
|00003090| 2d 76 61 72 69 61 62 6c | 65 20 77 72 69 74 65 2d |-variabl|e write-|
|000030a0| 66 69 6c 65 2d 64 61 74 | 61 2d 68 6f 6f 6b 73 20 |file-dat|a-hooks |
|000030b0| 61 64 64 2d 68 6f 6f 6b | 20 65 6e 65 72 67 69 7a |add-hook| energiz|
|000030c0| 65 2d 77 72 69 74 65 2d | 64 61 74 61 2d 68 6f 6f |e-write-|data-hoo|
|000030d0| 6b 20 74 20 72 65 76 65 | 72 74 2d 62 75 66 66 65 |k t reve|rt-buffe|
|000030e0| 72 2d 69 6e 73 65 72 74 | 2d 66 69 6c 65 2d 63 6f |r-insert|-file-co|
|000030f0| 6e 74 65 6e 74 73 2d 66 | 75 6e 63 74 69 6f 6e 20 |ntents-f|unction |
|00003100| 65 6e 65 72 67 69 7a 65 | 2d 72 65 76 65 72 74 2d |energize|-revert-|
|00003110| 62 75 66 66 65 72 2d 69 | 6e 73 65 72 74 2d 66 69 |buffer-i|nsert-fi|
|00003120| 6c 65 2d 63 6f 6e 74 65 | 6e 74 73 2d 68 6f 6f 6b |le-conte|nts-hook|
|00003130| 20 6b 69 6c 6c 2d 62 75 | 66 66 65 72 2d 68 6f 6f | kill-bu|ffer-hoo|
|00003140| 6b 20 65 6e 65 72 67 69 | 7a 65 2d 6b 69 6c 6c 2d |k energi|ze-kill-|
|00003150| 62 75 66 66 65 72 2d 68 | 6f 6f 6b 20 72 65 71 75 |buffer-h|ook requ|
|00003160| 69 72 65 2d 66 69 6e 61 | 6c 2d 6e 65 77 6c 69 6e |ire-fina|l-newlin|
|00003170| 65 20 65 6e 65 72 67 69 | 7a 65 2d 6d 65 6e 75 2d |e energi|ze-menu-|
|00003180| 73 74 61 74 65 20 72 75 | 6e 2d 68 6f 6f 6b 73 20 |state ru|n-hooks |
|00003190| 65 6e 65 72 67 69 7a 65 | 2d 6d 6f 64 65 2d 68 6f |energize|-mode-ho|
|000031a0| 6f 6b 5d 20 34 5d 20 65 | 6e 65 72 67 69 7a 65 2d |ok] 4] e|nergize-|
|000031b0| 6e 6f 6e 2d 66 69 6c 65 | 2d 6d 6f 64 65 2d 69 6e |non-file|-mode-in|
|000031c0| 74 65 72 6e 61 6c 20 23 | 5b 6e 69 6c 20 22 08 ac |ternal #|[nil "..|
|000031d0| 83 c1 20 10 c2 c3 21 c4 | 4c 88 c5 87 22 20 5b 62 |.. ...!.|L..." [b|
|000031e0| 75 66 66 65 72 2d 66 69 | 6c 65 2d 6e 61 6d 65 20 |uffer-fi|le-name |
|000031f0| 62 75 66 66 65 72 2d 6e | 61 6d 65 20 6d 61 6b 65 |buffer-n|ame make|
|00003200| 2d 6c 6f 63 61 6c 2d 76 | 61 72 69 61 62 6c 65 20 |-local-v|ariable |
|00003210| 76 65 72 73 69 6f 6e 2d | 63 6f 6e 74 72 6f 6c 20 |version-|control |
|00003220| 6e 65 76 65 72 20 6e 69 | 6c 5d 20 32 5d 20 70 75 |never ni|l] 2] pu|
|00003230| 74 20 65 6e 65 72 67 69 | 7a 65 2d 74 6f 70 2d 6c |t energi|ze-top-l|
|00003240| 65 76 65 6c 2d 6d 6f 64 | 65 20 6d 6f 64 65 2d 63 |evel-mod|e mode-c|
|00003250| 6c 61 73 73 20 73 70 65 | 63 69 61 6c 20 65 6e 65 |lass spe|cial ene|
|00003260| 72 67 69 7a 65 2d 70 72 | 6f 6a 65 63 74 2d 6d 6f |rgize-pr|oject-mo|
|00003270| 64 65 20 65 6e 65 72 67 | 69 7a 65 2d 6e 6f 2d 66 |de energ|ize-no-f|
|00003280| 69 6c 65 2d 70 72 6f 6a | 65 63 74 2d 6d 6f 64 65 |ile-proj|ect-mode|
|00003290| 20 65 6e 65 72 67 69 7a | 65 2d 62 72 65 61 6b 70 | energiz|e-breakp|
|000032a0| 6f 69 6e 74 2d 6d 6f 64 | 65 20 65 6e 65 72 67 69 |oint-mod|e energi|
|000032b0| 7a 65 2d 62 72 6f 77 73 | 65 72 2d 6d 6f 64 65 20 |ze-brows|er-mode |
|000032c0| 65 6e 65 72 67 69 7a 65 | 2d 6c 6f 67 2d 6d 6f 64 |energize|-log-mod|
|000032d0| 65 5d 20 34 29 0a 28 66 | 73 65 74 20 27 65 6e 65 |e] 4).(f|set 'ene|
|000032e0| 72 67 69 7a 65 2d 74 6f | 70 2d 6c 65 76 65 6c 2d |rgize-to|p-level-|
|000032f0| 6d 6f 64 65 20 23 5b 6e | 69 6c 20 22 c0 20 88 c1 |mode #[n|il ". ..|
|00003300| 5c 6e 21 88 c3 14 c5 16 | 06 c7 20 88 0e 08 c9 9a |\n!.....|.. .....|
|00003310| ab 86 ca c8 21 cb 4c 88 | cc cd 21 87 22 20 5b 65 |....!.L.|..!." [e|
|00003320| 6e 65 72 67 69 7a 65 2d | 6d 6f 64 65 2d 69 6e 74 |nergize-|mode-int|
|00003330| 65 72 6e 61 6c 20 75 73 | 65 2d 6c 6f 63 61 6c 2d |ernal us|e-local-|
|00003340| 6d 61 70 20 65 6e 65 72 | 67 69 7a 65 2d 74 6f 70 |map ener|gize-top|
|00003350| 2d 6c 65 76 65 6c 2d 6d | 61 70 20 65 6e 65 72 67 |-level-m|ap energ|
|00003360| 69 7a 65 2d 74 6f 70 2d | 6c 65 76 65 6c 2d 6d 6f |ize-top-|level-mo|
|00003370| 64 65 20 6d 61 6a 6f 72 | 2d 6d 6f 64 65 20 22 45 |de major|-mode "E|
|00003380| 6e 65 72 67 69 7a 65 22 | 20 6d 6f 64 65 2d 6e 61 |nergize"| mode-na|
|00003390| 6d 65 20 65 6e 65 72 67 | 69 7a 65 2d 6e 6f 6e 2d |me energ|ize-non-|
|000033a0| 66 69 6c 65 2d 6d 6f 64 | 65 2d 69 6e 74 65 72 6e |file-mod|e-intern|
|000033b0| 61 6c 20 73 63 72 65 65 | 6e 2d 74 69 74 6c 65 2d |al scree|n-title-|
|000033c0| 66 6f 72 6d 61 74 20 22 | 25 53 3a 20 25 62 22 20 |format "|%S: %b" |
|000033d0| 6d 61 6b 65 2d 6c 6f 63 | 61 6c 2d 76 61 72 69 61 |make-loc|al-varia|
|000033e0| 62 6c 65 20 22 25 53 3a | 20 54 6f 70 2d 4c 65 76 |ble "%S:| Top-Lev|
|000033f0| 65 6c 22 20 72 75 6e 2d | 68 6f 6f 6b 73 20 65 6e |el" run-|hooks en|
|00003400| 65 72 67 69 7a 65 2d 74 | 6f 70 2d 6c 65 76 65 6c |ergize-t|op-level|
|00003410| 2d 6d 6f 64 65 2d 68 6f | 6f 6b 5d 20 32 20 22 5c |-mode-ho|ok] 2 "\|
|00003420| 0a 4d 61 6a 6f 72 20 6d | 6f 64 65 20 66 6f 72 20 |.Major m|ode for |
|00003430| 74 68 65 20 45 6e 65 72 | 67 69 7a 65 20 74 6f 70 |the Ener|gize top|
|00003440| 2d 6c 65 76 65 6c 20 62 | 75 66 66 65 72 2e 0a 49 |-level b|uffer..I|
|00003450| 6e 20 61 64 64 69 74 69 | 6f 6e 20 74 6f 20 6e 6f |n additi|on to no|
|00003460| 72 6d 61 6c 20 63 75 72 | 73 6f 72 2d 6d 6f 74 69 |rmal cur|sor-moti|
|00003470| 6f 6e 20 63 6f 6d 6d 61 | 6e 64 73 2c 20 74 68 65 |on comma|nds, the|
|00003480| 20 66 6f 6c 6c 6f 77 69 | 6e 67 20 6b 65 79 73 20 | followi|ng keys |
|00003490| 61 72 65 20 62 6f 75 6e | 64 3a 0a 5c 5c 7b 65 6e |are boun|d:.\\{en|
|000034a0| 65 72 67 69 7a 65 2d 74 | 6f 70 2d 6c 65 76 65 6c |ergize-t|op-level|
|000034b0| 2d 6d 61 70 7d 22 20 6e | 69 6c 5d 29 0a 28 66 73 |-map}" n|il]).(fs|
|000034c0| 65 74 20 27 65 6e 65 72 | 67 69 7a 65 2d 70 72 6f |et 'ener|gize-pro|
|000034d0| 6a 65 63 74 2d 6d 6f 64 | 65 20 23 5b 6e 69 6c 20 |ject-mod|e #[nil |
|000034e0| 22 c0 20 88 c1 5c 6e 21 | 88 c3 14 c5 16 06 c7 20 |". ..\n!|....... |
|000034f0| 41 c8 57 ab 83 c9 20 88 | ca cb 21 87 22 20 5b 65 |A.W... .|..!." [e|
|00003500| 6e 65 72 67 69 7a 65 2d | 6d 6f 64 65 2d 69 6e 74 |nergize-|mode-int|
|00003510| 65 72 6e 61 6c 20 75 73 | 65 2d 6c 6f 63 61 6c 2d |ernal us|e-local-|
|00003520| 6d 61 70 20 65 6e 65 72 | 67 69 7a 65 2d 70 72 6f |map ener|gize-pro|
|00003530| 6a 65 63 74 2d 6d 61 70 | 20 65 6e 65 72 67 69 7a |ject-map| energiz|
|00003540| 65 2d 70 72 6f 6a 65 63 | 74 2d 6d 6f 64 65 20 6d |e-projec|t-mode m|
|00003550| 61 6a 6f 72 2d 6d 6f 64 | 65 20 22 50 72 6f 6a 65 |ajor-mod|e "Proje|
|00003560| 63 74 22 20 6d 6f 64 65 | 2d 6e 61 6d 65 20 65 6e |ct" mode|-name en|
|00003570| 65 72 67 69 7a 65 2d 70 | 72 6f 74 6f 63 6f 6c 2d |ergize-p|rotocol-|
|00003580| 6c 65 76 65 6c 20 38 20 | 65 6e 65 72 67 69 7a 65 |level 8 |energize|
|00003590| 2d 6e 6f 6e 2d 66 69 6c | 65 2d 6d 6f 64 65 2d 69 |-non-fil|e-mode-i|
|000035a0| 6e 74 65 72 6e 61 6c 20 | 72 75 6e 2d 68 6f 6f 6b |nternal |run-hook|
|000035b0| 73 20 65 6e 65 72 67 69 | 7a 65 2d 70 72 6f 6a 65 |s energi|ze-proje|
|000035c0| 63 74 2d 6d 6f 64 65 2d | 68 6f 6f 6b 5d 20 32 20 |ct-mode-|hook] 2 |
|000035d0| 22 5c 0a 4d 61 6a 6f 72 | 20 6d 6f 64 65 20 66 6f |"\.Major| mode fo|
|000035e0| 72 20 74 68 65 20 45 6e | 65 72 67 69 7a 65 20 50 |r the En|ergize P|
|000035f0| 72 6f 6a 65 63 74 20 62 | 75 66 66 65 72 73 2e 0a |roject b|uffers..|
|00003600| 49 6e 20 61 64 64 69 74 | 69 6f 6e 20 74 6f 20 74 |In addit|ion to t|
|00003610| 68 65 20 6e 6f 72 6d 61 | 6c 20 65 64 69 74 69 6e |he norma|l editin|
|00003620| 67 20 63 6f 6d 6d 61 6e | 64 73 2c 20 74 68 65 20 |g comman|ds, the |
|00003630| 66 6f 6c 6c 6f 77 69 6e | 67 20 6b 65 79 73 20 61 |followin|g keys a|
|00003640| 72 65 20 62 6f 75 6e 64 | 3a 0a 5c 5c 7b 65 6e 65 |re bound|:.\\{ene|
|00003650| 72 67 69 7a 65 2d 70 72 | 6f 6a 65 63 74 2d 6d 61 |rgize-pr|oject-ma|
|00003660| 70 7d 22 20 6e 69 6c 5d | 29 0a 28 66 73 65 74 20 |p}" nil]|).(fset |
|00003670| 27 65 6e 65 72 67 69 7a | 65 2d 6e 6f 2d 66 69 6c |'energiz|e-no-fil|
|00003680| 65 2d 70 72 6f 6a 65 63 | 74 2d 6d 6f 64 65 20 23 |e-projec|t-mode #|
|00003690| 5b 6e 69 6c 20 22 c0 20 | 88 c1 5c 6e 21 88 c3 14 |[nil ". |..\n!...|
|000036a0| c5 16 06 c7 20 88 c8 c9 | 21 87 22 20 5b 65 6e 65 |.... ...|!." [ene|
|000036b0| 72 67 69 7a 65 2d 6d 6f | 64 65 2d 69 6e 74 65 72 |rgize-mo|de-inter|
|000036c0| 6e 61 6c 20 75 73 65 2d | 6c 6f 63 61 6c 2d 6d 61 |nal use-|local-ma|
|000036d0| 70 20 65 6e 65 72 67 69 | 7a 65 2d 6e 6f 2d 66 69 |p energi|ze-no-fi|
|000036e0| 6c 65 2d 70 72 6f 6a 65 | 63 74 2d 6d 61 70 20 65 |le-proje|ct-map e|
|000036f0| 6e 65 72 67 69 7a 65 2d | 6e 6f 2d 66 69 6c 65 2d |nergize-|no-file-|
|00003700| 70 72 6f 6a 65 63 74 2d | 6d 6f 64 65 20 6d 61 6a |project-|mode maj|
|00003710| 6f 72 2d 6d 6f 64 65 20 | 22 4e 6f 46 69 6c 65 50 |or-mode |"NoFileP|
|00003720| 72 6f 6a 65 63 74 22 20 | 6d 6f 64 65 2d 6e 61 6d |roject" |mode-nam|
|00003730| 65 20 65 6e 65 72 67 69 | 7a 65 2d 6e 6f 6e 2d 66 |e energi|ze-non-f|
|00003740| 69 6c 65 2d 6d 6f 64 65 | 2d 69 6e 74 65 72 6e 61 |ile-mode|-interna|
|00003750| 6c 20 72 75 6e 2d 68 6f | 6f 6b 73 20 65 6e 65 72 |l run-ho|oks ener|
|00003760| 67 69 7a 65 2d 6e 6f 2d | 66 69 6c 65 2d 70 72 6f |gize-no-|file-pro|
|00003770| 6a 65 63 74 2d 6d 6f 64 | 65 2d 68 6f 6f 6b 5d 20 |ject-mod|e-hook] |
|00003780| 32 20 22 5c 0a 4d 61 6a | 6f 72 20 6d 6f 64 65 20 |2 "\.Maj|or mode |
|00003790| 66 6f 72 20 74 68 65 20 | 45 6e 65 72 67 69 7a 65 |for the |Energize|
|000037a0| 20 50 72 6f 6a 65 63 74 | 20 62 75 66 66 65 72 73 | Project| buffers|
|000037b0| 20 6e 6f 74 20 61 73 73 | 6f 63 69 61 74 65 64 20 | not ass|ociated |
|000037c0| 77 69 74 68 20 61 20 66 | 69 6c 65 2e 0a 49 6e 20 |with a f|ile..In |
|000037d0| 61 64 64 69 74 69 6f 6e | 20 74 6f 20 74 68 65 20 |addition| to the |
|000037e0| 6e 6f 72 6d 61 6c 20 65 | 64 69 74 69 6e 67 20 63 |normal e|diting c|
|000037f0| 6f 6d 6d 61 6e 64 73 2c | 20 74 68 65 20 66 6f 6c |ommands,| the fol|
|00003800| 6c 6f 77 69 6e 67 20 6b | 65 79 73 20 61 72 65 20 |lowing k|eys are |
|00003810| 62 6f 75 6e 64 3a 0a 5c | 5c 7b 65 6e 65 72 67 69 |bound:.\|\{energi|
|00003820| 7a 65 2d 6e 6f 2d 66 69 | 6c 65 2d 70 72 6f 6a 65 |ze-no-fi|le-proje|
|00003830| 63 74 2d 6d 61 70 7d 22 | 20 6e 69 6c 5d 29 0a 28 |ct-map}"| nil]).(|
|00003840| 66 73 65 74 20 27 65 6e | 65 72 67 69 7a 65 2d 62 |fset 'en|ergize-b|
|00003850| 72 65 61 6b 70 6f 69 6e | 74 2d 6d 6f 64 65 20 23 |reakpoin|t-mode #|
|00003860| 5b 6e 69 6c 20 22 c0 20 | 88 c1 5c 6e 21 88 c3 14 |[nil ". |..\n!...|
|00003870| c5 16 06 c7 20 88 c8 c9 | 21 87 22 20 5b 65 6e 65 |.... ...|!." [ene|
|00003880| 72 67 69 7a 65 2d 6d 6f | 64 65 2d 69 6e 74 65 72 |rgize-mo|de-inter|
|00003890| 6e 61 6c 20 75 73 65 2d | 6c 6f 63 61 6c 2d 6d 61 |nal use-|local-ma|
|000038a0| 70 20 65 6e 65 72 67 69 | 7a 65 2d 62 72 65 61 6b |p energi|ze-break|
|000038b0| 70 6f 69 6e 74 2d 6d 61 | 70 20 65 6e 65 72 67 69 |point-ma|p energi|
|000038c0| 7a 65 2d 62 72 65 61 6b | 70 6f 69 6e 74 2d 6d 6f |ze-break|point-mo|
|000038d0| 64 65 20 6d 61 6a 6f 72 | 2d 6d 6f 64 65 20 22 42 |de major|-mode "B|
|000038e0| 72 65 61 6b 70 6f 69 6e | 74 22 20 6d 6f 64 65 2d |reakpoin|t" mode-|
|000038f0| 6e 61 6d 65 20 65 6e 65 | 72 67 69 7a 65 2d 6e 6f |name ene|rgize-no|
|00003900| 6e 2d 66 69 6c 65 2d 6d | 6f 64 65 2d 69 6e 74 65 |n-file-m|ode-inte|
|00003910| 72 6e 61 6c 20 72 75 6e | 2d 68 6f 6f 6b 73 20 65 |rnal run|-hooks e|
|00003920| 6e 65 72 67 69 7a 65 2d | 62 72 65 61 6b 70 6f 69 |nergize-|breakpoi|
|00003930| 6e 74 2d 6d 6f 64 65 2d | 68 6f 6f 6b 5d 20 32 20 |nt-mode-|hook] 2 |
|00003940| 22 5c 0a 4d 61 6a 6f 72 | 20 6d 6f 64 65 20 66 6f |"\.Major| mode fo|
|00003950| 72 20 74 68 65 20 45 6e | 65 72 67 69 7a 65 20 42 |r the En|ergize B|
|00003960| 72 65 61 6b 70 6f 69 6e | 74 2d 6c 69 73 74 20 62 |reakpoin|t-list b|
|00003970| 75 66 66 65 72 73 2e 0a | 49 6e 20 61 64 64 69 74 |uffers..|In addit|
|00003980| 69 6f 6e 20 74 6f 20 74 | 68 65 20 6e 6f 72 6d 61 |ion to t|he norma|
|00003990| 6c 20 65 64 69 74 69 6e | 67 20 63 6f 6d 6d 61 6e |l editin|g comman|
|000039a0| 64 73 2c 20 74 68 65 20 | 66 6f 6c 6c 6f 77 69 6e |ds, the |followin|
|000039b0| 67 20 6b 65 79 73 20 61 | 72 65 20 62 6f 75 6e 64 |g keys a|re bound|
|000039c0| 3a 0a 5c 5c 7b 65 6e 65 | 72 67 69 7a 65 2d 62 72 |:.\\{ene|rgize-br|
|000039d0| 65 61 6b 70 6f 69 6e 74 | 2d 6d 61 70 7d 22 20 6e |eakpoint|-map}" n|
|000039e0| 69 6c 5d 29 0a 28 66 73 | 65 74 20 27 65 6e 65 72 |il]).(fs|et 'ener|
|000039f0| 67 69 7a 65 2d 62 72 6f | 77 73 65 72 2d 6d 6f 64 |gize-bro|wser-mod|
|00003a00| 65 20 23 5b 6e 69 6c 20 | 22 c0 20 88 c1 5c 6e 21 |e #[nil |". ..\n!|
|00003a10| 88 c3 14 c5 16 06 c7 20 | 88 c8 c9 21 87 22 20 5b |....... |...!." [|
|00003a20| 65 6e 65 72 67 69 7a 65 | 2d 6d 6f 64 65 2d 69 6e |energize|-mode-in|
|00003a30| 74 65 72 6e 61 6c 20 75 | 73 65 2d 6c 6f 63 61 6c |ternal u|se-local|
|00003a40| 2d 6d 61 70 20 65 6e 65 | 72 67 69 7a 65 2d 62 72 |-map ene|rgize-br|
|00003a50| 6f 77 73 65 72 2d 6d 61 | 70 20 65 6e 65 72 67 69 |owser-ma|p energi|
|00003a60| 7a 65 2d 62 72 6f 77 73 | 65 72 2d 6d 6f 64 65 20 |ze-brows|er-mode |
|00003a70| 6d 61 6a 6f 72 2d 6d 6f | 64 65 20 22 42 72 6f 77 |major-mo|de "Brow|
|00003a80| 73 65 72 22 20 6d 6f 64 | 65 2d 6e 61 6d 65 20 65 |ser" mod|e-name e|
|00003a90| 6e 65 72 67 69 7a 65 2d | 6e 6f 6e 2d 66 69 6c 65 |nergize-|non-file|
|00003aa0| 2d 6d 6f 64 65 2d 69 6e | 74 65 72 6e 61 6c 20 72 |-mode-in|ternal r|
|00003ab0| 75 6e 2d 68 6f 6f 6b 73 | 20 65 6e 65 72 67 69 7a |un-hooks| energiz|
|00003ac0| 65 2d 62 72 6f 77 73 65 | 72 2d 6d 6f 64 65 2d 68 |e-browse|r-mode-h|
|00003ad0| 6f 6f 6b 5d 20 32 20 22 | 5c 0a 4d 61 6a 6f 72 20 |ook] 2 "|\.Major |
|00003ae0| 6d 6f 64 65 20 66 6f 72 | 20 74 68 65 20 45 6e 65 |mode for| the Ene|
|00003af0| 72 67 69 7a 65 20 42 72 | 6f 77 73 65 72 20 62 75 |rgize Br|owser bu|
|00003b00| 66 66 65 72 73 2e 0a 49 | 6e 20 61 64 64 69 74 69 |ffers..I|n additi|
|00003b10| 6f 6e 20 74 6f 20 74 68 | 65 20 6e 6f 72 6d 61 6c |on to th|e normal|
|00003b20| 20 65 64 69 74 69 6e 67 | 20 63 6f 6d 6d 61 6e 64 | editing| command|
|00003b30| 73 2c 20 74 68 65 20 66 | 6f 6c 6c 6f 77 69 6e 67 |s, the f|ollowing|
|00003b40| 20 6b 65 79 73 20 61 72 | 65 20 62 6f 75 6e 64 3a | keys ar|e bound:|
|00003b50| 0a 5c 5c 7b 65 6e 65 72 | 67 69 7a 65 2d 62 72 6f |.\\{ener|gize-bro|
|00003b60| 77 73 65 72 2d 6d 61 70 | 7d 22 20 6e 69 6c 5d 29 |wser-map|}" nil])|
|00003b70| 0a 28 66 73 65 74 20 27 | 65 6e 65 72 67 69 7a 65 |.(fset '|energize|
|00003b80| 2d 6c 6f 67 2d 6d 6f 64 | 65 20 23 5b 6e 69 6c 20 |-log-mod|e #[nil |
|00003b90| 22 c0 20 88 c1 5c 6e 21 | 88 c3 14 c5 16 06 c7 20 |". ..\n!|....... |
|00003ba0| 88 c8 c9 21 87 22 20 5b | 65 6e 65 72 67 69 7a 65 |...!." [|energize|
|00003bb0| 2d 6d 6f 64 65 2d 69 6e | 74 65 72 6e 61 6c 20 75 |-mode-in|ternal u|
|00003bc0| 73 65 2d 6c 6f 63 61 6c | 2d 6d 61 70 20 65 6e 65 |se-local|-map ene|
|00003bd0| 72 67 69 7a 65 2d 6d 61 | 70 20 65 6e 65 72 67 69 |rgize-ma|p energi|
|00003be0| 7a 65 2d 6c 6f 67 2d 6d | 6f 64 65 20 6d 61 6a 6f |ze-log-m|ode majo|
|00003bf0| 72 2d 6d 6f 64 65 20 22 | 45 6e 65 72 67 69 7a 65 |r-mode "|Energize|
|00003c00| 2d 4c 6f 67 22 20 6d 6f | 64 65 2d 6e 61 6d 65 20 |-Log" mo|de-name |
|00003c10| 65 6e 65 72 67 69 7a 65 | 2d 6e 6f 6e 2d 66 69 6c |energize|-non-fil|
|00003c20| 65 2d 6d 6f 64 65 2d 69 | 6e 74 65 72 6e 61 6c 20 |e-mode-i|nternal |
|00003c30| 72 75 6e 2d 68 6f 6f 6b | 73 20 65 6e 65 72 67 69 |run-hook|s energi|
|00003c40| 7a 65 2d 6c 6f 67 2d 6d | 6f 64 65 2d 68 6f 6f 6b |ze-log-m|ode-hook|
|00003c50| 5d 20 32 20 22 5c 0a 4d | 61 6a 6f 72 20 6d 6f 64 |] 2 "\.M|ajor mod|
|00003c60| 65 20 66 6f 72 20 74 68 | 65 20 45 6e 65 72 67 69 |e for th|e Energi|
|00003c70| 7a 65 20 45 72 72 6f 72 | 20 4c 6f 67 20 61 6e 64 |ze Error| Log and|
|00003c80| 20 53 79 73 74 65 6d 20 | 4c 6f 67 20 62 75 66 66 | System |Log buff|
|00003c90| 65 72 73 2e 0a 49 6e 20 | 61 64 64 69 74 69 6f 6e |ers..In |addition|
|00003ca0| 20 74 6f 20 74 68 65 20 | 6e 6f 72 6d 61 6c 20 65 | to the |normal e|
|00003cb0| 64 69 74 69 6e 67 20 63 | 6f 6d 6d 61 6e 64 73 2c |diting c|ommands,|
|00003cc0| 20 74 68 65 20 66 6f 6c | 6c 6f 77 69 6e 67 20 6b | the fol|lowing k|
|00003cd0| 65 79 73 20 61 72 65 20 | 62 6f 75 6e 64 3a 0a 5c |eys are |bound:.\|
|00003ce0| 5c 7b 65 6e 65 72 67 69 | 7a 65 2d 6d 61 70 7d 22 |\{energi|ze-map}"|
|00003cf0| 20 6e 69 6c 5d 29 0a 28 | 66 73 65 74 20 27 65 6e | nil]).(|fset 'en|
|00003d00| 65 72 67 69 7a 65 2d 6d | 61 6e 75 61 6c 2d 6d 6f |ergize-m|anual-mo|
|00003d10| 64 65 20 23 5b 6e 69 6c | 20 22 c0 20 88 c1 5c 6e |de #[nil| ". ..\n|
|00003d20| 21 88 c3 14 c5 16 06 c7 | 20 88 c8 c9 21 87 22 20 |!.......| ...!." |
|00003d30| 5b 65 6e 65 72 67 69 7a | 65 2d 6d 6f 64 65 2d 69 |[energiz|e-mode-i|
|00003d40| 6e 74 65 72 6e 61 6c 20 | 75 73 65 2d 6c 6f 63 61 |nternal |use-loca|
|00003d50| 6c 2d 6d 61 70 20 65 6e | 65 72 67 69 7a 65 2d 6d |l-map en|ergize-m|
|00003d60| 61 70 20 65 6e 65 72 67 | 69 7a 65 2d 6d 61 6e 75 |ap energ|ize-manu|
|00003d70| 61 6c 2d 6d 6f 64 65 20 | 6d 61 6a 6f 72 2d 6d 6f |al-mode |major-mo|
|00003d80| 64 65 20 22 45 6e 65 72 | 67 69 7a 65 2d 4d 61 6e |de "Ener|gize-Man|
|00003d90| 75 61 6c 22 20 6d 6f 64 | 65 2d 6e 61 6d 65 20 65 |ual" mod|e-name e|
|00003da0| 6e 65 72 67 69 7a 65 2d | 6e 6f 6e 2d 66 69 6c 65 |nergize-|non-file|
|00003db0| 2d 6d 6f 64 65 2d 69 6e | 74 65 72 6e 61 6c 20 72 |-mode-in|ternal r|
|00003dc0| 75 6e 2d 68 6f 6f 6b 73 | 20 65 6e 65 72 67 69 7a |un-hooks| energiz|
|00003dd0| 65 2d 6d 61 6e 75 61 6c | 2d 6d 6f 64 65 2d 68 6f |e-manual|-mode-ho|
|00003de0| 6f 6b 5d 20 32 20 22 5c | 0a 4d 61 6a 6f 72 20 6d |ok] 2 "\|.Major m|
|00003df0| 6f 64 65 20 66 6f 72 20 | 74 68 65 20 45 6e 65 72 |ode for |the Ener|
|00003e00| 67 69 7a 65 20 55 4e 49 | 58 20 4d 61 6e 75 61 6c |gize UNI|X Manual|
|00003e10| 20 62 75 66 66 65 72 73 | 2e 0a 49 6e 20 61 64 64 | buffers|..In add|
|00003e20| 69 74 69 6f 6e 20 74 6f | 20 74 68 65 20 6e 6f 72 |ition to| the nor|
|00003e30| 6d 61 6c 20 65 64 69 74 | 69 6e 67 20 63 6f 6d 6d |mal edit|ing comm|
|00003e40| 61 6e 64 73 2c 20 74 68 | 65 20 66 6f 6c 6c 6f 77 |ands, th|e follow|
|00003e50| 69 6e 67 20 6b 65 79 73 | 20 61 72 65 20 62 6f 75 |ing keys| are bou|
|00003e60| 6e 64 3a 0a 5c 5c 7b 65 | 6e 65 72 67 69 7a 65 2d |nd:.\\{e|nergize-|
|00003e70| 6d 61 70 7d 22 20 6e 69 | 6c 5d 29 0a 28 62 79 74 |map}" ni|l]).(byt|
|00003e80| 65 2d 63 6f 64 65 20 22 | c0 c1 21 ac 82 c2 11 c1 |e-code "|..!.....|
|00003e90| 0b 9e ac 85 c4 0b c5 5c | 22 13 c6 c7 21 87 22 20 |.......\|"...!." |
|00003ea0| 5b 62 6f 75 6e 64 70 20 | 65 6e 65 72 67 69 7a 65 |[boundp |energize|
|00003eb0| 2d 73 6f 75 72 63 65 2d | 6d 6f 64 65 20 6e 69 6c |-source-|mode nil|
|00003ec0| 20 6d 69 6e 6f 72 2d 6d | 6f 64 65 2d 61 6c 69 73 | minor-m|ode-alis|
|00003ed0| 74 20 61 70 70 65 6e 64 | 20 28 28 65 6e 65 72 67 |t append| ((energ|
|00003ee0| 69 7a 65 2d 73 6f 75 72 | 63 65 2d 6d 6f 64 65 20 |ize-sour|ce-mode |
|00003ef0| 22 20 45 6e 65 72 67 69 | 7a 65 22 29 29 20 66 6d |" Energi|ze")) fm|
|00003f00| 61 6b 75 6e 62 6f 75 6e | 64 20 6d 61 79 62 65 2d |akunboun|d maybe-|
|00003f10| 74 75 72 6e 2d 6f 6e 2d | 65 6e 65 72 67 69 7a 65 |turn-on-|energize|
|00003f20| 2d 6d 69 6e 6f 72 2d 6d | 6f 64 65 5d 20 33 29 0a |-minor-m|ode] 3).|
|00003f30| 28 66 73 65 74 20 27 65 | 6e 65 72 67 69 7a 65 2d |(fset 'e|nergize-|
|00003f40| 73 6f 75 72 63 65 2d 6d | 69 6e 6f 72 2d 6d 6f 64 |source-m|inor-mod|
|00003f50| 65 20 23 5b 6e 69 6c 20 | 22 c0 20 88 c1 c2 21 88 |e #[nil |". ...!.|
|00003f60| c3 12 0c c5 20 1e 06 1e | 07 c8 0e 06 c9 20 5c 22 |.... ...|..... \"|
|00003f70| 88 ca 0e 06 cb 5c 22 88 | 0e 07 ab 9a cc 89 1e 0d |.....\".|........|
|00003f80| 1e 0e cf 16 0e d0 0e 07 | 0e 0e 5c 22 88 2a d1 0e |........|..\".*..|
|00003f90| 07 21 89 16 07 ac 66 d2 | 0e 06 21 88 2a d3 d4 21 |.!....f.|..!.*..!|
|00003fa0| 87 22 20 5b 65 6e 65 72 | 67 69 7a 65 2d 6d 6f 64 |." [ener|gize-mod|
|00003fb0| 65 2d 69 6e 74 65 72 6e | 61 6c 20 6d 61 6b 65 2d |e-intern|al make-|
|00003fc0| 6c 6f 63 61 6c 2d 76 61 | 72 69 61 62 6c 65 20 65 |local-va|riable e|
|00003fd0| 6e 65 72 67 69 7a 65 2d | 73 6f 75 72 63 65 2d 6d |nergize-|source-m|
|00003fe0| 6f 64 65 20 74 20 65 6e | 65 72 67 69 7a 65 2d 73 |ode t en|ergize-s|
|00003ff0| 6f 75 72 63 65 2d 6d 61 | 70 20 6d 61 6b 65 2d 73 |ource-ma|p make-s|
|00004000| 70 61 72 73 65 2d 6b 65 | 79 6d 61 70 20 64 65 73 |parse-ke|ymap des|
|00004010| 74 2d 6d 61 70 20 73 6f | 75 72 63 65 2d 6d 61 70 |t-map so|urce-map|
|00004020| 20 73 65 74 2d 6b 65 79 | 6d 61 70 2d 70 61 72 65 | set-key|map-pare|
|00004030| 6e 74 20 63 75 72 72 65 | 6e 74 2d 6c 6f 63 61 6c |nt curre|nt-local|
|00004040| 2d 6d 61 70 20 73 65 74 | 2d 6b 65 79 6d 61 70 2d |-map set|-keymap-|
|00004050| 6e 61 6d 65 20 65 6e 65 | 72 67 69 7a 65 2d 6d 69 |name ene|rgize-mi|
|00004060| 6e 6f 72 2d 6d 6f 64 65 | 2d 6d 61 70 20 6e 69 6c |nor-mode|-map nil|
|00004070| 20 70 72 65 66 69 78 65 | 73 20 6d 61 70 70 65 72 | prefixe|s mapper|
|00004080| 20 23 5b 28 6b 65 79 20 | 76 61 6c 29 20 22 c0 09 | #[(key |val) "..|
|00004090| 21 ab 8e c2 0b 0c c5 42 | 5c 22 1b c6 09 0e 07 5c |!......B|\".....\|
|000040a0| 22 29 87 c8 0e 09 ca cb | c2 0b 0c c5 42 5c 22 5c |")......|....B\"\|
|000040b0| 22 09 23 87 22 20 5b 6b | 65 79 6d 61 70 70 20 76 |".#." [k|eymapp v|
|000040c0| 61 6c 20 61 70 70 65 6e | 64 20 70 72 65 66 69 78 |al appen|d prefix|
|000040d0| 65 73 20 6b 65 79 20 6e | 69 6c 20 6d 61 70 2d 6b |es key n|il map-k|
|000040e0| 65 79 6d 61 70 20 6d 61 | 70 70 65 72 20 64 65 66 |eymap ma|pper def|
|000040f0| 69 6e 65 2d 6b 65 79 20 | 64 65 73 74 2d 6d 61 70 |ine-key |dest-map|
|00004100| 20 61 70 70 6c 79 20 76 | 65 63 74 6f 72 5d 20 38 | apply v|ector] 8|
|00004110| 5d 20 6d 61 70 2d 6b 65 | 79 6d 61 70 20 6b 65 79 |] map-ke|ymap key|
|00004120| 6d 61 70 2d 70 61 72 65 | 6e 74 20 75 73 65 2d 6c |map-pare|nt use-l|
|00004130| 6f 63 61 6c 2d 6d 61 70 | 20 72 75 6e 2d 68 6f 6f |ocal-map| run-hoo|
|00004140| 6b 73 20 65 6e 65 72 67 | 69 7a 65 2d 73 6f 75 72 |ks energ|ize-sour|
|00004150| 63 65 2d 6d 6f 64 65 2d | 68 6f 6f 6b 5d 20 34 20 |ce-mode-|hook] 4 |
|00004160| 22 5c 0a 4d 69 6e 6f 72 | 20 6d 6f 64 65 20 66 6f |"\.Minor| mode fo|
|00004170| 72 20 61 64 64 69 6e 67 | 20 61 64 64 69 74 69 6f |r adding| additio|
|00004180| 6e 61 6c 20 6b 65 79 62 | 69 6e 64 69 6e 67 73 20 |nal keyb|indings |
|00004190| 74 6f 20 45 6e 65 72 67 | 69 7a 65 20 73 6f 75 72 |to Energ|ize sour|
|000041a0| 63 65 20 62 75 66 66 65 | 72 73 2e 0a 54 68 65 20 |ce buffe|rs..The |
|000041b0| 66 6f 6c 6c 6f 77 69 6e | 67 20 6b 65 79 20 62 69 |followin|g key bi|
|000041c0| 6e 64 69 6e 67 73 20 61 | 72 65 20 61 64 64 65 64 |ndings a|re added|
|000041d0| 3a 0a 5c 5c 7b 65 6e 65 | 72 67 69 7a 65 2d 73 6f |:.\\{ene|rgize-so|
|000041e0| 75 72 63 65 2d 6d 61 70 | 7d 0a 0a 53 69 6e 63 65 |urce-map|}..Since|
|000041f0| 20 74 68 69 73 20 6d 69 | 6e 6f 72 20 6d 6f 64 65 | this mi|nor mode|
|00004200| 20 64 65 66 69 6e 65 73 | 20 6b 65 79 73 2c 20 6f | defines| keys, o|
|00004210| 6e 63 65 20 69 74 20 67 | 65 74 73 20 74 75 72 6e |nce it g|ets turn|
|00004220| 65 64 20 6f 6e 20 79 6f | 75 20 63 61 6e 27 74 20 |ed on yo|u can't |
|00004230| 72 65 61 6c 6c 79 0a 74 | 75 72 6e 20 69 74 20 6f |really.t|urn it o|
|00004240| 66 66 2e 22 20 6e 69 6c | 5d 29 0a 28 66 73 65 74 |ff." nil|]).(fset|
|00004250| 20 27 72 65 63 65 6e 74 | 65 72 2d 64 65 66 69 6e | 'recent|er-defin|
|00004260| 69 74 69 6f 6e 20 23 5b | 6e 69 6c 20 22 c0 7f 88 |ition #[|nil "...|
|00004270| 09 c2 3d ab 86 c3 c4 21 | 88 aa 84 c5 c4 21 88 c6 |..=....!|.....!..|
|00004280| c4 21 87 22 20 5b 6e 69 | 6c 20 6d 61 6a 6f 72 2d |.!." [ni|l major-|
|00004290| 6d 6f 64 65 20 63 2b 2b | 2d 6d 6f 64 65 20 63 2b |mode c++|-mode c+|
|000042a0| 2b 2d 62 65 67 69 6e 6e | 69 6e 67 2d 6f 66 2d 64 |+-beginn|ing-of-d|
|000042b0| 65 66 75 6e 20 31 20 62 | 65 67 69 6e 6e 69 6e 67 |efun 1 b|eginning|
|000042c0| 2d 6f 66 2d 64 65 66 75 | 6e 20 72 65 63 65 6e 74 |-of-defu|n recent|
|000042d0| 65 72 5d 20 32 20 22 5c | 0a 50 6f 73 69 74 69 6f |er] 2 "\|.Positio|
|000042e0| 6e 20 74 68 65 20 62 65 | 67 69 6e 6e 69 6e 67 20 |n the be|ginning |
|000042f0| 6f 66 20 74 68 65 20 63 | 75 72 72 65 6e 74 20 64 |of the c|urrent d|
|00004300| 65 66 69 6e 69 74 69 6f | 6e 20 61 74 20 74 68 65 |efinitio|n at the|
|00004310| 20 74 6f 70 20 6f 66 20 | 74 68 65 20 73 63 72 65 | top of |the scre|
|00004320| 65 6e 2e 22 20 6e 69 6c | 5d 29 0a 28 62 79 74 65 |en." nil|]).(byte|
|00004330| 2d 63 6f 64 65 20 22 c0 | 09 c2 c3 23 88 c4 c5 4d |-code ".|...#...M|
|00004340| 88 c6 c7 4d 87 22 20 5b | 64 65 66 69 6e 65 2d 6b |...M." [|define-k|
|00004350| 65 79 20 67 6c 6f 62 61 | 6c 2d 6d 61 70 20 22 92 |ey globa|l-map ".|
|00004360| 22 20 72 65 63 65 6e 74 | 65 72 2d 64 65 66 69 6e |" recent|er-defin|
|00004370| 69 74 69 6f 6e 20 65 6e | 65 72 67 69 7a 65 2d 6e |ition en|ergize-n|
|00004380| 65 78 74 2d 65 78 74 65 | 6e 74 2d 66 6f 72 20 23 |ext-exte|nt-for #|
|00004390| 5b 28 63 6f 6d 6d 61 6e | 64 20 70 72 65 76 20 6e |[(comman|d prev n|
|000043a0| 6f 74 2d 74 68 69 73 2d | 6f 6e 65 29 20 22 08 ad |ot-this-|one) "..|
|000043b0| 81 c1 c2 89 1b 1c 1d 8a | 60 1e 06 0b ac ad 0e 07 |........|`.......|
|000043c0| ab 83 6f aa 81 6d ac a3 | c8 60 70 5c 22 89 14 0d |..o..m..|.`p\"...|
|000043d0| 3d ac 8b 0d c1 3d ac 86 | c9 0c 0e 5c 6e 5c 22 13 |=....=..|...\n\".|
|000043e0| 0e 07 ab 83 cb aa 81 cc | 75 88 0c 15 aa 50 2a 0b |........|u....P*.|
|000043f0| ad 81 0c 2b 87 22 20 5b | 6e 6f 74 2d 74 68 69 73 |...+." [|not-this|
|00004400| 2d 6f 6e 65 20 6e 6f 6e | 65 20 6e 69 6c 20 72 65 |-one non|e nil re|
|00004410| 73 75 6c 74 20 65 20 6c | 61 73 74 2d 65 20 70 20 |sult e l|ast-e p |
|00004420| 70 72 65 76 20 65 78 74 | 65 6e 74 2d 61 74 20 65 |prev ext|ent-at e|
|00004430| 6e 65 72 67 69 7a 65 2d | 6d 65 6e 75 2d 69 74 65 |nergize-|menu-ite|
|00004440| 6d 2d 66 6f 72 2d 6e 61 | 6d 65 20 63 6f 6d 6d 61 |m-for-na|me comma|
|00004450| 6e 64 20 2d 31 20 31 5d | 20 34 5d 20 65 6e 65 72 |nd -1 1]| 4] ener|
|00004460| 67 69 7a 65 2d 6e 65 78 | 74 2d 65 78 74 65 6e 74 |gize-nex|t-extent|
|00004470| 2d 6f 6e 2d 6c 69 6e 65 | 2d 66 6f 72 20 23 5b 28 |-on-line|-for #[(|
|00004480| 63 6f 6d 6d 61 6e 64 20 | 6e 6f 74 2d 74 68 69 73 |command |not-this|
|00004490| 2d 6f 6e 65 29 20 22 8a | 8c 60 c0 7f 88 60 7d 88 |-one) ".|.`...`}.|
|000044a0| 65 62 88 c1 5c 6e c0 0b | 23 2a 87 22 20 5b 6e 69 |eb..\n..|#*." [ni|
|000044b0| 6c 20 65 6e 65 72 67 69 | 7a 65 2d 6e 65 78 74 2d |l energi|ze-next-|
|000044c0| 65 78 74 65 6e 74 2d 66 | 6f 72 20 63 6f 6d 6d 61 |extent-f|or comma|
|000044d0| 6e 64 20 6e 6f 74 2d 74 | 68 69 73 2d 6f 6e 65 5d |nd not-t|his-one]|
|000044e0| 20 34 5d 5d 20 34 29 0a | 28 66 73 65 74 20 27 65 | 4]] 4).|(fset 'e|
|000044f0| 6e 65 72 67 69 7a 65 2d | 74 6f 70 2d 6e 65 78 74 |nergize-|top-next|
|00004500| 2d 70 72 6f 6a 65 63 74 | 20 23 5b 6e 69 6c 20 22 |-project| #[nil "|
|00004510| 60 18 c1 c2 c3 c4 23 89 | 1d ab 94 08 c6 0d 21 55 |`.....#.|......!U|
|00004520| ab 8d 8a c7 0d 21 75 88 | c1 c2 c3 c4 23 15 29 0d |.....!u.|....#.).|
|00004530| ab 86 c6 0d 21 62 aa 83 | c8 c9 21 2a 87 22 20 5b |....!b..|..!*." [|
|00004540| 70 20 65 6e 65 72 67 69 | 7a 65 2d 6e 65 78 74 2d |p energi|ze-next-|
|00004550| 65 78 74 65 6e 74 2d 66 | 6f 72 20 22 65 64 69 74 |extent-f|or "edit|
|00004560| 70 72 6f 6a 65 63 74 22 | 20 6e 69 6c 20 74 20 65 |project"| nil t e|
|00004570| 20 65 78 74 65 6e 74 2d | 73 74 61 72 74 2d 70 6f | extent-|start-po|
|00004580| 73 69 74 69 6f 6e 20 65 | 78 74 65 6e 74 2d 6c 65 |sition e|xtent-le|
|00004590| 6e 67 74 68 20 65 72 72 | 6f 72 20 22 6e 6f 20 6e |ngth err|or "no n|
|000045a0| 65 78 74 20 70 72 6f 6a | 65 63 74 22 5d 20 35 20 |ext proj|ect"] 5 |
|000045b0| 22 5c 0a 50 6f 73 69 74 | 69 6f 6e 20 74 68 65 20 |"\.Posit|ion the |
|000045c0| 63 75 72 73 6f 72 20 61 | 74 20 74 68 65 20 62 65 |cursor a|t the be|
|000045d0| 67 69 6e 6e 69 6e 67 20 | 6f 66 20 74 68 65 20 66 |ginning |of the f|
|000045e0| 6f 6c 6c 6f 77 69 6e 67 | 20 70 72 6f 6a 65 63 74 |ollowing| project|
|000045f0| 2e 22 20 6e 69 6c 5d 29 | 0a 28 66 73 65 74 20 27 |." nil])|.(fset '|
|00004600| 65 6e 65 72 67 69 7a 65 | 2d 74 6f 70 2d 70 72 65 |energize|-top-pre|
|00004610| 76 2d 70 72 6f 6a 65 63 | 74 20 23 5b 6e 69 6c 20 |v-projec|t #[nil |
|00004620| 22 60 18 c1 c2 c3 89 23 | 89 1c ab 92 08 c5 0c 21 |"`.....#|.......!|
|00004630| 55 ab 8b 8a c6 75 88 c1 | c2 c3 89 23 14 29 0c ab |U....u..|...#.)..|
|00004640| 86 c5 0c 21 62 aa 83 c7 | c8 21 2a 87 22 20 5b 70 |...!b...|.!*." [p|
|00004650| 20 65 6e 65 72 67 69 7a | 65 2d 6e 65 78 74 2d 65 | energiz|e-next-e|
|00004660| 78 74 65 6e 74 2d 66 6f | 72 20 22 65 64 69 74 70 |xtent-fo|r "editp|
|00004670| 72 6f 6a 65 63 74 22 20 | 74 20 65 20 65 78 74 65 |roject" |t e exte|
|00004680| 6e 74 2d 73 74 61 72 74 | 2d 70 6f 73 69 74 69 6f |nt-start|-positio|
|00004690| 6e 20 2d 31 20 65 72 72 | 6f 72 20 22 6e 6f 20 70 |n -1 err|or "no p|
|000046a0| 72 65 76 69 6f 75 73 20 | 70 72 6f 6a 65 63 74 22 |revious |project"|
|000046b0| 5d 20 35 20 22 5c 0a 50 | 6f 73 69 74 69 6f 6e 20 |] 5 "\.P|osition |
|000046c0| 74 68 65 20 63 75 72 73 | 6f 72 20 61 74 20 74 68 |the curs|or at th|
|000046d0| 65 20 62 65 67 69 6e 6e | 69 6e 67 20 6f 66 20 74 |e beginn|ing of t|
|000046e0| 68 65 20 70 72 65 63 65 | 65 64 69 6e 67 20 70 72 |he prece|eding pr|
|000046f0| 6f 6a 65 63 74 2e 22 20 | 6e 69 6c 5d 29 0a 28 66 |oject." |nil]).(f|
|00004700| 73 65 74 20 27 65 6e 65 | 72 67 69 7a 65 2d 74 6f |set 'ene|rgize-to|
|00004710| 70 2d 65 78 65 63 75 74 | 65 2d 63 6f 6d 6d 61 6e |p-execut|e-comman|
|00004720| 64 20 23 5b 28 63 6f 6d | 6d 61 6e 64 29 20 22 c0 |d #[(com|mand) ".|
|00004730| 09 c2 5c 22 ae 86 c3 c4 | 09 c5 51 21 1e 06 c7 09 |..\"....|..Q!....|
|00004740| 0e 06 5c 22 29 87 22 20 | 5b 65 6e 65 72 67 69 7a |..\")." |[energiz|
|00004750| 65 2d 6e 65 78 74 2d 65 | 78 74 65 6e 74 2d 6f 6e |e-next-e|xtent-on|
|00004760| 2d 6c 69 6e 65 2d 66 6f | 72 20 63 6f 6d 6d 61 6e |-line-fo|r comman|
|00004770| 64 20 6e 69 6c 20 65 72 | 72 6f 72 20 22 6e 6f 20 |d nil er|ror "no |
|00004780| 66 6f 6c 6c 6f 77 69 6e | 67 20 66 69 65 6c 64 20 |followin|g field |
|00004790| 6f 6e 20 74 68 69 73 20 | 6c 69 6e 65 20 74 68 61 |on this |line tha|
|000047a0| 74 20 68 61 6e 64 6c 65 | 73 20 74 68 65 20 60 22 |t handle|s the `"|
|000047b0| 20 22 27 20 45 6e 65 72 | 67 69 7a 65 20 63 6f 6d | "' Ener|gize com|
|000047c0| 6d 61 6e 64 2e 22 20 65 | 20 65 6e 65 72 67 69 7a |mand." e| energiz|
|000047d0| 65 2d 65 78 65 63 75 74 | 65 2d 63 6f 6d 6d 61 6e |e-execut|e-comman|
|000047e0| 64 5d 20 34 5d 29 0a 28 | 66 73 65 74 20 27 65 6e |d] 4]).(|fset 'en|
|000047f0| 65 72 67 69 7a 65 2d 74 | 6f 70 2d 64 65 62 75 67 |ergize-t|op-debug|
|00004800| 20 23 5b 6e 69 6c 20 22 | c0 c1 21 87 22 20 5b 65 | #[nil "|..!." [e|
|00004810| 6e 65 72 67 69 7a 65 2d | 74 6f 70 2d 65 78 65 63 |nergize-|top-exec|
|00004820| 75 74 65 2d 63 6f 6d 6d | 61 6e 64 20 22 64 65 62 |ute-comm|and "deb|
|00004830| 75 67 70 72 6f 67 72 61 | 6d 22 5d 20 32 20 22 5c |ugprogra|m"] 2 "\|
|00004840| 0a 45 78 65 63 75 74 65 | 20 74 68 65 20 60 44 65 |.Execute| the `De|
|00004850| 62 75 67 27 20 63 6f 6d | 6d 61 6e 64 20 6f 6e 20 |bug' com|mand on |
|00004860| 74 68 65 20 70 72 6f 6a | 65 63 74 20 61 74 20 6f |the proj|ect at o|
|00004870| 72 20 66 6f 6c 6c 6f 77 | 69 6e 67 20 70 6f 69 6e |r follow|ing poin|
|00004880| 74 2e 22 20 6e 69 6c 5d | 29 0a 28 66 73 65 74 20 |t." nil]|).(fset |
|00004890| 27 65 6e 65 72 67 69 7a | 65 2d 74 6f 70 2d 64 65 |'energiz|e-top-de|
|000048a0| 6c 65 74 65 2d 70 72 6f | 6a 65 63 74 20 23 5b 6e |lete-pro|ject #[n|
|000048b0| 69 6c 20 22 c0 c1 21 87 | 22 20 5b 65 6e 65 72 67 |il "..!.|" [energ|
|000048c0| 69 7a 65 2d 74 6f 70 2d | 65 78 65 63 75 74 65 2d |ize-top-|execute-|
|000048d0| 63 6f 6d 6d 61 6e 64 20 | 22 64 65 6c 65 74 65 70 |command |"deletep|
|000048e0| 72 6f 6a 65 63 74 22 5d | 20 32 20 22 5c 0a 44 65 |roject"]| 2 "\.De|
|000048f0| 6c 65 74 65 20 74 68 65 | 20 70 72 6f 6a 65 63 74 |lete the| project|
|00004900| 20 61 74 20 6f 72 20 66 | 6f 6c 6c 6f 77 69 6e 67 | at or f|ollowing|
|00004910| 20 70 6f 69 6e 74 2e 22 | 20 6e 69 6c 5d 29 0a 28 | point."| nil]).(|
|00004920| 66 73 65 74 20 27 65 6e | 65 72 67 69 7a 65 2d 74 |fset 'en|ergize-t|
|00004930| 6f 70 2d 65 64 69 74 2d | 70 72 6f 6a 65 63 74 20 |op-edit-|project |
|00004940| 23 5b 6e 69 6c 20 22 c0 | c1 21 87 22 20 5b 65 6e |#[nil ".|.!." [en|
|00004950| 65 72 67 69 7a 65 2d 74 | 6f 70 2d 65 78 65 63 75 |ergize-t|op-execu|
|00004960| 74 65 2d 63 6f 6d 6d 61 | 6e 64 20 22 65 64 69 74 |te-comma|nd "edit|
|00004970| 70 72 6f 6a 65 63 74 22 | 5d 20 32 20 22 5c 0a 45 |project"|] 2 "\.E|
|00004980| 64 69 74 20 74 68 65 20 | 70 72 6f 6a 65 63 74 20 |dit the |project |
|00004990| 61 74 20 6f 72 20 66 6f | 6c 6c 6f 77 69 6e 67 20 |at or fo|llowing |
|000049a0| 70 6f 69 6e 74 2e 22 20 | 6e 69 6c 5d 29 0a 28 62 |point." |nil]).(b|
|000049b0| 79 74 65 2d 63 6f 64 65 | 20 22 c0 c1 4d 88 c2 c3 |yte-code| "..M...|
|000049c0| 4d 88 c4 c5 4d 87 22 20 | 5b 65 6e 65 72 67 69 7a |M...M." |[energiz|
|000049d0| 65 2d 70 72 6f 6a 65 63 | 74 2d 6e 65 78 74 2d 66 |e-projec|t-next-f|
|000049e0| 69 65 6c 64 20 23 5b 28 | 26 6f 70 74 69 6f 6e 61 |ield #[(|&optiona|
|000049f0| 6c 20 70 72 65 76 29 20 | 22 c0 60 70 5c 22 89 19 |l prev) |".`p\"..|
|00004a00| ab 91 5c 6e ab 88 c3 09 | 21 53 62 88 aa 86 c4 09 |..\n....|!Sb.....|
|00004a10| 21 54 62 88 c0 60 70 5c | 22 ac 8b 5c 6e ab 83 c5 |!Tb..`p\|"..\n...|
|00004a20| aa 81 c6 75 88 aa 6f c0 | 60 70 c7 23 ab 8b 5c 6e |...u..o.|`p.#..\n|
|00004a30| ab 83 c5 aa 81 c6 75 88 | aa 6e 5c 6e ad 9a c0 60 |......u.|.n\n...`|
|00004a40| 70 5c 22 89 11 ab 86 c3 | 09 21 62 aa 8c c0 60 70 |p\".....|.!b...`p|
|00004a50| 5c 22 3f ad 85 c5 75 88 | aa 74 29 87 22 20 5b 65 |\"?...u.|.t)." [e|
|00004a60| 78 74 65 6e 74 2d 61 74 | 20 65 20 70 72 65 76 20 |xtent-at| e prev |
|00004a70| 65 78 74 65 6e 74 2d 73 | 74 61 72 74 2d 70 6f 73 |extent-s|tart-pos|
|00004a80| 69 74 69 6f 6e 20 65 78 | 74 65 6e 74 2d 65 6e 64 |ition ex|tent-end|
|00004a90| 2d 70 6f 73 69 74 69 6f | 6e 20 2d 31 20 31 20 77 |-positio|n -1 1 w|
|00004aa0| 72 69 74 65 2d 70 72 6f | 74 65 63 74 65 64 5d 20 |rite-pro|tected] |
|00004ab0| 35 20 6e 69 6c 20 6e 69 | 6c 5d 20 65 6e 65 72 67 |5 nil ni|l] energ|
|00004ac0| 69 7a 65 2d 70 72 6f 6a | 65 63 74 2d 70 72 65 76 |ize-proj|ect-prev|
|00004ad0| 2d 66 69 65 6c 64 20 23 | 5b 6e 69 6c 20 22 c0 c1 |-field #|[nil "..|
|00004ae0| 21 87 22 20 5b 65 6e 65 | 72 67 69 7a 65 2d 70 72 |!." [ene|rgize-pr|
|00004af0| 6f 6a 65 63 74 2d 6e 65 | 78 74 2d 66 69 65 6c 64 |oject-ne|xt-field|
|00004b00| 20 74 5d 20 32 20 6e 69 | 6c 20 6e 69 6c 5d 20 65 | t] 2 ni|l nil] e|
|00004b10| 6e 65 72 67 69 7a 65 2d | 70 72 6f 6a 65 63 74 2d |nergize-|project-|
|00004b20| 65 64 69 74 2d 66 69 6c | 65 20 23 5b 6e 69 6c 20 |edit-fil|e #[nil |
|00004b30| 22 c0 c1 21 87 22 20 5b | 65 6e 65 72 67 69 7a 65 |"..!." [|energize|
|00004b40| 2d 74 6f 70 2d 65 78 65 | 63 75 74 65 2d 63 6f 6d |-top-exe|cute-com|
|00004b50| 6d 61 6e 64 20 22 65 64 | 69 74 66 69 6c 65 22 5d |mand "ed|itfile"]|
|00004b60| 20 32 20 6e 69 6c 20 6e | 69 6c 5d 5d 20 32 29 0a | 2 nil n|il]] 2).|
+--------+-------------------------+-------------------------+--------+--------+