/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / lucid / lemacs-19.6 / lisp / electric / ebuff-menu.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 4d 6f 6e |wednesda|y on Mon|
|00000030| 20 4d 61 72 20 31 35 20 | 31 35 3a 34 39 3a 33 33 | Mar 15 |15:49:33|
|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 6c 65 |/lemacs/|lisp/ele|
|00000080| 63 74 72 69 63 2f 65 62 | 75 66 66 2d 6d 65 6e 75 |ctric/eb|uff-menu|
|00000090| 2e 65 6c 0a 3b 3b 3b 20 | 65 6d 61 63 73 20 76 65 |.el.;;; |emacs ve|
|000000a0| 72 73 69 6f 6e 20 31 39 | 2e 36 20 28 62 65 74 61 |rsion 19|.6 (beta|
|000000b0| 32 29 20 4c 75 63 69 64 | 2e 0a 3b 3b 3b 20 62 79 |2) Lucid|..;;; by|
|000000c0| 74 65 63 6f 6d 70 20 76 | 65 72 73 69 6f 6e 20 32 |tecomp v|ersion 2|
|000000d0| 2e 31 30 3b 20 31 36 2d | 66 65 62 2d 39 33 2e 0a |.10; 16-|feb-93..|
|000000e0| 3b 3b 3b 20 6f 70 74 69 | 6d 69 7a 61 74 69 6f 6e |;;; opti|mization|
|000000f0| 20 69 73 20 6f 6e 2e 0a | 3b 3b 3b 20 74 68 69 73 | is on..|;;; this|
|00000100| 20 66 69 6c 65 20 75 73 | 65 73 20 6f 70 63 6f 64 | file us|es opcod|
|00000110| 65 73 20 77 68 69 63 68 | 20 64 6f 20 6e 6f 74 20 |es which| do not |
|00000120| 65 78 69 73 74 20 69 6e | 20 45 6d 61 63 73 31 38 |exist in| Emacs18|
|00000130| 2e 0a 0a 28 69 66 20 28 | 61 6e 64 20 28 62 6f 75 |...(if (|and (bou|
|00000140| 6e 64 70 20 27 65 6d 61 | 63 73 2d 76 65 72 73 69 |ndp 'ema|cs-versi|
|00000150| 6f 6e 29 0a 09 20 28 6f | 72 20 28 61 6e 64 20 28 |on).. (o|r (and (|
|00000160| 62 6f 75 6e 64 70 20 27 | 65 70 6f 63 68 3a 3a 76 |boundp '|epoch::v|
|00000170| 65 72 73 69 6f 6e 29 20 | 65 70 6f 63 68 3a 3a 76 |ersion) |epoch::v|
|00000180| 65 72 73 69 6f 6e 29 0a | 09 20 20 20 20 20 28 73 |ersion).|.     (s|
|00000190| 74 72 69 6e 67 2d 6c 65 | 73 73 70 20 65 6d 61 63 |tring-le|ssp emac|
|000001a0| 73 2d 76 65 72 73 69 6f | 6e 20 22 31 39 22 29 29 |s-versio|n "19"))|
|000001b0| 29 0a 20 20 20 20 28 65 | 72 72 6f 72 20 22 54 68 |).    (e|rror "Th|
|000001c0| 69 73 20 66 69 6c 65 20 | 77 61 73 20 63 6f 6d 70 |is file |was comp|
|000001d0| 69 6c 65 64 20 66 6f 72 | 20 45 6d 61 63 73 31 39 |iled for| Emacs19|
|000001e0| 2e 22 29 29 0a 0a 28 62 | 79 74 65 2d 63 6f 64 65 |."))..(b|yte-code|
|000001f0| 20 22 c0 c1 21 88 c2 c3 | 21 ac 82 c4 13 c4 87 22 | "..!...|!......"|
|00000200| 20 5b 72 65 71 75 69 72 | 65 20 65 6c 65 63 74 72 | [requir|e electr|
|00000210| 69 63 20 62 6f 75 6e 64 | 70 20 65 6c 65 63 74 72 |ic bound|p electr|
|00000220| 69 63 2d 62 75 66 66 65 | 72 2d 6d 65 6e 75 2d 6d |ic-buffe|r-menu-m|
|00000230| 6f 64 65 2d 6d 61 70 20 | 6e 69 6c 5d 20 32 29 0a |ode-map |nil] 2).|
|00000240| 28 66 73 65 74 20 27 65 | 6c 65 63 74 72 69 63 2d |(fset 'e|lectric-|
|00000250| 62 75 66 66 65 72 2d 6c | 69 73 74 20 23 5b 28 61 |buffer-l|ist #[(a|
|00000260| 72 67 29 20 22 c0 89 19 | 1a c3 8b 88 5c 6e ad af |rg) "...|....\n..|
|00000270| 09 71 88 c4 20 1d c6 20 | 88 65 62 88 c7 c8 c0 c9 |.q.. .. |.eb.....|
|00000280| 23 0d 62 88 0d c0 89 93 | 88 ab 84 ca 20 aa 8f cb |#.b.....|.... ...|
|00000290| 5c 6e 21 ab 85 cc 5c 6e | 21 aa 85 cc cd c9 21 21 |\n!...\n|!.....!!|
|000002a0| 29 2a 87 22 20 5b 6e 69 | 6c 20 62 75 66 66 65 72 |)*." [ni|l buffer|
|000002b0| 20 73 65 6c 65 63 74 20 | 28 28 62 79 74 65 2d 63 | select |((byte-c|
|000002c0| 6f 64 65 20 22 8a c0 8b | 88 c1 c2 c3 21 21 14 c5 |ode "...|....!!..|
|000002d0| 8e 0c 71 88 c6 20 88 c7 | c8 8d 16 09 2a c1 87 22 |..q.. ..|....*.."|
|000002e0| 20 5b 28 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 | [((byte|-code ".|
|000002f0| 19 c2 0b 21 88 29 c0 87 | 22 20 5b 69 67 6e 6f 72 |...!.)..|" [ignor|
|00000300| 65 20 74 65 6d 70 2d 62 | 75 66 66 65 72 2d 73 68 |e temp-b|uffer-sh|
|00000310| 6f 77 2d 66 75 6e 63 74 | 69 6f 6e 20 6c 69 73 74 |ow-funct|ion list|
|00000320| 2d 62 75 66 66 65 72 73 | 20 61 72 67 5d 20 32 29 |-buffers| arg] 2)|
|00000330| 29 20 77 69 6e 64 6f 77 | 2d 62 75 66 66 65 72 20 |) window|-buffer |
|00000340| 45 6c 65 63 74 72 69 63 | 2d 70 6f 70 2d 75 70 2d |Electric|-pop-up-|
|00000350| 77 69 6e 64 6f 77 20 22 | 2a 42 75 66 66 65 72 20 |window "|*Buffer |
|00000360| 4c 69 73 74 2a 22 20 62 | 75 66 66 65 72 20 28 28 |List*" b|uffer ((|
|00000370| 62 79 74 65 2d 63 6f 64 | 65 20 22 8a 08 71 88 c1 |byte-cod|e "..q..|
|00000380| 20 88 29 c2 08 21 88 c3 | c4 21 87 22 20 5b 62 75 | .)..!..|.!." [bu|
|00000390| 66 66 65 72 20 42 75 66 | 66 65 72 2d 6d 65 6e 75 |ffer Buf|fer-menu|
|000003a0| 2d 6d 6f 64 65 20 62 75 | 72 79 2d 62 75 66 66 65 |-mode bu|ry-buffe|
|000003b0| 72 20 6d 65 73 73 61 67 | 65 20 6e 69 6c 5d 20 32 |r messag|e nil] 2|
|000003c0| 29 29 20 45 6c 65 63 74 | 72 69 63 2d 62 75 66 66 |)) Elect|ric-buff|
|000003d0| 65 72 2d 6d 65 6e 75 2d | 6d 6f 64 65 20 65 6c 65 |er-menu-|mode ele|
|000003e0| 63 74 72 69 63 2d 62 75 | 66 66 65 72 2d 6d 65 6e |ctric-bu|ffer-men|
|000003f0| 75 2d 73 65 6c 65 63 74 | 20 28 62 79 74 65 2d 63 |u-select| (byte-c|
|00000400| 6f 64 65 20 22 c0 c1 21 | 88 65 62 88 c2 79 88 60 |ode "..!|.eb..y.`|
|00000410| 64 62 88 c3 79 88 60 c4 | 1d 1e 06 89 1e 07 62 88 |db..y.`.|......b.|
|00000420| c8 c9 ca cb cc 0e 07 0e | 06 42 25 2b 87 22 20 5b |........|.B%+." [|
|00000430| 6d 65 73 73 61 67 65 20 | 22 3c 3c 3c 20 50 72 65 |message |"<<< Pre|
|00000440| 73 73 20 53 70 61 63 65 | 20 74 6f 20 62 75 72 79 |ss Space| to bury|
|00000450| 20 74 68 65 20 62 75 66 | 66 65 72 20 6c 69 73 74 | the buf|fer list|
|00000460| 20 3e 3e 3e 22 20 32 20 | 2d 31 20 30 20 67 6f 61 | >>>" 2 |-1 0 goa|
|00000470| 6c 2d 63 6f 6c 75 6d 6e | 20 6c 61 73 74 20 66 69 |l-column| last fi|
|00000480| 72 73 74 20 45 6c 65 63 | 74 72 69 63 2d 63 6f 6d |rst Elec|tric-com|
|00000490| 6d 61 6e 64 2d 6c 6f 6f | 70 20 65 6c 65 63 74 72 |mand-loo|p electr|
|000004a0| 69 63 2d 62 75 66 66 65 | 72 2d 6d 65 6e 75 2d 73 |ic-buffe|r-menu-s|
|000004b0| 65 6c 65 63 74 20 6e 69 | 6c 20 74 20 65 6c 65 63 |elect ni|l t elec|
|000004c0| 74 72 69 63 2d 62 75 66 | 66 65 72 2d 6d 65 6e 75 |tric-buf|fer-menu|
|000004d0| 2d 6c 6f 6f 70 65 72 5d | 20 38 29 20 73 65 6c 65 |-looper]| 8) sele|
|000004e0| 63 74 5d 20 33 29 29 20 | 70 6f 69 6e 74 2d 6d 61 |ct] 3)) |point-ma|
|000004f0| 72 6b 65 72 20 6f 70 6f | 69 6e 74 20 42 75 66 66 |rker opo|int Buff|
|00000500| 65 72 2d 6d 65 6e 75 2d | 65 78 65 63 75 74 65 20 |er-menu-|execute |
|00000510| 73 65 61 72 63 68 2d 66 | 6f 72 77 61 72 64 20 22 |search-f|orward "|
|00000520| 5c 6e 3e 22 20 74 20 42 | 75 66 66 65 72 2d 6d 65 |\n>" t B|uffer-me|
|00000530| 6e 75 2d 73 65 6c 65 63 | 74 20 62 75 66 66 65 72 |nu-selec|t buffer|
|00000540| 70 20 73 77 69 74 63 68 | 2d 74 6f 2d 62 75 66 66 |p switch|-to-buff|
|00000550| 65 72 20 42 75 66 66 65 | 72 2d 6d 65 6e 75 2d 62 |er Buffe|r-menu-b|
|00000560| 75 66 66 65 72 5d 20 34 | 20 22 5c 0a 50 6f 70 73 |uffer] 4| "\.Pops|
|00000570| 20 75 70 20 61 20 62 75 | 66 66 65 72 20 64 65 73 | up a bu|ffer des|
|00000580| 63 72 69 62 69 6e 67 20 | 74 68 65 20 73 65 74 20 |cribing |the set |
|00000590| 6f 66 20 45 6d 61 63 73 | 20 62 75 66 66 65 72 73 |of Emacs| buffers|
|000005a0| 2e 0a 56 61 67 75 65 6c | 79 20 6c 69 6b 65 20 49 |..Vaguel|y like I|
|000005b0| 54 53 20 6c 75 6e 61 72 | 20 73 65 6c 65 63 74 20 |TS lunar| select |
|000005c0| 62 75 66 66 65 72 3b 20 | 63 6f 6d 62 69 6e 69 6e |buffer; |combinin|
|000005d0| 67 20 74 79 70 65 6f 75 | 74 6f 69 64 20 62 75 66 |g typeou|toid buf|
|000005e0| 66 65 72 0a 6c 69 73 74 | 69 6e 67 20 77 69 74 68 |fer.list|ing with|
|000005f0| 20 6d 65 6e 75 6f 69 64 | 20 62 75 66 66 65 72 20 | menuoid| buffer |
|00000600| 73 65 6c 65 63 74 69 6f | 6e 2e 0a 0a 49 66 20 74 |selectio|n...If t|
|00000610| 68 65 20 76 65 72 79 20 | 6e 65 78 74 20 63 68 61 |he very |next cha|
|00000620| 72 61 63 74 65 72 20 74 | 79 70 65 64 20 69 73 20 |racter t|yped is |
|00000630| 61 20 73 70 61 63 65 20 | 74 68 65 6e 20 74 68 65 |a space |then the|
|00000640| 20 62 75 66 66 65 72 20 | 6c 69 73 74 0a 77 69 6e | buffer |list.win|
|00000650| 64 6f 77 20 64 69 73 61 | 70 70 65 61 72 73 2e 20 |dow disa|ppears. |
|00000660| 20 4f 74 68 65 72 77 69 | 73 65 2c 20 6f 6e 65 20 | Otherwi|se, one |
|00000670| 6d 61 79 20 6d 6f 76 65 | 20 61 72 6f 75 6e 64 20 |may move| around |
|00000680| 69 6e 20 74 68 65 0a 62 | 75 66 66 65 72 20 6c 69 |in the.b|uffer li|
|00000690| 73 74 20 77 69 6e 64 6f | 77 2c 20 6d 61 72 6b 69 |st windo|w, marki|
|000006a0| 6e 67 20 62 75 66 66 65 | 72 73 20 74 6f 20 62 65 |ng buffe|rs to be|
|000006b0| 20 73 65 6c 65 63 74 65 | 64 2c 20 73 61 76 65 64 | selecte|d, saved|
|000006c0| 20 6f 72 20 64 65 6c 65 | 74 65 64 2e 0a 0a 54 6f | or dele|ted...To|
|000006d0| 20 65 78 69 74 20 61 6e | 64 20 73 65 6c 65 63 74 | exit an|d select|
|000006e0| 20 61 20 6e 65 77 20 62 | 75 66 66 65 72 2c 20 74 | a new b|uffer, t|
|000006f0| 79 70 65 20 61 20 73 70 | 61 63 65 20 77 68 65 6e |ype a sp|ace when|
|00000700| 20 74 68 65 20 63 75 72 | 73 6f 72 20 69 73 20 6f | the cur|sor is o|
|00000710| 6e 20 74 68 65 0a 61 70 | 70 72 6f 70 72 69 61 74 |n the.ap|propriat|
|00000720| 65 20 6c 69 6e 65 20 6f | 66 20 74 68 65 20 62 75 |e line o|f the bu|
|00000730| 66 66 65 72 2d 6c 69 73 | 74 20 77 69 6e 64 6f 77 |ffer-lis|t window|
|00000740| 2e 0a 0a 4f 74 68 65 72 | 20 63 6f 6d 6d 61 6e 64 |...Other| command|
|00000750| 73 20 61 72 65 20 6d 75 | 63 68 20 6c 69 6b 65 20 |s are mu|ch like |
|00000760| 74 68 6f 73 65 20 6f 66 | 20 62 75 66 66 65 72 2d |those of| buffer-|
|00000770| 6d 65 6e 75 2d 6d 6f 64 | 65 2e 0a 0a 43 61 6c 6c |menu-mod|e...Call|
|00000780| 73 20 76 61 6c 75 65 20 | 6f 66 20 60 65 6c 65 63 |s value |of `elec|
|00000790| 74 72 69 63 2d 62 75 66 | 66 65 72 2d 6d 65 6e 75 |tric-buf|fer-menu|
|000007a0| 2d 6d 6f 64 65 2d 68 6f | 6f 6b 27 20 6f 6e 20 65 |-mode-ho|ok' on e|
|000007b0| 6e 74 72 79 20 69 66 20 | 6e 6f 6e 2d 6e 69 6c 2e |ntry if |non-nil.|
|000007c0| 0a 0a 5c 5c 7b 65 6c 65 | 63 74 72 69 63 2d 62 75 |..\\{ele|ctric-bu|
|000007d0| 66 66 65 72 2d 6d 65 6e | 75 2d 6d 6f 64 65 2d 6d |ffer-men|u-mode-m|
|000007e0| 61 70 7d 22 20 22 50 22 | 5d 29 0a 28 62 79 74 65 |ap}" "P"|]).(byte|
|000007f0| 2d 63 6f 64 65 20 22 c0 | c1 4d 88 c2 c3 c4 c5 23 |-code ".|.M.....#|
|00000800| 87 22 20 5b 65 6c 65 63 | 74 72 69 63 2d 62 75 66 |." [elec|tric-buf|
|00000810| 66 65 72 2d 6d 65 6e 75 | 2d 6c 6f 6f 70 65 72 20 |fer-menu|-looper |
|00000820| 23 5b 28 73 74 61 74 65 | 20 63 6f 6e 64 69 74 69 |#[(state| conditi|
|00000830| 6f 6e 29 20 22 08 ab 8d | 08 40 c1 3e ac 87 c2 08 |on) "...|.@.>....|
|00000840| 40 08 41 5c 22 87 60 0b | 40 57 ab 86 65 62 88 c4 |@.A\".`.|@W..eb..|
|00000850| 79 87 60 0b 41 56 ad 8e | 64 62 88 c5 79 88 c6 64 |y.`.AV..|db..y..d|
|00000860| 21 ad 83 c7 c5 21 87 22 | 20 5b 63 6f 6e 64 69 74 |!....!."| [condit|
|00000870| 69 6f 6e 20 28 62 75 66 | 66 65 72 2d 72 65 61 64 |ion (buf|fer-read|
|00000880| 2d 6f 6e 6c 79 20 65 6e | 64 2d 6f 66 2d 62 75 66 |-only en|d-of-buf|
|00000890| 66 65 72 20 62 65 67 69 | 6e 6e 69 6e 67 2d 6f 66 |fer begi|nning-of|
|000008a0| 2d 62 75 66 66 65 72 29 | 20 73 69 67 6e 61 6c 20 |-buffer)| signal |
|000008b0| 73 74 61 74 65 20 32 20 | 2d 31 20 70 6f 73 2d 76 |state 2 |-1 pos-v|
|000008c0| 69 73 69 62 6c 65 2d 69 | 6e 2d 77 69 6e 64 6f 77 |isible-i|n-window|
|000008d0| 2d 70 20 72 65 63 65 6e | 74 65 72 5d 20 33 5d 20 |-p recen|ter] 3] |
|000008e0| 70 75 74 20 45 6c 65 63 | 74 72 69 63 2d 62 75 66 |put Elec|tric-buf|
|000008f0| 66 65 72 2d 6d 65 6e 75 | 2d 6d 6f 64 65 20 6d 6f |fer-menu|-mode mo|
|00000900| 64 65 2d 63 6c 61 73 73 | 20 73 70 65 63 69 61 6c |de-class| special|
|00000910| 5d 20 34 29 0a 28 66 73 | 65 74 20 27 45 6c 65 63 |] 4).(fs|et 'Elec|
|00000920| 74 72 69 63 2d 62 75 66 | 66 65 72 2d 6d 65 6e 75 |tric-buf|fer-menu|
|00000930| 2d 6d 6f 64 65 20 23 5b | 6e 69 6c 20 22 c0 20 88 |-mode #[|nil ". .|
|00000940| c1 5c 6e 21 88 c3 14 c5 | 16 06 c4 0e 07 3e ab 8d |.\n!....|.....>..|
|00000950| c8 0e 07 21 16 07 c4 0e | 07 3e c9 a0 88 ca cb 21 |...!....|.>.....!|
|00000960| 88 cc 16 0b cd 16 0e cd | 16 0f d0 16 11 d2 16 13 |........|........|
|00000970| 65 62 88 d4 d5 d6 cd 23 | ab 83 d7 75 88 d8 d9 21 |eb.....#|...u...!|
|00000980| 87 22 20 5b 6b 69 6c 6c | 2d 61 6c 6c 2d 6c 6f 63 |." [kill|-all-loc|
|00000990| 61 6c 2d 76 61 72 69 61 | 62 6c 65 73 20 75 73 65 |al-varia|bles use|
|000009a0| 2d 6c 6f 63 61 6c 2d 6d | 61 70 20 65 6c 65 63 74 |-local-m|ap elect|
|000009b0| 72 69 63 2d 62 75 66 66 | 65 72 2d 6d 65 6e 75 2d |ric-buff|er-menu-|
|000009c0| 6d 6f 64 65 2d 6d 61 70 | 20 22 45 6c 65 63 74 72 |mode-map| "Electr|
|000009d0| 69 63 20 42 75 66 66 65 | 72 20 4d 65 6e 75 22 20 |ic Buffe|r Menu" |
|000009e0| 6d 6f 64 65 2d 6e 61 6d | 65 20 22 45 6c 65 63 74 |mode-nam|e "Elect|
|000009f0| 72 69 63 20 42 75 66 66 | 65 72 20 4c 69 73 74 22 |ric Buff|er List"|
|00000a00| 20 6d 6f 64 65 2d 6c 69 | 6e 65 2d 62 75 66 66 65 | mode-li|ne-buffe|
|00000a10| 72 2d 69 64 65 6e 74 69 | 66 69 63 61 74 69 6f 6e |r-identi|fication|
|00000a20| 20 6d 6f 64 65 2d 6c 69 | 6e 65 2d 66 6f 72 6d 61 | mode-li|ne-forma|
|00000a30| 74 20 63 6f 70 79 2d 73 | 65 71 75 65 6e 63 65 20 |t copy-s|equence |
|00000a40| 22 42 75 66 66 65 72 73 | 22 20 6d 61 6b 65 2d 6c |"Buffers|" make-l|
|00000a50| 6f 63 61 6c 2d 76 61 72 | 69 61 62 6c 65 20 48 65 |ocal-var|iable He|
|00000a60| 6c 70 65 72 2d 72 65 74 | 75 72 6e 2d 62 6c 75 72 |lper-ret|urn-blur|
|00000a70| 62 20 22 72 65 74 75 72 | 6e 20 74 6f 20 62 75 66 |b "retur|n to buf|
|00000a80| 66 65 72 20 65 64 69 74 | 69 6e 67 22 20 74 20 74 |fer edit|ing" t t|
|00000a90| 72 75 6e 63 61 74 65 2d | 6c 69 6e 65 73 20 62 75 |runcate-|lines bu|
|00000aa0| 66 66 65 72 2d 72 65 61 | 64 2d 6f 6e 6c 79 20 45 |ffer-rea|d-only E|
|00000ab0| 6c 65 63 74 72 69 63 2d | 62 75 66 66 65 72 2d 6d |lectric-|buffer-m|
|00000ac0| 65 6e 75 2d 6d 6f 64 65 | 20 6d 61 6a 6f 72 2d 6d |enu-mode| major-m|
|00000ad0| 6f 64 65 20 6d 6f 64 65 | 2d 6d 6f 74 69 6f 6e 2d |ode mode|-motion-|
|00000ae0| 68 69 67 68 6c 69 67 68 | 74 2d 6c 69 6e 65 20 6d |highligh|t-line m|
|00000af0| 6f 64 65 2d 6d 6f 74 69 | 6f 6e 2d 68 6f 6f 6b 20 |ode-moti|on-hook |
|00000b00| 73 65 61 72 63 68 2d 66 | 6f 72 77 61 72 64 20 22 |search-f|orward "|
|00000b10| 5c 6e 2e 22 20 6e 69 6c | 20 2d 31 20 72 75 6e 2d |\n." nil| -1 run-|
|00000b20| 68 6f 6f 6b 73 20 65 6c | 65 63 74 72 69 63 2d 62 |hooks el|ectric-b|
|00000b30| 75 66 66 65 72 2d 6d 65 | 6e 75 2d 6d 6f 64 65 2d |uffer-me|nu-mode-|
|00000b40| 68 6f 6f 6b 5d 20 34 20 | 22 5c 0a 4d 61 6a 6f 72 |hook] 4 |"\.Major|
|00000b50| 20 6d 6f 64 65 20 66 6f | 72 20 65 64 69 74 69 6e | mode fo|r editin|
|00000b60| 67 20 61 20 6c 69 73 74 | 20 6f 66 20 62 75 66 66 |g a list| of buff|
|00000b70| 65 72 73 2e 0a 45 61 63 | 68 20 6c 69 6e 65 20 64 |ers..Eac|h line d|
|00000b80| 65 73 63 72 69 62 65 73 | 20 6f 6e 65 20 6f 66 20 |escribes| one of |
|00000b90| 74 68 65 20 62 75 66 66 | 65 72 73 20 69 6e 20 45 |the buff|ers in E|
|00000ba0| 6d 61 63 73 2e 0a 4c 65 | 74 74 65 72 73 20 64 6f |macs..Le|tters do|
|00000bb0| 20 6e 6f 74 20 69 6e 73 | 65 72 74 20 74 68 65 6d | not ins|ert them|
|00000bc0| 73 65 6c 76 65 73 3b 20 | 69 6e 73 74 65 61 64 2c |selves; |instead,|
|00000bd0| 20 74 68 65 79 20 61 72 | 65 20 63 6f 6d 6d 61 6e | they ar|e comman|
|00000be0| 64 73 2e 0a 5c 5c 3c 65 | 6c 65 63 74 72 69 63 2d |ds..\\<e|lectric-|
|00000bf0| 62 75 66 66 65 72 2d 6d | 65 6e 75 2d 6d 6f 64 65 |buffer-m|enu-mode|
|00000c00| 2d 6d 61 70 3e 0a 5c 5c | 5b 45 6c 65 63 74 72 69 |-map>.\\|[Electri|
|00000c10| 63 2d 62 75 66 66 65 72 | 2d 6d 65 6e 75 2d 71 75 |c-buffer|-menu-qu|
|00000c20| 69 74 5d 20 2d 2d 20 65 | 78 69 74 20 62 75 66 66 |it] -- e|xit buff|
|00000c30| 65 72 20 6d 65 6e 75 2c | 20 72 65 74 75 72 6e 69 |er menu,| returni|
|00000c40| 6e 67 20 74 6f 20 70 72 | 65 76 69 6f 75 73 20 77 |ng to pr|evious w|
|00000c50| 69 6e 64 6f 77 20 61 6e | 64 20 62 75 66 66 65 72 |indow an|d buffer|
|00000c60| 0a 20 20 63 6f 6e 66 69 | 67 75 72 61 74 69 6f 6e |.  confi|guration|
|00000c70| 2e 20 20 49 66 20 74 68 | 65 20 76 65 72 79 20 66 |.  If th|e very f|
|00000c80| 69 72 73 74 20 63 68 61 | 72 61 63 74 65 72 20 74 |irst cha|racter t|
|00000c90| 79 70 65 64 20 69 73 20 | 61 20 73 70 61 63 65 2c |yped is |a space,|
|00000ca0| 20 69 74 0a 20 20 61 6c | 73 6f 20 68 61 73 20 74 | it.  al|so has t|
|00000cb0| 68 69 73 20 65 66 66 65 | 63 74 2e 0a 5c 5c 5b 45 |his effe|ct..\\[E|
|00000cc0| 6c 65 63 74 72 69 63 2d | 62 75 66 66 65 72 2d 6d |lectric-|buffer-m|
|00000cd0| 65 6e 75 2d 73 65 6c 65 | 63 74 5d 20 2d 2d 20 73 |enu-sele|ct] -- s|
|00000ce0| 65 6c 65 63 74 20 62 75 | 66 66 65 72 20 6f 66 20 |elect bu|ffer of |
|00000cf0| 6c 69 6e 65 20 70 6f 69 | 6e 74 20 69 73 20 6f 6e |line poi|nt is on|
|00000d00| 2e 0a 20 20 41 6c 73 6f | 20 73 68 6f 77 20 62 75 |..  Also| show bu|
|00000d10| 66 66 65 72 73 20 6d 61 | 72 6b 65 64 20 77 69 74 |ffers ma|rked wit|
|00000d20| 68 20 6d 20 69 6e 20 6f | 74 68 65 72 20 77 69 6e |h m in o|ther win|
|00000d30| 64 6f 77 73 2c 0a 20 20 | 64 65 6c 65 74 65 73 20 |dows,.  |deletes |
|00000d40| 62 75 66 66 65 72 73 20 | 6d 61 72 6b 65 64 20 77 |buffers |marked w|
|00000d50| 69 74 68 20 5c 22 44 5c | 22 2c 20 61 6e 64 20 73 |ith \"D\|", and s|
|00000d60| 61 76 65 73 20 74 68 6f | 73 65 20 6d 61 72 6b 65 |aves tho|se marke|
|00000d70| 64 20 77 69 74 68 20 5c | 22 53 5c 22 2e 0a 5c 5c |d with \|"S\"..\\|
|00000d80| 5b 42 75 66 66 65 72 2d | 6d 65 6e 75 2d 6d 61 72 |[Buffer-|menu-mar|
|00000d90| 6b 5d 20 2d 2d 20 6d 61 | 72 6b 20 62 75 66 66 65 |k] -- ma|rk buffe|
|00000da0| 72 20 74 6f 20 62 65 20 | 64 69 73 70 6c 61 79 65 |r to be |displaye|
|00000db0| 64 2e 0a 5c 5c 5b 42 75 | 66 66 65 72 2d 6d 65 6e |d..\\[Bu|ffer-men|
|00000dc0| 75 2d 6e 6f 74 2d 6d 6f | 64 69 66 69 65 64 5d 20 |u-not-mo|dified] |
|00000dd0| 2d 2d 20 63 6c 65 61 72 | 20 6d 6f 64 69 66 69 65 |-- clear| modifie|
|00000de0| 64 2d 66 6c 61 67 20 6f | 6e 20 74 68 61 74 20 62 |d-flag o|n that b|
|00000df0| 75 66 66 65 72 2e 0a 5c | 5c 5b 42 75 66 66 65 72 |uffer..\|\[Buffer|
|00000e00| 2d 6d 65 6e 75 2d 73 61 | 76 65 5d 20 2d 2d 20 6d |-menu-sa|ve] -- m|
|00000e10| 61 72 6b 20 74 68 61 74 | 20 62 75 66 66 65 72 20 |ark that| buffer |
|00000e20| 74 6f 20 62 65 20 73 61 | 76 65 64 2e 0a 5c 5c 5b |to be sa|ved..\\[|
|00000e30| 42 75 66 66 65 72 2d 6d | 65 6e 75 2d 64 65 6c 65 |Buffer-m|enu-dele|
|00000e40| 74 65 5d 20 6f 72 20 5c | 5c 5b 42 75 66 66 65 72 |te] or \|\[Buffer|
|00000e50| 2d 6d 65 6e 75 2d 64 65 | 6c 65 74 65 2d 62 61 63 |-menu-de|lete-bac|
|00000e60| 6b 77 61 72 64 73 5d 20 | 2d 2d 20 6d 61 72 6b 20 |kwards] |-- mark |
|00000e70| 74 68 61 74 20 62 75 66 | 66 65 72 20 74 6f 20 62 |that buf|fer to b|
|00000e80| 65 20 64 65 6c 65 74 65 | 64 2e 0a 5c 5c 5b 42 75 |e delete|d..\\[Bu|
|00000e90| 66 66 65 72 2d 6d 65 6e | 75 2d 75 6e 6d 61 72 6b |ffer-men|u-unmark|
|00000ea0| 5d 20 2d 2d 20 72 65 6d | 6f 76 65 20 61 6c 6c 20 |] -- rem|ove all |
|00000eb0| 6b 69 6e 64 73 20 6f 66 | 20 6d 61 72 6b 73 20 66 |kinds of| marks f|
|00000ec0| 72 6f 6d 20 63 75 72 72 | 65 6e 74 20 6c 69 6e 65 |rom curr|ent line|
|00000ed0| 2e 0a 5c 5c 5b 45 6c 65 | 63 74 72 69 63 2d 62 75 |..\\[Ele|ctric-bu|
|00000ee0| 66 66 65 72 2d 6d 65 6e | 75 2d 6d 6f 64 65 2d 76 |ffer-men|u-mode-v|
|00000ef0| 69 65 77 2d 62 75 66 66 | 65 72 5d 20 2d 2d 20 76 |iew-buff|er] -- v|
|00000f00| 69 65 77 20 62 75 66 66 | 65 72 2c 20 72 65 74 75 |iew buff|er, retu|
|00000f10| 72 6e 69 6e 67 20 77 68 | 65 6e 20 64 6f 6e 65 2e |rning wh|en done.|
|00000f20| 0a 5c 5c 5b 42 75 66 66 | 65 72 2d 6d 65 6e 75 2d |.\\[Buff|er-menu-|
|00000f30| 62 61 63 6b 75 70 2d 75 | 6e 6d 61 72 6b 5d 20 2d |backup-u|nmark] -|
|00000f40| 2d 20 62 61 63 6b 20 75 | 70 20 61 20 6c 69 6e 65 |- back u|p a line|
|00000f50| 20 61 6e 64 20 72 65 6d | 6f 76 65 20 6d 61 72 6b | and rem|ove mark|
|00000f60| 73 2e 0a 0a 5c 5c 7b 65 | 6c 65 63 74 72 69 63 2d |s...\\{e|lectric-|
|00000f70| 62 75 66 66 65 72 2d 6d | 65 6e 75 2d 6d 6f 64 65 |buffer-m|enu-mode|
|00000f80| 2d 6d 61 70 7d 0a 0a 45 | 6e 74 72 79 20 74 6f 20 |-map}..E|ntry to |
|00000f90| 74 68 69 73 20 6d 6f 64 | 65 20 76 69 61 20 63 6f |this mod|e via co|
|00000fa0| 6d 6d 61 6e 64 20 60 65 | 6c 65 63 74 72 69 63 2d |mmand `e|lectric-|
|00000fb0| 62 75 66 66 65 72 2d 6c | 69 73 74 27 20 63 61 6c |buffer-l|ist' cal|
|00000fc0| 6c 73 20 74 68 65 20 76 | 61 6c 75 65 20 6f 66 0a |ls the v|alue of.|
|00000fd0| 60 65 6c 65 63 74 72 69 | 63 2d 62 75 66 66 65 72 |`electri|c-buffer|
|00000fe0| 2d 6d 65 6e 75 2d 6d 6f | 64 65 2d 68 6f 6f 6b 27 |-menu-mo|de-hook'|
|00000ff0| 20 69 66 20 69 74 20 69 | 73 20 6e 6f 6e 2d 6e 69 | if it i|s non-ni|
|00001000| 6c 2e 22 5d 29 0a 28 62 | 79 74 65 2d 63 6f 64 65 |l."]).(b|yte-code|
|00001010| 20 22 c0 c1 c2 c3 23 88 | 0c 84 99 01 c5 20 1e 06 | "....#.|..... ..|
|00001020| c7 0e 06 c4 5c 22 88 c8 | 1e 09 c8 ca 57 ab 93 cb |....\"..|....W...|
|00001030| 0e 06 cc cd 0e 09 5c 22 | c1 23 88 0e 09 54 89 16 |......\"|.#...T..|
|00001040| 09 aa 69 29 cb 0e 06 ce | c5 20 23 88 cf 0e 06 ce |..i)....|. #.....|
|00001050| 5c 22 c8 1e 09 1e 10 0e | 09 ca 57 ab 93 cb 0e 10 |\"......|..W.....|
|00001060| cc cd 0e 09 5c 22 c1 23 | 88 0e 09 54 89 16 09 aa |....\".#|...T....|
|00001070| 69 2a cb 0e 06 d1 d2 23 | 88 cb 0e 06 d3 d4 23 88 |i*.....#|......#.|
|00001080| cb 0e 06 d5 d6 23 88 cb | 0e 06 d7 d8 23 88 cb 0e |.....#..|....#...|
|00001090| 06 d9 da 23 88 cb 0e 06 | db da 23 88 cb 0e 06 dc |...#....|..#.....|
|000010a0| da 23 88 cb 0e 06 dd de | 23 88 cb 0e 06 df e0 23 |.#......|#......#|
|000010b0| 88 cb 0e 06 e1 e2 23 88 | cb 0e 06 e3 e4 23 88 cb |......#.|.....#..|
|000010c0| 0e 06 e5 e4 23 88 cb 0e | 06 e6 e7 23 88 cb 0e 06 |....#...|...#....|
|000010d0| e8 e9 23 88 cb 0e 06 ea | e9 23 88 cb 0e 06 eb ec |..#.....|.#......|
|000010e0| 23 88 cb 0e 06 ed ee 23 | 88 ef 1e 09 ef f0 58 ab |#......#|......X.|
|000010f0| 9e cb 0e 06 f1 0e 09 21 | f2 23 88 cb 0e 06 ce f1 |.......!|.#......|
|00001100| 0e 09 21 50 f2 23 88 0e | 09 54 89 16 09 aa 5e 29 |..!P.#..|.T....^)|
|00001110| cb 0e 06 f3 f4 23 88 cb | 0e 06 f5 f4 23 88 cb 0e |.....#..|....#...|
|00001120| 06 f6 f7 23 88 cb 0e 06 | f8 f9 23 88 cb 0e 06 fa |...#....|..#.....|
|00001130| fb 23 88 cb 0e 06 fc fd | 23 88 cb 0e 06 fe fb 23 |.#......|#......#|
|00001140| 88 cb 0e 06 ff fd 23 88 | cb 0e 06 81 40 00 81 41 |......#.|....@..A|
|00001150| 00 23 88 cb 0e 06 81 42 | 00 81 43 00 23 88 cb 0e |.#.....B|..C.#...|
|00001160| 06 81 44 00 81 45 00 23 | 88 cb 0e 06 81 46 00 81 |..D..E.#|.....F..|
|00001170| 47 00 23 88 cb 0e 06 81 | 48 00 81 49 00 23 88 cb |G.#.....|H..I.#..|
|00001180| 0e 06 81 4a 00 81 4b 00 | 23 88 cb 0e 06 81 4c 00 |...J..K.|#.....L.|
|00001190| 81 4d 00 23 88 cb 0e 06 | 81 4e 00 81 4f 00 23 88 |.M.#....|.N..O.#.|
|000011a0| cb 0e 06 81 50 00 81 51 | 00 23 88 0e 06 14 29 d8 |....P..Q|.#....).|
|000011b0| 87 22 20 5b 70 75 74 20 | 45 6c 65 63 74 72 69 63 |." [put |Electric|
|000011c0| 2d 62 75 66 66 65 72 2d | 6d 65 6e 75 2d 75 6e 64 |-buffer-|menu-und|
|000011d0| 65 66 69 6e 65 64 20 73 | 75 70 70 72 65 73 73 2d |efined s|uppress-|
|000011e0| 6b 65 79 6d 61 70 20 74 | 20 65 6c 65 63 74 72 69 |keymap t| electri|
|000011f0| 63 2d 62 75 66 66 65 72 | 2d 6d 65 6e 75 2d 6d 6f |c-buffer|-menu-mo|
|00001200| 64 65 2d 6d 61 70 20 6d | 61 6b 65 2d 6b 65 79 6d |de-map m|ake-keym|
|00001210| 61 70 20 6d 61 70 20 73 | 65 74 2d 6b 65 79 6d 61 |ap map s|et-keyma|
|00001220| 70 2d 6e 61 6d 65 20 30 | 20 69 20 31 32 38 20 64 |p-name 0| i 128 d|
|00001230| 65 66 69 6e 65 2d 6b 65 | 79 20 6d 61 6b 65 2d 73 |efine-ke|y make-s|
|00001240| 74 72 69 6e 67 20 31 20 | 22 1b 22 20 6c 6f 6f 6b |tring 1 |"." look|
|00001250| 75 70 2d 6b 65 79 20 6d | 61 70 32 20 22 76 22 20 |up-key m|ap2 "v" |
|00001260| 45 6c 65 63 74 72 69 63 | 2d 62 75 66 66 65 72 2d |Electric|-buffer-|
|00001270| 6d 65 6e 75 2d 6d 6f 64 | 65 2d 76 69 65 77 2d 62 |menu-mod|e-view-b|
|00001280| 75 66 66 65 72 20 28 63 | 6f 6e 74 72 6f 6c 20 68 |uffer (c|ontrol h|
|00001290| 29 20 48 65 6c 70 65 72 | 2d 68 65 6c 70 20 22 3f |) Helper|-help "?|
|000012a0| 22 20 48 65 6c 70 65 72 | 2d 64 65 73 63 72 69 62 |" Helper|-describ|
|000012b0| 65 2d 62 69 6e 64 69 6e | 67 73 20 22 03 22 20 6e |e-bindin|gs "." n|
|000012c0| 69 6c 20 22 03 03 22 20 | 45 6c 65 63 74 72 69 63 |il ".." |Electric|
|000012d0| 2d 62 75 66 66 65 72 2d | 6d 65 6e 75 2d 71 75 69 |-buffer-|menu-qui|
|000012e0| 74 20 22 1d 22 20 22 71 | 22 20 22 20 22 20 45 6c |t "." "q|" " " El|
|000012f0| 65 63 74 72 69 63 2d 62 | 75 66 66 65 72 2d 6d 65 |ectric-b|uffer-me|
|00001300| 6e 75 2d 73 65 6c 65 63 | 74 20 22 0c 22 20 72 65 |nu-selec|t "." re|
|00001310| 63 65 6e 74 65 72 20 22 | 73 22 20 42 75 66 66 65 |center "|s" Buffe|
|00001320| 72 2d 6d 65 6e 75 2d 73 | 61 76 65 20 22 64 22 20 |r-menu-s|ave "d" |
|00001330| 42 75 66 66 65 72 2d 6d | 65 6e 75 2d 64 65 6c 65 |Buffer-m|enu-dele|
|00001340| 74 65 20 22 6b 22 20 22 | 04 22 20 42 75 66 66 65 |te "k" "|." Buffe|
|00001350| 72 2d 6d 65 6e 75 2d 64 | 65 6c 65 74 65 2d 62 61 |r-menu-d|elete-ba|
|00001360| 63 6b 77 61 72 64 73 20 | 22 7f 22 20 42 75 66 66 |ckwards |"." Buff|
|00001370| 65 72 2d 6d 65 6e 75 2d | 62 61 63 6b 75 70 2d 75 |er-menu-|backup-u|
|00001380| 6e 6d 61 72 6b 20 62 61 | 63 6b 73 70 61 63 65 20 |nmark ba|ckspace |
|00001390| 22 7e 22 20 42 75 66 66 | 65 72 2d 6d 65 6e 75 2d |"~" Buff|er-menu-|
|000013a0| 6e 6f 74 2d 6d 6f 64 69 | 66 69 65 64 20 22 75 22 |not-modi|fied "u"|
|000013b0| 20 42 75 66 66 65 72 2d | 6d 65 6e 75 2d 75 6e 6d | Buffer-|menu-unm|
|000013c0| 61 72 6b 20 34 38 20 35 | 37 20 63 68 61 72 2d 74 |ark 48 5|7 char-t|
|000013d0| 6f 2d 73 74 72 69 6e 67 | 20 64 69 67 69 74 2d 61 |o-string| digit-a|
|000013e0| 72 67 75 6d 65 6e 74 20 | 22 2d 22 20 6e 65 67 61 |rgument |"-" nega|
|000013f0| 74 69 76 65 2d 61 72 67 | 75 6d 65 6e 74 20 22 1b |tive-arg|ument ".|
|00001400| 2d 22 20 22 6d 22 20 42 | 75 66 66 65 72 2d 6d 65 |-" "m" B|uffer-me|
|00001410| 6e 75 2d 6d 61 72 6b 20 | 22 15 22 20 75 6e 69 76 |nu-mark |"." univ|
|00001420| 65 72 73 61 6c 2d 61 72 | 67 75 6d 65 6e 74 20 22 |ersal-ar|gument "|
|00001430| 10 22 20 70 72 65 76 69 | 6f 75 73 2d 6c 69 6e 65 |." previ|ous-line|
|00001440| 20 22 0e 22 20 6e 65 78 | 74 2d 6c 69 6e 65 20 22 | "." nex|t-line "|
|00001450| 70 22 20 22 6e 22 20 22 | 16 22 20 73 63 72 6f 6c |p" "n" "|." scrol|
|00001460| 6c 2d 75 70 20 22 1b 76 | 22 20 73 63 72 6f 6c 6c |l-up ".v|" scroll|
|00001470| 2d 64 6f 77 6e 20 22 3e | 22 20 73 63 72 6f 6c 6c |-down ">|" scroll|
|00001480| 2d 72 69 67 68 74 20 22 | 3c 22 20 73 63 72 6f 6c |-right "|<" scrol|
|00001490| 6c 2d 6c 65 66 74 20 22 | 1b 16 22 20 73 63 72 6f |l-left "|.." scro|
|000014a0| 6c 6c 2d 6f 74 68 65 72 | 2d 77 69 6e 64 6f 77 20 |ll-other|-window |
|000014b0| 22 1b 3e 22 20 65 6e 64 | 2d 6f 66 2d 62 75 66 66 |".>" end|-of-buff|
|000014c0| 65 72 20 22 1b 3c 22 20 | 62 65 67 69 6e 6e 69 6e |er ".<" |beginnin|
|000014d0| 67 2d 6f 66 2d 62 75 66 | 66 65 72 20 62 75 74 74 |g-of-buf|fer butt|
|000014e0| 6f 6e 32 20 45 6c 65 63 | 74 72 69 63 2d 62 75 66 |on2 Elec|tric-buf|
|000014f0| 66 65 72 2d 6d 65 6e 75 | 2d 6d 6f 75 73 65 2d 73 |fer-menu|-mouse-s|
|00001500| 65 6c 65 63 74 20 62 75 | 74 74 6f 6e 33 20 42 75 |elect bu|tton3 Bu|
|00001510| 66 66 65 72 2d 6d 65 6e | 75 2d 70 6f 70 75 70 2d |ffer-men|u-popup-|
|00001520| 6d 65 6e 75 5d 20 36 29 | 0a 28 66 73 65 74 20 27 |menu] 6)|.(fset '|
|00001530| 45 6c 65 63 74 72 69 63 | 2d 62 75 66 66 65 72 2d |Electric|-buffer-|
|00001540| 6d 65 6e 75 2d 65 78 69 | 74 20 23 5b 6e 69 6c 20 |menu-exi|t #[nil |
|00001550| 22 08 11 c2 c3 c4 8f 87 | 22 20 5b 6c 61 73 74 2d |".......|" [last-|
|00001560| 69 6e 70 75 74 2d 65 76 | 65 6e 74 20 75 6e 72 65 |input-ev|ent unre|
|00001570| 61 64 2d 63 6f 6d 6d 61 | 6e 64 2d 65 76 65 6e 74 |ad-comma|nd-event|
|00001580| 20 6e 69 6c 20 28 62 79 | 74 65 2d 63 6f 64 65 20 | nil (by|te-code |
|00001590| 22 c0 c1 c2 5c 22 87 22 | 20 5b 74 68 72 6f 77 20 |"...\"."| [throw |
|000015a0| 65 6c 65 63 74 72 69 63 | 2d 62 75 66 66 65 72 2d |electric|-buffer-|
|000015b0| 6d 65 6e 75 2d 73 65 6c | 65 63 74 20 6e 69 6c 5d |menu-sel|ect nil]|
|000015c0| 20 33 29 20 28 28 65 72 | 72 6f 72 20 28 62 79 74 | 3) ((er|ror (byt|
|000015d0| 65 2d 63 6f 64 65 20 22 | c0 20 88 c1 20 87 22 20 |e-code "|. .. ." |
|000015e0| 5b 42 75 66 66 65 72 2d | 6d 65 6e 75 2d 6d 6f 64 |[Buffer-|menu-mod|
|000015f0| 65 20 6f 74 68 65 72 2d | 62 75 66 66 65 72 5d 20 |e other-|buffer] |
|00001600| 31 29 29 29 5d 20 33 20 | 6e 69 6c 20 6e 69 6c 5d |1)))] 3 |nil nil]|
|00001610| 29 0a 28 66 73 65 74 20 | 27 45 6c 65 63 74 72 69 |).(fset |'Electri|
|00001620| 63 2d 62 75 66 66 65 72 | 2d 6d 65 6e 75 2d 73 65 |c-buffer|-menu-se|
|00001630| 6c 65 63 74 20 23 5b 6e | 69 6c 20 22 c0 c1 60 5c |lect #[n|il "..`\|
|00001640| 22 87 22 20 5b 74 68 72 | 6f 77 20 65 6c 65 63 74 |"." [thr|ow elect|
|00001650| 72 69 63 2d 62 75 66 66 | 65 72 2d 6d 65 6e 75 2d |ric-buff|er-menu-|
|00001660| 73 65 6c 65 63 74 5d 20 | 33 20 22 5c 0a 4c 65 61 |select] |3 "\.Lea|
|00001670| 76 65 20 45 6c 65 63 74 | 72 69 63 20 42 75 66 66 |ve Elect|ric Buff|
|00001680| 65 72 20 4d 65 6e 75 2c | 20 73 65 6c 65 63 74 69 |er Menu,| selecti|
|00001690| 6e 67 20 62 75 66 66 65 | 72 73 20 61 6e 64 20 65 |ng buffe|rs and e|
|000016a0| 78 65 63 75 74 69 6e 67 | 20 63 68 61 6e 67 65 73 |xecuting| changes|
|000016b0| 2e 0a 53 61 76 65 73 20 | 62 75 66 66 65 72 73 20 |..Saves |buffers |
|000016c0| 6d 61 72 6b 65 64 20 5c | 22 53 5c 22 2e 20 20 44 |marked \|"S\".  D|
|000016d0| 65 6c 65 74 65 73 20 62 | 75 66 66 65 72 73 20 6d |eletes b|uffers m|
|000016e0| 61 72 6b 65 64 20 5c 22 | 4b 5c 22 2e 0a 53 65 6c |arked \"|K\"..Sel|
|000016f0| 65 63 74 73 20 62 75 66 | 66 65 72 20 61 74 20 70 |ects buf|fer at p|
|00001700| 6f 69 6e 74 20 61 6e 64 | 20 64 69 73 70 6c 61 79 |oint and| display|
|00001710| 73 20 62 75 66 66 65 72 | 73 20 6d 61 72 6b 65 64 |s buffer|s marked|
|00001720| 20 5c 22 3e 5c 22 20 69 | 6e 20 6f 74 68 65 72 0a | \">\" i|n other.|
|00001730| 77 69 6e 64 6f 77 73 2e | 22 20 6e 69 6c 5d 29 0a |windows.|" nil]).|
|00001740| 28 66 73 65 74 20 27 45 | 6c 65 63 74 72 69 63 2d |(fset 'E|lectric-|
|00001750| 62 75 66 66 65 72 2d 6d | 65 6e 75 2d 6d 6f 75 73 |buffer-m|enu-mous|
|00001760| 65 2d 73 65 6c 65 63 74 | 20 23 5b 28 65 76 65 6e |e-select| #[(even|
|00001770| 74 29 20 22 c0 09 21 88 | c2 20 87 22 20 5b 6d 6f |t) "..!.|. ." [mo|
|00001780| 75 73 65 2d 73 65 74 2d | 70 6f 69 6e 74 20 65 76 |use-set-|point ev|
|00001790| 65 6e 74 20 45 6c 65 63 | 74 72 69 63 2d 62 75 66 |ent Elec|tric-buf|
|000017a0| 66 65 72 2d 6d 65 6e 75 | 2d 73 65 6c 65 63 74 5d |fer-menu|-select]|
|000017b0| 20 32 20 6e 69 6c 20 22 | 65 22 5d 29 0a 28 66 73 | 2 nil "|e"]).(fs|
|000017c0| 65 74 20 27 45 6c 65 63 | 74 72 69 63 2d 62 75 66 |et 'Elec|tric-buf|
|000017d0| 66 65 72 2d 6d 65 6e 75 | 2d 71 75 69 74 20 23 5b |fer-menu|-quit #[|
|000017e0| 6e 69 6c 20 22 c0 c1 c2 | 5c 22 87 22 20 5b 74 68 |nil "...|\"." [th|
|000017f0| 72 6f 77 20 65 6c 65 63 | 74 72 69 63 2d 62 75 66 |row elec|tric-buf|
|00001800| 66 65 72 2d 6d 65 6e 75 | 2d 73 65 6c 65 63 74 20 |fer-menu|-select |
|00001810| 6e 69 6c 5d 20 33 20 22 | 5c 0a 4c 65 61 76 65 20 |nil] 3 "|\.Leave |
|00001820| 45 6c 65 63 74 72 69 63 | 20 42 75 66 66 65 72 20 |Electric| Buffer |
|00001830| 4d 65 6e 75 2c 20 72 65 | 73 74 6f 72 69 6e 67 20 |Menu, re|storing |
|00001840| 70 72 65 76 69 6f 75 73 | 20 77 69 6e 64 6f 77 20 |previous| window |
|00001850| 63 6f 6e 66 69 67 75 72 | 61 74 69 6f 6e 2e 0a 44 |configur|ation..D|
|00001860| 6f 65 73 20 6e 6f 74 20 | 65 78 65 63 75 74 65 20 |oes not |execute |
|00001870| 73 65 6c 65 63 74 2c 20 | 73 61 76 65 2c 20 6f 72 |select, |save, or|
|00001880| 20 64 65 6c 65 74 65 20 | 63 6f 6d 6d 61 6e 64 73 | delete |commands|
|00001890| 2e 22 20 6e 69 6c 5d 29 | 0a 28 66 73 65 74 20 27 |." nil])|.(fset '|
|000018a0| 45 6c 65 63 74 72 69 63 | 2d 62 75 66 66 65 72 2d |Electric|-buffer-|
|000018b0| 6d 65 6e 75 2d 75 6e 64 | 65 66 69 6e 65 64 20 23 |menu-und|efined #|
|000018c0| 5b 6e 69 6c 20 22 c0 20 | 88 c1 c2 c3 21 21 88 c4 |[nil ". |....!!..|
|000018d0| c5 21 87 22 20 5b 64 69 | 6e 67 20 6d 65 73 73 61 |.!." [di|ng messa|
|000018e0| 67 65 20 73 75 62 73 74 | 69 74 75 74 65 2d 63 6f |ge subst|itute-co|
|000018f0| 6d 6d 61 6e 64 2d 6b 65 | 79 73 20 22 54 79 70 65 |mmand-ke|ys "Type|
|00001900| 20 5c 5c 5b 45 6c 65 63 | 74 72 69 63 2d 62 75 66 | \\[Elec|tric-buf|
|00001910| 66 65 72 2d 6d 65 6e 75 | 2d 71 75 69 74 5d 20 74 |fer-menu|-quit] t|
|00001920| 6f 20 65 78 69 74 2c 20 | 5c 5c 5b 45 6c 65 63 74 |o exit, |\\[Elect|
|00001930| 72 69 63 2d 62 75 66 66 | 65 72 2d 6d 65 6e 75 2d |ric-buff|er-menu-|
|00001940| 73 65 6c 65 63 74 5d 20 | 74 6f 20 73 65 6c 65 63 |select] |to selec|
|00001950| 74 2c 20 5c 5c 5b 48 65 | 6c 70 65 72 2d 68 65 6c |t, \\[He|lper-hel|
|00001960| 70 5d 20 66 6f 72 20 68 | 65 6c 70 2c 20 5c 5c 5b |p] for h|elp, \\[|
|00001970| 48 65 6c 70 65 72 2d 64 | 65 73 63 72 69 62 65 2d |Helper-d|escribe-|
|00001980| 62 69 6e 64 69 6e 67 73 | 5d 20 66 6f 72 20 63 6f |bindings|] for co|
|00001990| 6d 6d 61 6e 64 73 2e 22 | 20 73 69 74 2d 66 6f 72 |mmands."| sit-for|
|000019a0| 20 34 5d 20 33 20 6e 69 | 6c 20 6e 69 6c 5d 29 0a | 4] 3 ni|l nil]).|
|000019b0| 28 66 73 65 74 20 27 45 | 6c 65 63 74 72 69 63 2d |(fset 'E|lectric-|
|000019c0| 62 75 66 66 65 72 2d 6d | 65 6e 75 2d 6d 6f 64 65 |buffer-m|enu-mode|
|000019d0| 2d 76 69 65 77 2d 62 75 | 66 66 65 72 20 23 5b 6e |-view-bu|ffer #[n|
|000019e0| 69 6c 20 22 c0 c1 21 89 | 1a ab 85 c3 5c 6e 21 aa |il "..!.|....\n!.|
|000019f0| 8b c4 20 88 c5 c6 5c 6e | 5c 22 88 c7 c8 21 29 87 |.. ...\n|\"...!).|
|00001a00| 22 20 5b 42 75 66 66 65 | 72 2d 6d 65 6e 75 2d 62 |" [Buffe|r-menu-b|
|00001a10| 75 66 66 65 72 20 6e 69 | 6c 20 62 75 66 6e 61 6d |uffer ni|l bufnam|
|00001a20| 20 76 69 65 77 2d 62 75 | 66 66 65 72 20 64 69 6e | view-bu|ffer din|
|00001a30| 67 20 6d 65 73 73 61 67 | 65 20 22 42 75 66 66 65 |g messag|e "Buffe|
|00001a40| 72 20 25 73 20 64 6f 65 | 73 20 6e 6f 74 20 65 78 |r %s doe|s not ex|
|00001a50| 69 73 74 21 22 20 73 69 | 74 2d 66 6f 72 20 34 5d |ist!" si|t-for 4]|
|00001a60| 20 34 20 22 5c 0a 56 69 | 65 77 20 62 75 66 66 65 | 4 "\.Vi|ew buffe|
|00001a70| 72 20 6f 6e 20 63 75 72 | 72 65 6e 74 20 6c 69 6e |r on cur|rent lin|
|00001a80| 65 20 69 6e 20 45 6c 65 | 63 74 72 69 63 20 42 75 |e in Ele|ctric Bu|
|00001a90| 66 66 65 72 20 4d 65 6e | 75 2e 0a 52 65 74 75 72 |ffer Men|u..Retur|
|00001aa0| 6e 73 20 74 6f 20 45 6c | 65 63 74 72 69 63 20 42 |ns to El|ectric B|
|00001ab0| 75 66 66 65 72 20 4d 65 | 6e 75 20 77 68 65 6e 20 |uffer Me|nu when |
|00001ac0| 64 6f 6e 65 2e 22 20 6e | 69 6c 5d 29 0a          |done." n|il]).   |
+--------+-------------------------+-------------------------+--------+--------+