[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r106245: Remove "iso-" infix from win
From: |
martin rudalics |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r106245: Remove "iso-" infix from window combination functions. |
Date: |
Sun, 30 Oct 2011 09:29:56 +0100 |
User-agent: |
Bazaar (2.3.1) |
------------------------------------------------------------
revno: 106245
committer: martin rudalics <address@hidden>
branch nick: trunk
timestamp: Sun 2011-10-30 09:29:56 +0100
message:
Remove "iso-" infix from window combination functions.
* window.el (window-iso-combination-p, window-iso-combined-p)
(window-iso-combinations): Remove "iso-" infix. Suggested by
Chong Yidong.
(window-min-size-1, window-size-fixed-1, window-min-delta-1)
(window-max-delta-1, window-resize, window--resize-siblings)
(window--resize-this-window, adjust-window-trailing-edge)
(split-window, balance-windows-1)
(shrink-window-if-larger-than-buffer):
* calendar/calendar.el (calendar-generate-window):
* help.el (resize-temp-buffer-window): Adjust callers
accordingly.
* windows.texi (Windows and Frames): Remove "iso-" infix from
documentation of window-iso-combined-p.
modified:
doc/lispref/ChangeLog
doc/lispref/windows.texi
lisp/ChangeLog
lisp/calendar/calendar.el
lisp/help.el
lisp/window.el
=== modified file 'doc/lispref/ChangeLog'
--- a/doc/lispref/ChangeLog 2011-10-26 00:47:58 +0000
+++ b/doc/lispref/ChangeLog 2011-10-30 08:29:56 +0000
@@ -1,3 +1,8 @@
+2011-10-30 Martin Rudalics <address@hidden>
+
+ * windows.texi (Windows and Frames): Remove "iso-" infix from
+ documentation of window-iso-combined-p.
+
2011-10-26 Chong Yidong <address@hidden>
* modes.texi (Running Hooks): Document with-wrapper-hook.
=== modified file 'doc/lispref/windows.texi'
--- a/doc/lispref/windows.texi 2011-10-11 09:27:08 +0000
+++ b/doc/lispref/windows.texi 2011-10-30 08:29:56 +0000
@@ -309,7 +309,7 @@
The following function is useful to determine whether a window is part
of a vertical or horizontal combination.
address@hidden window-iso-combined-p &optional window horizontal
address@hidden window-combined-p &optional window horizontal
This function returns address@hidden if and only if @var{window} is
vertically combined. The argument @var{window} can specify any window
and defaults to the selected one. The actual return value is the first
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2011-10-30 08:01:31 +0000
+++ b/lisp/ChangeLog 2011-10-30 08:29:56 +0000
@@ -1,3 +1,17 @@
+2011-10-30 Martin Rudalics <address@hidden>
+
+ * window.el (window-iso-combination-p, window-iso-combined-p)
+ (window-iso-combinations): Remove "iso-" infix. Suggested by
+ Chong Yidong.
+ (window-min-size-1, window-size-fixed-1, window-min-delta-1)
+ (window-max-delta-1, window-resize, window--resize-siblings)
+ (window--resize-this-window, adjust-window-trailing-edge)
+ (split-window, balance-windows-1)
+ (shrink-window-if-larger-than-buffer):
+ * calendar/calendar.el (calendar-generate-window):
+ * help.el (resize-temp-buffer-window): Adjust callers
+ accordingly.
+
2011-10-30 Stefan Monnier <address@hidden>
* eshell/esh-cmd.el (eshell-rewrite-for-command): Don't modify the list
=== modified file 'lisp/calendar/calendar.el'
--- a/lisp/calendar/calendar.el 2011-10-30 01:56:03 +0000
+++ b/lisp/calendar/calendar.el 2011-10-30 08:29:56 +0000
@@ -1373,7 +1373,7 @@
;; Don't do any window-related stuff if we weren't called from a
;; window displaying the calendar.
(when in-calendar-window
- (if (window-iso-combined-p)
+ (if (window-combined-p)
;; Adjust the window to exactly fit the displayed calendar.
(fit-window-to-buffer nil nil calendar-minimum-window-height)
;; For a full height window or a window that is horizontally
=== modified file 'lisp/help.el'
--- a/lisp/help.el 2011-10-19 12:54:24 +0000
+++ b/lisp/help.el 2011-10-30 08:29:56 +0000
@@ -1003,7 +1003,7 @@
not vertically combined or some of its contents are scrolled out
of view."
(when (and (pos-visible-in-window-p (point-min))
- (window-iso-combined-p))
+ (window-combined-p))
(fit-window-to-buffer
nil
(if (functionp temp-buffer-max-height)
=== modified file 'lisp/window.el'
--- a/lisp/window.el 2011-10-30 01:56:03 +0000
+++ b/lisp/window.el 2011-10-30 08:29:56 +0000
@@ -196,7 +196,7 @@
:version "24.1"
:group 'windows)
-(defun window-iso-combination-p (&optional window horizontal)
+(defun window-combination-p (&optional window horizontal)
"If WINDOW is a vertical combination return WINDOW's first child.
WINDOW can be any window and defaults to the selected one.
Optional argument HORIZONTAL non-nil means return WINDOW's first
@@ -206,16 +206,16 @@
(window-left-child window)
(window-top-child window)))
-(defsubst window-iso-combined-p (&optional window horizontal)
+(defsubst window-combined-p (&optional window horizontal)
"Return non-nil if and only if WINDOW is vertically combined.
WINDOW can be any window and defaults to the selected one.
Optional argument HORIZONTAL non-nil means return non-nil if and
only if WINDOW is horizontally combined."
(setq window (window-normalize-any-window window))
(let ((parent (window-parent window)))
- (and parent (window-iso-combination-p parent horizontal))))
+ (and parent (window-combination-p parent horizontal))))
-(defun window-iso-combinations (&optional window horizontal)
+(defun window-combinations (&optional window horizontal)
"Return largest number of vertically arranged subwindows of WINDOW.
WINDOW can be any window and defaults to the selected one.
Optional argument HORIZONTAL non-nil means to return the largest
@@ -225,14 +225,14 @@
((window-live-p window)
;; If WINDOW is live, return 1.
1)
- ((window-iso-combination-p window horizontal)
+ ((window-combination-p window horizontal)
;; If WINDOW is iso-combined, return the sum of the values for all
;; subwindows of WINDOW.
(let ((child (window-child window))
(count 0))
(while child
(setq count
- (+ (window-iso-combinations child horizontal)
+ (+ (window-combinations child horizontal)
count))
(setq child (window-right child)))
count))
@@ -243,7 +243,7 @@
(count 1))
(while child
(setq count
- (max (window-iso-combinations child horizontal)
+ (max (window-combinations child horizontal)
count))
(setq child (window-right child)))
count))))
@@ -555,7 +555,7 @@
(if sub
(let ((value 0))
;; WINDOW is an internal window.
- (if (window-iso-combined-p sub horizontal)
+ (if (window-combined-p sub horizontal)
;; The minimum size of an iso-combination is the sum of
;; the minimum sizes of its subwindows.
(while sub
@@ -669,7 +669,7 @@
(catch 'fixed
(if sub
;; WINDOW is an internal window.
- (if (window-iso-combined-p sub horizontal)
+ (if (window-combined-p sub horizontal)
;; An iso-combination is fixed size if all its subwindows
;; are fixed-size.
(progn
@@ -717,7 +717,7 @@
(let* ((parent (window-parent window))
(sub (window-child parent)))
(catch 'done
- (if (window-iso-combined-p sub horizontal)
+ (if (window-combined-p sub horizontal)
;; In an iso-combination throw DELTA if we find at least one
;; subwindow and that subwindow is either not of fixed-size
;; or we can ignore fixed-sizeness.
@@ -797,7 +797,7 @@
(let* ((parent (window-parent window))
(sub (window-child parent)))
(catch 'fixed
- (if (window-iso-combined-p sub horizontal)
+ (if (window-combined-p sub horizontal)
;; For an iso-combination calculate how much we can get from
;; other subwindows.
(let ((skip (eq trail 'after)))
@@ -1498,7 +1498,7 @@
(window--resize-reset frame horizontal)
(window--resize-this-window window delta horizontal ignore t)
(if (and (not (window-splits window))
- (window-iso-combined-p window horizontal)
+ (window-combined-p window horizontal)
(setq sibling (or (window-right window) (window-left window)))
(window-sizable-p sibling (- delta) horizontal ignore))
;; If window-splits returns nil for WINDOW, WINDOW is part of
@@ -1819,7 +1819,7 @@
(when (window-parent window)
(let* ((parent (window-parent window))
(sub (window-child parent)))
- (if (window-iso-combined-p sub horizontal)
+ (if (window-combined-p sub horizontal)
;; In an iso-combination try to extract DELTA from WINDOW's
;; siblings.
(let ((first sub)
@@ -1935,7 +1935,7 @@
(let ((sub (window-child window)))
(cond
((not sub))
- ((window-iso-combined-p sub horizontal)
+ ((window-combined-p sub horizontal)
;; In an iso-combination resize subwindows according to their
;; normal sizes.
(window--resize-subwindows
@@ -2010,7 +2010,7 @@
(right window)
left this-delta min-delta max-delta failed)
;; Find the edge we want to move.
- (while (and (or (not (window-iso-combined-p right horizontal))
+ (while (and (or (not (window-combined-p right horizontal))
(not (window-right right)))
(setq right (window-parent right))))
(cond
@@ -2029,7 +2029,7 @@
(or (window-left left)
(progn
(while (and (setq left (window-parent left))
- (not (window-iso-combined-p left horizontal))))
+ (not (window-combined-p left horizontal))))
(window-left left)))))
(unless left
(if horizontal
@@ -2043,7 +2043,7 @@
(or (window-right right)
(progn
(while (and (setq right (window-parent right))
- (not (window-iso-combined-p right horizontal))))
+ (not (window-combined-p right horizontal))))
(window-right right)))))
(unless right
(if horizontal
@@ -3142,7 +3142,7 @@
(resize
(and window-splits (not window-nest)
;; Resize makes sense in iso-combinations only.
- (window-iso-combined-p window horizontal)))
+ (window-combined-p window horizontal)))
;; `old-size' is the current size of WINDOW.
(old-size (window-total-size window horizontal))
;; `new-size' is the specified or calculated size of the
@@ -3157,7 +3157,7 @@
(min (- parent-size
(window-min-size parent horizontal))
(/ parent-size
- (1+ (window-iso-combinations
+ (1+ (window-combinations
parent horizontal))))
;; Else try to give the new window half the size
;; of WINDOW (plus an eventual odd line).
@@ -3220,13 +3220,13 @@
;; Make new-parent non-nil if we need a new parent window;
;; either because we want to nest or because WINDOW is not
;; iso-combined.
- (or window-nest (not (window-iso-combined-p window horizontal))))
+ (or window-nest (not (window-combined-p window horizontal))))
(setq new-normal
;; Make new-normal the normal size of the new window.
(cond
(size (/ (float new-size) (if new-parent old-size parent-size)))
(new-parent 0.5)
- (resize (/ 1.0 (1+ (window-iso-combinations parent horizontal))))
+ (resize (/ 1.0 (1+ (window-combinations parent horizontal))))
(t (/ (window-normal-size window horizontal) 2.0))))
(if resize
@@ -3359,7 +3359,8 @@
;; the smallest window).
(defun balance-windows-2 (window horizontal)
"Subroutine of `balance-windows-1'.
-WINDOW must be an iso-combination."
+WINDOW must be a vertical combination (horizontal if HORIZONTAL
+is non-nil."
(let* ((first (window-child window))
(sub first)
(number-of-children 0)
@@ -3432,7 +3433,7 @@
"Subroutine of `balance-windows'."
(if (window-child window)
(let ((sub (window-child window)))
- (if (window-iso-combined-p sub horizontal)
+ (if (window-combined-p sub horizontal)
(balance-windows-2 window horizontal)
(let ((size (window-new-total window)))
(while sub
@@ -5281,14 +5282,8 @@
WINDOW defaults to the selected window."
(with-selected-window (or window (selected-window))
(let ((edges (window-edges)))
- ;; The following doesn't satisfy the doc-string's claim when
- ;; window and previous-/next-window are not part of the same
- ;; combination but still share a common edge. Using
- ;; `window-iso-combined-p' instead should handle that.
(or (= (nth 2 edges) (nth 2 (window-edges (previous-window))))
(= (nth 0 edges) (nth 0 (window-edges (next-window))))))))
-;; (make-obsolete
- ;; 'window-safely-shrinkable-p "use `window-iso-combined-p' instead." "24.1")
(defun shrink-window-if-larger-than-buffer (&optional window)
"Shrink height of WINDOW if its buffer doesn't need so many lines.
@@ -5308,7 +5303,7 @@
;; Make sure that WINDOW is vertically combined and `point-min' is
;; visible (for whatever reason that's needed). The remaining issues
;; should be taken care of by `fit-window-to-buffer'.
- (when (and (window-iso-combined-p window)
+ (when (and (window-combined-p window)
(pos-visible-in-window-p (point-min) window))
(fit-window-to-buffer window (window-total-size window))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r106245: Remove "iso-" infix from window combination functions.,
martin rudalics <=