/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / lucid / lemacs-19.6 / lisp / energize / energize-init.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 54 68 75 |wednesda|y on Thu|
|00000030| 20 4d 61 72 20 32 35 20 | 32 33 3a 34 33 3a 34 36 | Mar 25 |23:43:46|
|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 69 |rgize/en|ergize-i|
|00000090| 6e 69 74 2e 65 6c 0a 3b | 3b 3b 20 65 6d 61 63 73 |nit.el.;|;; emacs|
|000000a0| 20 76 65 72 73 69 6f 6e | 20 31 39 2e 36 20 4c 75 | version| 19.6 Lu|
|000000b0| 63 69 64 2e 0a 3b 3b 3b | 20 62 79 74 65 63 6f 6d |cid..;;;| bytecom|
|000000c0| 70 20 76 65 72 73 69 6f | 6e 20 32 2e 31 30 3b 20 |p versio|n 2.10; |
|000000d0| 31 36 2d 66 65 62 2d 39 | 33 2e 0a 3b 3b 3b 20 6f |16-feb-9|3..;;; o|
|000000e0| 70 74 69 6d 69 7a 61 74 | 69 6f 6e 20 69 73 20 6f |ptimizat|ion is o|
|000000f0| 6e 2e 0a 3b 3b 3b 20 74 | 68 69 73 20 66 69 6c 65 |n..;;; t|his file|
|00000100| 20 75 73 65 73 20 6f 70 | 63 6f 64 65 73 20 77 68 | uses op|codes wh|
|00000110| 69 63 68 20 64 6f 20 6e | 6f 74 20 65 78 69 73 74 |ich do n|ot exist|
|00000120| 20 69 6e 20 45 6d 61 63 | 73 31 38 2e 0a 0a 28 69 | in Emac|s18...(i|
|00000130| 66 20 28 61 6e 64 20 28 | 62 6f 75 6e 64 70 20 27 |f (and (|boundp '|
|00000140| 65 6d 61 63 73 2d 76 65 | 72 73 69 6f 6e 29 0a 09 |emacs-ve|rsion)..|
|00000150| 20 28 6f 72 20 28 61 6e | 64 20 28 62 6f 75 6e 64 | (or (an|d (bound|
|00000160| 70 20 27 65 70 6f 63 68 | 3a 3a 76 65 72 73 69 6f |p 'epoch|::versio|
|00000170| 6e 29 20 65 70 6f 63 68 | 3a 3a 76 65 72 73 69 6f |n) epoch|::versio|
|00000180| 6e 29 0a 09 20 20 20 20 | 20 28 73 74 72 69 6e 67 |n)..    | (string|
|00000190| 2d 6c 65 73 73 70 20 65 | 6d 61 63 73 2d 76 65 72 |-lessp e|macs-ver|
|000001a0| 73 69 6f 6e 20 22 31 39 | 22 29 29 29 0a 20 20 20 |sion "19|"))).   |
|000001b0| 20 28 65 72 72 6f 72 20 | 22 54 68 69 73 20 66 69 | (error |"This fi|
|000001c0| 6c 65 20 77 61 73 20 63 | 6f 6d 70 69 6c 65 64 20 |le was c|ompiled |
|000001d0| 66 6f 72 20 45 6d 61 63 | 73 31 39 2e 22 29 29 0a |for Emac|s19.")).|
|000001e0| 0a 28 64 65 66 76 61 72 | 20 65 6e 65 72 67 69 7a |.(defvar| energiz|
|000001f0| 65 2d 61 75 74 6f 2d 72 | 61 69 73 65 2d 73 63 72 |e-auto-r|aise-scr|
|00000200| 65 65 6e 20 74 20 22 5c | 0a 49 66 20 54 20 73 63 |een t "\|.If T sc|
|00000210| 72 65 65 6e 73 20 61 72 | 65 20 61 75 74 6f 6d 61 |reens ar|e automa|
|00000220| 74 69 63 61 6c 6c 79 20 | 72 61 69 73 65 64 20 77 |tically |raised w|
|00000230| 68 65 6e 20 45 6e 65 72 | 67 69 7a 65 20 77 61 6e |hen Ener|gize wan|
|00000240| 74 73 20 74 6f 20 73 68 | 6f 77 20 74 68 65 6d 2e |ts to sh|ow them.|
|00000250| 22 29 0a 28 64 65 66 76 | 61 72 20 65 6e 65 72 67 |").(defv|ar energ|
|00000260| 69 7a 65 2d 63 6f 6e 6e | 65 63 74 2d 68 6f 6f 6b |ize-conn|ect-hook|
|00000270| 20 6e 69 6c 20 22 5c 0a | 2a 46 75 6e 63 74 69 6f | nil "\.|*Functio|
|00000280| 6e 20 6f 72 20 66 75 6e | 63 74 69 6f 6e 73 20 74 |n or fun|ctions t|
|00000290| 6f 20 72 75 6e 20 77 68 | 65 6e 20 74 68 65 20 45 |o run wh|en the E|
|000002a0| 6e 65 72 67 69 7a 65 20 | 63 6f 6e 6e 65 63 74 69 |nergize |connecti|
|000002b0| 6f 6e 20 69 73 20 65 73 | 74 61 62 6c 69 73 68 65 |on is es|tablishe|
|000002c0| 64 2e 22 29 0a 28 64 65 | 66 76 61 72 20 65 6e 65 |d.").(de|fvar ene|
|000002d0| 72 67 69 7a 65 2d 64 69 | 73 63 6f 6e 6e 65 63 74 |rgize-di|sconnect|
|000002e0| 2d 68 6f 6f 6b 20 6e 69 | 6c 20 22 5c 0a 2a 46 75 |-hook ni|l "\.*Fu|
|000002f0| 6e 63 74 69 6f 6e 20 6f | 72 20 66 75 6e 63 74 69 |nction o|r functi|
|00000300| 6f 6e 73 20 74 6f 20 72 | 75 6e 20 77 68 65 6e 20 |ons to r|un when |
|00000310| 74 68 65 20 45 6d 61 63 | 73 2f 45 6e 65 72 67 69 |the Emac|s/Energi|
|00000320| 7a 65 20 63 6f 6e 6e 65 | 63 74 69 6f 6e 20 69 73 |ze conne|ction is|
|00000330| 20 63 6c 6f 73 65 64 2e | 22 29 0a 28 62 79 74 65 | closed.|").(byte|
|00000340| 2d 63 6f 64 65 20 22 c0 | c1 21 ac 82 c2 11 c0 c3 |-code ".|.!......|
|00000350| 21 ac 82 c4 13 c2 87 22 | 20 5b 62 6f 75 6e 64 70 |!......"| [boundp|
|00000360| 20 65 6e 65 72 67 69 7a | 65 2d 73 63 72 65 65 6e | energiz|e-screen|
|00000370| 2d 6d 6f 64 65 20 6e 69 | 6c 20 65 6e 65 72 67 69 |-mode ni|l energi|
|00000380| 7a 65 2d 73 70 6c 69 74 | 2d 73 63 72 65 65 6e 73 |ze-split|-screens|
|00000390| 2d 70 20 74 5d 20 32 29 | 0a 28 66 73 65 74 20 27 |-p t] 2)|.(fset '|
|000003a0| 65 6e 65 72 67 69 7a 65 | 2d 6d 75 6c 74 69 2d 73 |energize|-multi-s|
|000003b0| 63 72 65 65 6e 2d 6d 6f | 64 65 20 23 5b 6e 69 6c |creen-mo|de #[nil|
|000003c0| 20 22 c0 c1 c2 c3 23 88 | c0 c4 c2 c5 23 88 c0 c6 | "....#.|....#...|
|000003d0| c2 c5 23 88 c0 c7 c2 c5 | 23 88 c0 c8 c9 ca 23 88 |..#.....|#.....#.|
|000003e0| c0 cb c9 ca 23 88 c0 cc | c9 cd 23 88 c0 ce c9 c7 |....#...|..#.....|
|000003f0| 23 88 c0 cf c9 c7 23 88 | c0 d0 c9 c1 23 88 c0 d1 |#.....#.|....#...|
|00000400| c9 c1 23 88 c0 d2 c9 d3 | 23 88 c0 d4 c9 c6 23 88 |..#.....|#.....#.|
|00000410| 0e 15 ab 85 ca 16 16 aa | 83 c4 16 16 d7 16 18 d9 |........|........|
|00000420| 16 1a db 87 22 20 5b 70 | 75 74 20 70 72 6f 6a 65 |...." [p|ut proje|
|00000430| 63 74 20 69 6e 73 74 61 | 6e 63 65 2d 6c 69 6d 69 |ct insta|nce-limi|
|00000440| 74 20 30 20 73 6f 75 72 | 63 65 73 20 35 20 6d 61 |t 0 sour|ces 5 ma|
|00000450| 6e 75 61 6c 20 62 72 6f | 77 73 65 72 20 65 6e 65 |nual bro|wser ene|
|00000460| 72 67 69 7a 65 2d 64 65 | 62 75 67 67 65 72 2d 6d |rgize-de|bugger-m|
|00000470| 6f 64 65 20 73 63 72 65 | 65 6e 2d 6e 61 6d 65 20 |ode scre|en-name |
|00000480| 64 65 62 75 67 67 65 72 | 20 67 64 62 2d 6d 6f 64 |debugger| gdb-mod|
|00000490| 65 20 65 6e 65 72 67 69 | 7a 65 2d 74 6f 70 2d 6c |e energi|ze-top-l|
|000004a0| 65 76 65 6c 2d 6d 6f 64 | 65 20 65 6e 65 72 67 69 |evel-mod|e energi|
|000004b0| 7a 65 20 65 6e 65 72 67 | 69 7a 65 2d 62 72 6f 77 |ze energ|ize-brow|
|000004c0| 73 65 72 2d 6d 6f 64 65 | 20 65 6e 65 72 67 69 7a |ser-mode| energiz|
|000004d0| 65 2d 62 72 65 61 6b 70 | 6f 69 6e 74 2d 6d 6f 64 |e-breakp|oint-mod|
|000004e0| 65 20 65 6e 65 72 67 69 | 7a 65 2d 70 72 6f 6a 65 |e energi|ze-proje|
|000004f0| 63 74 2d 6d 6f 64 65 20 | 65 6e 65 72 67 69 7a 65 |ct-mode |energize|
|00000500| 2d 6e 6f 2d 66 69 6c 65 | 2d 70 72 6f 6a 65 63 74 |-no-file|-project|
|00000510| 2d 6d 6f 64 65 20 65 6e | 65 72 67 69 7a 65 2d 6c |-mode en|ergize-l|
|00000520| 6f 67 2d 6d 6f 64 65 20 | 65 72 72 6f 72 2d 6c 6f |og-mode |error-lo|
|00000530| 67 20 65 6e 65 72 67 69 | 7a 65 2d 6d 61 6e 75 61 |g energi|ze-manua|
|00000540| 6c 2d 65 6e 74 72 79 2d | 6d 6f 64 65 20 65 6e 65 |l-entry-|mode ene|
|00000550| 72 67 69 7a 65 2d 65 78 | 74 65 72 6e 61 6c 2d 65 |rgize-ex|ternal-e|
|00000560| 64 69 74 6f 72 20 67 65 | 74 2d 73 63 72 65 65 6e |ditor ge|t-screen|
|00000570| 2d 66 6f 72 2d 62 75 66 | 66 65 72 2d 64 65 66 61 |-for-buf|fer-defa|
|00000580| 75 6c 74 2d 73 63 72 65 | 65 6e 2d 6e 61 6d 65 20 |ult-scre|en-name |
|00000590| 70 6f 70 2d 74 6f 2d 62 | 75 66 66 65 72 20 62 75 |pop-to-b|uffer bu|
|000005a0| 66 66 65 72 73 2d 6d 65 | 6e 75 2d 73 77 69 74 63 |ffers-me|nu-switc|
|000005b0| 68 2d 74 6f 2d 62 75 66 | 66 65 72 2d 66 75 6e 63 |h-to-buf|fer-func|
|000005c0| 74 69 6f 6e 20 6d 75 6c | 74 69 20 65 6e 65 72 67 |tion mul|ti energ|
|000005d0| 69 7a 65 2d 73 63 72 65 | 65 6e 2d 6d 6f 64 65 20 |ize-scre|en-mode |
|000005e0| 74 5d 20 34 20 22 5c 0a | 43 61 6c 6c 20 74 68 69 |t] 4 "\.|Call thi|
|000005f0| 73 20 66 75 6e 63 74 69 | 6f 6e 20 74 6f 20 70 75 |s functi|on to pu|
|00000600| 74 20 45 6e 65 72 67 69 | 7a 65 20 69 6e 74 6f 20 |t Energi|ze into |
|00000610| 6d 75 6c 74 69 2d 73 63 | 72 65 65 6e 20 6d 6f 64 |multi-sc|reen mod|
|00000620| 65 2e 0a 0a 41 20 73 63 | 72 65 65 6e 20 6e 61 6d |e...A sc|reen nam|
|00000630| 65 64 20 5c 22 64 65 62 | 75 67 67 65 72 5c 22 20 |ed \"deb|ugger\" |
|00000640| 77 69 6c 6c 20 62 65 20 | 75 73 65 64 20 66 6f 72 |will be |used for|
|00000650| 20 74 68 65 20 2a 44 65 | 62 75 67 67 65 72 2a 20 | the *De|bugger* |
|00000660| 62 75 66 66 65 72 2c 0a | 20 20 61 6e 64 20 69 74 |buffer,.|  and it|
|00000670| 73 20 61 73 73 6f 63 69 | 61 74 65 64 20 73 6f 75 |s associ|ated sou|
|00000680| 72 63 65 20 66 69 6c 65 | 73 2e 0a 41 20 73 63 72 |rce file|s..A scr|
|00000690| 65 65 6e 20 6e 61 6d 65 | 64 20 5c 22 65 6e 65 72 |een name|d \"ener|
|000006a0| 67 69 7a 65 5c 22 20 77 | 69 6c 6c 20 62 65 20 75 |gize\" w|ill be u|
|000006b0| 73 65 64 20 66 6f 72 20 | 74 68 65 20 54 6f 70 2d |sed for |the Top-|
|000006c0| 4c 65 76 65 6c 20 62 75 | 66 66 65 72 2e 0a 41 20 |Level bu|ffer..A |
|000006d0| 73 63 72 65 65 6e 20 6e | 61 6d 65 64 20 5c 22 62 |screen n|amed \"b|
|000006e0| 72 6f 77 73 65 72 5c 22 | 20 77 69 6c 6c 20 62 65 |rowser\"| will be|
|000006f0| 20 63 72 65 61 74 65 64 | 20 66 6f 72 20 65 61 63 | created| for eac|
|00000700| 68 20 4c 2e 45 2e 20 42 | 72 6f 77 73 65 72 20 62 |h L.E. B|rowser b|
|00000710| 75 66 66 65 72 2e 0a 20 | 41 74 20 6d 6f 73 74 20 |uffer.. |At most |
|00000720| 35 20 6f 66 20 74 68 65 | 73 65 20 77 69 6c 6c 20 |5 of the|se will |
|00000730| 62 65 20 63 72 65 61 74 | 65 64 3b 20 74 68 65 6e |be creat|ed; then|
|00000740| 20 74 68 65 79 20 77 69 | 6c 6c 20 62 65 20 72 65 | they wi|ll be re|
|00000750| 75 73 65 64 2e 0a 41 20 | 73 63 72 65 65 6e 20 6e |used..A |screen n|
|00000760| 61 6d 65 64 20 5c 22 70 | 72 6f 6a 65 63 74 5c 22 |amed \"p|roject\"|
|00000770| 20 77 69 6c 6c 20 62 65 | 20 63 72 65 61 74 65 64 | will be| created|
|00000780| 20 66 6f 72 20 65 61 63 | 68 20 50 72 6f 6a 65 63 | for eac|h Projec|
|00000790| 74 20 62 75 66 66 65 72 | 2e 0a 41 20 73 63 72 65 |t buffer|..A scre|
|000007a0| 65 6e 20 6e 61 6d 65 64 | 20 5c 22 65 72 72 6f 72 |en named| \"error|
|000007b0| 2d 6c 6f 67 5c 22 20 77 | 69 6c 6c 20 62 65 20 63 |-log\" w|ill be c|
|000007c0| 72 65 61 74 65 64 20 66 | 6f 72 20 74 68 65 20 45 |reated f|or the E|
|000007d0| 72 72 6f 72 20 4c 6f 67 | 20 62 75 66 66 65 72 0a |rror Log| buffer.|
|000007e0| 20 61 6e 64 20 69 74 73 | 20 61 73 73 6f 63 69 61 | and its| associa|
|000007f0| 74 65 64 20 73 6f 75 72 | 63 65 20 66 69 6c 65 73 |ted sour|ce files|
|00000800| 20 28 61 73 20 77 68 65 | 6e 20 74 68 65 20 4e 65 | (as whe|n the Ne|
|00000810| 78 74 20 45 72 72 6f 72 | 20 63 6f 6d 6d 61 6e 64 |xt Error| command|
|00000820| 20 0a 20 64 69 73 70 6c | 61 79 73 20 61 20 73 6f | . displ|ays a so|
|00000830| 75 72 63 65 20 66 69 6c | 65 2e 29 0a 41 20 73 63 |urce fil|e.).A sc|
|00000840| 72 65 65 6e 20 6e 61 6d | 65 64 20 5c 22 6d 61 6e |reen nam|ed \"man|
|00000850| 75 61 6c 5c 22 20 77 69 | 6c 6c 20 62 65 20 63 72 |ual\" wi|ll be cr|
|00000860| 65 61 74 65 64 20 66 6f | 72 20 65 61 63 68 20 55 |eated fo|r each U|
|00000870| 4e 49 58 20 4d 61 6e 75 | 61 6c 20 70 61 67 65 2e |NIX Manu|al page.|
|00000880| 0a 20 41 74 20 6d 6f 73 | 74 20 35 20 6f 66 20 74 |. At mos|t 5 of t|
|00000890| 68 65 73 65 20 77 69 6c | 6c 20 62 65 20 63 72 65 |hese wil|l be cre|
|000008a0| 61 74 65 64 3b 20 74 68 | 65 6e 20 74 68 65 79 20 |ated; th|en they |
|000008b0| 77 69 6c 6c 20 62 65 20 | 72 65 75 73 65 64 2e 0a |will be |reused..|
|000008c0| 0a 49 66 20 61 6e 20 65 | 78 74 65 72 6e 61 6c 20 |.If an e|xternal |
|000008d0| 65 64 69 74 6f 72 20 69 | 73 20 62 65 69 6e 67 20 |editor i|s being |
|000008e0| 75 73 65 64 2c 20 74 68 | 65 6e 20 73 6f 75 72 63 |used, th|en sourc|
|000008f0| 65 20 66 69 6c 65 73 20 | 77 69 6c 6c 20 62 65 20 |e files |will be |
|00000900| 64 69 73 70 6c 61 79 65 | 64 0a 72 65 61 64 2d 6f |displaye|d.read-o|
|00000910| 6e 6c 79 20 69 6e 20 74 | 68 65 20 5c 22 64 65 62 |nly in t|he \"deb|
|00000920| 75 67 67 65 72 5c 22 20 | 73 63 72 65 65 6e 2e 0a |ugger\" |screen..|
|00000930| 0a 49 66 20 61 6e 20 65 | 78 74 65 72 6e 61 6c 20 |.If an e|xternal |
|00000940| 65 64 69 74 6f 72 20 69 | 73 20 6e 6f 74 20 62 65 |editor i|s not be|
|00000950| 69 6e 67 20 75 73 65 64 | 2c 20 74 68 65 6e 20 73 |ing used|, then s|
|00000960| 63 72 65 65 6e 73 20 6e | 61 6d 65 64 20 5c 22 73 |creens n|amed \"s|
|00000970| 6f 75 72 63 65 73 5c 22 | 20 0a 77 69 6c 6c 20 62 |ources\"| .will b|
|00000980| 65 20 63 72 65 61 74 65 | 64 20 74 6f 20 65 64 69 |e create|d to edi|
|00000990| 74 20 73 6f 75 72 63 65 | 20 66 69 6c 65 73 2e 20 |t source| files. |
|000009a0| 20 41 74 20 6d 6f 73 74 | 20 66 69 76 65 20 6f 66 | At most| five of|
|000009b0| 20 74 68 65 73 65 20 77 | 69 6c 6c 20 62 65 20 0a | these w|ill be .|
|000009c0| 63 72 65 61 74 65 64 3b | 20 74 68 65 6e 20 74 68 |created;| then th|
|000009d0| 65 79 20 77 69 6c 6c 20 | 62 65 20 72 65 75 73 65 |ey will |be reuse|
|000009e0| 64 2e 20 20 46 69 6e 64 | 2d 66 69 6c 65 20 77 69 |d.  Find|-file wi|
|000009f0| 6c 6c 20 75 73 65 20 74 | 68 65 20 63 75 72 72 65 |ll use t|he curre|
|00000a00| 6e 74 20 73 63 72 65 65 | 6e 2c 0a 77 68 61 74 65 |nt scree|n,.whate|
|00000a10| 76 65 72 20 74 68 61 74 | 20 68 61 70 70 65 6e 73 |ver that| happens|
|00000a20| 20 74 6f 20 62 65 2c 20 | 62 75 74 20 66 69 6e 64 | to be, |but find|
|00000a30| 2d 66 69 6c 65 2d 6f 74 | 68 65 72 2d 77 69 6e 64 |-file-ot|her-wind|
|00000a40| 6f 77 2c 20 61 6e 64 20 | 73 65 6c 65 63 74 69 6e |ow, and |selectin|
|00000a50| 67 20 0a 73 6f 75 72 63 | 65 20 66 69 6c 65 73 20 |g .sourc|e files |
|00000a60| 66 72 6f 6d 20 74 68 65 | 20 42 75 66 66 65 72 73 |from the| Buffers|
|00000a70| 20 6d 65 6e 75 20 77 69 | 6c 6c 20 75 73 65 20 61 | menu wi|ll use a|
|00000a80| 6e 20 65 78 69 73 74 69 | 6e 67 20 73 63 72 65 65 |n existi|ng scree|
|00000a90| 6e 20 64 69 73 70 6c 61 | 79 69 6e 67 0a 74 68 65 |n displa|ying.the|
|00000aa0| 20 66 69 6c 65 20 69 6e | 20 71 75 65 73 74 69 6f | file in| questio|
|00000ab0| 6e 2c 20 6f 72 20 63 72 | 65 61 74 65 20 61 20 6e |n, or cr|eate a n|
|00000ac0| 65 77 20 6f 6e 65 20 69 | 66 20 74 68 65 72 65 20 |ew one i|f there |
|00000ad0| 69 73 6e 27 74 20 6f 6e | 65 2e 0a 0a 43 61 6c 6c |isn't on|e...Call|
|00000ae0| 20 60 65 6e 65 72 67 69 | 7a 65 2d 73 69 6e 67 6c | `energi|ze-singl|
|00000af0| 65 2d 73 63 72 65 65 6e | 2d 6d 6f 64 65 27 20 74 |e-screen|-mode' t|
|00000b00| 6f 20 74 75 72 6e 20 74 | 68 69 73 20 6f 66 66 2e |o turn t|his off.|
|00000b10| 0a 0a 53 65 65 20 74 68 | 65 20 64 6f 63 75 6d 65 |..See th|e docume|
|00000b20| 6e 74 61 74 69 6f 6e 20 | 66 6f 72 20 74 68 65 20 |ntation |for the |
|00000b30| 66 75 6e 63 74 69 6f 6e | 20 67 65 74 2d 73 63 72 |function| get-scr|
|00000b40| 65 65 6e 2d 66 6f 72 2d | 62 75 66 66 65 72 20 66 |een-for-|buffer f|
|00000b50| 6f 72 20 0a 69 6e 66 6f | 72 6d 61 74 69 6f 6e 20 |or .info|rmation |
|00000b60| 6f 6e 20 68 6f 77 20 74 | 6f 20 63 75 73 74 6f 6d |on how t|o custom|
|00000b70| 69 7a 65 20 74 68 69 73 | 2e 22 20 6e 69 6c 5d 29 |ize this|." nil])|
|00000b80| 0a 28 66 73 65 74 20 27 | 65 6e 65 72 67 69 7a 65 |.(fset '|energize|
|00000b90| 2d 73 65 76 65 72 61 6c | 2d 73 63 72 65 65 6e 73 |-several|-screens|
|00000ba0| 2d 6d 6f 64 65 20 23 5b | 6e 69 6c 20 22 c0 20 88 |-mode #[|nil ". .|
|00000bb0| c1 c2 c3 5c 22 88 c1 c4 | c3 5c 22 88 c1 c5 c3 5c |...\"...|.\"....\|
|00000bc0| 22 88 c1 c6 c3 5c 22 88 | c7 16 08 c9 87 22 20 5b |"....\".|....." [|
|00000bd0| 65 6e 65 72 67 69 7a 65 | 2d 6d 75 6c 74 69 2d 73 |energize|-multi-s|
|00000be0| 63 72 65 65 6e 2d 6d 6f | 64 65 20 72 65 6d 70 72 |creen-mo|de rempr|
|00000bf0| 6f 70 20 62 72 6f 77 73 | 65 72 20 69 6e 73 74 61 |op brows|er insta|
|00000c00| 6e 63 65 2d 6c 69 6d 69 | 74 20 70 72 6f 6a 65 63 |nce-limi|t projec|
|00000c10| 74 20 6d 61 6e 75 61 6c | 20 73 6f 75 72 63 65 73 |t manual| sources|
|00000c20| 20 73 65 76 65 72 61 6c | 20 65 6e 65 72 67 69 7a | several| energiz|
|00000c30| 65 2d 73 63 72 65 65 6e | 2d 6d 6f 64 65 20 74 5d |e-screen|-mode t]|
|00000c40| 20 33 20 22 5c 0a 43 61 | 6c 6c 20 74 68 69 73 20 | 3 "\.Ca|ll this |
|00000c50| 66 75 6e 63 74 69 6f 6e | 20 74 6f 20 70 75 74 20 |function| to put |
|00000c60| 45 6e 65 72 67 69 7a 65 | 20 69 6e 74 6f 20 6d 75 |Energize| into mu|
|00000c70| 6c 74 69 2d 73 63 72 65 | 65 6e 20 6d 6f 64 65 2c |lti-scre|en mode,|
|00000c80| 20 0a 62 75 74 20 77 69 | 74 68 20 6f 6e 6c 79 20 | .but wi|th only |
|00000c90| 61 20 66 65 77 20 73 63 | 72 65 65 6e 73 2e 20 20 |a few sc|reens.  |
|00000ca0| 53 65 65 20 61 6c 73 6f | 20 60 65 6e 65 72 67 69 |See also| `energi|
|00000cb0| 7a 65 2d 6d 75 6c 74 69 | 2d 73 63 72 65 65 6e 2d |ze-multi|-screen-|
|00000cc0| 6d 6f 64 65 27 2e 0a 0a | 41 20 73 63 72 65 65 6e |mode'...|A screen|
|00000cd0| 20 6e 61 6d 65 64 20 5c | 22 64 65 62 75 67 67 65 | named \|"debugge|
|00000ce0| 72 5c 22 20 77 69 6c 6c | 20 62 65 20 75 73 65 64 |r\" will| be used|
|00000cf0| 20 66 6f 72 20 74 68 65 | 20 2a 44 65 62 75 67 67 | for the| *Debugg|
|00000d00| 65 72 2a 20 62 75 66 66 | 65 72 2c 0a 20 20 61 6e |er* buff|er,.  an|
|00000d10| 64 20 69 74 73 20 61 73 | 73 6f 63 69 61 74 65 64 |d its as|sociated|
|00000d20| 20 73 6f 75 72 63 65 20 | 66 69 6c 65 73 2e 0a 41 | source |files..A|
|00000d30| 20 73 63 72 65 65 6e 20 | 6e 61 6d 65 64 20 5c 22 | screen |named \"|
|00000d40| 65 6e 65 72 67 69 7a 65 | 5c 22 20 77 69 6c 6c 20 |energize|\" will |
|00000d50| 62 65 20 75 73 65 64 20 | 66 6f 72 20 74 68 65 20 |be used |for the |
|00000d60| 54 6f 70 2d 4c 65 76 65 | 6c 20 62 75 66 66 65 72 |Top-Leve|l buffer|
|00000d70| 2e 0a 41 20 73 69 6e 67 | 6c 65 20 73 63 72 65 65 |..A sing|le scree|
|00000d80| 6e 20 6e 61 6d 65 64 20 | 5c 22 62 72 6f 77 73 65 |n named |\"browse|
|00000d90| 72 5c 22 20 77 69 6c 6c | 20 62 65 20 63 72 65 61 |r\" will| be crea|
|00000da0| 74 65 64 20 66 6f 72 20 | 4c 2e 45 2e 20 42 72 6f |ted for |L.E. Bro|
|00000db0| 77 73 65 72 20 62 75 66 | 66 65 72 73 2e 0a 41 20 |wser buf|fers..A |
|00000dc0| 73 69 6e 67 6c 65 20 73 | 63 72 65 65 6e 20 6e 61 |single s|creen na|
|00000dd0| 6d 65 64 20 5c 22 70 72 | 6f 6a 65 63 74 5c 22 20 |med \"pr|oject\" |
|00000de0| 77 69 6c 6c 20 62 65 20 | 63 72 65 61 74 65 64 20 |will be |created |
|00000df0| 66 6f 72 20 50 72 6f 6a | 65 63 74 20 62 75 66 66 |for Proj|ect buff|
|00000e00| 65 72 73 2e 0a 41 20 73 | 63 72 65 65 6e 20 6e 61 |ers..A s|creen na|
|00000e10| 6d 65 64 20 5c 22 65 72 | 72 6f 72 2d 6c 6f 67 5c |med \"er|ror-log\|
|00000e20| 22 20 77 69 6c 6c 20 62 | 65 20 63 72 65 61 74 65 |" will b|e create|
|00000e30| 64 20 66 6f 72 20 74 68 | 65 20 45 72 72 6f 72 20 |d for th|e Error |
|00000e40| 4c 6f 67 20 62 75 66 66 | 65 72 0a 20 61 6e 64 20 |Log buff|er. and |
|00000e50| 69 74 73 20 61 73 73 6f | 63 69 61 74 65 64 20 73 |its asso|ciated s|
|00000e60| 6f 75 72 63 65 20 66 69 | 6c 65 73 20 28 61 73 20 |ource fi|les (as |
|00000e70| 77 68 65 6e 20 74 68 65 | 20 4e 65 78 74 20 45 72 |when the| Next Er|
|00000e80| 72 6f 72 20 63 6f 6d 6d | 61 6e 64 20 0a 20 64 69 |ror comm|and . di|
|00000e90| 73 70 6c 61 79 73 20 61 | 20 73 6f 75 72 63 65 20 |splays a| source |
|00000ea0| 66 69 6c 65 2e 29 0a 41 | 20 73 69 6e 67 6c 65 20 |file.).A| single |
|00000eb0| 73 63 72 65 65 6e 20 6e | 61 6d 65 64 20 5c 22 6d |screen n|amed \"m|
|00000ec0| 61 6e 75 61 6c 5c 22 20 | 77 69 6c 6c 20 62 65 20 |anual\" |will be |
|00000ed0| 63 72 65 61 74 65 64 20 | 66 6f 72 20 55 4e 49 58 |created |for UNIX|
|00000ee0| 20 4d 61 6e 75 61 6c 20 | 70 61 67 65 20 62 75 66 | Manual |page buf|
|00000ef0| 66 65 72 73 2e 0a 0a 49 | 66 20 61 6e 20 65 78 74 |fers...I|f an ext|
|00000f00| 65 72 6e 61 6c 20 65 64 | 69 74 6f 72 20 69 73 20 |ernal ed|itor is |
|00000f10| 62 65 69 6e 67 20 75 73 | 65 64 2c 20 74 68 65 6e |being us|ed, then|
|00000f20| 20 73 6f 75 72 63 65 20 | 66 69 6c 65 73 20 77 69 | source |files wi|
|00000f30| 6c 6c 20 62 65 20 64 69 | 73 70 6c 61 79 65 64 0a |ll be di|splayed.|
|00000f40| 72 65 61 64 2d 6f 6e 6c | 79 20 69 6e 20 74 68 65 |read-onl|y in the|
|00000f50| 20 5c 22 64 65 62 75 67 | 67 65 72 5c 22 20 73 63 | \"debug|ger\" sc|
|00000f60| 72 65 65 6e 2e 0a 0a 49 | 66 20 61 6e 20 65 78 74 |reen...I|f an ext|
|00000f70| 65 72 6e 61 6c 20 65 64 | 69 74 6f 72 20 69 73 20 |ernal ed|itor is |
|00000f80| 6e 6f 74 20 62 65 69 6e | 67 20 75 73 65 64 2c 20 |not bein|g used, |
|00000f90| 74 68 65 6e 20 61 20 73 | 69 6e 67 6c 65 20 73 63 |then a s|ingle sc|
|00000fa0| 72 65 65 6e 20 6e 61 6d | 65 64 20 0a 5c 22 73 6f |reen nam|ed .\"so|
|00000fb0| 75 72 63 65 73 5c 22 20 | 77 69 6c 6c 20 62 65 20 |urces\" |will be |
|00000fc0| 63 72 65 61 74 65 64 20 | 74 6f 20 65 64 69 74 20 |created |to edit |
|00000fd0| 73 6f 75 72 63 65 20 66 | 69 6c 65 73 2e 20 20 46 |source f|iles.  F|
|00000fe0| 69 6e 64 2d 66 69 6c 65 | 20 77 69 6c 6c 20 75 73 |ind-file| will us|
|00000ff0| 65 20 74 68 65 0a 63 75 | 72 72 65 6e 74 20 73 63 |e the.cu|rrent sc|
|00001000| 72 65 65 6e 2c 20 77 68 | 61 74 65 76 65 72 20 74 |reen, wh|atever t|
|00001010| 68 61 74 20 68 61 70 70 | 65 6e 73 20 74 6f 20 62 |hat happ|ens to b|
|00001020| 65 2c 20 62 75 74 20 66 | 69 6e 64 2d 66 69 6c 65 |e, but f|ind-file|
|00001030| 2d 6f 74 68 65 72 2d 77 | 69 6e 64 6f 77 2c 20 0a |-other-w|indow, .|
|00001040| 61 6e 64 20 73 65 6c 65 | 63 74 69 6e 67 20 73 6f |and sele|cting so|
|00001050| 75 72 63 65 20 66 69 6c | 65 73 20 66 72 6f 6d 20 |urce fil|es from |
|00001060| 74 68 65 20 42 75 66 66 | 65 72 73 20 6d 65 6e 75 |the Buff|ers menu|
|00001070| 20 77 69 6c 6c 20 75 73 | 65 20 61 6e 20 65 78 69 | will us|e an exi|
|00001080| 73 74 69 6e 67 20 73 63 | 72 65 65 6e 0a 64 69 73 |sting sc|reen.dis|
|00001090| 70 6c 61 79 69 6e 67 20 | 74 68 65 20 66 69 6c 65 |playing |the file|
|000010a0| 20 69 6e 20 71 75 65 73 | 74 69 6f 6e 2c 20 6f 72 | in ques|tion, or|
|000010b0| 20 63 72 65 61 74 65 20 | 61 20 6e 65 77 20 6f 6e | create |a new on|
|000010c0| 65 20 69 66 20 74 68 65 | 72 65 20 69 73 6e 27 74 |e if the|re isn't|
|000010d0| 20 6f 6e 65 2e 0a 0a 43 | 61 6c 6c 20 60 65 6e 65 | one...C|all `ene|
|000010e0| 72 67 69 7a 65 2d 73 69 | 6e 67 6c 65 2d 73 63 72 |rgize-si|ngle-scr|
|000010f0| 65 65 6e 2d 6d 6f 64 65 | 27 20 74 6f 20 74 75 72 |een-mode|' to tur|
|00001100| 6e 20 74 68 69 73 20 6f | 66 66 2e 0a 0a 53 65 65 |n this o|ff...See|
|00001110| 20 74 68 65 20 64 6f 63 | 75 6d 65 6e 74 61 74 69 | the doc|umentati|
|00001120| 6f 6e 20 66 6f 72 20 74 | 68 65 20 66 75 6e 63 74 |on for t|he funct|
|00001130| 69 6f 6e 20 67 65 74 2d | 73 63 72 65 65 6e 2d 66 |ion get-|screen-f|
|00001140| 6f 72 2d 62 75 66 66 65 | 72 20 66 6f 72 20 0a 69 |or-buffe|r for .i|
|00001150| 6e 66 6f 72 6d 61 74 69 | 6f 6e 20 6f 6e 20 68 6f |nformati|on on ho|
|00001160| 77 20 74 6f 20 63 75 73 | 74 6f 6d 69 7a 65 20 74 |w to cus|tomize t|
|00001170| 68 69 73 2e 22 20 6e 69 | 6c 5d 29 0a 28 66 73 65 |his." ni|l]).(fse|
|00001180| 74 20 27 65 6e 65 72 67 | 69 7a 65 2d 73 69 6e 67 |t 'energ|ize-sing|
|00001190| 6c 65 2d 73 63 72 65 65 | 6e 2d 6d 6f 64 65 20 23 |le-scree|n-mode #|
|000011a0| 5b 6e 69 6c 20 22 c0 c1 | c2 5c 22 88 c0 c3 c2 5c |[nil "..|.\"....\|
|000011b0| 22 88 c0 c4 c2 5c 22 88 | c0 c5 c2 5c 22 88 c0 c6 |"....\".|...\"...|
|000011c0| c7 5c 22 88 c0 c8 c7 5c | 22 88 c0 c9 c7 5c 22 88 |.\"....\|"....\".|
|000011d0| c0 ca c7 5c 22 88 c0 cb | c7 5c 22 88 c0 cc c7 5c |...\"...|.\"....\|
|000011e0| 22 88 c0 cd c7 5c 22 88 | c0 ce c7 5c 22 88 c0 cf |"....\".|...\"...|
|000011f0| c7 5c 22 88 d0 16 11 d2 | 16 13 d4 16 15 d0 87 22 |.\".....|......."|
|00001200| 20 5b 72 65 6d 70 72 6f | 70 20 62 72 6f 77 73 65 | [rempro|p browse|
|00001210| 72 20 69 6e 73 74 61 6e | 63 65 2d 6c 69 6d 69 74 |r instan|ce-limit|
|00001220| 20 70 72 6f 6a 65 63 74 | 20 6d 61 6e 75 61 6c 20 | project| manual |
|00001230| 73 6f 75 72 63 65 73 20 | 65 6e 65 72 67 69 7a 65 |sources |energize|
|00001240| 2d 64 65 62 75 67 67 65 | 72 2d 6d 6f 64 65 20 73 |-debugge|r-mode s|
|00001250| 63 72 65 65 6e 2d 6e 61 | 6d 65 20 67 64 62 2d 6d |creen-na|me gdb-m|
|00001260| 6f 64 65 20 65 6e 65 72 | 67 69 7a 65 2d 74 6f 70 |ode ener|gize-top|
|00001270| 2d 6c 65 76 65 6c 2d 6d | 6f 64 65 20 65 6e 65 72 |-level-m|ode ener|
|00001280| 67 69 7a 65 2d 62 72 6f | 77 73 65 72 2d 6d 6f 64 |gize-bro|wser-mod|
|00001290| 65 20 65 6e 65 72 67 69 | 7a 65 2d 62 72 65 61 6b |e energi|ze-break|
|000012a0| 70 6f 69 6e 74 2d 6d 6f | 64 65 20 65 6e 65 72 67 |point-mo|de energ|
|000012b0| 69 7a 65 2d 70 72 6f 6a | 65 63 74 2d 6d 6f 64 65 |ize-proj|ect-mode|
|000012c0| 20 65 6e 65 72 67 69 7a | 65 2d 6e 6f 2d 66 69 6c | energiz|e-no-fil|
|000012d0| 65 2d 70 72 6f 6a 65 63 | 74 2d 6d 6f 64 65 20 65 |e-projec|t-mode e|
|000012e0| 6e 65 72 67 69 7a 65 2d | 6c 6f 67 2d 6d 6f 64 65 |nergize-|log-mode|
|000012f0| 20 65 6e 65 72 67 69 7a | 65 2d 6d 61 6e 75 61 6c | energiz|e-manual|
|00001300| 2d 65 6e 74 72 79 2d 6d | 6f 64 65 20 6e 69 6c 20 |-entry-m|ode nil |
|00001310| 67 65 74 2d 73 63 72 65 | 65 6e 2d 66 6f 72 2d 62 |get-scre|en-for-b|
|00001320| 75 66 66 65 72 2d 64 65 | 66 61 75 6c 74 2d 73 63 |uffer-de|fault-sc|
|00001330| 72 65 65 6e 2d 6e 61 6d | 65 20 73 77 69 74 63 68 |reen-nam|e switch|
|00001340| 2d 74 6f 2d 62 75 66 66 | 65 72 20 62 75 66 66 65 |-to-buff|er buffe|
|00001350| 72 73 2d 6d 65 6e 75 2d | 73 77 69 74 63 68 2d 74 |rs-menu-|switch-t|
|00001360| 6f 2d 62 75 66 66 65 72 | 2d 66 75 6e 63 74 69 6f |o-buffer|-functio|
|00001370| 6e 20 73 69 6e 67 6c 65 | 20 65 6e 65 72 67 69 7a |n single| energiz|
|00001380| 65 2d 73 63 72 65 65 6e | 2d 6d 6f 64 65 5d 20 33 |e-screen|-mode] 3|
|00001390| 20 22 5c 0a 43 61 6c 6c | 20 74 68 69 73 20 66 75 | "\.Call| this fu|
|000013a0| 6e 63 74 69 6f 6e 20 74 | 6f 20 70 75 74 20 45 6e |nction t|o put En|
|000013b0| 65 72 67 69 7a 65 20 69 | 6e 74 6f 20 73 69 6e 67 |ergize i|nto sing|
|000013c0| 6c 65 2d 73 63 72 65 65 | 6e 20 6d 6f 64 65 2e 0a |le-scree|n mode..|
|000013d0| 41 6c 6c 20 62 75 66 66 | 65 72 73 20 77 69 6c 6c |All buff|ers will|
|000013e0| 20 62 65 20 64 69 73 70 | 6c 61 79 65 64 20 69 6e | be disp|layed in|
|000013f0| 20 74 68 65 20 63 75 72 | 72 65 6e 74 6c 79 20 73 | the cur|rently s|
|00001400| 65 6c 65 63 74 65 64 20 | 73 63 72 65 65 6e 2e 22 |elected |screen."|
|00001410| 20 6e 69 6c 5d 29 0a 28 | 62 79 74 65 2d 63 6f 64 | nil]).(|byte-cod|
|00001420| 65 20 22 c0 20 88 09 ac | 82 c2 11 c3 c4 4d 88 c5 |e ". ...|.....M..|
|00001430| c6 4d 87 22 20 5b 65 6e | 65 72 67 69 7a 65 2d 73 |.M." [en|ergize-s|
|00001440| 69 6e 67 6c 65 2d 73 63 | 72 65 65 6e 2d 6d 6f 64 |ingle-sc|reen-mod|
|00001450| 65 20 65 6e 65 72 67 69 | 7a 65 2d 61 74 74 72 69 |e energi|ze-attri|
|00001460| 62 75 74 65 73 2d 6d 61 | 70 70 69 6e 67 20 28 28 |butes-ma|pping ((|
|00001470| 31 20 62 6f 6c 64 29 20 | 28 32 20 69 74 61 6c 69 |1 bold) |(2 itali|
|00001480| 63 29 20 28 33 20 62 6f | 6c 64 2d 69 74 61 6c 69 |c) (3 bo|ld-itali|
|00001490| 63 29 20 28 34 20 61 74 | 74 72 69 62 75 74 65 53 |c) (4 at|tributeS|
|000014a0| 6d 61 6c 6c 29 20 28 35 | 30 20 61 74 74 72 69 62 |mall) (5|0 attrib|
|000014b0| 75 74 65 47 6c 79 70 68 | 29 20 28 35 31 20 61 74 |uteGlyph|) (51 at|
|000014c0| 74 72 69 62 75 74 65 53 | 65 63 74 69 6f 6e 48 65 |tributeS|ectionHe|
|000014d0| 61 64 65 72 29 20 28 35 | 32 20 61 74 74 72 69 62 |ader) (5|2 attrib|
|000014e0| 75 74 65 54 6f 70 6c 65 | 76 65 6c 46 6f 72 6d 47 |uteTople|velFormG|
|000014f0| 6c 79 70 68 29 20 28 35 | 33 20 61 74 74 72 69 62 |lyph) (5|3 attrib|
|00001500| 75 74 65 4d 6f 64 69 66 | 69 65 64 54 6f 70 6c 65 |uteModif|iedTople|
|00001510| 76 65 6c 46 6f 72 6d 47 | 6c 79 70 68 29 20 28 35 |velFormG|lyph) (5|
|00001520| 34 20 61 74 74 72 69 62 | 75 74 65 42 72 6f 77 73 |4 attrib|uteBrows|
|00001530| 65 72 48 65 61 64 65 72 | 29 20 28 36 38 20 61 74 |erHeader|) (68 at|
|00001540| 74 72 69 62 75 74 65 57 | 72 69 74 65 50 72 6f 74 |tributeW|riteProt|
|00001550| 65 63 74 65 64 29 20 28 | 36 39 20 61 74 74 72 69 |ected) (|69 attri|
|00001560| 62 75 74 65 4d 6f 64 69 | 66 69 65 64 54 65 78 74 |buteModi|fiedText|
|00001570| 29 29 20 65 6e 65 72 67 | 69 7a 65 2d 69 6e 69 74 |)) energ|ize-init|
|00001580| 69 61 6c 69 7a 65 2d 66 | 61 63 65 73 20 23 5b 6e |ialize-f|aces #[n|
|00001590| 69 6c 20 22 c0 c1 5c 6e | 5c 22 89 12 87 22 20 5b |il "..\n|\"..." [|
|000015a0| 6d 61 70 63 61 72 20 23 | 5b 28 6c 29 20 22 08 40 |mapcar #|[(l) ".@|
|000015b0| 08 41 40 c1 08 41 40 21 | ae 85 c2 08 41 40 21 1b |.A@..A@!|....A@!.|
|000015c0| c4 0b 21 c5 48 29 42 42 | 87 22 20 5b 6c 20 66 69 |..!.H)BB|." [l fi|
|000015d0| 6e 64 2d 66 61 63 65 20 | 6d 61 6b 65 2d 66 61 63 |nd-face |make-fac|
|000015e0| 65 20 66 61 63 65 20 67 | 65 74 2d 66 61 63 65 20 |e face g|et-face |
|000015f0| 32 5d 20 34 5d 20 65 6e | 65 72 67 69 7a 65 2d 61 |2] 4] en|ergize-a|
|00001600| 74 74 72 69 62 75 74 65 | 73 2d 6d 61 70 70 69 6e |ttribute|s-mappin|
|00001610| 67 5d 20 33 5d 20 61 6e | 79 2d 65 6e 65 72 67 69 |g] 3] an|y-energi|
|00001620| 7a 65 2d 62 75 66 66 65 | 72 73 2d 70 20 23 5b 6e |ze-buffe|rs-p #[n|
|00001630| 69 6c 20 22 c0 20 c1 1a | 89 1b ab 94 c4 0b 40 21 |il ". ..|......@!|
|00001640| ab 88 0b 40 12 c1 89 13 | aa 70 0b 41 89 13 ac 6c |...@....|.p.A...l|
|00001650| 5c 6e 2a 87 22 20 5b 62 | 75 66 66 65 72 2d 6c 69 |\n*." [b|uffer-li|
|00001660| 73 74 20 6e 69 6c 20 72 | 65 73 75 6c 74 20 72 65 |st nil r|esult re|
|00001670| 73 74 20 65 6e 65 72 67 | 69 7a 65 2d 62 75 66 66 |st energ|ize-buff|
|00001680| 65 72 2d 70 5d 20 33 5d | 5d 20 32 29 0a 28 66 73 |er-p] 3]|] 2).(fs|
|00001690| 65 74 20 27 63 6f 6e 6e | 65 63 74 2d 74 6f 2d 65 |et 'conn|ect-to-e|
|000016a0| 6e 65 72 67 69 7a 65 20 | 23 5b 28 73 65 72 76 65 |nergize |#[(serve|
|000016b0| 72 20 26 6f 70 74 69 6f | 6e 61 6c 20 65 6e 61 72 |r &optio|nal enar|
|000016c0| 67 29 20 22 c0 20 ab 84 | c1 c2 21 88 0b ab 85 0b |g) ". ..|..!.....|
|000016d0| c4 9a ab 83 c5 20 13 c6 | 16 07 c8 20 88 c9 20 88 |..... ..|... .. .|
|000016e0| 74 ab 94 0e 5c 6e 3a ab | 8f cb 0e 5c 6e 3e ab 89 |t...\n:.|...\n>..|
|000016f0| cc cb cd 0e 5c 6e 21 5c | 22 aa 82 0e 5c 6e 1e 5c |....\n!\|"...\n.\|
|00001700| 6e ce 0b 0e 0f 5c 22 88 | d0 20 88 d1 c6 21 ae 83 |n....\".|. ...!..|
|00001710| c1 d2 21 d3 1e 14 1e 15 | c0 20 ac 84 c1 d6 21 88 |..!.....|. ....!.|
|00001720| d7 20 89 16 14 ac 87 d8 | 0e 15 21 88 aa 6a d9 0e |. ......|..!..j..|
|00001730| 14 21 88 da 20 88 db dc | 21 2b 87 22 20 5b 63 6f |.!.. ...|!+." [co|
|00001740| 6e 6e 65 63 74 65 64 2d | 74 6f 2d 65 6e 65 72 67 |nnected-|to-energ|
|00001750| 69 7a 65 2d 70 20 65 72 | 72 6f 72 20 22 41 6c 72 |ize-p er|ror "Alr|
|00001760| 65 61 64 79 20 63 6f 6e | 6e 65 63 74 65 64 20 74 |eady con|nected t|
|00001770| 6f 20 74 68 65 20 73 65 | 72 76 65 72 2e 22 20 73 |o the se|rver." s|
|00001780| 65 72 76 65 72 20 22 22 | 20 73 79 73 74 65 6d 2d |erver ""| system-|
|00001790| 6e 61 6d 65 20 22 65 6e | 65 72 67 69 7a 65 22 20 |name "en|ergize" |
|000017a0| 64 65 66 61 75 6c 74 2d | 73 63 72 65 65 6e 2d 6e |default-|screen-n|
|000017b0| 61 6d 65 20 65 6e 65 72 | 67 69 7a 65 2d 72 65 6e |ame ener|gize-ren|
|000017c0| 61 6d 65 2d 74 68 69 6e | 67 73 20 65 6e 65 72 67 |ame-thin|gs energ|
|000017d0| 69 7a 65 2d 68 61 63 6b | 2d 65 78 74 65 72 6e 61 |ize-hack|-externa|
|000017e0| 6c 2d 65 64 69 74 6f 72 | 2d 6d 6f 64 65 20 65 6e |l-editor|-mode en|
|000017f0| 65 72 67 69 7a 65 2d 64 | 69 73 63 6f 6e 6e 65 63 |ergize-d|isconnec|
|00001800| 74 2d 68 6f 6f 6b 20 73 | 61 76 65 2d 62 75 66 66 |t-hook s|ave-buff|
|00001810| 65 72 73 2d 6b 69 6c 6c | 2d 65 6d 61 63 73 20 64 |ers-kill|-emacs d|
|00001820| 65 6c 71 20 63 6f 70 79 | 2d 73 65 71 75 65 6e 63 |elq copy|-sequenc|
|00001830| 65 20 63 6f 6e 6e 65 63 | 74 2d 74 6f 2d 65 6e 65 |e connec|t-to-ene|
|00001840| 72 67 69 7a 65 2d 69 6e | 74 65 72 6e 61 6c 20 65 |rgize-in|ternal e|
|00001850| 6e 61 72 67 20 65 6e 65 | 72 67 69 7a 65 2d 69 6e |narg ene|rgize-in|
|00001860| 69 74 69 61 6c 69 7a 65 | 2d 66 61 63 65 73 20 67 |itialize|-faces g|
|00001870| 65 74 2d 70 72 6f 63 65 | 73 73 20 22 43 6f 75 6c |et-proce|ss "Coul|
|00001880| 64 20 6e 6f 74 20 63 6f | 6e 6e 65 63 74 20 74 6f |d not co|nnect to|
|00001890| 20 45 6e 65 72 67 69 7a | 65 2e 22 20 6e 69 6c 20 | Energiz|e." nil |
|000018a0| 62 20 70 20 22 45 6e 65 | 72 67 69 7a 65 20 63 6f |b p "Ene|rgize co|
|000018b0| 6e 6e 65 63 74 69 6f 6e | 20 72 65 66 75 73 65 64 |nnection| refused|
|000018c0| 2e 22 20 61 6e 79 2d 65 | 6e 65 72 67 69 7a 65 2d |." any-e|nergize-|
|000018d0| 62 75 66 66 65 72 73 2d | 70 20 61 63 63 65 70 74 |buffers-|p accept|
|000018e0| 2d 70 72 6f 63 65 73 73 | 2d 6f 75 74 70 75 74 20 |-process|-output |
|000018f0| 70 6f 70 2d 74 6f 2d 62 | 75 66 66 65 72 20 64 65 |pop-to-b|uffer de|
|00001900| 6c 65 74 65 2d 6f 74 68 | 65 72 2d 77 69 6e 64 6f |lete-oth|er-windo|
|00001910| 77 73 20 72 75 6e 2d 68 | 6f 6f 6b 73 20 65 6e 65 |ws run-h|ooks ene|
|00001920| 72 67 69 7a 65 2d 63 6f | 6e 6e 65 63 74 2d 68 6f |rgize-co|nnect-ho|
|00001930| 6f 6b 5d 20 34 20 22 5c | 0a 43 6f 6e 6e 65 63 74 |ok] 4 "\|.Connect|
|00001940| 20 74 68 69 73 20 65 6d | 61 63 73 20 74 6f 20 61 | this em|acs to a|
|00001950| 20 45 6e 65 72 67 69 7a | 65 20 73 65 72 76 65 72 | Energiz|e server|
|00001960| 2e 0a 54 68 65 20 53 45 | 52 56 45 52 20 61 72 67 |..The SE|RVER arg|
|00001970| 75 6d 65 6e 74 20 73 68 | 6f 75 6c 64 20 62 65 20 |ument sh|ould be |
|00001980| 74 68 65 20 6e 61 6d 65 | 20 6f 66 20 74 68 65 20 |the name| of the |
|00001990| 68 6f 73 74 20 74 68 61 | 74 20 74 68 65 20 6b 65 |host tha|t the ke|
|000019a0| 72 6e 65 6c 20 69 73 0a | 72 75 6e 6e 69 6e 67 20 |rnel is.|running |
|000019b0| 6f 6e 20 28 65 6d 70 74 | 79 2d 73 74 72 69 6e 67 |on (empt|y-string|
|000019c0| 20 66 6f 72 20 6c 6f 63 | 61 6c 68 6f 73 74 29 2e | for loc|alhost).|
|000019d0| 20 20 49 74 20 6d 61 79 | 20 61 6c 73 6f 20 62 65 |  It may| also be|
|000019e0| 20 6f 66 20 74 68 65 20 | 66 6f 72 6d 0a 60 60 68 | of the |form.``h|
|000019f0| 6f 73 74 6e 61 6d 65 3a | 75 73 65 72 27 27 20 6f |ostname:|user'' o|
|00001a00| 72 20 60 60 3a 75 73 65 | 72 27 27 2c 20 6d 65 61 |r ``:use|r'', mea|
|00001a10| 6e 69 6e 67 20 74 6f 20 | 75 73 65 20 74 68 65 20 |ning to |use the |
|00001a20| 73 65 72 76 65 72 20 72 | 75 6e 6e 69 6e 67 20 77 |server r|unning w|
|00001a30| 69 74 68 0a 75 73 65 72 | 69 64 20 55 53 45 52 2e |ith.user|id USER.|
|00001a40| 22 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 20 |" (byte-|code ". |
|00001a50| ab 84 c1 c2 21 87 c3 c4 | 21 43 87 22 20 5b 63 6f |....!...|!C." [co|
|00001a60| 6e 6e 65 63 74 65 64 2d | 74 6f 2d 65 6e 65 72 67 |nnected-|to-energ|
|00001a70| 69 7a 65 2d 70 20 65 72 | 72 6f 72 20 22 41 6c 72 |ize-p er|ror "Alr|
|00001a80| 65 61 64 79 20 63 6f 6e | 6e 65 63 74 65 64 20 74 |eady con|nected t|
|00001a90| 6f 20 74 68 65 20 73 65 | 72 76 65 72 2e 22 20 72 |o the se|rver." r|
|00001aa0| 65 61 64 2d 73 74 72 69 | 6e 67 20 22 63 6f 6e 6e |ead-stri|ng "conn|
|00001ab0| 65 63 74 20 74 6f 20 65 | 6e 65 72 67 69 7a 65 20 |ect to e|nergize |
|00001ac0| 73 65 72 76 65 72 3a 20 | 22 5d 20 32 29 5d 29 0a |server: |"] 2)]).|
|00001ad0| 28 66 73 65 74 20 27 64 | 69 73 63 6f 6e 6e 65 63 |(fset 'd|isconnec|
|00001ae0| 74 2d 66 72 6f 6d 2d 65 | 6e 65 72 67 69 7a 65 20 |t-from-e|nergize |
|00001af0| 23 5b 6e 69 6c 20 22 c0 | 20 87 22 20 5b 63 6c 6f |#[nil ".| ." [clo|
|00001b00| 73 65 2d 63 6f 6e 6e 65 | 63 74 69 6f 6e 2d 74 6f |se-conne|ction-to|
|00001b10| 2d 65 6e 65 72 67 69 7a | 65 5d 20 31 20 6e 69 6c |-energiz|e] 1 nil|
|00001b20| 20 6e 69 6c 5d 29 0a 28 | 66 73 65 74 20 27 65 6e | nil]).(|fset 'en|
|00001b30| 65 72 67 69 7a 65 2d 61 | 6c 6c 2d 62 75 66 66 65 |ergize-a|ll-buffe|
|00001b40| 72 73 20 23 5b 6e 69 6c | 20 22 c0 20 ac 84 c1 c2 |rs #[nil| ". ....|
|00001b50| 21 88 c3 8b 87 22 20 5b | 63 6f 6e 6e 65 63 74 65 |!...." [|connecte|
|00001b60| 64 2d 74 6f 2d 65 6e 65 | 72 67 69 7a 65 2d 70 20 |d-to-ene|rgize-p |
|00001b70| 65 72 72 6f 72 20 22 59 | 6f 75 20 68 61 76 65 20 |error "Y|ou have |
|00001b80| 74 6f 20 63 6f 6e 6e 65 | 63 74 20 74 6f 20 45 6e |to conne|ct to En|
|00001b90| 65 72 67 69 7a 65 20 66 | 69 72 73 74 22 20 28 28 |ergize f|irst" ((|
|00001ba0| 62 79 74 65 2d 63 6f 64 | 65 20 22 8a c0 20 c1 89 |byte-cod|e ".. ..|
|00001bb0| 89 89 1a 1b 1c 1d 1e 06 | 0e 06 ad f9 0e 06 40 13 |........|......@.|
|00001bc0| 0e 06 41 16 06 c7 0b 21 | 12 0b 71 88 5c 6e ab 69 |..A....!|..q.\n.i|
|00001bd0| c8 0b 21 ac 64 c9 5c 6e | ca 5c 22 ab 5e cb 20 ab |..!.d.\n|.\".^. .|
|00001be0| 98 cc cd ce cf 0b 21 5c | 22 21 ab 88 0b 71 88 d0 |......!\|"!...q..|
|00001bf0| 20 88 aa ab 0b 0d 42 15 | aa a5 d1 0b 21 ac a0 d2 | .....B.|....!...|
|00001c00| 5c 6e 21 ab 9b 0b 71 88 | cc cd d3 cf 0b 21 5c 22 |\n!...q.|.....!\"|
|00001c10| 21 ab 8a 0b 71 88 d4 c1 | ca 5c 22 88 aa 84 0b 0d |!...q...|.\".....|
|00001c20| 42 15 0b 0d 3e ac 86 d5 | 5c 6e 21 88 aa 12 d6 cd |B...>...|\n!.....|
|00001c30| d7 cf 0b 21 5c 22 21 88 | d8 d9 21 88 aa 03 2e 06 |...!\"!.|..!.....|
|00001c40| 87 22 20 5b 62 75 66 66 | 65 72 2d 6c 69 73 74 20 |." [buff|er-list |
|00001c50| 6e 69 6c 20 66 69 6c 65 | 6e 61 6d 65 20 62 75 66 |nil file|name buf|
|00001c60| 66 65 72 20 6c 6f 63 6b | 2d 64 69 72 65 63 74 6f |fer lock|-directo|
|00001c70| 72 79 20 62 75 66 66 65 | 72 73 2d 74 6f 2d 61 76 |ry buffe|rs-to-av|
|00001c80| 6f 69 64 20 62 75 66 66 | 65 72 73 20 62 75 66 66 |oid buff|ers buff|
|00001c90| 65 72 2d 66 69 6c 65 2d | 6e 61 6d 65 20 65 6e 65 |er-file-|name ene|
|00001ca0| 72 67 69 7a 65 2d 62 75 | 66 66 65 72 2d 70 20 65 |rgize-bu|ffer-p e|
|00001cb0| 6e 65 72 67 69 7a 65 2d | 71 75 65 72 79 2d 62 75 |nergize-|query-bu|
|00001cc0| 66 66 65 72 20 74 20 62 | 75 66 66 65 72 2d 6d 6f |ffer t b|uffer-mo|
|00001cd0| 64 69 66 69 65 64 2d 70 | 20 79 2d 6f 72 2d 6e 2d |dified-p| y-or-n-|
|00001ce0| 70 20 66 6f 72 6d 61 74 | 20 22 42 75 66 66 65 72 |p format| "Buffer|
|00001cf0| 20 25 73 20 6d 75 73 74 | 20 62 65 20 73 61 76 65 | %s must| be save|
|00001d00| 64 20 74 6f 20 62 65 20 | 45 6e 65 72 67 69 7a 65 |d to be |Energize|
|00001d10| 64 3b 20 73 61 76 65 20 | 69 74 3f 20 22 20 62 75 |d; save |it? " bu|
|00001d20| 66 66 65 72 2d 6e 61 6d | 65 20 73 61 76 65 2d 62 |ffer-nam|e save-b|
|00001d30| 75 66 66 65 72 20 76 65 | 72 69 66 79 2d 76 69 73 |uffer ve|rify-vis|
|00001d40| 69 74 65 64 2d 66 69 6c | 65 2d 6d 6f 64 74 69 6d |ited-fil|e-modtim|
|00001d50| 65 20 66 69 6c 65 2d 65 | 78 69 73 74 73 2d 70 20 |e file-e|xists-p |
|00001d60| 22 42 75 66 66 65 72 20 | 25 73 20 68 61 73 20 63 |"Buffer |%s has c|
|00001d70| 68 61 6e 67 65 64 20 6f | 6e 20 64 69 73 6b 2c 20 |hanged o|n disk, |
|00001d80| 72 65 76 65 72 74 3f 20 | 22 20 72 65 76 65 72 74 |revert? |" revert|
|00001d90| 2d 62 75 66 66 65 72 20 | 66 69 6e 64 2d 66 69 6c |-buffer |find-fil|
|00001da0| 65 2d 6e 6f 73 65 6c 65 | 63 74 20 6d 65 73 73 61 |e-nosele|ct messa|
|00001db0| 67 65 20 22 42 75 66 66 | 65 72 20 25 73 20 6e 6f |ge "Buff|er %s no|
|00001dc0| 74 20 45 6e 65 72 67 69 | 7a 65 64 2e 22 20 73 69 |t Energi|zed." si|
|00001dd0| 74 2d 66 6f 72 20 31 5d | 20 35 29 29 5d 20 32 20 |t-for 1]| 5))] 2 |
|00001de0| 22 5c 0a 45 6e 65 72 67 | 69 7a 65 20 61 6e 79 20 |"\.Energ|ize any |
|00001df0| 62 75 66 66 65 72 20 73 | 68 6f 77 69 6e 67 20 61 |buffer s|howing a|
|00001e00| 20 66 69 6c 65 20 74 68 | 61 74 20 74 68 65 20 45 | file th|at the E|
|00001e10| 6e 65 72 67 69 7a 65 20 | 73 65 72 76 65 72 20 6b |nergize |server k|
|00001e20| 6e 6f 77 73 20 61 62 6f | 75 74 2e 0a 48 61 73 20 |nows abo|ut..Has |
|00001e30| 74 6f 20 62 65 20 63 61 | 6c 6c 65 64 20 61 66 74 |to be ca|lled aft|
|00001e40| 65 72 20 45 6d 61 63 73 | 20 68 61 73 20 62 65 65 |er Emacs| has bee|
|00001e50| 6e 20 63 6f 6e 6e 65 63 | 74 65 64 20 74 6f 20 45 |n connec|ted to E|
|00001e60| 6e 65 72 67 69 7a 65 22 | 5d 29 0a 28 62 79 74 65 |nergize"|]).(byte|
|00001e70| 2d 63 6f 64 65 20 22 c0 | c1 c2 5c 22 88 c3 c4 4d |-code ".|..\"...M|
|00001e80| 88 c5 c6 4d 87 22 20 5b | 61 64 64 2d 68 6f 6f 6b |...M." [|add-hook|
|00001e90| 20 65 6e 65 72 67 69 7a | 65 2d 63 6f 6e 6e 65 63 | energiz|e-connec|
|00001ea0| 74 2d 68 6f 6f 6b 20 65 | 6e 65 72 67 69 7a 65 2d |t-hook e|nergize-|
|00001eb0| 61 6c 6c 2d 62 75 66 66 | 65 72 73 20 64 65 2d 65 |all-buff|ers de-e|
|00001ec0| 6e 65 72 67 69 7a 65 2d | 61 6c 6c 2d 62 75 66 66 |nergize-|all-buff|
|00001ed0| 65 72 73 20 23 5b 6e 69 | 6c 20 22 8a c0 20 c1 1a |ers #[ni|l ".. ..|
|00001ee0| 89 1b ab 8b c4 c5 c6 8f | 88 0b 41 89 13 ac 75 2b |........|..A...u+|
|00001ef0| c7 20 88 c8 c9 21 88 ca | cb 21 88 c1 87 22 20 5b |. ...!..|.!..." [|
|00001f00| 62 75 66 66 65 72 2d 6c | 69 73 74 20 6e 69 6c 20 |buffer-l|ist nil |
|00001f10| 62 75 66 66 65 72 20 62 | 75 66 66 65 72 73 20 63 |buffer b|uffers c|
|00001f20| 6f 6e 64 69 74 69 6f 6e | 20 28 62 79 74 65 2d 63 |ondition| (byte-c|
|00001f30| 6f 64 65 20 22 08 40 89 | 11 71 88 c2 09 21 ab b4 |ode ".@.|.q...!..|
|00001f40| c3 09 21 c4 3d ab 92 c5 | c6 09 5c 22 88 c7 c8 c9 |..!.=...|..\"....|
|00001f50| 5c 22 88 ca 16 0b cc 20 | 88 aa 9b cd ca 21 88 ce |\"..... |.....!..|
|00001f60| 09 21 09 3d ab 87 cf d0 | 21 71 88 aa 85 ce 09 21 |.!.=....|!q.....!|
|00001f70| 71 88 d1 09 21 88 ca 87 | 22 20 5b 62 75 66 66 65 |q...!...|" [buffe|
|00001f80| 72 73 20 62 75 66 66 65 | 72 20 65 6e 65 72 67 69 |rs buffe|r energi|
|00001f90| 7a 65 2d 62 75 66 66 65 | 72 2d 70 20 65 6e 65 72 |ze-buffe|r-p ener|
|00001fa0| 67 69 7a 65 2d 62 75 66 | 66 65 72 2d 74 79 70 65 |gize-buf|fer-type|
|00001fb0| 20 65 6e 65 72 67 69 7a | 65 2d 73 6f 75 72 63 65 | energiz|e-source|
|00001fc0| 2d 62 75 66 66 65 72 20 | 6d 61 70 2d 65 78 74 65 |-buffer |map-exte|
|00001fd0| 6e 74 73 20 23 5b 28 65 | 78 74 65 6e 74 20 69 67 |nts #[(e|xtent ig|
|00001fe0| 6e 6f 72 65 29 20 22 c0 | 09 21 a2 c2 3d ab 84 c3 |nore) ".|.!..=...|
|00001ff0| 09 21 88 c4 87 22 20 5b | 65 78 74 65 6e 74 2d 64 |.!..." [|extent-d|
|00002000| 61 74 61 20 65 78 74 65 | 6e 74 20 65 6e 65 72 67 |ata exte|nt energ|
|00002010| 69 7a 65 2d 65 78 74 65 | 6e 74 2d 64 61 74 61 20 |ize-exte|nt-data |
|00002020| 64 65 6c 65 74 65 2d 65 | 78 74 65 6e 74 20 6e 69 |delete-e|xtent ni|
|00002030| 6c 5d 20 32 5d 20 72 65 | 6d 6f 76 65 2d 68 6f 6f |l] 2] re|move-hoo|
|00002040| 6b 20 77 72 69 74 65 2d | 66 69 6c 65 2d 64 61 74 |k write-|file-dat|
|00002050| 61 2d 68 6f 6f 6b 73 20 | 65 6e 65 72 67 69 7a 65 |a-hooks |energize|
|00002060| 2d 77 72 69 74 65 2d 64 | 61 74 61 2d 68 6f 6f 6b |-write-d|ata-hook|
|00002070| 20 6e 69 6c 20 72 65 76 | 65 72 74 2d 62 75 66 66 | nil rev|ert-buff|
|00002080| 65 72 2d 69 6e 73 65 72 | 74 2d 66 69 6c 65 2d 63 |er-inser|t-file-c|
|00002090| 6f 6e 74 65 6e 74 73 2d | 66 75 6e 63 74 69 6f 6e |ontents-|function|
|000020a0| 20 65 6e 65 72 67 69 7a | 65 2d 6f 72 69 67 2d 6e | energiz|e-orig-n|
|000020b0| 6f 72 6d 61 6c 2d 6d 6f | 64 65 20 73 65 74 2d 62 |ormal-mo|de set-b|
|000020c0| 75 66 66 65 72 2d 6d 6f | 64 69 66 69 65 64 2d 70 |uffer-mo|dified-p|
|000020d0| 20 6f 74 68 65 72 2d 62 | 75 66 66 65 72 20 67 65 | other-b|uffer ge|
|000020e0| 74 2d 62 75 66 66 65 72 | 2d 63 72 65 61 74 65 20 |t-buffer|-create |
|000020f0| 22 2a 73 63 72 61 74 63 | 68 2a 22 20 6b 69 6c 6c |"*scratc|h*" kill|
|00002100| 2d 62 75 66 66 65 72 5d | 20 34 29 20 28 28 65 72 |-buffer]| 4) ((er|
|00002110| 72 6f 72 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |ror (byt|e-code "|
|00002120| c0 20 88 c1 c2 0b 5c 22 | 87 22 20 5b 62 65 65 70 |. ....\"|." [beep|
|00002130| 20 6d 65 73 73 61 67 65 | 20 22 45 72 72 6f 72 20 | message| "Error |
|00002140| 77 68 69 6c 65 20 64 65 | 2d 45 6e 65 72 67 69 7a |while de|-Energiz|
|00002150| 69 6e 67 3a 20 25 73 22 | 20 63 6f 6e 64 69 74 69 |ing: %s"| conditi|
|00002160| 6f 6e 5d 20 33 29 29 29 | 20 64 65 61 63 74 69 76 |on] 3)))| deactiv|
|00002170| 61 74 65 2d 61 6c 6c 2d | 65 6e 65 72 67 69 7a 65 |ate-all-|energize|
|00002180| 2d 6d 65 6e 75 2d 69 74 | 65 6d 73 20 65 6e 65 72 |-menu-it|ems ener|
|00002190| 67 69 7a 65 2d 72 65 6e | 61 6d 65 2d 74 68 69 6e |gize-ren|ame-thin|
|000021a0| 67 73 20 62 61 63 6b 20 | 72 75 6e 2d 68 6f 6f 6b |gs back |run-hook|
|000021b0| 73 20 65 6e 65 72 67 69 | 7a 65 2d 64 69 73 63 6f |s energi|ze-disco|
|000021c0| 6e 6e 65 63 74 2d 68 6f | 6f 6b 5d 20 34 5d 20 65 |nnect-ho|ok] 4] e|
|000021d0| 6e 65 72 67 69 7a 65 2d | 72 65 6e 61 6d 65 2d 74 |nergize-|rename-t|
|000021e0| 68 69 6e 67 73 20 23 5b | 28 26 6f 70 74 69 6f 6e |hings #[|(&option|
|000021f0| 61 6c 20 62 61 63 6b 29 | 20 22 c0 19 5c 6e 3a ab |al back)| "..\n:.|
|00002200| ad 5c 6e 40 3b ab a8 c3 | 0c ab 83 c5 aa 81 c6 5c |.\n@;...|.......\|
|00002210| 6e 40 5c 22 ab 9b c7 c2 | 5c 6e 40 c8 89 94 4f 0c |n@\"....|\n@...O.|
|00002220| ab 83 c9 aa 81 ca 5c 6e | 40 c8 95 cb 4f 51 5c 6e |......\n|@...OQ\n|
|00002230| 41 42 5c 22 88 29 cb 87 | 22 20 5b 74 20 63 61 73 |AB\".)..|" [t cas|
|00002240| 65 2d 66 6f 6c 64 2d 73 | 65 61 72 63 68 20 6d 6f |e-fold-s|earch mo|
|00002250| 64 65 2d 6c 69 6e 65 2d | 62 75 66 66 65 72 2d 69 |de-line-|buffer-i|
|00002260| 64 65 6e 74 69 66 69 63 | 61 74 69 6f 6e 20 73 74 |dentific|ation st|
|00002270| 72 69 6e 67 2d 6d 61 74 | 63 68 20 62 61 63 6b 20 |ring-mat|ch back |
|00002280| 22 5c 5c 62 45 6e 65 72 | 67 69 7a 65 5c 5c 62 22 |"\\bEner|gize\\b"|
|00002290| 20 22 5c 5c 62 4c 3f 45 | 6d 61 63 73 5c 5c 28 5b | "\\bL?E|macs\\([|
|000022a0| 2d 20 09 5d 2a 5b 2d 2e | 5f 30 2d 39 5d 2b 5c 5c |- .]*[-.|_0-9]+\\|
|000022b0| 29 3f 5c 5c 62 22 20 73 | 65 74 2d 64 65 66 61 75 |)?\\b" s|et-defau|
|000022c0| 6c 74 20 30 20 22 45 6d | 61 63 73 22 20 22 45 6e |lt 0 "Em|acs" "En|
|000022d0| 65 72 67 69 7a 65 22 20 | 6e 69 6c 5d 20 37 5d 5d |ergize" |nil] 7]]|
|000022e0| 20 33 29 0a 28 66 73 65 | 74 20 27 65 6e 65 72 67 | 3).(fse|t 'energ|
|000022f0| 69 7a 65 2d 62 75 66 66 | 65 72 2d 74 79 70 65 20 |ize-buff|er-type |
|00002300| 23 5b 28 62 75 66 66 65 | 72 29 20 22 c0 09 21 89 |#[(buffe|r) "..!.|
|00002310| 1a c3 3d ab a2 c4 09 21 | c5 9a ab 83 c6 aa b6 c4 |..=....!|........|
|00002320| 09 21 c7 9a ab 83 c8 aa | ac c9 ca c4 09 21 5c 22 |.!......|.....!\"|
|00002330| ab 83 cb aa a1 5c 6e aa | 9e 5c 6e cc 3d ab 88 cd |.....\n.|.\n.=...|
|00002340| ce cf 09 44 5c 22 aa 91 | 5c 6e ac 8d d0 09 21 ab |...D\"..|\n....!.|
|00002350| 88 cd ce d1 09 44 5c 22 | aa 81 5c 6e 29 87 22 20 |.....D\"|..\n)." |
|00002360| 5b 65 6e 65 72 67 69 7a | 65 2d 62 75 66 66 65 72 |[energiz|e-buffer|
|00002370| 2d 74 79 70 65 2d 69 6e | 74 65 72 6e 61 6c 20 62 |-type-in|ternal b|
|00002380| 75 66 66 65 72 20 74 79 | 70 65 20 65 6e 65 72 67 |uffer ty|pe energ|
|00002390| 69 7a 65 2d 74 6f 70 2d | 6c 65 76 65 6c 2d 62 75 |ize-top-|level-bu|
|000023a0| 66 66 65 72 20 62 75 66 | 66 65 72 2d 6e 61 6d 65 |ffer buf|fer-name|
|000023b0| 20 22 45 72 72 6f 72 20 | 4c 6f 67 22 20 65 6e 65 | "Error |Log" ene|
|000023c0| 72 67 69 7a 65 2d 65 72 | 72 6f 72 2d 6c 6f 67 2d |rgize-er|ror-log-|
|000023d0| 62 75 66 66 65 72 20 22 | 2a 69 6e 63 6c 75 64 65 |buffer "|*include|
|000023e0| 72 73 2a 22 20 65 6e 65 | 72 67 69 7a 65 2d 69 6e |rs*" ene|rgize-in|
|000023f0| 63 6c 75 64 65 72 73 2d | 62 75 66 66 65 72 20 73 |cluders-|buffer s|
|00002400| 74 72 69 6e 67 2d 6d 61 | 74 63 68 20 22 5e 42 72 |tring-ma|tch "^Br|
|00002410| 6f 77 73 65 72 22 20 65 | 6e 65 72 67 69 7a 65 2d |owser" e|nergize-|
|00002420| 62 72 6f 77 73 65 72 2d | 62 75 66 66 65 72 20 65 |browser-|buffer e|
|00002430| 6e 65 72 67 69 7a 65 2d | 75 6e 73 70 65 63 69 66 |nergize-|unspecif|
|00002440| 69 65 64 2d 62 75 66 66 | 65 72 20 73 69 67 6e 61 |ied-buff|er signa|
|00002450| 6c 20 65 72 72 6f 72 20 | 22 62 75 66 66 65 72 20 |l error |"buffer |
|00002460| 74 79 70 65 20 75 6e 73 | 70 65 63 69 66 69 65 64 |type uns|pecified|
|00002470| 22 20 65 6e 65 72 67 69 | 7a 65 2d 62 75 66 66 65 |" energi|ze-buffe|
|00002480| 72 2d 70 20 22 6e 75 6c | 6c 20 62 75 66 66 65 72 |r-p "nul|l buffer|
|00002490| 20 74 79 70 65 20 66 6f | 72 20 65 6e 65 72 67 69 | type fo|r energi|
|000024a0| 7a 65 20 62 75 66 66 65 | 72 22 5d 20 35 20 22 5c |ze buffe|r"] 5 "\|
|000024b0| 0a 52 65 74 75 72 6e 73 | 20 61 20 73 79 6d 62 6f |.Returns| a symbo|
|000024c0| 6c 20 64 65 6e 6f 74 69 | 6e 67 20 74 68 65 20 74 |l denoti|ng the t|
|000024d0| 79 70 65 20 6f 66 20 61 | 6e 20 45 6e 65 72 67 69 |ype of a|n Energi|
|000024e0| 7a 65 20 62 75 66 66 65 | 72 2c 20 6f 72 20 6e 69 |ze buffe|r, or ni|
|000024f0| 6c 2e 22 5d 29 0a 28 62 | 79 74 65 2d 63 6f 64 65 |l."]).(b|yte-code|
|00002500| 20 22 c0 c1 4d 88 c2 c3 | 21 ac 82 c4 13 c5 c6 4d | "..M...|!......M|
|00002510| 88 c5 16 07 c8 c9 4d 88 | c8 16 5c 6e cb cc 4d 88 |......M.|..\n..M.|
|00002520| cb 16 0d ce 16 0f c4 16 | 10 c2 d1 21 ac 83 d2 16 |........|...!....|
|00002530| 11 d3 0e 14 0e 11 5c 22 | 16 14 d5 d6 4d 88 d7 d8 |......\"|....M...|
|00002540| 21 ac 85 d8 d9 4b 4d 88 | d9 da 4d 87 22 20 5b 65 |!....KM.|..M." [e|
|00002550| 6e 65 72 67 69 7a 65 2d | 65 78 74 65 6e 74 2d 61 |nergize-|extent-a|
|00002560| 74 20 23 5b 28 70 6f 73 | 20 26 6f 70 74 69 6f 6e |t #[(pos| &option|
|00002570| 61 6c 20 62 75 66 66 65 | 72 29 20 22 c0 19 c2 c3 |al buffe|r) "....|
|00002580| 0c ae 81 70 0d 89 c0 c6 | 26 06 88 09 29 87 22 20 |...p....|&...)." |
|00002590| 5b 6e 69 6c 20 65 20 6d | 61 70 2d 65 78 74 65 6e |[nil e m|ap-exten|
|000025a0| 74 73 20 23 5b 28 65 78 | 74 65 6e 74 20 6a 75 6e |ts #[(ex|tent jun|
|000025b0| 6b 29 20 22 c0 09 21 a2 | c2 3d ad 83 09 89 13 87 |k) "..!.|.=......|
|000025c0| 22 20 5b 65 78 74 65 6e | 74 2d 64 61 74 61 20 65 |" [exten|t-data e|
|000025d0| 78 74 65 6e 74 20 65 6e | 65 72 67 69 7a 65 2d 65 |xtent en|ergize-e|
|000025e0| 78 74 65 6e 74 2d 64 61 | 74 61 20 65 5d 20 32 5d |xtent-da|ta e] 2]|
|000025f0| 20 62 75 66 66 65 72 20 | 70 6f 73 20 74 5d 20 37 | buffer |pos t] 7|
|00002600| 5d 20 62 6f 75 6e 64 70 | 20 69 6e 73 69 64 65 2d |] boundp| inside-|
|00002610| 65 6e 65 72 67 69 7a 65 | 2d 62 75 66 66 65 72 2d |energize|-buffer-|
|00002620| 63 72 65 61 74 69 6f 6e | 2d 68 6f 6f 6b 2d 66 75 |creation|-hook-fu|
|00002630| 6e 63 74 69 6f 6e 20 6e | 69 6c 20 65 6e 65 72 67 |nction n|il energ|
|00002640| 69 7a 65 2d 62 75 66 66 | 65 72 2d 63 72 65 61 74 |ize-buff|er-creat|
|00002650| 69 6f 6e 2d 68 6f 6f 6b | 2d 66 75 6e 63 74 69 6f |ion-hook|-functio|
|00002660| 6e 20 23 5b 28 62 75 66 | 66 65 72 29 20 22 c0 19 |n #[(buf|fer) "..|
|00002670| 8a 5c 6e 71 88 0b ab 8b | c4 c5 0b 21 21 13 c6 0b |.\nq....|...!!...|
|00002680| 21 16 07 0b ab 84 c8 5c | 6e 21 88 c9 5c 6e 21 89 |!......\|n!..\n!.|
|00002690| 1e 5c 6e cb 3d ab 86 cc | 20 88 82 ad 00 0e 5c 6e |.\n.=...| .....\n|
|000026a0| cd 3d ab 85 ce 20 88 aa | f7 0e 5c 6e cf 3d ab 85 |.=... ..|..\n.=..|
|000026b0| ce 20 88 aa ec 0e 5c 6e | d0 3d ac 86 0e 5c 6e d1 |. ....\n|.=...\n.|
|000026c0| 3d ab 88 d2 20 88 c0 16 | 13 aa d8 0e 5c 6e d4 3d |=... ...|....\n.=|
|000026d0| ab 8e c3 20 ab 85 d5 20 | 88 aa c9 d6 20 88 aa c4 |... ... |.... ...|
|000026e0| 0e 5c 6e d7 3d ab 85 d8 | 20 88 aa b9 0e 5c 6e d9 |.\n.=...| ....\n.|
|000026f0| 3d ab 85 da 20 88 aa ae | 0e 5c 6e db 3d ab 85 dc |=... ...|.\n.=...|
|00002700| 20 88 aa a3 0e 5c 6e dd | 3d ab 95 de 20 88 c3 5c | ....\n.|=... ..\|
|00002710| 6e 21 ab 87 df e0 c0 5c | 22 88 aa 8e 0e 21 20 88 |n!.....\|"....! .|
|00002720| aa 88 e2 e3 e4 0e 5c 6e | 44 5c 22 88 29 c9 70 21 |......\n|D\".).p!|
|00002730| dd 3d ab 83 e5 20 88 e6 | 5c 6e 21 2a 87 22 20 5b |.=... ..|\n!*." [|
|00002740| 74 20 69 6e 73 69 64 65 | 2d 65 6e 65 72 67 69 7a |t inside|-energiz|
|00002750| 65 2d 62 75 66 66 65 72 | 2d 63 72 65 61 74 69 6f |e-buffer|-creatio|
|00002760| 6e 2d 68 6f 6f 6b 2d 66 | 75 6e 63 74 69 6f 6e 20 |n-hook-f|unction |
|00002770| 62 75 66 66 65 72 20 62 | 75 66 66 65 72 2d 66 69 |buffer b|uffer-fi|
|00002780| 6c 65 2d 6e 61 6d 65 20 | 61 62 62 72 65 76 69 61 |le-name |abbrevia|
|00002790| 74 65 2d 66 69 6c 65 2d | 6e 61 6d 65 20 65 78 70 |te-file-|name exp|
|000027a0| 61 6e 64 2d 66 69 6c 65 | 2d 6e 61 6d 65 20 66 69 |and-file|-name fi|
|000027b0| 6c 65 2d 6e 61 6d 65 2d | 64 69 72 65 63 74 6f 72 |le-name-|director|
|000027c0| 79 20 64 65 66 61 75 6c | 74 2d 64 69 72 65 63 74 |y defaul|t-direct|
|000027d0| 6f 72 79 20 73 65 74 2d | 62 75 66 66 65 72 2d 6d |ory set-|buffer-m|
|000027e0| 6f 64 74 69 6d 65 20 65 | 6e 65 72 67 69 7a 65 2d |odtime e|nergize-|
|000027f0| 62 75 66 66 65 72 2d 74 | 79 70 65 20 74 79 70 65 |buffer-t|ype type|
|00002800| 20 65 6e 65 72 67 69 7a | 65 2d 74 6f 70 2d 6c 65 | energiz|e-top-le|
|00002810| 76 65 6c 2d 62 75 66 66 | 65 72 20 65 6e 65 72 67 |vel-buff|er energ|
|00002820| 69 7a 65 2d 74 6f 70 2d | 6c 65 76 65 6c 2d 6d 6f |ize-top-|level-mo|
|00002830| 64 65 20 65 6e 65 72 67 | 69 7a 65 2d 62 72 6f 77 |de energ|ize-brow|
|00002840| 73 65 72 2d 62 75 66 66 | 65 72 20 65 6e 65 72 67 |ser-buff|er energ|
|00002850| 69 7a 65 2d 62 72 6f 77 | 73 65 72 2d 6d 6f 64 65 |ize-brow|ser-mode|
|00002860| 20 65 6e 65 72 67 69 7a | 65 2d 69 6e 63 6c 75 64 | energiz|e-includ|
|00002870| 65 72 73 2d 62 75 66 66 | 65 72 20 65 6e 65 72 67 |ers-buff|er energ|
|00002880| 69 7a 65 2d 65 72 72 6f | 72 2d 6c 6f 67 2d 62 75 |ize-erro|r-log-bu|
|00002890| 66 66 65 72 20 65 6e 65 | 72 67 69 7a 65 2d 6c 6f |ffer ene|rgize-lo|
|000028a0| 67 2d 66 69 6c 65 2d 62 | 75 66 66 65 72 20 65 6e |g-file-b|uffer en|
|000028b0| 65 72 67 69 7a 65 2d 6c | 6f 67 2d 6d 6f 64 65 20 |ergize-l|og-mode |
|000028c0| 62 75 66 66 65 72 2d 72 | 65 61 64 2d 6f 6e 6c 79 |buffer-r|ead-only|
|000028d0| 20 65 6e 65 72 67 69 7a | 65 2d 70 72 6f 6a 65 63 | energiz|e-projec|
|000028e0| 74 2d 62 75 66 66 65 72 | 20 65 6e 65 72 67 69 7a |t-buffer| energiz|
|000028f0| 65 2d 70 72 6f 6a 65 63 | 74 2d 6d 6f 64 65 20 65 |e-projec|t-mode e|
|00002900| 6e 65 72 67 69 7a 65 2d | 6e 6f 2d 66 69 6c 65 2d |nergize-|no-file-|
|00002910| 70 72 6f 6a 65 63 74 2d | 6d 6f 64 65 20 65 6e 65 |project-|mode ene|
|00002920| 72 67 69 7a 65 2d 64 65 | 62 75 67 67 65 72 2d 62 |rgize-de|bugger-b|
|00002930| 75 66 66 65 72 20 65 6e | 65 72 67 69 7a 65 2d 64 |uffer en|ergize-d|
|00002940| 65 62 75 67 67 65 72 2d | 6d 6f 64 65 20 65 6e 65 |ebugger-|mode ene|
|00002950| 72 67 69 7a 65 2d 62 72 | 65 61 6b 70 6f 69 6e 74 |rgize-br|eakpoint|
|00002960| 2d 62 75 66 66 65 72 20 | 65 6e 65 72 67 69 7a 65 |-buffer |energize|
|00002970| 2d 62 72 65 61 6b 70 6f | 69 6e 74 2d 6d 6f 64 65 |-breakpo|int-mode|
|00002980| 20 65 6e 65 72 67 69 7a | 65 2d 75 6e 69 78 2d 6d | energiz|e-unix-m|
|00002990| 61 6e 75 61 6c 2d 62 75 | 66 66 65 72 20 65 6e 65 |anual-bu|ffer ene|
|000029a0| 72 67 69 7a 65 2d 6d 61 | 6e 75 61 6c 2d 6d 6f 64 |rgize-ma|nual-mod|
|000029b0| 65 20 65 6e 65 72 67 69 | 7a 65 2d 73 6f 75 72 63 |e energi|ze-sourc|
|000029c0| 65 2d 62 75 66 66 65 72 | 20 63 6f 6d 70 75 74 65 |e-buffer| compute|
|000029d0| 2d 62 75 66 66 65 72 2d | 66 69 6c 65 2d 74 72 75 |-buffer-|file-tru|
|000029e0| 65 6e 61 6d 65 20 61 66 | 74 65 72 2d 66 69 6e 64 |ename af|ter-find|
|000029f0| 2d 66 69 6c 65 20 6e 69 | 6c 20 64 65 66 61 75 6c |-file ni|l defaul|
|00002a00| 74 2d 6d 61 6a 6f 72 2d | 6d 6f 64 65 20 73 69 67 |t-major-|mode sig|
|00002a10| 6e 61 6c 20 65 72 72 6f | 72 20 22 75 6e 6b 6e 6f |nal erro|r "unkno|
|00002a20| 77 6e 20 65 6e 65 72 67 | 69 7a 65 20 62 75 66 66 |wn energ|ize buff|
|00002a30| 65 72 20 74 79 70 65 22 | 20 65 6e 65 72 67 69 7a |er type"| energiz|
|00002a40| 65 2d 73 6f 75 72 63 65 | 2d 6d 69 6e 6f 72 2d 6d |e-source|-minor-m|
|00002a50| 6f 64 65 20 65 6e 65 72 | 67 69 7a 65 2d 65 78 74 |ode ener|gize-ext|
|00002a60| 65 72 6e 61 6c 2d 65 64 | 69 74 6f 72 2d 73 65 74 |ernal-ed|itor-set|
|00002a70| 2d 6d 6f 64 65 5d 20 35 | 5d 20 65 6e 65 72 67 69 |-mode] 5|] energi|
|00002a80| 7a 65 2d 63 72 65 61 74 | 65 2d 62 75 66 66 65 72 |ze-creat|e-buffer|
|00002a90| 2d 68 6f 6f 6b 20 6e 6f | 74 69 66 79 2d 73 65 6e |-hook no|tify-sen|
|00002aa0| 64 2d 62 75 66 66 65 72 | 2d 6d 6f 64 69 66 69 65 |d-buffer|-modifie|
|00002ab0| 64 2d 72 65 71 75 65 73 | 74 20 23 5b 28 73 74 61 |d-reques|t #[(sta|
|00002ac0| 72 74 20 65 6e 64 29 20 | 22 c0 c1 5c 6e 0b 23 87 |rt end) |"..\n.#.|
|00002ad0| 22 20 5b 73 65 6e 64 2d | 62 75 66 66 65 72 2d 6d |" [send-|buffer-m|
|00002ae0| 6f 64 69 66 69 65 64 2d | 72 65 71 75 65 73 74 20 |odified-|request |
|00002af0| 74 20 73 74 61 72 74 20 | 65 6e 64 5d 20 34 5d 20 |t start |end] 4] |
|00002b00| 62 65 66 6f 72 65 2d 63 | 68 61 6e 67 65 2d 66 75 |before-c|hange-fu|
|00002b10| 6e 63 74 69 6f 6e 20 65 | 6e 65 72 67 69 7a 65 2d |nction e|nergize-|
|00002b20| 6d 65 73 73 61 67 65 2d | 69 66 2d 6e 6f 74 2d 69 |message-|if-not-i|
|00002b30| 6e 2d 6d 69 6e 69 62 75 | 66 66 65 72 20 23 5b 28 |n-minibu|ffer #[(|
|00002b40| 72 65 61 73 6f 6e 29 20 | 22 c0 20 c1 20 3d 3f ad |reason) |". . =?.|
|00002b50| 83 c2 0b 21 87 22 20 5b | 73 65 6c 65 63 74 65 64 |...!." [|selected|
|00002b60| 2d 77 69 6e 64 6f 77 20 | 6d 69 6e 69 62 75 66 66 |-window |minibuff|
|00002b70| 65 72 2d 77 69 6e 64 6f | 77 20 6d 65 73 73 61 67 |er-windo|w messag|
|00002b80| 65 20 72 65 61 73 6f 6e | 5d 20 32 5d 20 65 6e 65 |e reason|] 2] ene|
|00002b90| 72 67 69 7a 65 2d 6b 65 | 72 6e 65 6c 2d 62 75 73 |rgize-ke|rnel-bus|
|00002ba0| 79 2d 68 6f 6f 6b 20 73 | 65 6e 64 2d 62 75 66 66 |y-hook s|end-buff|
|00002bb0| 65 72 2d 6d 6f 64 69 66 | 69 65 64 2d 72 65 71 75 |er-modif|ied-requ|
|00002bc0| 65 73 74 20 65 6e 65 72 | 67 69 7a 65 2d 62 75 66 |est ener|gize-buf|
|00002bd0| 66 65 72 2d 6d 6f 64 69 | 66 69 65 64 2d 68 6f 6f |fer-modi|fied-hoo|
|00002be0| 6b 20 65 6e 65 72 67 69 | 7a 65 2d 6b 65 72 6e 65 |k energi|ze-kerne|
|00002bf0| 6c 2d 6d 6f 64 69 66 69 | 63 61 74 69 6f 6e 2d 68 |l-modifi|cation-h|
|00002c00| 6f 6f 6b 20 65 6e 65 72 | 67 69 7a 65 2d 61 72 67 |ook ener|gize-arg|
|00002c10| 73 20 28 28 22 2d 63 6f | 6e 74 65 78 74 22 20 2e |s (("-co|ntext" .|
|00002c20| 20 63 6f 6d 6d 61 6e 64 | 2d 6c 69 6e 65 2d 70 72 | command|-line-pr|
|00002c30| 6f 63 65 73 73 2d 65 6e | 65 72 67 69 7a 65 29 20 |ocess-en|ergize) |
|00002c40| 28 22 2d 65 6e 65 72 67 | 69 7a 65 22 20 2e 20 63 |("-energ|ize" . c|
|00002c50| 6f 6d 6d 61 6e 64 2d 6c | 69 6e 65 2d 70 72 6f 63 |ommand-l|ine-proc|
|00002c60| 65 73 73 2d 65 6e 65 72 | 67 69 7a 65 29 20 28 22 |ess-ener|gize) ("|
|00002c70| 2d 62 65 61 6d 2d 6d 65 | 2d 75 70 22 20 2e 20 63 |-beam-me|-up" . c|
|00002c80| 6f 6d 6d 61 6e 64 2d 6c | 69 6e 65 2d 70 72 6f 63 |ommand-l|ine-proc|
|00002c90| 65 73 73 2d 65 6e 65 72 | 67 69 7a 65 29 29 20 61 |ess-ener|gize)) a|
|00002ca0| 70 70 65 6e 64 20 63 6f | 6d 6d 61 6e 64 2d 73 77 |ppend co|mmand-sw|
|00002cb0| 69 74 63 68 2d 61 6c 69 | 73 74 20 63 6f 6d 6d 61 |itch-ali|st comma|
|00002cc0| 6e 64 2d 6c 69 6e 65 2d | 70 72 6f 63 65 73 73 2d |nd-line-|process-|
|00002cd0| 65 6e 65 72 67 69 7a 65 | 20 23 5b 28 61 72 67 29 |energize| #[(arg)|
|00002ce0| 20 22 08 40 c1 c2 21 1b | 89 1c ab 8b c5 c6 0c 5c | ".@..!.|.......\|
|00002cf0| 22 ab 85 08 41 10 aa 82 | c7 14 c8 c9 21 88 ca cb |"...A...|....!...|
|00002d00| 21 88 c7 cc cd 8f 2a 87 | 22 20 5b 63 6f 6d 6d 61 |!.....*.|" [comma|
|00002d10| 6e 64 2d 6c 69 6e 65 2d | 61 72 67 73 2d 6c 65 66 |nd-line-|args-lef|
|00002d20| 74 20 67 65 74 65 6e 76 | 20 22 45 4e 45 52 47 49 |t getenv| "ENERGI|
|00002d30| 5a 45 5f 50 4f 52 54 22 | 20 65 2d 68 6f 73 74 20 |ZE_PORT"| e-host |
|00002d40| 65 2d 61 72 67 20 73 74 | 72 69 6e 67 2d 6d 61 74 |e-arg st|ring-mat|
|00002d50| 63 68 20 22 5c 5c 60 5b | 30 2d 39 61 2d 66 41 2d |ch "\\`[|0-9a-fA-|
|00002d60| 46 5d 2b 5b 2c 5d 5b 30 | 2d 39 61 2d 66 41 2d 46 |F]+[,][0|-9a-fA-F|
|00002d70| 5d 2b 5c 5c 27 22 20 6e | 69 6c 20 6d 65 73 73 61 |]+\\'" n|il messa|
|00002d80| 67 65 20 22 43 6f 6e 6e | 65 63 74 69 6e 67 20 74 |ge "Conn|ecting t|
|00002d90| 6f 20 45 6e 65 72 67 69 | 7a 65 2e 2e 2e 22 20 73 |o Energi|ze..." s|
|00002da0| 69 74 2d 66 6f 72 20 30 | 20 28 63 6f 6e 6e 65 63 |it-for 0| (connec|
|00002db0| 74 2d 74 6f 2d 65 6e 65 | 72 67 69 7a 65 20 65 2d |t-to-ene|rgize e-|
|00002dc0| 68 6f 73 74 20 65 2d 61 | 72 67 29 20 28 28 65 72 |host e-a|rg) ((er|
|00002dd0| 72 6f 72 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |ror (byt|e-code "|
|00002de0| c0 20 88 09 ab 87 c2 c3 | 09 5c 22 88 aa 84 c2 c4 |. ......|.\".....|
|00002df0| 21 88 c5 c6 21 87 22 20 | 5b 62 65 65 70 20 65 2d |!...!." |[beep e-|
|00002e00| 68 6f 73 74 20 6d 65 73 | 73 61 67 65 20 22 46 61 |host mes|sage "Fa|
|00002e10| 69 6c 65 64 20 74 6f 20 | 63 6f 6e 6e 65 63 74 20 |iled to |connect |
|00002e20| 74 6f 20 45 6e 65 72 67 | 69 7a 65 20 61 74 20 25 |to Energ|ize at %|
|00002e30| 73 2e 22 20 22 46 61 69 | 6c 65 64 20 74 6f 20 63 |s." "Fai|led to c|
|00002e40| 6f 6e 6e 65 63 74 20 74 | 6f 20 45 6e 65 72 67 69 |onnect t|o Energi|
|00002e50| 7a 65 2e 22 20 73 69 74 | 2d 66 6f 72 20 31 5d 20 |ze." sit|-for 1] |
|00002e60| 33 29 29 29 5d 20 34 5d | 20 66 62 6f 75 6e 64 70 |3)))] 4]| fboundp|
|00002e70| 20 65 6e 65 72 67 69 7a | 65 2d 6f 72 69 67 2d 6d | energiz|e-orig-m|
|00002e80| 75 6c 74 69 2d 6d 69 6e | 69 62 75 66 66 65 72 2d |ulti-min|ibuffer-|
|00002e90| 73 74 61 72 74 75 70 20 | 6d 75 6c 74 69 2d 6d 69 |startup |multi-mi|
|00002ea0| 6e 69 62 75 66 66 65 72 | 2d 73 74 61 72 74 75 70 |nibuffer|-startup|
|00002eb0| 20 23 5b 28 77 69 6e 64 | 6f 77 2d 73 79 73 74 65 | #[(wind|ow-syste|
|00002ec0| 6d 2d 73 77 69 74 63 68 | 65 73 29 20 22 08 19 c2 |m-switch|es) "...|
|00002ed0| c3 8d 29 ab 82 c4 15 c6 | 0e 07 21 87 22 20 5b 65 |..).....|..!." [e|
|00002ee0| 6e 65 72 67 69 7a 65 2d | 61 72 67 73 20 72 65 73 |nergize-|args res|
|00002ef0| 74 20 66 6f 6f 20 28 62 | 79 74 65 2d 63 6f 64 65 |t foo (b|yte-code|
|00002f00| 20 22 08 ab 92 08 40 40 | 09 9d ab 85 c2 c3 c4 5c | "....@@|.......\|
|00002f10| 22 88 08 41 89 10 ac 6e | c5 87 22 20 5b 72 65 73 |"..A...n|.." [res|
|00002f20| 74 20 63 6f 6d 6d 61 6e | 64 2d 6c 69 6e 65 2d 61 |t comman|d-line-a|
|00002f30| 72 67 73 20 74 68 72 6f | 77 20 66 6f 6f 20 74 20 |rgs thro|w foo t |
|00002f40| 6e 69 6c 5d 20 34 29 20 | 22 65 6e 65 72 67 69 7a |nil] 4) |"energiz|
|00002f50| 65 22 20 64 65 66 61 75 | 6c 74 2d 73 63 72 65 65 |e" defau|lt-scree|
|00002f60| 6e 2d 6e 61 6d 65 20 65 | 6e 65 72 67 69 7a 65 2d |n-name e|nergize-|
|00002f70| 6f 72 69 67 2d 6d 75 6c | 74 69 2d 6d 69 6e 69 62 |orig-mul|ti-minib|
|00002f80| 75 66 66 65 72 2d 73 74 | 61 72 74 75 70 20 77 69 |uffer-st|artup wi|
|00002f90| 6e 64 6f 77 2d 73 79 73 | 74 65 6d 2d 73 77 69 74 |ndow-sys|tem-swit|
|00002fa0| 63 68 65 73 5d 20 32 5d | 5d 20 33 29 0a          |ches] 2]|] 3).   |
+--------+-------------------------+-------------------------+--------+--------+