diff options
| author | Martin Rudalics | 2012-08-22 10:42:34 +0200 |
|---|---|---|
| committer | Martin Rudalics | 2012-08-22 10:42:34 +0200 |
| commit | 842e3a93aa3a0826cb4148376e54cd1527d10901 (patch) | |
| tree | 9d97007c8af41053c0013899daf408615c2c05be | |
| parent | ea95074ef693fee9fe3a4fc9a117b4b129914b64 (diff) | |
| download | emacs-842e3a93aa3a0826cb4148376e54cd1527d10901.tar.gz emacs-842e3a93aa3a0826cb4148376e54cd1527d10901.zip | |
Rename window--size-ignore to window--size-ignore-p.
* window.el (window--size-ignore): Rename to window--size-ignore-p.
Update callers.
| -rw-r--r-- | lisp/ChangeLog | 2 | ||||
| -rw-r--r-- | lisp/window.el | 18 |
2 files changed, 11 insertions, 9 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8599786bc50..4296280b22e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -5,6 +5,8 @@ | |||
| 5 | should run on the minibuffer window. | 5 | should run on the minibuffer window. |
| 6 | (window-at-side-list): Don't operate on minibuffer window. | 6 | (window-at-side-list): Don't operate on minibuffer window. |
| 7 | (window-in-direction): Simplify and rewrite doc-string. | 7 | (window-in-direction): Simplify and rewrite doc-string. |
| 8 | (window--size-ignore): Rename to window--size-ignore-p. Update | ||
| 9 | callers. | ||
| 8 | 10 | ||
| 9 | 2012-08-22 Christopher Schmidt <christopher@ch.ristopher.com> | 11 | 2012-08-22 Christopher Schmidt <christopher@ch.ristopher.com> |
| 10 | 12 | ||
diff --git a/lisp/window.el b/lisp/window.el index c5561947a84..ab90d8a4bde 100644 --- a/lisp/window.el +++ b/lisp/window.el | |||
| @@ -535,7 +535,7 @@ unless it has no other choice (like when deleting a neighboring | |||
| 535 | window).") | 535 | window).") |
| 536 | (make-variable-buffer-local 'window-size-fixed) | 536 | (make-variable-buffer-local 'window-size-fixed) |
| 537 | 537 | ||
| 538 | (defun window--size-ignore (window ignore) | 538 | (defun window--size-ignore-p (window ignore) |
| 539 | "Return non-nil if IGNORE says to ignore size restrictions for WINDOW." | 539 | "Return non-nil if IGNORE says to ignore size restrictions for WINDOW." |
| 540 | (if (window-valid-p ignore) (eq window ignore) ignore)) | 540 | (if (window-valid-p ignore) (eq window ignore) ignore)) |
| 541 | 541 | ||
| @@ -578,7 +578,7 @@ means ignore all of the above restrictions for all windows." | |||
| 578 | value) | 578 | value) |
| 579 | (with-current-buffer (window-buffer window) | 579 | (with-current-buffer (window-buffer window) |
| 580 | (cond | 580 | (cond |
| 581 | ((and (not (window--size-ignore window ignore)) | 581 | ((and (not (window--size-ignore-p window ignore)) |
| 582 | (window-size-fixed-p window horizontal)) | 582 | (window-size-fixed-p window horizontal)) |
| 583 | ;; The minimum size of a fixed size window is its size. | 583 | ;; The minimum size of a fixed size window is its size. |
| 584 | (window-total-size window horizontal)) | 584 | (window-total-size window horizontal)) |
| @@ -607,7 +607,7 @@ means ignore all of the above restrictions for all windows." | |||
| 607 | (ceiling (or (frame-parameter frame 'scroll-bar-width) 14) | 607 | (ceiling (or (frame-parameter frame 'scroll-bar-width) 14) |
| 608 | (frame-char-width))) | 608 | (frame-char-width))) |
| 609 | (t 0))) | 609 | (t 0))) |
| 610 | (if (and (not (window--size-ignore window ignore)) | 610 | (if (and (not (window--size-ignore-p window ignore)) |
| 611 | (numberp window-min-width)) | 611 | (numberp window-min-width)) |
| 612 | window-min-width | 612 | window-min-width |
| 613 | 0)))) | 613 | 0)))) |
| @@ -617,7 +617,7 @@ means ignore all of the above restrictions for all windows." | |||
| 617 | (max (+ window-safe-min-height | 617 | (max (+ window-safe-min-height |
| 618 | (if header-line-format 1 0) | 618 | (if header-line-format 1 0) |
| 619 | (if mode-line-format 1 0)) | 619 | (if mode-line-format 1 0)) |
| 620 | (if (and (not (window--size-ignore window ignore)) | 620 | (if (and (not (window--size-ignore-p window ignore)) |
| 621 | (numberp window-min-height)) | 621 | (numberp window-min-height)) |
| 622 | window-min-height | 622 | window-min-height |
| 623 | 0)))))))) | 623 | 0)))))))) |
| @@ -656,7 +656,7 @@ ignore all of the above restrictions for all windows." | |||
| 656 | (max (- (window-min-size window horizontal ignore) | 656 | (max (- (window-min-size window horizontal ignore) |
| 657 | (window-total-size window horizontal)) | 657 | (window-total-size window horizontal)) |
| 658 | delta)) | 658 | delta)) |
| 659 | ((window--size-ignore window ignore) | 659 | ((window--size-ignore-p window ignore) |
| 660 | delta) | 660 | delta) |
| 661 | ((> delta 0) | 661 | ((> delta 0) |
| 662 | (if (window-size-fixed-p window horizontal) | 662 | (if (window-size-fixed-p window horizontal) |
| @@ -738,7 +738,7 @@ WINDOW can be resized in the desired direction. The function | |||
| 738 | ((eq sub window) | 738 | ((eq sub window) |
| 739 | (setq skip (eq trail 'before))) | 739 | (setq skip (eq trail 'before))) |
| 740 | (skip) | 740 | (skip) |
| 741 | ((and (not (window--size-ignore window ignore)) | 741 | ((and (not (window--size-ignore-p window ignore)) |
| 742 | (window-size-fixed-p sub horizontal))) | 742 | (window-size-fixed-p sub horizontal))) |
| 743 | (t | 743 | (t |
| 744 | ;; We found a non-fixed-size child window. | 744 | ;; We found a non-fixed-size child window. |
| @@ -828,7 +828,7 @@ at least one other window can be enlarged appropriately." | |||
| 828 | ;; child window is fixed-size. | 828 | ;; child window is fixed-size. |
| 829 | (while sub | 829 | (while sub |
| 830 | (when (and (not (eq sub window)) | 830 | (when (and (not (eq sub window)) |
| 831 | (not (window--size-ignore sub ignore)) | 831 | (not (window--size-ignore-p sub ignore)) |
| 832 | (window-size-fixed-p sub horizontal)) | 832 | (window-size-fixed-p sub horizontal)) |
| 833 | (throw 'fixed delta)) | 833 | (throw 'fixed delta)) |
| 834 | (setq sub (window-right sub)))) | 834 | (setq sub (window-right sub)))) |
| @@ -868,7 +868,7 @@ Optional argument NODOWN non-nil means do not check whether | |||
| 868 | WINDOW itself (and its child windows) can be enlarged; check | 868 | WINDOW itself (and its child windows) can be enlarged; check |
| 869 | only whether other windows can be shrunk appropriately." | 869 | only whether other windows can be shrunk appropriately." |
| 870 | (setq window (window-normalize-window window)) | 870 | (setq window (window-normalize-window window)) |
| 871 | (if (and (not (window--size-ignore window ignore)) | 871 | (if (and (not (window--size-ignore-p window ignore)) |
| 872 | (not nodown) (window-size-fixed-p window horizontal)) | 872 | (not nodown) (window-size-fixed-p window horizontal)) |
| 873 | ;; With IGNORE and NOWDON nil return zero if WINDOW has fixed | 873 | ;; With IGNORE and NOWDON nil return zero if WINDOW has fixed |
| 874 | ;; size. | 874 | ;; size. |
| @@ -1871,7 +1871,7 @@ preferably only resize windows adjacent to EDGE." | |||
| 1871 | ;; Make sure this sibling is left alone when | 1871 | ;; Make sure this sibling is left alone when |
| 1872 | ;; resizing its siblings. | 1872 | ;; resizing its siblings. |
| 1873 | (set-window-new-normal sub 'ignore)) | 1873 | (set-window-new-normal sub 'ignore)) |
| 1874 | ((or (window--size-ignore sub ignore) | 1874 | ((or (window--size-ignore-p sub ignore) |
| 1875 | (not (window-size-fixed-p sub horizontal))) | 1875 | (not (window-size-fixed-p sub horizontal))) |
| 1876 | ;; Set this-delta to t to signal that we found a sibling | 1876 | ;; Set this-delta to t to signal that we found a sibling |
| 1877 | ;; of WINDOW whose size is not fixed. | 1877 | ;; of WINDOW whose size is not fixed. |