|
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: ┃ T w ┃
Length: 1141 (0x475)
Types: TextFile
Names: »window.elc«
└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
└─ ⟦this⟧ »EUUGD11/gnu-31mar87/emacs/lisp/window.elc«
(defun split-window-vertically (arg) "\
Split current window into two windows, one above the other.
This window becomes the uppermost of the two, and gets
ARG lines. No arg means split equally." (interactive "P") (byte-code "▶c0◀▶88◀▶c2◀▶c0◀ ▶85◀▶0b◀▶00◀▶c3◀ !\"▶87◀" [nil arg split-window prefix-numeric-value] 4))
(defun split-window-horizontally (arg) "\
Split current window into two windows side by side.
This window becomes the leftmost of the two, and gets
ARG columns. No arg means split equally." (interactive "P") (byte-code "▶c0◀▶88◀▶c3◀▶c0◀ ▶85◀▶0b◀▶00◀▶c4◀ !▶c2◀#▶87◀" [nil arg t split-window prefix-numeric-value] 5))
(defun enlarge-window-horizontally (arg) "\
Make current window ARG columns wider." (interactive "p") (byte-code "▶c2◀▶88◀▶c3◀▶08◀▶c1◀\"▶87◀" [arg t nil enlarge-window] 3))
(defun shrink-window-horizontally (arg) "\
Make current window ARG columns narrower." (interactive "p") (byte-code "▶c2◀▶88◀▶c3◀▶08◀▶c1◀\"▶87◀" [arg t nil shrink-window] 3))
(define-key ctl-x-map "2" (quote split-window-vertically))
(define-key ctl-x-map "5" (quote split-window-horizontally))
(define-key ctl-x-map "}" (quote enlarge-window-horizontally))
(define-key ctl-x-map "{" (quote shrink-window-horizontally))