4.4BSD/usr/src/contrib/emacs-18.57/lisp/window.elc


(defun split-window-vertically (&optional 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 "		!\"" [nil arg split-window prefix-numeric-value] 4))

(defun split-window-horizontally (&optional 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 "		!#" [nil arg t split-window prefix-numeric-value] 5))

(defun enlarge-window-horizontally (arg) "\
Make current window ARG columns wider." (interactive "p") (byte-code "ˆ\"" [arg t nil enlarge-window] 3))

(defun shrink-window-horizontally (arg) "\
Make current window ARG columns narrower." (interactive "p") (byte-code "ˆ\"" [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))