-;; GNU Emacs window commands aside from those written in C.
-;; Copyright (C) 1985, 1989 Free Software Foundation, Inc.
+;;; windows.el --- GNU Emacs window commands aside from those written in C.
+
+;;; Copyright (C) 1985, 1989, 1992 Free Software Foundation, Inc.
+
+;; Maintainer: FSF
;; This file is part of GNU Emacs.
;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 1, or (at your option)
+;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.
;; GNU Emacs is distributed in the hope that it will be useful,
;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
+;;; Code:
(defun count-windows (&optional minibuf)
"Returns the number of visible windows.
(walk-windows (function (lambda (w)
(setq count (+ count 1))))
'nomini)
- (let ((size (/ (screen-height) count)))
+ (let ((size (/ (frame-height) count)))
(walk-windows (function (lambda (w)
(select-window w)
(enlarge-window (- size (window-height)))))
'nomini))))
+;;; I think this should be the default; I think people will prefer it--rms.
+
+(defvar split-window-keep-point t
+ "*If non-nil, split windows so that both windows keep the original
+value of point. This is often more convenient for editing.
+If nil, split windows to minimize redisplay. This is convenient on
+slow terminals, but point may be moved strangely to accommodate the
+redisplay.")
+
(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."
+The uppermost window gets ARG lines and the other gets the rest.
+With no argument, split equally or close to it.
+Both windows display the same buffer now current.
+
+If the variable split-window-keep-point is non-nil, both new windows
+will get the same value of point as the current window. This is often
+more convenient for editing.
+
+Otherwise, we chose window starts so as to minimize the amount of
+redisplay; this is convenient on slow terminals. The new selected
+window is the one that the current value of point appears in. The
+value of point can change if the text around point is hidden by the
+new mode line."
(interactive "P")
(let ((old-w (selected-window))
- new-w bottom)
+ (old-point (point))
+ new-w bottom switch)
(setq new-w (split-window nil (and arg (prefix-numeric-value arg))))
- (save-excursion
- (set-buffer (window-buffer))
- (goto-char (window-start))
- (vertical-motion (window-height))
- (set-window-start new-w (point))
- (if (> (point) (window-point new-w))
- (set-window-point new-w (point)))
- (vertical-motion -1)
- (setq bottom (point)))
- (if (<= bottom (point))
- (set-window-point old-w (1- bottom)))))
+ (or split-window-keep-point
+ (progn
+ (save-excursion
+ (set-buffer (window-buffer))
+ (goto-char (window-start))
+ (vertical-motion (window-height))
+ (set-window-start new-w (point))
+ (if (> (point) (window-point new-w))
+ (set-window-point new-w (point)))
+ (vertical-motion -1)
+ (setq bottom (point)))
+ (if (<= bottom (point))
+ (set-window-point old-w (1- bottom)))
+ (if (< (window-start new-w) old-point)
+ (progn
+ (set-window-point new-w old-point)
+ (select-window new-w)))))))
(defun split-window-horizontally (&optional arg)
"Split current window into two windows side by side.
(interactive "p")
(shrink-window arg t))
-(defun window-config-to-register (name)
- "Save the current window configuration in register REG (a letter).
-It can be later retrieved using \\[M-x register-to-window-config]."
- (interactive "cSave window configuration in register: ")
- (set-register name (current-window-configuration)))
-
-(defun register-to-window-config (name)
- "Restore (make current) the window configuration in register REG (a letter).
-Use with a register previously set with \\[window-config-to-register]."
- (interactive "cRestore window configuration from register: ")
- (set-window-configuration (get-register name)))
-
(define-key ctl-x-map "2" 'split-window-vertically)
-(define-key ctl-x-map "5" 'split-window-horizontally)
-(define-key ctl-x-map "6" 'window-config-to-register)
-(define-key ctl-x-map "7" 'register-to-window-config)
+(define-key ctl-x-map "3" 'split-window-horizontally)
(define-key ctl-x-map "}" 'enlarge-window-horizontally)
(define-key ctl-x-map "{" 'shrink-window-horizontally)
+
+;;; windows.el ends here