emacs: lisp/window.el annotate

annotate lisp/window.el @ 14518:5b2bc060c90d

(html-tag-alist): within the <ADDRESS> tag generated with an <HTML> tag, use `user-mail-address'.

author	Richard M. Stallman <rms@gnu.org>
date	Thu, 08 Feb 1996 17:27:23 +0000
parents	83f275dcd93a
children	6d0ad3e40507

rev	line source
3375 13ddc81f0b43 (count-windows): PROC argument of walk-windows takes an argument. Richard M. Stallman <rms@gnu.org> parents: 3342 diff changeset	1 ;;; window.el --- GNU Emacs window commands aside from those written in C.
773 9c89fd7ddd41 * empty log message * Eric S. Raymond <esr@snark.thyrsus.com> parents: 707 diff changeset	2
14169 83f275dcd93a Update FSF's address. Erik Naggum <erik@naggum.no> parents: 13854 diff changeset	3 ;; Copyright (C) 1985, 1989, 1992, 1993, 1994 Free Software Foundation, Inc.
841 2cdce064065f entered into RCS Eric S. Raymond <esr@snark.thyrsus.com> parents: 820 diff changeset	4
773 9c89fd7ddd41 * empty log message * Eric S. Raymond <esr@snark.thyrsus.com> parents: 707 diff changeset	5 ;; Maintainer: FSF
36 9697c13298e5 Initial revision Joseph Arceneaux <jla@gnu.org> parents: diff changeset	6
9697c13298e5 Initial revision Joseph Arceneaux <jla@gnu.org> parents: diff changeset	7 ;; This file is part of GNU Emacs.
9697c13298e5 Initial revision Joseph Arceneaux <jla@gnu.org> parents: diff changeset	8
9697c13298e5 Initial revision Joseph Arceneaux <jla@gnu.org> parents: diff changeset	9 ;; GNU Emacs is free software; you can redistribute it and/or modify
9697c13298e5 Initial revision Joseph Arceneaux <jla@gnu.org> parents: diff changeset	10 ;; it under the terms of the GNU General Public License as published by
707 e4253da532fb * empty log message * Jim Blandy <jimb@redhat.com> parents: 698 diff changeset	11 ;; the Free Software Foundation; either version 2, or (at your option)
36 9697c13298e5 Initial revision Joseph Arceneaux <jla@gnu.org> parents: diff changeset	12 ;; any later version.
9697c13298e5 Initial revision Joseph Arceneaux <jla@gnu.org> parents: diff changeset	13
9697c13298e5 Initial revision Joseph Arceneaux <jla@gnu.org> parents: diff changeset	14 ;; GNU Emacs is distributed in the hope that it will be useful,
9697c13298e5 Initial revision Joseph Arceneaux <jla@gnu.org> parents: diff changeset	15 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
9697c13298e5 Initial revision Joseph Arceneaux <jla@gnu.org> parents: diff changeset	16 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
9697c13298e5 Initial revision Joseph Arceneaux <jla@gnu.org> parents: diff changeset	17 ;; GNU General Public License for more details.
9697c13298e5 Initial revision Joseph Arceneaux <jla@gnu.org> parents: diff changeset	18
9697c13298e5 Initial revision Joseph Arceneaux <jla@gnu.org> parents: diff changeset	19 ;; You should have received a copy of the GNU General Public License
14169 83f275dcd93a Update FSF's address. Erik Naggum <erik@naggum.no> parents: 13854 diff changeset	20 ;; along with GNU Emacs; see the file COPYING. If not, write to the
83f275dcd93a Update FSF's address. Erik Naggum <erik@naggum.no> parents: 13854 diff changeset	21 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
83f275dcd93a Update FSF's address. Erik Naggum <erik@naggum.no> parents: 13854 diff changeset	22 ;; Boston, MA 02111-1307, USA.
36 9697c13298e5 Initial revision Joseph Arceneaux <jla@gnu.org> parents: diff changeset	23
773 9c89fd7ddd41 * empty log message * Eric S. Raymond <esr@snark.thyrsus.com> parents: 707 diff changeset	24 ;;; Code:
36 9697c13298e5 Initial revision Joseph Arceneaux <jla@gnu.org> parents: diff changeset	25
11086 22693a280a42 (one-window-p, walk-windows, minibuffer-window-active-p): Functions moved here. Richard M. Stallman <rms@gnu.org> parents: 11029 diff changeset	26 ;;;; Window tree functions.
22693a280a42 (one-window-p, walk-windows, minibuffer-window-active-p): Functions moved here. Richard M. Stallman <rms@gnu.org> parents: 11029 diff changeset	27
22693a280a42 (one-window-p, walk-windows, minibuffer-window-active-p): Functions moved here. Richard M. Stallman <rms@gnu.org> parents: 11029 diff changeset	28 (defun one-window-p (&optional nomini all-frames)
22693a280a42 (one-window-p, walk-windows, minibuffer-window-active-p): Functions moved here. Richard M. Stallman <rms@gnu.org> parents: 11029 diff changeset	29 "Returns non-nil if the selected window is the only window (in its frame).
22693a280a42 (one-window-p, walk-windows, minibuffer-window-active-p): Functions moved here. Richard M. Stallman <rms@gnu.org> parents: 11029 diff changeset	30 Optional arg NOMINI non-nil means don't count the minibuffer
22693a280a42 (one-window-p, walk-windows, minibuffer-window-active-p): Functions moved here. Richard M. Stallman <rms@gnu.org> parents: 11029 diff changeset	31 even if it is active.
22693a280a42 (one-window-p, walk-windows, minibuffer-window-active-p): Functions moved here. Richard M. Stallman <rms@gnu.org> parents: 11029 diff changeset	32
22693a280a42 (one-window-p, walk-windows, minibuffer-window-active-p): Functions moved here. Richard M. Stallman <rms@gnu.org> parents: 11029 diff changeset	33 The optional arg ALL-FRAMES t means count windows on all frames.
22693a280a42 (one-window-p, walk-windows, minibuffer-window-active-p): Functions moved here. Richard M. Stallman <rms@gnu.org> parents: 11029 diff changeset	34 If it is `visible', count windows on all visible frames.
22693a280a42 (one-window-p, walk-windows, minibuffer-window-active-p): Functions moved here. Richard M. Stallman <rms@gnu.org> parents: 11029 diff changeset	35 ALL-FRAMES nil or omitted means count only the selected frame,
22693a280a42 (one-window-p, walk-windows, minibuffer-window-active-p): Functions moved here. Richard M. Stallman <rms@gnu.org> parents: 11029 diff changeset	36 plus the minibuffer it uses (which may be on another frame).
22693a280a42 (one-window-p, walk-windows, minibuffer-window-active-p): Functions moved here. Richard M. Stallman <rms@gnu.org> parents: 11029 diff changeset	37 If ALL-FRAMES is neither nil nor t, count only the selected frame."
22693a280a42 (one-window-p, walk-windows, minibuffer-window-active-p): Functions moved here. Richard M. Stallman <rms@gnu.org> parents: 11029 diff changeset	38 (let ((base-window (selected-window)))
22693a280a42 (one-window-p, walk-windows, minibuffer-window-active-p): Functions moved here. Richard M. Stallman <rms@gnu.org> parents: 11029 diff changeset	39 (if (and nomini (eq base-window (minibuffer-window)))
22693a280a42 (one-window-p, walk-windows, minibuffer-window-active-p): Functions moved here. Richard M. Stallman <rms@gnu.org> parents: 11029 diff changeset	40 (setq base-window (next-window base-window)))
22693a280a42 (one-window-p, walk-windows, minibuffer-window-active-p): Functions moved here. Richard M. Stallman <rms@gnu.org> parents: 11029 diff changeset	41 (eq base-window
22693a280a42 (one-window-p, walk-windows, minibuffer-window-active-p): Functions moved here. Richard M. Stallman <rms@gnu.org> parents: 11029 diff changeset	42 (next-window base-window (if nomini 'arg) all-frames))))
22693a280a42 (one-window-p, walk-windows, minibuffer-window-active-p): Functions moved here. Richard M. Stallman <rms@gnu.org> parents: 11029 diff changeset	43
22693a280a42 (one-window-p, walk-windows, minibuffer-window-active-p): Functions moved here. Richard M. Stallman <rms@gnu.org> parents: 11029 diff changeset	44 (defun walk-windows (proc &optional minibuf all-frames)
22693a280a42 (one-window-p, walk-windows, minibuffer-window-active-p): Functions moved here. Richard M. Stallman <rms@gnu.org> parents: 11029 diff changeset	45 "Cycle through all visible windows, calling PROC for each one.
22693a280a42 (one-window-p, walk-windows, minibuffer-window-active-p): Functions moved here. Richard M. Stallman <rms@gnu.org> parents: 11029 diff changeset	46 PROC is called with a window as argument.
22693a280a42 (one-window-p, walk-windows, minibuffer-window-active-p): Functions moved here. Richard M. Stallman <rms@gnu.org> parents: 11029 diff changeset	47
22693a280a42 (one-window-p, walk-windows, minibuffer-window-active-p): Functions moved here. Richard M. Stallman <rms@gnu.org> parents: 11029 diff changeset	48 Optional second arg MINIBUF t means count the minibuffer window even
22693a280a42 (one-window-p, walk-windows, minibuffer-window-active-p): Functions moved here. Richard M. Stallman <rms@gnu.org> parents: 11029 diff changeset	49 if not active. MINIBUF nil or omitted means count the minibuffer iff
22693a280a42 (one-window-p, walk-windows, minibuffer-window-active-p): Functions moved here. Richard M. Stallman <rms@gnu.org> parents: 11029 diff changeset	50 it is active. MINIBUF neither t nor nil means not to count the
22693a280a42 (one-window-p, walk-windows, minibuffer-window-active-p): Functions moved here. Richard M. Stallman <rms@gnu.org> parents: 11029 diff changeset	51 minibuffer even if it is active.
22693a280a42 (one-window-p, walk-windows, minibuffer-window-active-p): Functions moved here. Richard M. Stallman <rms@gnu.org> parents: 11029 diff changeset	52
22693a280a42 (one-window-p, walk-windows, minibuffer-window-active-p): Functions moved here. Richard M. Stallman <rms@gnu.org> parents: 11029 diff changeset	53 Several frames may share a single minibuffer; if the minibuffer
22693a280a42 (one-window-p, walk-windows, minibuffer-window-active-p): Functions moved here. Richard M. Stallman <rms@gnu.org> parents: 11029 diff changeset	54 counts, all windows on all frames that share that minibuffer count
22693a280a42 (one-window-p, walk-windows, minibuffer-window-active-p): Functions moved here. Richard M. Stallman <rms@gnu.org> parents: 11029 diff changeset	55 too. Therefore, when a separate minibuffer frame is active,
22693a280a42 (one-window-p, walk-windows, minibuffer-window-active-p): Functions moved here. Richard M. Stallman <rms@gnu.org> parents: 11029 diff changeset	56 `walk-windows' includes the windows in the frame from which you
22693a280a42 (one-window-p, walk-windows, minibuffer-window-active-p): Functions moved here. Richard M. Stallman <rms@gnu.org> parents: 11029 diff changeset	57 entered the minibuffer, as well as the minibuffer window. But if the
22693a280a42 (one-window-p, walk-windows, minibuffer-window-active-p): Functions moved here. Richard M. Stallman <rms@gnu.org> parents: 11029 diff changeset	58 minibuffer does not count, only windows from WINDOW's frame count.
22693a280a42 (one-window-p, walk-windows, minibuffer-window-active-p): Functions moved here. Richard M. Stallman <rms@gnu.org> parents: 11029 diff changeset	59
11302 a9b5c1d727b7 (walk-windows): Doc fix. Richard M. Stallman <rms@gnu.org> parents: 11149 diff changeset	60 ALL-FRAMES is the optional third argument.
a9b5c1d727b7 (walk-windows): Doc fix. Richard M. Stallman <rms@gnu.org> parents: 11149 diff changeset	61 ALL-FRAMES nil or omitted means cycle within the frames as specified above.
a9b5c1d727b7 (walk-windows): Doc fix. Richard M. Stallman <rms@gnu.org> parents: 11149 diff changeset	62 ALL-FRAMES = `visible' means include windows on all visible frames.
11086 22693a280a42 (one-window-p, walk-windows, minibuffer-window-active-p): Functions moved here. Richard M. Stallman <rms@gnu.org> parents: 11029 diff changeset	63 ALL-FRAMES = 0 means include windows on all visible and iconified frames.
11302 a9b5c1d727b7 (walk-windows): Doc fix. Richard M. Stallman <rms@gnu.org> parents: 11149 diff changeset	64 ALL-FRAMES = t means include windows on all frames including invisible frames.
11086 22693a280a42 (one-window-p, walk-windows, minibuffer-window-active-p): Functions moved here. Richard M. Stallman <rms@gnu.org> parents: 11029 diff changeset	65 Anything else means restrict to WINDOW's frame."
22693a280a42 (one-window-p, walk-windows, minibuffer-window-active-p): Functions moved here. Richard M. Stallman <rms@gnu.org> parents: 11029 diff changeset	66 ;; If we start from the minibuffer window, don't fail to come back to it.
22693a280a42 (one-window-p, walk-windows, minibuffer-window-active-p): Functions moved here. Richard M. Stallman <rms@gnu.org> parents: 11029 diff changeset	67 (if (window-minibuffer-p (selected-window))
22693a280a42 (one-window-p, walk-windows, minibuffer-window-active-p): Functions moved here. Richard M. Stallman <rms@gnu.org> parents: 11029 diff changeset	68 (setq minibuf t))
22693a280a42 (one-window-p, walk-windows, minibuffer-window-active-p): Functions moved here. Richard M. Stallman <rms@gnu.org> parents: 11029 diff changeset	69 (let* ((walk-windows-start (selected-window))
22693a280a42 (one-window-p, walk-windows, minibuffer-window-active-p): Functions moved here. Richard M. Stallman <rms@gnu.org> parents: 11029 diff changeset	70 (walk-windows-current walk-windows-start))
22693a280a42 (one-window-p, walk-windows, minibuffer-window-active-p): Functions moved here. Richard M. Stallman <rms@gnu.org> parents: 11029 diff changeset	71 (while (progn
22693a280a42 (one-window-p, walk-windows, minibuffer-window-active-p): Functions moved here. Richard M. Stallman <rms@gnu.org> parents: 11029 diff changeset	72 (setq walk-windows-current
22693a280a42 (one-window-p, walk-windows, minibuffer-window-active-p): Functions moved here. Richard M. Stallman <rms@gnu.org> parents: 11029 diff changeset	73 (next-window walk-windows-current minibuf all-frames))
22693a280a42 (one-window-p, walk-windows, minibuffer-window-active-p): Functions moved here. Richard M. Stallman <rms@gnu.org> parents: 11029 diff changeset	74 (funcall proc walk-windows-current)
22693a280a42 (one-window-p, walk-windows, minibuffer-window-active-p): Functions moved here. Richard M. Stallman <rms@gnu.org> parents: 11029 diff changeset	75 (not (eq walk-windows-current walk-windows-start))))))
22693a280a42 (one-window-p, walk-windows, minibuffer-window-active-p): Functions moved here. Richard M. Stallman <rms@gnu.org> parents: 11029 diff changeset	76
22693a280a42 (one-window-p, walk-windows, minibuffer-window-active-p): Functions moved here. Richard M. Stallman <rms@gnu.org> parents: 11029 diff changeset	77 (defun minibuffer-window-active-p (window)
22693a280a42 (one-window-p, walk-windows, minibuffer-window-active-p): Functions moved here. Richard M. Stallman <rms@gnu.org> parents: 11029 diff changeset	78 "Return t if WINDOW (a minibuffer window) is now active."
11149 8904c26c2182 (minibuffer-window-active-p): Use active-minibuffer-window. Richard M. Stallman <rms@gnu.org> parents: 11086 diff changeset	79 (eq window (active-minibuffer-window)))
12184 629806145d36 (save-selected-window): New macro. Karl Heuer <kwzh@gnu.org> parents: 11302 diff changeset	80
629806145d36 (save-selected-window): New macro. Karl Heuer <kwzh@gnu.org> parents: 11302 diff changeset	81 (defmacro save-selected-window (&rest body)
629806145d36 (save-selected-window): New macro. Karl Heuer <kwzh@gnu.org> parents: 11302 diff changeset	82 "Execute BODY, then select the window that was selected before BODY."
629806145d36 (save-selected-window): New macro. Karl Heuer <kwzh@gnu.org> parents: 11302 diff changeset	83 (list 'let
629806145d36 (save-selected-window): New macro. Karl Heuer <kwzh@gnu.org> parents: 11302 diff changeset	84 '((save-selected-window-window (selected-window)))
629806145d36 (save-selected-window): New macro. Karl Heuer <kwzh@gnu.org> parents: 11302 diff changeset	85 (list 'unwind-protect
629806145d36 (save-selected-window): New macro. Karl Heuer <kwzh@gnu.org> parents: 11302 diff changeset	86 (cons 'progn body)
629806145d36 (save-selected-window): New macro. Karl Heuer <kwzh@gnu.org> parents: 11302 diff changeset	87 (list 'select-window 'save-selected-window-window))))
11086 22693a280a42 (one-window-p, walk-windows, minibuffer-window-active-p): Functions moved here. Richard M. Stallman <rms@gnu.org> parents: 11029 diff changeset	88
36 9697c13298e5 Initial revision Joseph Arceneaux <jla@gnu.org> parents: diff changeset	89 (defun count-windows (&optional minibuf)
9697c13298e5 Initial revision Joseph Arceneaux <jla@gnu.org> parents: diff changeset	90 "Returns the number of visible windows.
9697c13298e5 Initial revision Joseph Arceneaux <jla@gnu.org> parents: diff changeset	91 Optional arg NO-MINI non-nil means don't count the minibuffer
9697c13298e5 Initial revision Joseph Arceneaux <jla@gnu.org> parents: diff changeset	92 even if it is active."
9697c13298e5 Initial revision Joseph Arceneaux <jla@gnu.org> parents: diff changeset	93 (let ((count 0))
3375 13ddc81f0b43 (count-windows): PROC argument of walk-windows takes an argument. Richard M. Stallman <rms@gnu.org> parents: 3342 diff changeset	94 (walk-windows (function (lambda (w)
36 9697c13298e5 Initial revision Joseph Arceneaux <jla@gnu.org> parents: diff changeset	95 (setq count (+ count 1))))
9697c13298e5 Initial revision Joseph Arceneaux <jla@gnu.org> parents: diff changeset	96 minibuf)
9697c13298e5 Initial revision Joseph Arceneaux <jla@gnu.org> parents: diff changeset	97 count))
9697c13298e5 Initial revision Joseph Arceneaux <jla@gnu.org> parents: diff changeset	98
9697c13298e5 Initial revision Joseph Arceneaux <jla@gnu.org> parents: diff changeset	99 (defun balance-windows ()
3724 dc73f3152d2f (balance-windows): Total rewrite. Richard M. Stallman <rms@gnu.org> parents: 3375 diff changeset	100 "Makes all visible windows the same height (approximately)."
36 9697c13298e5 Initial revision Joseph Arceneaux <jla@gnu.org> parents: diff changeset	101 (interactive)
13523 75c6a5e1ee7a (balance-windows): Don't count the menu bar's lines in the frame height. Richard M. Stallman <rms@gnu.org> parents: 12184 diff changeset	102 (let ((count -1) levels newsizes size
75c6a5e1ee7a (balance-windows): Don't count the menu bar's lines in the frame height. Richard M. Stallman <rms@gnu.org> parents: 12184 diff changeset	103 ;; Don't count the lines that are above the uppermost windows.
75c6a5e1ee7a (balance-windows): Don't count the menu bar's lines in the frame height. Richard M. Stallman <rms@gnu.org> parents: 12184 diff changeset	104 ;; (These are the menu bar lines, if any.)
75c6a5e1ee7a (balance-windows): Don't count the menu bar's lines in the frame height. Richard M. Stallman <rms@gnu.org> parents: 12184 diff changeset	105 (mbl (nth 1 (window-edges (frame-first-window (selected-frame))))))
3724 dc73f3152d2f (balance-windows): Total rewrite. Richard M. Stallman <rms@gnu.org> parents: 3375 diff changeset	106 ;; Find all the different vpos's at which windows start,
dc73f3152d2f (balance-windows): Total rewrite. Richard M. Stallman <rms@gnu.org> parents: 3375 diff changeset	107 ;; then count them. But ignore levels that differ by only 1.
dc73f3152d2f (balance-windows): Total rewrite. Richard M. Stallman <rms@gnu.org> parents: 3375 diff changeset	108 (save-window-excursion
dc73f3152d2f (balance-windows): Total rewrite. Richard M. Stallman <rms@gnu.org> parents: 3375 diff changeset	109 (let (tops (prev-top -2))
dc73f3152d2f (balance-windows): Total rewrite. Richard M. Stallman <rms@gnu.org> parents: 3375 diff changeset	110 (walk-windows (function (lambda (w)
dc73f3152d2f (balance-windows): Total rewrite. Richard M. Stallman <rms@gnu.org> parents: 3375 diff changeset	111 (setq tops (cons (nth 1 (window-edges w))
dc73f3152d2f (balance-windows): Total rewrite. Richard M. Stallman <rms@gnu.org> parents: 3375 diff changeset	112 tops))))
dc73f3152d2f (balance-windows): Total rewrite. Richard M. Stallman <rms@gnu.org> parents: 3375 diff changeset	113 'nomini)
dc73f3152d2f (balance-windows): Total rewrite. Richard M. Stallman <rms@gnu.org> parents: 3375 diff changeset	114 (setq tops (sort tops '<))
dc73f3152d2f (balance-windows): Total rewrite. Richard M. Stallman <rms@gnu.org> parents: 3375 diff changeset	115 (while tops
dc73f3152d2f (balance-windows): Total rewrite. Richard M. Stallman <rms@gnu.org> parents: 3375 diff changeset	116 (if (> (car tops) (1+ prev-top))
dc73f3152d2f (balance-windows): Total rewrite. Richard M. Stallman <rms@gnu.org> parents: 3375 diff changeset	117 (setq prev-top (car tops)
dc73f3152d2f (balance-windows): Total rewrite. Richard M. Stallman <rms@gnu.org> parents: 3375 diff changeset	118 count (1+ count)))
dc73f3152d2f (balance-windows): Total rewrite. Richard M. Stallman <rms@gnu.org> parents: 3375 diff changeset	119 (setq levels (cons (cons (car tops) count) levels))
dc73f3152d2f (balance-windows): Total rewrite. Richard M. Stallman <rms@gnu.org> parents: 3375 diff changeset	120 (setq tops (cdr tops)))
dc73f3152d2f (balance-windows): Total rewrite. Richard M. Stallman <rms@gnu.org> parents: 3375 diff changeset	121 (setq count (1+ count))))
dc73f3152d2f (balance-windows): Total rewrite. Richard M. Stallman <rms@gnu.org> parents: 3375 diff changeset	122 ;; Subdivide the frame into that many vertical levels.
13523 75c6a5e1ee7a (balance-windows): Don't count the menu bar's lines in the frame height. Richard M. Stallman <rms@gnu.org> parents: 12184 diff changeset	123 (setq size (/ (- (frame-height) mbl) count))
3724 dc73f3152d2f (balance-windows): Total rewrite. Richard M. Stallman <rms@gnu.org> parents: 3375 diff changeset	124 (walk-windows (function
dc73f3152d2f (balance-windows): Total rewrite. Richard M. Stallman <rms@gnu.org> parents: 3375 diff changeset	125 (lambda (w)
dc73f3152d2f (balance-windows): Total rewrite. Richard M. Stallman <rms@gnu.org> parents: 3375 diff changeset	126 (select-window w)
dc73f3152d2f (balance-windows): Total rewrite. Richard M. Stallman <rms@gnu.org> parents: 3375 diff changeset	127 (let ((newtop (cdr (assq (nth 1 (window-edges))
dc73f3152d2f (balance-windows): Total rewrite. Richard M. Stallman <rms@gnu.org> parents: 3375 diff changeset	128 levels)))
dc73f3152d2f (balance-windows): Total rewrite. Richard M. Stallman <rms@gnu.org> parents: 3375 diff changeset	129 (newbot (or (cdr (assq (+ (window-height)
dc73f3152d2f (balance-windows): Total rewrite. Richard M. Stallman <rms@gnu.org> parents: 3375 diff changeset	130 (nth 1 (window-edges)))
dc73f3152d2f (balance-windows): Total rewrite. Richard M. Stallman <rms@gnu.org> parents: 3375 diff changeset	131 levels))
dc73f3152d2f (balance-windows): Total rewrite. Richard M. Stallman <rms@gnu.org> parents: 3375 diff changeset	132 count)))
dc73f3152d2f (balance-windows): Total rewrite. Richard M. Stallman <rms@gnu.org> parents: 3375 diff changeset	133 (setq newsizes
dc73f3152d2f (balance-windows): Total rewrite. Richard M. Stallman <rms@gnu.org> parents: 3375 diff changeset	134 (cons (cons w (* size (- newbot newtop)))
11029 3f98c129f7bc (balance-windows): Ignore minibuffer window when browsing the `levels'. Richard M. Stallman <rms@gnu.org> parents: 9007 diff changeset	135 newsizes)))))
3f98c129f7bc (balance-windows): Ignore minibuffer window when browsing the `levels'. Richard M. Stallman <rms@gnu.org> parents: 9007 diff changeset	136 'nomini)
36 9697c13298e5 Initial revision Joseph Arceneaux <jla@gnu.org> parents: diff changeset	137 (walk-windows (function (lambda (w)
3724 dc73f3152d2f (balance-windows): Total rewrite. Richard M. Stallman <rms@gnu.org> parents: 3375 diff changeset	138 (select-window w)
dc73f3152d2f (balance-windows): Total rewrite. Richard M. Stallman <rms@gnu.org> parents: 3375 diff changeset	139 (let ((newsize (cdr (assq w newsizes))))
dc73f3152d2f (balance-windows): Total rewrite. Richard M. Stallman <rms@gnu.org> parents: 3375 diff changeset	140 (enlarge-window (- newsize
dc73f3152d2f (balance-windows): Total rewrite. Richard M. Stallman <rms@gnu.org> parents: 3375 diff changeset	141 (window-height))))))
dc73f3152d2f (balance-windows): Total rewrite. Richard M. Stallman <rms@gnu.org> parents: 3375 diff changeset	142 'nomini)))
11086 22693a280a42 (one-window-p, walk-windows, minibuffer-window-active-p): Functions moved here. Richard M. Stallman <rms@gnu.org> parents: 11029 diff changeset	143
698 793483bd29fe * empty log message * Richard M. Stallman <rms@gnu.org> parents: 656 diff changeset	144 ;;; I think this should be the default; I think people will prefer it--rms.
793483bd29fe * empty log message * Richard M. Stallman <rms@gnu.org> parents: 656 diff changeset	145 (defvar split-window-keep-point t
3724 dc73f3152d2f (balance-windows): Total rewrite. Richard M. Stallman <rms@gnu.org> parents: 3375 diff changeset	146 "*If non-nil, split windows keeps the original point in both children.
dc73f3152d2f (balance-windows): Total rewrite. Richard M. Stallman <rms@gnu.org> parents: 3375 diff changeset	147 This is often more convenient for editing.
dc73f3152d2f (balance-windows): Total rewrite. Richard M. Stallman <rms@gnu.org> parents: 3375 diff changeset	148 If nil, adjust point in each of the two windows to minimize redisplay.
dc73f3152d2f (balance-windows): Total rewrite. Richard M. Stallman <rms@gnu.org> parents: 3375 diff changeset	149 This is convenient on slow terminals, but point can move strangely.")
382 b6465a2ae3e5 * empty log message * Jim Blandy <jimb@redhat.com> parents: 108 diff changeset	150
36 9697c13298e5 Initial revision Joseph Arceneaux <jla@gnu.org> parents: diff changeset	151 (defun split-window-vertically (&optional arg)
9697c13298e5 Initial revision Joseph Arceneaux <jla@gnu.org> parents: diff changeset	152 "Split current window into two windows, one above the other.
108 8644955999f0 * empty log message * Richard M. Stallman <rms@gnu.org> parents: 36 diff changeset	153 The uppermost window gets ARG lines and the other gets the rest.
6670 b2c5fca3c10c (split-window-vertically): If size is negative, measure from bottom. Karl Heuer <kwzh@gnu.org> parents: 6019 diff changeset	154 Negative arg means select the size of the lowermost window instead.
108 8644955999f0 * empty log message * Richard M. Stallman <rms@gnu.org> parents: 36 diff changeset	155 With no argument, split equally or close to it.
8644955999f0 * empty log message * Richard M. Stallman <rms@gnu.org> parents: 36 diff changeset	156 Both windows display the same buffer now current.
382 b6465a2ae3e5 * empty log message * Jim Blandy <jimb@redhat.com> parents: 108 diff changeset	157
b6465a2ae3e5 * empty log message * Jim Blandy <jimb@redhat.com> parents: 108 diff changeset	158 If the variable split-window-keep-point is non-nil, both new windows
b6465a2ae3e5 * empty log message * Jim Blandy <jimb@redhat.com> parents: 108 diff changeset	159 will get the same value of point as the current window. This is often
b6465a2ae3e5 * empty log message * Jim Blandy <jimb@redhat.com> parents: 108 diff changeset	160 more convenient for editing.
108 8644955999f0 * empty log message * Richard M. Stallman <rms@gnu.org> parents: 36 diff changeset	161
382 b6465a2ae3e5 * empty log message * Jim Blandy <jimb@redhat.com> parents: 108 diff changeset	162 Otherwise, we chose window starts so as to minimize the amount of
b6465a2ae3e5 * empty log message * Jim Blandy <jimb@redhat.com> parents: 108 diff changeset	163 redisplay; this is convenient on slow terminals. The new selected
b6465a2ae3e5 * empty log message * Jim Blandy <jimb@redhat.com> parents: 108 diff changeset	164 window is the one that the current value of point appears in. The
b6465a2ae3e5 * empty log message * Jim Blandy <jimb@redhat.com> parents: 108 diff changeset	165 value of point can change if the text around point is hidden by the
b6465a2ae3e5 * empty log message * Jim Blandy <jimb@redhat.com> parents: 108 diff changeset	166 new mode line."
36 9697c13298e5 Initial revision Joseph Arceneaux <jla@gnu.org> parents: diff changeset	167 (interactive "P")
9697c13298e5 Initial revision Joseph Arceneaux <jla@gnu.org> parents: diff changeset	168 (let ((old-w (selected-window))
108 8644955999f0 * empty log message * Richard M. Stallman <rms@gnu.org> parents: 36 diff changeset	169 (old-point (point))
6670 b2c5fca3c10c (split-window-vertically): If size is negative, measure from bottom. Karl Heuer <kwzh@gnu.org> parents: 6019 diff changeset	170 (size (and arg (prefix-numeric-value arg)))
13854 84de7ffae8ae (split-window-vertically): Don't change point in old Richard M. Stallman <rms@gnu.org> parents: 13523 diff changeset	171 (window-full-p nil)
84de7ffae8ae (split-window-vertically): Don't change point in old Richard M. Stallman <rms@gnu.org> parents: 13523 diff changeset	172 new-w bottom switch moved)
6670 b2c5fca3c10c (split-window-vertically): If size is negative, measure from bottom. Karl Heuer <kwzh@gnu.org> parents: 6019 diff changeset	173 (and size (< size 0) (setq size (+ (window-height) size)))
b2c5fca3c10c (split-window-vertically): If size is negative, measure from bottom. Karl Heuer <kwzh@gnu.org> parents: 6019 diff changeset	174 (setq new-w (split-window nil size))
419 4fa4f423f981 * empty log message * Jim Blandy <jimb@redhat.com> parents: 382 diff changeset	175 (or split-window-keep-point
108 8644955999f0 * empty log message * Richard M. Stallman <rms@gnu.org> parents: 36 diff changeset	176 (progn
382 b6465a2ae3e5 * empty log message * Jim Blandy <jimb@redhat.com> parents: 108 diff changeset	177 (save-excursion
b6465a2ae3e5 * empty log message * Jim Blandy <jimb@redhat.com> parents: 108 diff changeset	178 (set-buffer (window-buffer))
b6465a2ae3e5 * empty log message * Jim Blandy <jimb@redhat.com> parents: 108 diff changeset	179 (goto-char (window-start))
13854 84de7ffae8ae (split-window-vertically): Don't change point in old Richard M. Stallman <rms@gnu.org> parents: 13523 diff changeset	180 (setq moved (vertical-motion (window-height)))
382 b6465a2ae3e5 * empty log message * Jim Blandy <jimb@redhat.com> parents: 108 diff changeset	181 (set-window-start new-w (point))
b6465a2ae3e5 * empty log message * Jim Blandy <jimb@redhat.com> parents: 108 diff changeset	182 (if (> (point) (window-point new-w))
b6465a2ae3e5 * empty log message * Jim Blandy <jimb@redhat.com> parents: 108 diff changeset	183 (set-window-point new-w (point)))
13854 84de7ffae8ae (split-window-vertically): Don't change point in old Richard M. Stallman <rms@gnu.org> parents: 13523 diff changeset	184 (and (= moved (window-height))
84de7ffae8ae (split-window-vertically): Don't change point in old Richard M. Stallman <rms@gnu.org> parents: 13523 diff changeset	185 (progn
84de7ffae8ae (split-window-vertically): Don't change point in old Richard M. Stallman <rms@gnu.org> parents: 13523 diff changeset	186 (setq window-full-p t)
84de7ffae8ae (split-window-vertically): Don't change point in old Richard M. Stallman <rms@gnu.org> parents: 13523 diff changeset	187 (vertical-motion -1)))
84de7ffae8ae (split-window-vertically): Don't change point in old Richard M. Stallman <rms@gnu.org> parents: 13523 diff changeset	188 (setq bottom (point)))
84de7ffae8ae (split-window-vertically): Don't change point in old Richard M. Stallman <rms@gnu.org> parents: 13523 diff changeset	189 (and window-full-p
84de7ffae8ae (split-window-vertically): Don't change point in old Richard M. Stallman <rms@gnu.org> parents: 13523 diff changeset	190 (<= bottom (point))
84de7ffae8ae (split-window-vertically): Don't change point in old Richard M. Stallman <rms@gnu.org> parents: 13523 diff changeset	191 (set-window-point old-w (1- bottom)))
84de7ffae8ae (split-window-vertically): Don't change point in old Richard M. Stallman <rms@gnu.org> parents: 13523 diff changeset	192 (and window-full-p
84de7ffae8ae (split-window-vertically): Don't change point in old Richard M. Stallman <rms@gnu.org> parents: 13523 diff changeset	193 (<= (window-start new-w) old-point)
84de7ffae8ae (split-window-vertically): Don't change point in old Richard M. Stallman <rms@gnu.org> parents: 13523 diff changeset	194 (progn
84de7ffae8ae (split-window-vertically): Don't change point in old Richard M. Stallman <rms@gnu.org> parents: 13523 diff changeset	195 (set-window-point new-w old-point)
84de7ffae8ae (split-window-vertically): Don't change point in old Richard M. Stallman <rms@gnu.org> parents: 13523 diff changeset	196 (select-window new-w)))))
3253 f4d37be94734 (split-window-vertically): Return the new window. Richard M. Stallman <rms@gnu.org> parents: 2529 diff changeset	197 new-w))
36 9697c13298e5 Initial revision Joseph Arceneaux <jla@gnu.org> parents: diff changeset	198
9697c13298e5 Initial revision Joseph Arceneaux <jla@gnu.org> parents: diff changeset	199 (defun split-window-horizontally (&optional arg)
9697c13298e5 Initial revision Joseph Arceneaux <jla@gnu.org> parents: diff changeset	200 "Split current window into two windows side by side.
8565 2a2208286955 (split-window-horizontally): If size is negative, measure from the right. Karl Heuer <kwzh@gnu.org> parents: 7300 diff changeset	201 This window becomes the leftmost of the two, and gets ARG columns.
2a2208286955 (split-window-horizontally): If size is negative, measure from the right. Karl Heuer <kwzh@gnu.org> parents: 7300 diff changeset	202 Negative arg means select the size of the rightmost window instead.
2a2208286955 (split-window-horizontally): If size is negative, measure from the right. Karl Heuer <kwzh@gnu.org> parents: 7300 diff changeset	203 No arg means split equally."
36 9697c13298e5 Initial revision Joseph Arceneaux <jla@gnu.org> parents: diff changeset	204 (interactive "P")
8565 2a2208286955 (split-window-horizontally): If size is negative, measure from the right. Karl Heuer <kwzh@gnu.org> parents: 7300 diff changeset	205 (let ((size (and arg (prefix-numeric-value arg))))
2a2208286955 (split-window-horizontally): If size is negative, measure from the right. Karl Heuer <kwzh@gnu.org> parents: 7300 diff changeset	206 (and size (< size 0)
2a2208286955 (split-window-horizontally): If size is negative, measure from the right. Karl Heuer <kwzh@gnu.org> parents: 7300 diff changeset	207 (setq size (+ (window-width) size)))
2a2208286955 (split-window-horizontally): If size is negative, measure from the right. Karl Heuer <kwzh@gnu.org> parents: 7300 diff changeset	208 (split-window nil size t)))
11086 22693a280a42 (one-window-p, walk-windows, minibuffer-window-active-p): Functions moved here. Richard M. Stallman <rms@gnu.org> parents: 11029 diff changeset	209
36 9697c13298e5 Initial revision Joseph Arceneaux <jla@gnu.org> parents: diff changeset	210 (defun enlarge-window-horizontally (arg)
9697c13298e5 Initial revision Joseph Arceneaux <jla@gnu.org> parents: diff changeset	211 "Make current window ARG columns wider."
9697c13298e5 Initial revision Joseph Arceneaux <jla@gnu.org> parents: diff changeset	212 (interactive "p")
9697c13298e5 Initial revision Joseph Arceneaux <jla@gnu.org> parents: diff changeset	213 (enlarge-window arg t))
9697c13298e5 Initial revision Joseph Arceneaux <jla@gnu.org> parents: diff changeset	214
9697c13298e5 Initial revision Joseph Arceneaux <jla@gnu.org> parents: diff changeset	215 (defun shrink-window-horizontally (arg)
9697c13298e5 Initial revision Joseph Arceneaux <jla@gnu.org> parents: diff changeset	216 "Make current window ARG columns narrower."
9697c13298e5 Initial revision Joseph Arceneaux <jla@gnu.org> parents: diff changeset	217 (interactive "p")
9697c13298e5 Initial revision Joseph Arceneaux <jla@gnu.org> parents: diff changeset	218 (shrink-window arg t))
9697c13298e5 Initial revision Joseph Arceneaux <jla@gnu.org> parents: diff changeset	219
2529 bb127c1081af (shrink-window-if-larger-than-buffer): Moved from electric.el to windows.el, Eric S. Raymond <esr@snark.thyrsus.com> parents: 841 diff changeset	220 (defun shrink-window-if-larger-than-buffer (&optional window)
3342 ce8aa0ba8b08 (shrink-window-if-larger-than-buffer): Add `interactive'. Richard M. Stallman <rms@gnu.org> parents: 3253 diff changeset	221 "Shrink the WINDOW to be as small as possible to display its contents.
8721 c94f87ea8a1b (shrink-window-if-larger-than-buffer): Doc fix. Richard M. Stallman <rms@gnu.org> parents: 8672 diff changeset	222 Do not shrink to less than `window-min-height' lines.
3342 ce8aa0ba8b08 (shrink-window-if-larger-than-buffer): Add `interactive'. Richard M. Stallman <rms@gnu.org> parents: 3253 diff changeset	223 Do nothing if the buffer contains more lines than the present window height,
4364 69e5c2373d37 (shrink-window-if-larger-than-buffer): Do nothing if the Richard M. Stallman <rms@gnu.org> parents: 3724 diff changeset	224 or if some of the window's contents are scrolled out of view,
6905 e068218e992b (shrink-window-if-larger-than-buffer): Richard M. Stallman <rms@gnu.org> parents: 6670 diff changeset	225 or if the window is not the full width of the frame,
4364 69e5c2373d37 (shrink-window-if-larger-than-buffer): Do nothing if the Richard M. Stallman <rms@gnu.org> parents: 3724 diff changeset	226 or if the window is the only window of its frame."
3342 ce8aa0ba8b08 (shrink-window-if-larger-than-buffer): Add `interactive'. Richard M. Stallman <rms@gnu.org> parents: 3253 diff changeset	227 (interactive)
9007 2c55ff956862 (shrink-window-if-larger-than-buffer): Use WINDOW's frame Richard M. Stallman <rms@gnu.org> parents: 8778 diff changeset	228 (or window (setq window (selected-window)))
2529 bb127c1081af (shrink-window-if-larger-than-buffer): Moved from electric.el to windows.el, Eric S. Raymond <esr@snark.thyrsus.com> parents: 841 diff changeset	229 (save-excursion
bb127c1081af (shrink-window-if-larger-than-buffer): Moved from electric.el to windows.el, Eric S. Raymond <esr@snark.thyrsus.com> parents: 841 diff changeset	230 (set-buffer (window-buffer window))
9007 2c55ff956862 (shrink-window-if-larger-than-buffer): Use WINDOW's frame Richard M. Stallman <rms@gnu.org> parents: 8778 diff changeset	231 (let* ((w (selected-window)) ;save-window-excursion can't win
2c55ff956862 (shrink-window-if-larger-than-buffer): Use WINDOW's frame Richard M. Stallman <rms@gnu.org> parents: 8778 diff changeset	232 (buffer-file-name buffer-file-name)
2c55ff956862 (shrink-window-if-larger-than-buffer): Use WINDOW's frame Richard M. Stallman <rms@gnu.org> parents: 8778 diff changeset	233 (p (point))
2c55ff956862 (shrink-window-if-larger-than-buffer): Use WINDOW's frame Richard M. Stallman <rms@gnu.org> parents: 8778 diff changeset	234 (n 0)
2c55ff956862 (shrink-window-if-larger-than-buffer): Use WINDOW's frame Richard M. Stallman <rms@gnu.org> parents: 8778 diff changeset	235 (ignore-final-newline
2c55ff956862 (shrink-window-if-larger-than-buffer): Use WINDOW's frame Richard M. Stallman <rms@gnu.org> parents: 8778 diff changeset	236 ;; If buffer ends with a newline, ignore it when counting height
2c55ff956862 (shrink-window-if-larger-than-buffer): Use WINDOW's frame Richard M. Stallman <rms@gnu.org> parents: 8778 diff changeset	237 ;; unless point is after it.
2c55ff956862 (shrink-window-if-larger-than-buffer): Use WINDOW's frame Richard M. Stallman <rms@gnu.org> parents: 8778 diff changeset	238 (and (not (eobp))
2c55ff956862 (shrink-window-if-larger-than-buffer): Use WINDOW's frame Richard M. Stallman <rms@gnu.org> parents: 8778 diff changeset	239 (eq ?\n (char-after (1- (point-max))))))
2c55ff956862 (shrink-window-if-larger-than-buffer): Use WINDOW's frame Richard M. Stallman <rms@gnu.org> parents: 8778 diff changeset	240 (buffer-read-only nil)
2c55ff956862 (shrink-window-if-larger-than-buffer): Use WINDOW's frame Richard M. Stallman <rms@gnu.org> parents: 8778 diff changeset	241 (modified (buffer-modified-p))
2c55ff956862 (shrink-window-if-larger-than-buffer): Use WINDOW's frame Richard M. Stallman <rms@gnu.org> parents: 8778 diff changeset	242 (buffer (current-buffer))
2c55ff956862 (shrink-window-if-larger-than-buffer): Use WINDOW's frame Richard M. Stallman <rms@gnu.org> parents: 8778 diff changeset	243 (params (frame-parameters (window-frame window)))
2c55ff956862 (shrink-window-if-larger-than-buffer): Use WINDOW's frame Richard M. Stallman <rms@gnu.org> parents: 8778 diff changeset	244 (mini (cdr (assq 'minibuffer params)))
2c55ff956862 (shrink-window-if-larger-than-buffer): Use WINDOW's frame Richard M. Stallman <rms@gnu.org> parents: 8778 diff changeset	245 (edges (window-edges (selected-window))))
2c55ff956862 (shrink-window-if-larger-than-buffer): Use WINDOW's frame Richard M. Stallman <rms@gnu.org> parents: 8778 diff changeset	246 (if (and (< 1 (let ((frame (selected-frame)))
2c55ff956862 (shrink-window-if-larger-than-buffer): Use WINDOW's frame Richard M. Stallman <rms@gnu.org> parents: 8778 diff changeset	247 (select-frame (window-frame window))
2c55ff956862 (shrink-window-if-larger-than-buffer): Use WINDOW's frame Richard M. Stallman <rms@gnu.org> parents: 8778 diff changeset	248 (unwind-protect
2c55ff956862 (shrink-window-if-larger-than-buffer): Use WINDOW's frame Richard M. Stallman <rms@gnu.org> parents: 8778 diff changeset	249 (count-windows)
2c55ff956862 (shrink-window-if-larger-than-buffer): Use WINDOW's frame Richard M. Stallman <rms@gnu.org> parents: 8778 diff changeset	250 (select-frame frame))))
2c55ff956862 (shrink-window-if-larger-than-buffer): Use WINDOW's frame Richard M. Stallman <rms@gnu.org> parents: 8778 diff changeset	251 (= (window-width window) (frame-width (window-frame window)))
6019 0c0b00572d96 (shrink-window-if-larger-than-buffer): Don't shrink if the window that would Karl Heuer <kwzh@gnu.org> parents: 4436 diff changeset	252 (pos-visible-in-window-p (point-min) window)
8778 1b047b18e860 (shrink-window-if-larger-than-buffer): Richard M. Stallman <rms@gnu.org> parents: 8750 diff changeset	253 (not (eq mini 'only))
6019 0c0b00572d96 (shrink-window-if-larger-than-buffer): Don't shrink if the window that would Karl Heuer <kwzh@gnu.org> parents: 4436 diff changeset	254 (or (not mini)
0c0b00572d96 (shrink-window-if-larger-than-buffer): Don't shrink if the window that would Karl Heuer <kwzh@gnu.org> parents: 4436 diff changeset	255 (< (nth 3 edges)
0c0b00572d96 (shrink-window-if-larger-than-buffer): Don't shrink if the window that would Karl Heuer <kwzh@gnu.org> parents: 4436 diff changeset	256 (nth 1 (window-edges mini)))
0c0b00572d96 (shrink-window-if-larger-than-buffer): Don't shrink if the window that would Karl Heuer <kwzh@gnu.org> parents: 4436 diff changeset	257 (> (nth 1 edges)
9007 2c55ff956862 (shrink-window-if-larger-than-buffer): Use WINDOW's frame Richard M. Stallman <rms@gnu.org> parents: 8778 diff changeset	258 (cdr (assq 'menu-bar-lines params)))))
3342 ce8aa0ba8b08 (shrink-window-if-larger-than-buffer): Add `interactive'. Richard M. Stallman <rms@gnu.org> parents: 3253 diff changeset	259 (unwind-protect
ce8aa0ba8b08 (shrink-window-if-larger-than-buffer): Add `interactive'. Richard M. Stallman <rms@gnu.org> parents: 3253 diff changeset	260 (progn
ce8aa0ba8b08 (shrink-window-if-larger-than-buffer): Add `interactive'. Richard M. Stallman <rms@gnu.org> parents: 3253 diff changeset	261 (select-window (or window w))
ce8aa0ba8b08 (shrink-window-if-larger-than-buffer): Add `interactive'. Richard M. Stallman <rms@gnu.org> parents: 3253 diff changeset	262 (goto-char (point-min))
4364 69e5c2373d37 (shrink-window-if-larger-than-buffer): Do nothing if the Richard M. Stallman <rms@gnu.org> parents: 3724 diff changeset	263 (while (pos-visible-in-window-p
69e5c2373d37 (shrink-window-if-larger-than-buffer): Do nothing if the Richard M. Stallman <rms@gnu.org> parents: 3724 diff changeset	264 (- (point-max)
69e5c2373d37 (shrink-window-if-larger-than-buffer): Do nothing if the Richard M. Stallman <rms@gnu.org> parents: 3724 diff changeset	265 (if ignore-final-newline 1 0)))
3342 ce8aa0ba8b08 (shrink-window-if-larger-than-buffer): Add `interactive'. Richard M. Stallman <rms@gnu.org> parents: 3253 diff changeset	266 ;; defeat file locking... don't try this at home, kids!
ce8aa0ba8b08 (shrink-window-if-larger-than-buffer): Add `interactive'. Richard M. Stallman <rms@gnu.org> parents: 3253 diff changeset	267 (setq buffer-file-name nil)
ce8aa0ba8b08 (shrink-window-if-larger-than-buffer): Add `interactive'. Richard M. Stallman <rms@gnu.org> parents: 3253 diff changeset	268 (insert ?\n) (setq n (1+ n)))
8672 415a25bb4ee7 (shrink-window-if-larger-than-buffer): Richard M. Stallman <rms@gnu.org> parents: 8565 diff changeset	269 (if (> n 0)
415a25bb4ee7 (shrink-window-if-larger-than-buffer): Richard M. Stallman <rms@gnu.org> parents: 8565 diff changeset	270 (shrink-window (min (1- n)
415a25bb4ee7 (shrink-window-if-larger-than-buffer): Richard M. Stallman <rms@gnu.org> parents: 8565 diff changeset	271 (- (window-height)
415a25bb4ee7 (shrink-window-if-larger-than-buffer): Richard M. Stallman <rms@gnu.org> parents: 8565 diff changeset	272 window-min-height)))))
3342 ce8aa0ba8b08 (shrink-window-if-larger-than-buffer): Add `interactive'. Richard M. Stallman <rms@gnu.org> parents: 3253 diff changeset	273 (delete-region (point-min) (point))
ce8aa0ba8b08 (shrink-window-if-larger-than-buffer): Add `interactive'. Richard M. Stallman <rms@gnu.org> parents: 3253 diff changeset	274 (set-buffer-modified-p modified)
ce8aa0ba8b08 (shrink-window-if-larger-than-buffer): Add `interactive'. Richard M. Stallman <rms@gnu.org> parents: 3253 diff changeset	275 (goto-char p)
ce8aa0ba8b08 (shrink-window-if-larger-than-buffer): Add `interactive'. Richard M. Stallman <rms@gnu.org> parents: 3253 diff changeset	276 (select-window w)
ce8aa0ba8b08 (shrink-window-if-larger-than-buffer): Add `interactive'. Richard M. Stallman <rms@gnu.org> parents: 3253 diff changeset	277 ;; Make sure we unbind buffer-read-only
ce8aa0ba8b08 (shrink-window-if-larger-than-buffer): Add `interactive'. Richard M. Stallman <rms@gnu.org> parents: 3253 diff changeset	278 ;; with the proper current buffer.
ce8aa0ba8b08 (shrink-window-if-larger-than-buffer): Add `interactive'. Richard M. Stallman <rms@gnu.org> parents: 3253 diff changeset	279 (set-buffer buffer))))))
2529 bb127c1081af (shrink-window-if-larger-than-buffer): Moved from electric.el to windows.el, Eric S. Raymond <esr@snark.thyrsus.com> parents: 841 diff changeset	280
36 9697c13298e5 Initial revision Joseph Arceneaux <jla@gnu.org> parents: diff changeset	281 (define-key ctl-x-map "2" 'split-window-vertically)
707 e4253da532fb * empty log message * Jim Blandy <jimb@redhat.com> parents: 698 diff changeset	282 (define-key ctl-x-map "3" 'split-window-horizontally)
36 9697c13298e5 Initial revision Joseph Arceneaux <jla@gnu.org> parents: diff changeset	283 (define-key ctl-x-map "}" 'enlarge-window-horizontally)
9697c13298e5 Initial revision Joseph Arceneaux <jla@gnu.org> parents: diff changeset	284 (define-key ctl-x-map "{" 'shrink-window-horizontally)
2529 bb127c1081af (shrink-window-if-larger-than-buffer): Moved from electric.el to windows.el, Eric S. Raymond <esr@snark.thyrsus.com> parents: 841 diff changeset	285 (define-key ctl-x-map "-" 'shrink-window-if-larger-than-buffer)
bb127c1081af (shrink-window-if-larger-than-buffer): Moved from electric.el to windows.el, Eric S. Raymond <esr@snark.thyrsus.com> parents: 841 diff changeset	286 (define-key ctl-x-map "+" 'balance-windows)
656 d74e65773062 * empty log message * Eric S. Raymond <esr@snark.thyrsus.com> parents: 419 diff changeset	287
d74e65773062 * empty log message * Eric S. Raymond <esr@snark.thyrsus.com> parents: 419 diff changeset	288 ;;; windows.el ends here

Mercurial > emacs

annotate lisp/window.el @ 14518:5b2bc060c90d