Commit 18cee9ec authored by Martin Rudalics's avatar Martin Rudalics

In balance-windows-area don't call window-height and window-width. Bug#16241.

* window.el (balance-windows-area): Call window-size instead of
window-height and window-width.  Bug#16241.
parent a9560047
2013-12-24 Martin Rudalics <rudalics@gmx.at>
* window.el (balance-windows-area): Call window-size instead of
window-height and window-width. Bug#16241.
2013-12-24 Lars Ingebrigtsen <larsi@gnus.org>
* net/eww.el (eww-bookmark-quit): Remove.
......
......@@ -4681,12 +4681,12 @@ specific buffers."
;; (assert (eq next (or (cadr (member win wins)) (car wins))))
(let* ((horiz
(< (car (window-pixel-edges win)) (car (window-pixel-edges next))))
(areadiff (/ (- (* (window-height next pixelwise)
(window-width next pixelwise)
(areadiff (/ (- (* (window-size next nil pixelwise)
(window-size next t pixelwise)
(buffer-local-value 'window-area-factor
(window-buffer next)))
(* (window-height win pixelwise)
(window-width win pixelwise)
(* (window-size win nil pixelwise)
(window-size win t pixelwise)
(buffer-local-value 'window-area-factor
(window-buffer win))))
(max (buffer-local-value 'window-area-factor
......@@ -4694,10 +4694,10 @@ specific buffers."
(buffer-local-value 'window-area-factor
(window-buffer next)))))
(edgesize (if horiz
(+ (window-height win pixelwise)
(window-height next pixelwise))
(+ (window-width win pixelwise)
(window-width next pixelwise))))
(+ (window-size win nil pixelwise)
(window-size next nil pixelwise))
(+ (window-size win t pixelwise)
(window-size next t pixelwise))))
(diff (/ areadiff edgesize)))
(when (zerop diff)
;; Maybe diff is actually closer to 1 than to 0.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment