emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] /srv/bzr/emacs/trunk r109745: Rename window--size-ignore t


From: martin rudalics
Subject: [Emacs-diffs] /srv/bzr/emacs/trunk r109745: Rename window--size-ignore to window--size-ignore-p.
Date: Wed, 22 Aug 2012 10:42:34 +0200
User-agent: Bazaar (2.5.0)

------------------------------------------------------------
revno: 109745
committer: martin rudalics <address@hidden>
branch nick: trunk
timestamp: Wed 2012-08-22 10:42:34 +0200
message:
  Rename window--size-ignore to window--size-ignore-p.
  
  * window.el (window--size-ignore): Rename to window--size-ignore-p.
  Update callers.
modified:
  lisp/ChangeLog
  lisp/window.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-08-22 08:30:54 +0000
+++ b/lisp/ChangeLog    2012-08-22 08:42:34 +0000
@@ -5,6 +5,8 @@
        should run on the minibuffer window.
        (window-at-side-list): Don't operate on minibuffer window.
        (window-in-direction): Simplify and rewrite doc-string.
+       (window--size-ignore): Rename to window--size-ignore-p.  Update
+       callers.
 
 2012-08-22  Christopher Schmidt  <address@hidden>
 

=== modified file 'lisp/window.el'
--- a/lisp/window.el    2012-08-22 08:30:54 +0000
+++ b/lisp/window.el    2012-08-22 08:42:34 +0000
@@ -535,7 +535,7 @@
 window).")
 (make-variable-buffer-local 'window-size-fixed)
 
-(defun window--size-ignore (window ignore)
+(defun window--size-ignore-p (window ignore)
   "Return non-nil if IGNORE says to ignore size restrictions for WINDOW."
   (if (window-valid-p ignore) (eq window ignore) ignore))
 
@@ -578,7 +578,7 @@
          value)
       (with-current-buffer (window-buffer window)
        (cond
-        ((and (not (window--size-ignore window ignore))
+        ((and (not (window--size-ignore-p window ignore))
               (window-size-fixed-p window horizontal))
          ;; The minimum size of a fixed size window is its size.
          (window-total-size window horizontal))
@@ -607,7 +607,7 @@
                  (ceiling (or (frame-parameter frame 'scroll-bar-width) 14)
                           (frame-char-width)))
                 (t 0)))
-            (if (and (not (window--size-ignore window ignore))
+            (if (and (not (window--size-ignore-p window ignore))
                      (numberp window-min-width))
                 window-min-width
               0))))
@@ -617,7 +617,7 @@
          (max (+ window-safe-min-height
                  (if header-line-format 1 0)
                  (if mode-line-format 1 0))
-              (if (and (not (window--size-ignore window ignore))
+              (if (and (not (window--size-ignore-p window ignore))
                        (numberp window-min-height))
                   window-min-height
                 0))))))))
@@ -656,7 +656,7 @@
     (max (- (window-min-size window horizontal ignore)
            (window-total-size window horizontal))
         delta))
-   ((window--size-ignore window ignore)
+   ((window--size-ignore-p window ignore)
     delta)
    ((> delta 0)
     (if (window-size-fixed-p window horizontal)
@@ -738,7 +738,7 @@
                 ((eq sub window)
                  (setq skip (eq trail 'before)))
                 (skip)
-                ((and (not (window--size-ignore window ignore))
+                ((and (not (window--size-ignore-p window ignore))
                       (window-size-fixed-p sub horizontal)))
                 (t
                  ;; We found a non-fixed-size child window.
@@ -828,7 +828,7 @@
          ;; child window is fixed-size.
          (while sub
            (when (and (not (eq sub window))
-                      (not (window--size-ignore sub ignore))
+                      (not (window--size-ignore-p sub ignore))
                       (window-size-fixed-p sub horizontal))
              (throw 'fixed delta))
            (setq sub (window-right sub))))
@@ -868,7 +868,7 @@
 WINDOW itself (and its child windows) can be enlarged; check
 only whether other windows can be shrunk appropriately."
   (setq window (window-normalize-window window))
-  (if (and (not (window--size-ignore window ignore))
+  (if (and (not (window--size-ignore-p window ignore))
           (not nodown) (window-size-fixed-p window horizontal))
       ;; With IGNORE and NOWDON nil return zero if WINDOW has fixed
       ;; size.
@@ -1871,7 +1871,7 @@
                ;; Make sure this sibling is left alone when
                ;; resizing its siblings.
                (set-window-new-normal sub 'ignore))
-              ((or (window--size-ignore sub ignore)
+              ((or (window--size-ignore-p sub ignore)
                    (not (window-size-fixed-p sub horizontal)))
                ;; Set this-delta to t to signal that we found a sibling
                ;; of WINDOW whose size is not fixed.


reply via email to

[Prev in Thread] Current Thread [Next in Thread]