|
DataMuseum.dkPresents historical artifacts from the history of: DKUUG/EUUG Conference tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - downloadIndex: ┃ e ┃
Length: 2518 (0x9d6)
Names: »electric.elc«
└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
└─ ⟦this⟧ »EUUGD11/gnu-31mar87/emacs/lisp/electric.elc«
0x000…020 0a 28 70 72 6f 76 69 64 65 20 28 71 75 6f 74 65 20 65 6c 65 63 74 72 69 63 29 29 0a 0a 28 64 65 ┆ (provide (quote electric)) (de┆
0x020…040 66 75 6e 20 73 68 72 69 6e 6b 2d 77 69 6e 64 6f 77 2d 69 66 2d 6c 61 72 67 65 72 2d 74 68 61 6e ┆fun shrink-window-if-larger-than┆
0x040…060 2d 62 75 66 66 65 72 20 28 77 69 6e 64 6f 77 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 8a c9 08 ┆-buffer (window) (byte-code " ┆
0x060…080 21 71 88 ca 20 0a 60 cb cb c7 cc 20 1e 08 1e 06 1d 1c 1b 1a 19 cd 8e ce 08 21 88 65 62 88 cf 64 ┆!q ` ! eb d┆
0x080…0a0 21 85 36 00 c7 89 12 88 d0 63 88 0c 54 89 14 88 82 21 00 88 0c cb 56 85 41 00 d1 0c 53 21 29 2e ┆! 6 c T ! V A S!).┆
0x0a0…0c0 07 29 87 22 20 5b 77 69 6e 64 6f 77 20 77 20 62 75 66 66 65 72 2d 66 69 6c 65 2d 6e 61 6d 65 20 ┆ ) " [window w buffer-file-name ┆
0x0c0…0e0 70 20 6e 20 77 69 6e 64 6f 77 2d 6d 69 6e 2d 68 65 69 67 68 74 20 62 75 66 66 65 72 2d 72 65 61 ┆p n window-min-height buffer-rea┆
0x0e0…100 64 2d 6f 6e 6c 79 20 6e 69 6c 20 6d 6f 64 69 66 69 65 64 20 77 69 6e 64 6f 77 2d 62 75 66 66 65 ┆d-only nil modified window-buffe┆
0x100…120 72 20 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 6f 77 20 30 20 62 75 66 66 65 72 2d 6d 6f 64 69 66 ┆r selected-window 0 buffer-modif┆
0x120…140 69 65 64 2d 70 20 28 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 65 60 5c 22 88 c4 08 21 88 09 62 88 ┆ied-p ((byte-code " e`\" ! b ┆
0x140…160 c5 0a 21 87 22 20 5b 6d 6f 64 69 66 69 65 64 20 70 20 77 20 64 65 6c 65 74 65 2d 72 65 67 69 6f ┆ ! " [modified p w delete-regio┆
0x160…180 6e 20 73 65 74 2d 62 75 66 66 65 72 2d 6d 6f 64 69 66 69 65 64 2d 70 20 73 65 6c 65 63 74 2d 77 ┆n set-buffer-modified-p select-w┆
0x180…1a0 69 6e 64 6f 77 5d 20 34 29 29 20 73 65 6c 65 63 74 2d 77 69 6e 64 6f 77 20 70 6f 73 2d 76 69 73 ┆indow] 4)) select-window pos-vis┆
0x1a0…1c0 69 62 6c 65 2d 69 6e 2d 77 69 6e 64 6f 77 2d 70 20 31 30 20 73 68 72 69 6e 6b 2d 77 69 6e 64 6f ┆ible-in-window-p 10 shrink-windo┆
0x1c0…1e0 77 5d 20 31 30 29 29 0a 0a 28 64 65 66 75 6e 20 45 6c 65 63 74 72 69 63 2d 63 6f 6d 6d 61 6e 64 ┆w] 10)) (defun Electric-command┆
0x1e0…200 2d 6c 6f 6f 70 20 28 72 65 74 75 72 6e 2d 74 61 67 20 26 6f 70 74 69 6f 6e 61 6c 20 70 72 6f 6d ┆-loop (return-tag &optional prom┆
0x200…220 70 74 20 69 6e 68 69 62 69 74 2d 71 75 69 74 20 6c 6f 6f 70 2d 66 75 6e 63 74 69 6f 6e 20 6c 6f ┆pt inhibit-quit loop-function lo┆
0x220…240 6f 70 2d 73 74 61 74 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 3f 85 08 00 d0 89 10 88 c3 ┆op-state) (byte-code " ? ┆
0x240…260 c3 1a 19 c4 85 90 00 d1 08 3b 83 1b 00 08 82 1e 00 d2 08 21 21 89 11 88 09 09 47 53 48 15 d3 09 ┆ ; !! GSH ┆
0x260…280 21 16 06 0e 06 89 11 88 0e 07 c3 89 16 07 88 86 40 00 0e 08 d4 55 85 6b 00 d5 16 09 c3 89 16 0a ┆! @ U k ┆
0x280…2a0 88 d6 20 47 d7 55 86 56 00 0e 0b 3f 83 68 00 d8 20 88 d9 da 21 88 db 0e 0c c3 5c 22 82 6b 00 c3 ┆ G U V ? h ! \" k ┆
0x2a0…2c0 89 11 88 0e 0a 89 16 0d 88 09 83 7d 00 dc dd de 8f 82 7f 00 d8 20 88 0e 0e 85 8c 00 d2 0e 0e 0e ┆ } ┆
0x2c0…2e0 0f 0a 23 88 82 0d 00 2a 88 d8 20 88 db 0e 0c c3 5c 22 87 22 20 5b 70 72 6f 6d 70 74 20 63 6d 64 ┆ # * \" " [prompt cmd┆
0x2e0…300 20 65 72 72 20 6e 69 6c 20 74 20 6c 61 73 74 2d 63 6f 6d 6d 61 6e 64 2d 63 68 61 72 20 74 68 69 ┆ err nil t last-command-char thi┆
0x300…320 73 2d 63 6f 6d 6d 61 6e 64 20 71 75 69 74 2d 66 6c 61 67 20 6c 61 73 74 2d 69 6e 70 75 74 2d 63 ┆s-command quit-flag last-input-c┆
0x320…340 68 61 72 20 75 6e 72 65 61 64 2d 63 6f 6d 6d 61 6e 64 2d 63 68 61 72 20 70 72 65 66 69 78 2d 61 ┆har unread-command-char prefix-a┆
0x340…360 72 67 20 69 6e 68 69 62 69 74 2d 71 75 69 74 20 72 65 74 75 72 6e 2d 74 61 67 20 63 75 72 72 65 ┆rg inhibit-quit return-tag curre┆
0x360…380 6e 74 2d 70 72 65 66 69 78 2d 61 72 67 20 6c 6f 6f 70 2d 66 75 6e 63 74 69 6f 6e 20 6c 6f 6f 70 ┆nt-prefix-arg loop-function loop┆
0x380…3a0 2d 73 74 61 74 65 20 22 2d 3e 22 20 72 65 61 64 2d 6b 65 79 2d 73 65 71 75 65 6e 63 65 20 66 75 ┆-state "->" read-key-sequence fu┆
0x3a0…3c0 6e 63 61 6c 6c 20 6b 65 79 2d 62 69 6e 64 69 6e 67 20 37 20 2d 31 20 74 68 69 73 2d 63 6f 6d 6d ┆ncall key-binding 7 -1 this-comm┆
0x3c0…3e0 61 6e 64 2d 6b 65 79 73 20 31 20 64 69 6e 67 20 6d 65 73 73 61 67 65 20 22 51 75 69 74 22 20 74 ┆and-keys 1 ding message "Quit" t┆
0x3e0…400 68 72 6f 77 20 63 6f 6e 64 69 74 69 6f 6e 73 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c7 08 21 88 ┆hrow conditions (byte-code " ! ┆
0x400…420 09 c2 89 11 88 86 0f 00 0b c8 55 85 2c 00 c9 89 14 88 0d 3f 83 2a 00 ca 20 88 cb cc 21 88 cd 0e ┆ U , ? * ! ┆
0x420…440 06 c2 5c 22 82 2c 00 ca 20 87 22 20 5b 63 6d 64 20 71 75 69 74 2d 66 6c 61 67 20 6e 69 6c 20 6c ┆ \" , " [cmd quit-flag nil l┆
0x440…460 61 73 74 2d 69 6e 70 75 74 2d 63 68 61 72 20 75 6e 72 65 61 64 2d 63 6f 6d 6d 61 6e 64 2d 63 68 ┆ast-input-char unread-command-ch┆
0x460…480 61 72 20 69 6e 68 69 62 69 74 2d 71 75 69 74 20 72 65 74 75 72 6e 2d 74 61 67 20 63 6f 6d 6d 61 ┆ar inhibit-quit return-tag comma┆
0x480…4a0 6e 64 2d 65 78 65 63 75 74 65 20 37 20 2d 31 20 64 69 6e 67 20 6d 65 73 73 61 67 65 20 22 51 75 ┆nd-execute 7 -1 ding message "Qu┆
0x4a0…4c0 69 74 22 20 74 68 72 6f 77 5d 20 36 29 20 28 28 62 75 66 66 65 72 2d 72 65 61 64 2d 6f 6e 6c 79 ┆it" throw] 6) ((buffer-read-only┆
0x4c0…4e0 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 83 0a 00 0a 89 11 82 14 00 c3 20 88 c4 c5 21 88 c6 c7 ┆ (byte-code " ! ┆
0x4e0…500 21 87 22 20 5b 6c 6f 6f 70 2d 66 75 6e 63 74 69 6f 6e 20 65 72 72 20 63 6f 6e 64 69 74 69 6f 6e ┆! " [loop-function err condition┆
0x500…520 73 20 64 69 6e 67 20 6d 65 73 73 61 67 65 20 22 42 75 66 66 65 72 20 69 73 20 72 65 61 64 2d 6f ┆s ding message "Buffer is read-o┆
0x520…540 6e 6c 79 22 20 73 69 74 2d 66 6f 72 20 32 5d 20 34 29 29 20 28 62 65 67 69 6e 6e 69 6e 67 2d 6f ┆nly" sit-for 2] 4)) (beginning-o┆
0x540…560 66 2d 62 75 66 66 65 72 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 83 0a 00 0a 89 11 82 14 00 c3 ┆f-buffer (byte-code " ┆
0x560…580 20 88 c4 c5 21 88 c6 c7 21 87 22 20 5b 6c 6f 6f 70 2d 66 75 6e 63 74 69 6f 6e 20 65 72 72 20 63 ┆ ! ! " [loop-function err c┆
0x580…5a0 6f 6e 64 69 74 69 6f 6e 73 20 64 69 6e 67 20 6d 65 73 73 61 67 65 20 22 42 65 67 69 6e 6e 69 6e ┆onditions ding message "Beginnin┆
0x5a0…5c0 67 20 6f 66 20 42 75 66 66 65 72 22 20 73 69 74 2d 66 6f 72 20 32 5d 20 34 29 29 20 28 65 6e 64 ┆g of Buffer" sit-for 2] 4)) (end┆
0x5c0…5e0 2d 6f 66 2d 62 75 66 66 65 72 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 83 0a 00 0a 89 11 82 14 ┆-of-buffer (byte-code " ┆
0x5e0…600 00 c3 20 88 c4 c5 21 88 c6 c7 21 87 22 20 5b 6c 6f 6f 70 2d 66 75 6e 63 74 69 6f 6e 20 65 72 72 ┆ ! ! " [loop-function err┆
0x600…620 20 63 6f 6e 64 69 74 69 6f 6e 73 20 64 69 6e 67 20 6d 65 73 73 61 67 65 20 22 45 6e 64 20 6f 66 ┆ conditions ding message "End of┆
0x620…640 20 42 75 66 66 65 72 22 20 73 69 74 2d 66 6f 72 20 32 5d 20 34 29 29 20 28 65 72 72 6f 72 20 28 ┆ Buffer" sit-for 2] 4)) (error (┆
0x640…660 62 79 74 65 2d 63 6f 64 65 20 22 08 83 0a 00 0a 89 11 82 24 00 c3 20 88 c4 c5 0a 40 c6 3d 83 1c ┆byte-code " $ @ = ┆
0x660…680 00 0a 41 40 82 1f 00 c7 0a 21 5c 22 88 c8 c9 21 87 22 20 5b 6c 6f 6f 70 2d 66 75 6e 63 74 69 6f ┆ A@ !\" ! " [loop-functio┆
0x680…6a0 6e 20 65 72 72 20 63 6f 6e 64 69 74 69 6f 6e 73 20 64 69 6e 67 20 6d 65 73 73 61 67 65 20 22 45 ┆n err conditions ding message "E┆
0x6a0…6c0 72 72 6f 72 3a 20 25 73 22 20 65 72 72 6f 72 20 70 72 69 6e 31 2d 74 6f 2d 73 74 72 69 6e 67 20 ┆rror: %s" error prin1-to-string ┆
0x6c0…6e0 73 69 74 2d 66 6f 72 20 32 5d 20 35 29 29 29 5d 20 31 33 29 29 0a 0a 28 64 65 66 75 6e 20 45 6c ┆sit-for 2] 5)))] 13)) (defun El┆
0x6e0…700 65 63 74 72 69 63 2d 70 6f 70 2d 75 70 2d 77 69 6e 64 6f 77 20 28 62 75 66 66 65 72 20 26 6f 70 ┆ectric-pop-up-window (buffer &op┆
0x700…720 74 69 6f 6e 61 6c 20 6d 61 78 2d 68 65 69 67 68 74 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 cb ┆tional max-height) (byte-code " ┆
0x720…740 09 21 86 08 00 cc 20 18 cd 09 21 1a ce c4 21 1b c4 1d c7 1e 06 c7 1e 08 0a 3f 83 25 00 cf d0 09 ┆ ! ! ! ? % ┆
0x740…760 5c 22 82 9e 00 8a 0a 71 88 d1 65 64 5c 22 89 16 08 88 0e 09 83 3f 00 0e 09 0e 08 54 5e 82 42 00 ┆\" q ed\" ? T^ B ┆
0x760…780 0e 08 54 0e 0a 5d d2 8b 5e 89 16 06 29 88 d3 08 21 0a 3d 83 5b 00 d4 08 21 82 7b 00 0b 83 78 00 ┆ T ] ^ ) ! = [ ! { x ┆
0x780…7a0 d5 08 21 62 88 d6 09 21 88 cc 20 89 10 88 d7 0e 06 d8 08 21 5a 21 82 7b 00 d9 0a 21 88 0e 09 3f ┆ !b ! !Z! { ! ?┆
0x7a0…7c0 85 89 00 0e 06 d8 cc 20 21 56 85 99 00 d5 08 21 62 88 d7 0e 06 d8 08 21 5a 21 88 65 62 88 08 2e ┆ !V !b !Z! eb .┆
0x7c0…7e0 06 87 22 20 5b 77 69 6e 20 62 75 66 66 65 72 20 62 75 66 20 6f 6e 65 2d 77 69 6e 64 6f 77 20 74 ┆ " [win buffer buf one-window t┆
0x7e0…800 20 70 6f 70 2d 75 70 2d 77 69 6e 64 6f 77 73 20 74 61 72 67 65 74 2d 68 65 69 67 68 74 20 6e 69 ┆ pop-up-windows target-height ni┆
0x800…820 6c 20 6c 69 6e 65 73 20 6d 61 78 2d 68 65 69 67 68 74 20 77 69 6e 64 6f 77 2d 6d 69 6e 2d 68 65 ┆l lines max-height window-min-he┆
0x820…840 69 67 68 74 20 67 65 74 2d 62 75 66 66 65 72 2d 77 69 6e 64 6f 77 20 73 65 6c 65 63 74 65 64 2d ┆ight get-buffer-window selected-┆
0x840…860 77 69 6e 64 6f 77 20 67 65 74 2d 62 75 66 66 65 72 20 6f 6e 65 2d 77 69 6e 64 6f 77 2d 70 20 65 ┆window get-buffer one-window-p e┆
0x860…880 72 72 6f 72 20 22 42 75 66 66 65 72 20 25 73 20 64 6f 65 73 20 6e 6f 74 20 65 78 69 73 74 22 20 ┆rror "Buffer %s does not exist" ┆
0x880…8a0 63 6f 75 6e 74 2d 6c 69 6e 65 73 20 28 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 20 88 c1 c2 20 21 ┆count-lines ((byte-code " !┆
0x8a0…8c0 53 87 22 20 5b 64 65 6c 65 74 65 2d 6f 74 68 65 72 2d 77 69 6e 64 6f 77 73 20 77 69 6e 64 6f 77 ┆S " [delete-other-windows window┆
0x8c0…8e0 2d 68 65 69 67 68 74 20 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 6f 77 5d 20 34 29 29 20 77 69 6e ┆-height selected-window] 4)) win┆
0x8e0…900 64 6f 77 2d 62 75 66 66 65 72 20 73 65 6c 65 63 74 2d 77 69 6e 64 6f 77 20 77 69 6e 64 6f 77 2d ┆dow-buffer select-window window-┆
0x900…920 73 74 61 72 74 20 70 6f 70 2d 74 6f 2d 62 75 66 66 65 72 20 65 6e 6c 61 72 67 65 2d 77 69 6e 64 ┆start pop-to-buffer enlarge-wind┆
0x920…940 6f 77 20 77 69 6e 64 6f 77 2d 68 65 69 67 68 74 20 73 77 69 74 63 68 2d 74 6f 2d 62 75 66 66 65 ┆ow window-height switch-to-buffe┆
0x940…960 72 5d 20 32 31 29 29 0a 0a 28 64 65 66 75 6e 20 6f 6e 65 2d 77 69 6e 64 6f 77 2d 70 20 28 26 6f ┆r] 21)) (defun one-window-p (&o┆
0x960…980 70 74 69 6f 6e 61 6c 20 6e 6f 6d 69 6e 69 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 20 08 85 ┆ptional nomini) (byte-code " ┆
0x980…9a0 0a 00 c2 c3 20 21 83 12 00 c4 20 82 16 00 c4 c4 20 21 3d 87 22 20 5b 6e 6f 6d 69 6e 69 20 73 65 ┆ ! != " [nomini se┆
0x9a0…9c0 6c 65 63 74 65 64 2d 77 69 6e 64 6f 77 20 7a 65 72 6f 70 20 6d 69 6e 69 62 75 66 66 65 72 2d 64 ┆lected-window zerop minibuffer-d┆
0x9c0…9d6 65 70 74 68 20 6e 65 78 74 2d 77 69 6e 64 6f 77 5d 20 38 29 29 0a ┆epth next-window] 8)) ┆