aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMartin Rudalics2012-08-22 10:42:34 +0200
committerMartin Rudalics2012-08-22 10:42:34 +0200
commit842e3a93aa3a0826cb4148376e54cd1527d10901 (patch)
tree9d97007c8af41053c0013899daf408615c2c05be
parentea95074ef693fee9fe3a4fc9a117b4b129914b64 (diff)
downloademacs-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/ChangeLog2
-rw-r--r--lisp/window.el18
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
92012-08-22 Christopher Schmidt <christopher@ch.ristopher.com> 112012-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
535window).") 535window).")
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
868WINDOW itself (and its child windows) can be enlarged; check 868WINDOW itself (and its child windows) can be enlarged; check
869only whether other windows can be shrunk appropriately." 869only 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.