/ Fresh Fish 6 / FreshFish_September1994.bin / bbs / gnu / emacs-18.59-src.lha / GNU / src / amiga / emacs-18.59 / lisp / electric.elc

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0a 28 70 72 6f 76 69 64 | 65 20 28 71 75 6f 74 65 |.(provid|e (quote|
|00000010| 20 65 6c 65 63 74 72 69 | 63 29 29 0a 0a 28 64 65 | electri|c))..(de|
|00000020| 66 75 6e 20 73 68 72 69 | 6e 6b 2d 77 69 6e 64 6f |fun shri|nk-windo|
|00000030| 77 2d 69 66 2d 6c 61 72 | 67 65 72 2d 74 68 61 6e |w-if-lar|ger-than|
|00000040| 2d 62 75 66 66 65 72 20 | 28 77 69 6e 64 6f 77 29 |-buffer |(window)|
|00000050| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 8a c9 08 | (byte-c|ode "...|
|00000060| 21 71 88 ca 20 0a 60 cb | cb c7 cc 20 1e 08 1e 06 |!q.. .`.|... ....|
|00000070| 1d 1c 1b 1a 19 cd 8e ce | 08 21 88 65 62 88 cf 64 |........|.!.eb..d|
|00000080| 21 85 36 00 c7 89 12 88 | d0 63 88 0c 54 89 14 88 |!.6.....|.c..T...|
|00000090| 82 21 00 88 0c cb 56 85 | 41 00 d1 0c 53 21 29 2e |.!....V.|A...S!).|
|000000a0| 07 29 87 22 20 5b 77 69 | 6e 64 6f 77 20 77 20 62 |.)." [wi|ndow w b|
|000000b0| 75 66 66 65 72 2d 66 69 | 6c 65 2d 6e 61 6d 65 20 |uffer-fi|le-name |
|000000c0| 70 20 6e 20 77 69 6e 64 | 6f 77 2d 6d 69 6e 2d 68 |p n wind|ow-min-h|
|000000d0| 65 69 67 68 74 20 62 75 | 66 66 65 72 2d 72 65 61 |eight bu|ffer-rea|
|000000e0| 64 2d 6f 6e 6c 79 20 6e | 69 6c 20 6d 6f 64 69 66 |d-only n|il modif|
|000000f0| 69 65 64 20 77 69 6e 64 | 6f 77 2d 62 75 66 66 65 |ied wind|ow-buffe|
|00000100| 72 20 73 65 6c 65 63 74 | 65 64 2d 77 69 6e 64 6f |r select|ed-windo|
|00000110| 77 20 30 20 62 75 66 66 | 65 72 2d 6d 6f 64 69 66 |w 0 buff|er-modif|
|00000120| 69 65 64 2d 70 20 28 28 | 62 79 74 65 2d 63 6f 64 |ied-p ((|byte-cod|
|00000130| 65 20 22 c3 65 60 5c 22 | 88 c4 08 21 88 09 62 88 |e ".e`\"|...!..b.|
|00000140| c5 0a 21 87 22 20 5b 6d | 6f 64 69 66 69 65 64 20 |..!." [m|odified |
|00000150| 70 20 77 20 64 65 6c 65 | 74 65 2d 72 65 67 69 6f |p w dele|te-regio|
|00000160| 6e 20 73 65 74 2d 62 75 | 66 66 65 72 2d 6d 6f 64 |n set-bu|ffer-mod|
|00000170| 69 66 69 65 64 2d 70 20 | 73 65 6c 65 63 74 2d 77 |ified-p |select-w|
|00000180| 69 6e 64 6f 77 5d 20 34 | 29 29 20 73 65 6c 65 63 |indow] 4|)) selec|
|00000190| 74 2d 77 69 6e 64 6f 77 | 20 70 6f 73 2d 76 69 73 |t-window| pos-vis|
|000001a0| 69 62 6c 65 2d 69 6e 2d | 77 69 6e 64 6f 77 2d 70 |ible-in-|window-p|
|000001b0| 20 31 30 20 73 68 72 69 | 6e 6b 2d 77 69 6e 64 6f | 10 shri|nk-windo|
|000001c0| 77 5d 20 31 30 29 29 0a | 0a 28 64 65 66 75 6e 20 |w] 10)).|.(defun |
|000001d0| 45 6c 65 63 74 72 69 63 | 2d 63 6f 6d 6d 61 6e 64 |Electric|-command|
|000001e0| 2d 6c 6f 6f 70 20 28 72 | 65 74 75 72 6e 2d 74 61 |-loop (r|eturn-ta|
|000001f0| 67 20 26 6f 70 74 69 6f | 6e 61 6c 20 70 72 6f 6d |g &optio|nal prom|
|00000200| 70 74 20 69 6e 68 69 62 | 69 74 2d 71 75 69 74 20 |pt inhib|it-quit |
|00000210| 6c 6f 6f 70 2d 66 75 6e | 63 74 69 6f 6e 20 6c 6f |loop-fun|ction lo|
|00000220| 6f 70 2d 73 74 61 74 65 | 29 20 28 62 79 74 65 2d |op-state|) (byte-|
|00000230| 63 6f 64 65 20 22 08 3f | 85 08 00 d0 89 10 88 c3 |code ".?|........|
|00000240| c3 1a 19 c4 85 90 00 d1 | 08 3b 83 1b 00 08 82 1e |........|.;......|
|00000250| 00 d2 08 21 21 89 11 88 | 09 09 47 53 48 15 d3 09 |...!!...|..GSH...|
|00000260| 21 16 06 0e 06 89 11 88 | 0e 07 c3 89 16 07 88 86 |!.......|........|
|00000270| 40 00 0e 08 d4 55 85 6b | 00 d5 16 09 c3 89 16 0a |@....U.k|........|
|00000280| 88 d6 20 47 d7 55 86 56 | 00 0e 0b 3f 83 68 00 d8 |.. G.U.V|...?.h..|
|00000290| 20 88 d9 da 21 88 db 0e | 0c c3 5c 22 82 6b 00 c3 | ...!...|..\".k..|
|000002a0| 89 11 88 0e 0a 89 16 0d | 88 09 83 7d 00 dc dd de |........|...}....|
|000002b0| 8f 82 7f 00 d8 20 88 0e | 0e 85 8c 00 d2 0e 0e 0e |..... ..|........|
|000002c0| 0f 0a 23 88 82 0d 00 2a | 88 d8 20 88 db 0e 0c c3 |..#....*|.. .....|
|000002d0| 5c 22 87 22 20 5b 70 72 | 6f 6d 70 74 20 63 6d 64 |\"." [pr|ompt cmd|
|000002e0| 20 65 72 72 20 6e 69 6c | 20 74 20 6c 61 73 74 2d | err nil| t last-|
|000002f0| 63 6f 6d 6d 61 6e 64 2d | 63 68 61 72 20 74 68 69 |command-|char thi|
|00000300| 73 2d 63 6f 6d 6d 61 6e | 64 20 71 75 69 74 2d 66 |s-comman|d quit-f|
|00000310| 6c 61 67 20 6c 61 73 74 | 2d 69 6e 70 75 74 2d 63 |lag last|-input-c|
|00000320| 68 61 72 20 75 6e 72 65 | 61 64 2d 63 6f 6d 6d 61 |har unre|ad-comma|
|00000330| 6e 64 2d 63 68 61 72 20 | 70 72 65 66 69 78 2d 61 |nd-char |prefix-a|
|00000340| 72 67 20 69 6e 68 69 62 | 69 74 2d 71 75 69 74 20 |rg inhib|it-quit |
|00000350| 72 65 74 75 72 6e 2d 74 | 61 67 20 63 75 72 72 65 |return-t|ag curre|
|00000360| 6e 74 2d 70 72 65 66 69 | 78 2d 61 72 67 20 6c 6f |nt-prefi|x-arg lo|
|00000370| 6f 70 2d 66 75 6e 63 74 | 69 6f 6e 20 6c 6f 6f 70 |op-funct|ion loop|
|00000380| 2d 73 74 61 74 65 20 22 | 2d 3e 22 20 72 65 61 64 |-state "|->" read|
|00000390| 2d 6b 65 79 2d 73 65 71 | 75 65 6e 63 65 20 66 75 |-key-seq|uence fu|
|000003a0| 6e 63 61 6c 6c 20 6b 65 | 79 2d 62 69 6e 64 69 6e |ncall ke|y-bindin|
|000003b0| 67 20 37 20 2d 31 20 74 | 68 69 73 2d 63 6f 6d 6d |g 7 -1 t|his-comm|
|000003c0| 61 6e 64 2d 6b 65 79 73 | 20 31 20 64 69 6e 67 20 |and-keys| 1 ding |
|000003d0| 6d 65 73 73 61 67 65 20 | 22 51 75 69 74 22 20 74 |message |"Quit" t|
|000003e0| 68 72 6f 77 20 63 6f 6e | 64 69 74 69 6f 6e 73 20 |hrow con|ditions |
|000003f0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c7 08 21 88 |(byte-co|de "..!.|
|00000400| 09 c2 89 11 88 86 0f 00 | 0b c8 55 85 2c 00 c9 89 |........|..U.,...|
|00000410| 14 88 0d 3f 83 2a 00 ca | 20 88 cb cc 21 88 cd 0e |...?.*..| ...!...|
|00000420| 06 c2 5c 22 82 2c 00 ca | 20 87 22 20 5b 63 6d 64 |..\".,..| ." [cmd|
|00000430| 20 71 75 69 74 2d 66 6c | 61 67 20 6e 69 6c 20 6c | quit-fl|ag nil l|
|00000440| 61 73 74 2d 69 6e 70 75 | 74 2d 63 68 61 72 20 75 |ast-inpu|t-char u|
|00000450| 6e 72 65 61 64 2d 63 6f | 6d 6d 61 6e 64 2d 63 68 |nread-co|mmand-ch|
|00000460| 61 72 20 69 6e 68 69 62 | 69 74 2d 71 75 69 74 20 |ar inhib|it-quit |
|00000470| 72 65 74 75 72 6e 2d 74 | 61 67 20 63 6f 6d 6d 61 |return-t|ag comma|
|00000480| 6e 64 2d 65 78 65 63 75 | 74 65 20 37 20 2d 31 20 |nd-execu|te 7 -1 |
|00000490| 64 69 6e 67 20 6d 65 73 | 73 61 67 65 20 22 51 75 |ding mes|sage "Qu|
|000004a0| 69 74 22 20 74 68 72 6f | 77 5d 20 36 29 20 28 28 |it" thro|w] 6) ((|
|000004b0| 62 75 66 66 65 72 2d 72 | 65 61 64 2d 6f 6e 6c 79 |buffer-r|ead-only|
|000004c0| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 08 83 0a | (byte-c|ode "...|
|000004d0| 00 0a 89 11 82 14 00 c3 | 20 88 c4 c5 21 88 c6 c7 |........| ...!...|
|000004e0| 21 87 22 20 5b 6c 6f 6f | 70 2d 66 75 6e 63 74 69 |!." [loo|p-functi|
|000004f0| 6f 6e 20 65 72 72 20 63 | 6f 6e 64 69 74 69 6f 6e |on err c|ondition|
|00000500| 73 20 64 69 6e 67 20 6d | 65 73 73 61 67 65 20 22 |s ding m|essage "|
|00000510| 42 75 66 66 65 72 20 69 | 73 20 72 65 61 64 2d 6f |Buffer i|s read-o|
|00000520| 6e 6c 79 22 20 73 69 74 | 2d 66 6f 72 20 32 5d 20 |nly" sit|-for 2] |
|00000530| 34 29 29 20 28 62 65 67 | 69 6e 6e 69 6e 67 2d 6f |4)) (beg|inning-o|
|00000540| 66 2d 62 75 66 66 65 72 | 20 28 62 79 74 65 2d 63 |f-buffer| (byte-c|
|00000550| 6f 64 65 20 22 08 83 0a | 00 0a 89 11 82 14 00 c3 |ode "...|........|
|00000560| 20 88 c4 c5 21 88 c6 c7 | 21 87 22 20 5b 6c 6f 6f | ...!...|!." [loo|
|00000570| 70 2d 66 75 6e 63 74 69 | 6f 6e 20 65 72 72 20 63 |p-functi|on err c|
|00000580| 6f 6e 64 69 74 69 6f 6e | 73 20 64 69 6e 67 20 6d |ondition|s ding m|
|00000590| 65 73 73 61 67 65 20 22 | 42 65 67 69 6e 6e 69 6e |essage "|Beginnin|
|000005a0| 67 20 6f 66 20 42 75 66 | 66 65 72 22 20 73 69 74 |g of Buf|fer" sit|
|000005b0| 2d 66 6f 72 20 32 5d 20 | 34 29 29 20 28 65 6e 64 |-for 2] |4)) (end|
|000005c0| 2d 6f 66 2d 62 75 66 66 | 65 72 20 28 62 79 74 65 |-of-buff|er (byte|
|000005d0| 2d 63 6f 64 65 20 22 08 | 83 0a 00 0a 89 11 82 14 |-code ".|........|
|000005e0| 00 c3 20 88 c4 c5 21 88 | c6 c7 21 87 22 20 5b 6c |.. ...!.|..!." [l|
|000005f0| 6f 6f 70 2d 66 75 6e 63 | 74 69 6f 6e 20 65 72 72 |oop-func|tion err|
|00000600| 20 63 6f 6e 64 69 74 69 | 6f 6e 73 20 64 69 6e 67 | conditi|ons ding|
|00000610| 20 6d 65 73 73 61 67 65 | 20 22 45 6e 64 20 6f 66 | message| "End of|
|00000620| 20 42 75 66 66 65 72 22 | 20 73 69 74 2d 66 6f 72 | Buffer"| sit-for|
|00000630| 20 32 5d 20 34 29 29 20 | 28 65 72 72 6f 72 20 28 | 2] 4)) |(error (|
|00000640| 62 79 74 65 2d 63 6f 64 | 65 20 22 08 83 0a 00 0a |byte-cod|e ".....|
|00000650| 89 11 82 24 00 c3 20 88 | c4 c5 0a 40 c6 3d 83 1c |...$.. .|...@.=..|
|00000660| 00 0a 41 40 82 1f 00 c7 | 0a 21 5c 22 88 c8 c9 21 |..A@....|.!\"...!|
|00000670| 87 22 20 5b 6c 6f 6f 70 | 2d 66 75 6e 63 74 69 6f |." [loop|-functio|
|00000680| 6e 20 65 72 72 20 63 6f | 6e 64 69 74 69 6f 6e 73 |n err co|nditions|
|00000690| 20 64 69 6e 67 20 6d 65 | 73 73 61 67 65 20 22 45 | ding me|ssage "E|
|000006a0| 72 72 6f 72 3a 20 25 73 | 22 20 65 72 72 6f 72 20 |rror: %s|" error |
|000006b0| 70 72 69 6e 31 2d 74 6f | 2d 73 74 72 69 6e 67 20 |prin1-to|-string |
|000006c0| 73 69 74 2d 66 6f 72 20 | 32 5d 20 35 29 29 29 5d |sit-for |2] 5)))]|
|000006d0| 20 31 33 29 29 0a 0a 28 | 64 65 66 75 6e 20 45 6c | 13))..(|defun El|
|000006e0| 65 63 74 72 69 63 2d 70 | 6f 70 2d 75 70 2d 77 69 |ectric-p|op-up-wi|
|000006f0| 6e 64 6f 77 20 28 62 75 | 66 66 65 72 20 26 6f 70 |ndow (bu|ffer &op|
|00000700| 74 69 6f 6e 61 6c 20 6d | 61 78 2d 68 65 69 67 68 |tional m|ax-heigh|
|00000710| 74 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 cb |t) (byte|-code ".|
|00000720| 09 21 86 08 00 cc 20 18 | cd 09 21 1a ce c4 21 1b |.!.... .|..!...!.|
|00000730| c4 1d c7 1e 06 c7 1e 08 | 0a 3f 83 25 00 cf d0 09 |........|.?.%....|
|00000740| 5c 22 82 9e 00 8a 0a 71 | 88 d1 65 64 5c 22 89 16 |\".....q|..ed\"..|
|00000750| 08 88 0e 09 83 3f 00 0e | 09 0e 08 54 5e 82 42 00 |.....?..|...T^.B.|
|00000760| 0e 08 54 0e 0a 5d d2 8b | 5e 89 16 06 29 88 d3 08 |..T..]..|^...)...|
|00000770| 21 0a 3d 83 5b 00 d4 08 | 21 82 7b 00 0b 83 78 00 |!.=.[...|!.{...x.|
|00000780| d5 08 21 62 88 d6 09 21 | 88 cc 20 89 10 88 d7 0e |..!b...!|.. .....|
|00000790| 06 d8 08 21 5a 21 82 7b | 00 d9 0a 21 88 0e 09 3f |...!Z!.{|...!...?|
|000007a0| 85 89 00 0e 06 d8 cc 20 | 21 56 85 99 00 d5 08 21 |....... |!V.....!|
|000007b0| 62 88 d7 0e 06 d8 08 21 | 5a 21 88 65 62 88 08 2e |b......!|Z!.eb...|
|000007c0| 06 87 22 20 5b 77 69 6e | 20 62 75 66 66 65 72 20 |.." [win| buffer |
|000007d0| 62 75 66 20 6f 6e 65 2d | 77 69 6e 64 6f 77 20 74 |buf one-|window t|
|000007e0| 20 70 6f 70 2d 75 70 2d | 77 69 6e 64 6f 77 73 20 | pop-up-|windows |
|000007f0| 74 61 72 67 65 74 2d 68 | 65 69 67 68 74 20 6e 69 |target-h|eight ni|
|00000800| 6c 20 6c 69 6e 65 73 20 | 6d 61 78 2d 68 65 69 67 |l lines |max-heig|
|00000810| 68 74 20 77 69 6e 64 6f | 77 2d 6d 69 6e 2d 68 65 |ht windo|w-min-he|
|00000820| 69 67 68 74 20 67 65 74 | 2d 62 75 66 66 65 72 2d |ight get|-buffer-|
|00000830| 77 69 6e 64 6f 77 20 73 | 65 6c 65 63 74 65 64 2d |window s|elected-|
|00000840| 77 69 6e 64 6f 77 20 67 | 65 74 2d 62 75 66 66 65 |window g|et-buffe|
|00000850| 72 20 6f 6e 65 2d 77 69 | 6e 64 6f 77 2d 70 20 65 |r one-wi|ndow-p e|
|00000860| 72 72 6f 72 20 22 42 75 | 66 66 65 72 20 25 73 20 |rror "Bu|ffer %s |
|00000870| 64 6f 65 73 20 6e 6f 74 | 20 65 78 69 73 74 22 20 |does not| exist" |
|00000880| 63 6f 75 6e 74 2d 6c 69 | 6e 65 73 20 28 28 62 79 |count-li|nes ((by|
|00000890| 74 65 2d 63 6f 64 65 20 | 22 c0 20 88 c1 c2 20 21 |te-code |". ... !|
|000008a0| 53 87 22 20 5b 64 65 6c | 65 74 65 2d 6f 74 68 65 |S." [del|ete-othe|
|000008b0| 72 2d 77 69 6e 64 6f 77 | 73 20 77 69 6e 64 6f 77 |r-window|s window|
|000008c0| 2d 68 65 69 67 68 74 20 | 73 65 6c 65 63 74 65 64 |-height |selected|
|000008d0| 2d 77 69 6e 64 6f 77 5d | 20 34 29 29 20 77 69 6e |-window]| 4)) win|
|000008e0| 64 6f 77 2d 62 75 66 66 | 65 72 20 73 65 6c 65 63 |dow-buff|er selec|
|000008f0| 74 2d 77 69 6e 64 6f 77 | 20 77 69 6e 64 6f 77 2d |t-window| window-|
|00000900| 73 74 61 72 74 20 70 6f | 70 2d 74 6f 2d 62 75 66 |start po|p-to-buf|
|00000910| 66 65 72 20 65 6e 6c 61 | 72 67 65 2d 77 69 6e 64 |fer enla|rge-wind|
|00000920| 6f 77 20 77 69 6e 64 6f | 77 2d 68 65 69 67 68 74 |ow windo|w-height|
|00000930| 20 73 77 69 74 63 68 2d | 74 6f 2d 62 75 66 66 65 | switch-|to-buffe|
|00000940| 72 5d 20 32 31 29 29 0a |                         |r] 21)).|        |
+--------+-------------------------+-------------------------+--------+--------+