DataMuseum.dk Presents historical artifacts from the history of: DKUUG/EUUG Conference tapes

This is an automatic "excavation" of a thematic subset of artifacts from Datamuseum.dk's BitArchive. See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software.

top - download

⟦517706263⟧

    Length: 1141 (0x475)
    Names: »window.elc«

Derivation

└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
    └─ ⟦this⟧ »EUUGD11/gnu-31mar87/emacs/lisp/window.elc« 

Hex Dump

0x000…020 0a 28 64 65 66 75 6e 20 73 70 6c 69 74 2d 77 69 6e 64 6f 77 2d 76 65 72 74 69 63 61 6c 6c 79 20   ┆ (defun split-window-vertically ┆
0x020…040 28 61 72 67 29 20 22 5c 0a 53 70 6c 69 74 20 63 75 72 72 65 6e 74 20 77 69 6e 64 6f 77 20 69 6e   ┆(arg) "\ Split current window in┆
0x040…060 74 6f 20 74 77 6f 20 77 69 6e 64 6f 77 73 2c 20 6f 6e 65 20 61 62 6f 76 65 20 74 68 65 20 6f 74   ┆to two windows, one above the ot┆
0x060…080 68 65 72 2e 0a 54 68 69 73 20 77 69 6e 64 6f 77 20 62 65 63 6f 6d 65 73 20 74 68 65 20 75 70 70   ┆her. This window becomes the upp┆
0x080…0a0 65 72 6d 6f 73 74 20 6f 66 20 74 68 65 20 74 77 6f 2c 20 61 6e 64 20 67 65 74 73 0a 41 52 47 20   ┆ermost of the two, and gets ARG ┆
0x0a0…0c0 6c 69 6e 65 73 2e 20 20 4e 6f 20 61 72 67 20 6d 65 61 6e 73 20 73 70 6c 69 74 20 65 71 75 61 6c   ┆lines.  No arg means split equal┆
0x0c0…0e0 6c 79 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 50 22 29 20 28 62 79 74 65 2d 63 6f 64   ┆ly." (interactive "P") (byte-cod┆
0x0e0…100 65 20 22 c0 88 c2 c0 09 85 0b 00 c3 09 21 5c 22 87 22 20 5b 6e 69 6c 20 61 72 67 20 73 70 6c 69   ┆e "          !\" " [nil arg spli┆
0x100…120 74 2d 77 69 6e 64 6f 77 20 70 72 65 66 69 78 2d 6e 75 6d 65 72 69 63 2d 76 61 6c 75 65 5d 20 34   ┆t-window prefix-numeric-value] 4┆
0x120…140 29 29 0a 0a 28 64 65 66 75 6e 20 73 70 6c 69 74 2d 77 69 6e 64 6f 77 2d 68 6f 72 69 7a 6f 6e 74   ┆))  (defun split-window-horizont┆
0x140…160 61 6c 6c 79 20 28 61 72 67 29 20 22 5c 0a 53 70 6c 69 74 20 63 75 72 72 65 6e 74 20 77 69 6e 64   ┆ally (arg) "\ Split current wind┆
0x160…180 6f 77 20 69 6e 74 6f 20 74 77 6f 20 77 69 6e 64 6f 77 73 20 73 69 64 65 20 62 79 20 73 69 64 65   ┆ow into two windows side by side┆
0x180…1a0 2e 0a 54 68 69 73 20 77 69 6e 64 6f 77 20 62 65 63 6f 6d 65 73 20 74 68 65 20 6c 65 66 74 6d 6f   ┆. This window becomes the leftmo┆
0x1a0…1c0 73 74 20 6f 66 20 74 68 65 20 74 77 6f 2c 20 61 6e 64 20 67 65 74 73 0a 41 52 47 20 63 6f 6c 75   ┆st of the two, and gets ARG colu┆
0x1c0…1e0 6d 6e 73 2e 20 20 4e 6f 20 61 72 67 20 6d 65 61 6e 73 20 73 70 6c 69 74 20 65 71 75 61 6c 6c 79   ┆mns.  No arg means split equally┆
0x1e0…200 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 50 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20   ┆." (interactive "P") (byte-code ┆
0x200…220 22 c0 88 c3 c0 09 85 0b 00 c4 09 21 c2 23 87 22 20 5b 6e 69 6c 20 61 72 67 20 74 20 73 70 6c 69   ┆"          ! # " [nil arg t spli┆
0x220…240 74 2d 77 69 6e 64 6f 77 20 70 72 65 66 69 78 2d 6e 75 6d 65 72 69 63 2d 76 61 6c 75 65 5d 20 35   ┆t-window prefix-numeric-value] 5┆
0x240…260 29 29 0a 0a 28 64 65 66 75 6e 20 65 6e 6c 61 72 67 65 2d 77 69 6e 64 6f 77 2d 68 6f 72 69 7a 6f   ┆))  (defun enlarge-window-horizo┆
0x260…280 6e 74 61 6c 6c 79 20 28 61 72 67 29 20 22 5c 0a 4d 61 6b 65 20 63 75 72 72 65 6e 74 20 77 69 6e   ┆ntally (arg) "\ Make current win┆
0x280…2a0 64 6f 77 20 41 52 47 20 63 6f 6c 75 6d 6e 73 20 77 69 64 65 72 2e 22 20 28 69 6e 74 65 72 61 63   ┆dow ARG columns wider." (interac┆
0x2a0…2c0 74 69 76 65 20 22 70 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 88 c3 08 c1 5c 22 87 22 20   ┆tive "p") (byte-code "     \" " ┆
0x2c0…2e0 5b 61 72 67 20 74 20 6e 69 6c 20 65 6e 6c 61 72 67 65 2d 77 69 6e 64 6f 77 5d 20 33 29 29 0a 0a   ┆[arg t nil enlarge-window] 3))  ┆
0x2e0…300 28 64 65 66 75 6e 20 73 68 72 69 6e 6b 2d 77 69 6e 64 6f 77 2d 68 6f 72 69 7a 6f 6e 74 61 6c 6c   ┆(defun shrink-window-horizontall┆
0x300…320 79 20 28 61 72 67 29 20 22 5c 0a 4d 61 6b 65 20 63 75 72 72 65 6e 74 20 77 69 6e 64 6f 77 20 41   ┆y (arg) "\ Make current window A┆
0x320…340 52 47 20 63 6f 6c 75 6d 6e 73 20 6e 61 72 72 6f 77 65 72 2e 22 20 28 69 6e 74 65 72 61 63 74 69   ┆RG columns narrower." (interacti┆
0x340…360 76 65 20 22 70 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 88 c3 08 c1 5c 22 87 22 20 5b 61   ┆ve "p") (byte-code "     \" " [a┆
0x360…380 72 67 20 74 20 6e 69 6c 20 73 68 72 69 6e 6b 2d 77 69 6e 64 6f 77 5d 20 33 29 29 0a 0a 28 64 65   ┆rg t nil shrink-window] 3))  (de┆
0x380…3a0 66 69 6e 65 2d 6b 65 79 20 63 74 6c 2d 78 2d 6d 61 70 20 22 32 22 20 28 71 75 6f 74 65 20 73 70   ┆fine-key ctl-x-map "2" (quote sp┆
0x3a0…3c0 6c 69 74 2d 77 69 6e 64 6f 77 2d 76 65 72 74 69 63 61 6c 6c 79 29 29 0a 0a 28 64 65 66 69 6e 65   ┆lit-window-vertically))  (define┆
0x3c0…3e0 2d 6b 65 79 20 63 74 6c 2d 78 2d 6d 61 70 20 22 35 22 20 28 71 75 6f 74 65 20 73 70 6c 69 74 2d   ┆-key ctl-x-map "5" (quote split-┆
0x3e0…400 77 69 6e 64 6f 77 2d 68 6f 72 69 7a 6f 6e 74 61 6c 6c 79 29 29 0a 0a 28 64 65 66 69 6e 65 2d 6b   ┆window-horizontally))  (define-k┆
0x400…420 65 79 20 63 74 6c 2d 78 2d 6d 61 70 20 22 7d 22 20 28 71 75 6f 74 65 20 65 6e 6c 61 72 67 65 2d   ┆ey ctl-x-map "}" (quote enlarge-┆
0x420…440 77 69 6e 64 6f 77 2d 68 6f 72 69 7a 6f 6e 74 61 6c 6c 79 29 29 0a 0a 28 64 65 66 69 6e 65 2d 6b   ┆window-horizontally))  (define-k┆
0x440…460 65 79 20 63 74 6c 2d 78 2d 6d 61 70 20 22 7b 22 20 28 71 75 6f 74 65 20 73 68 72 69 6e 6b 2d 77   ┆ey ctl-x-map "{" (quote shrink-w┆
0x460…475 69 6e 64 6f 77 2d 68 6f 72 69 7a 6f 6e 74 61 6c 6c 79 29 29 0a   ┆indow-horizontally)) ┆