mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-07 20:54:32 +00:00
Code Issues Releases Activity

Martin Rudalics <rudalics at gmx.at>

Browse Source 
(window-full-height-p): New function.  (Bug#4543)
This commit is contained in:
Glenn Morris 2009-10-04 00:40:16 +00:00
parent 68972a4f8f
commit 02c6f0980b
2 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -1,3 +1,7 @@
2009-10-04 Martin Rudalics <rudalics@gmx.at>
* window.el (window-full-height-p): New function. (Bug#4543)
2009-10-03 Chong Yidong <cyd@stupidchicken.com>
* cedet/srecode/insert.el: Require srecode/args.

6
lisp/window.el
View File

@ -87,6 +87,12 @@ return value, use `window-text-height' instead."
(if mode-line-format 1 0)
(if header-line-format 1 0))))))
(defun window-full-height-p (&optional window)
(unless window
(setq window (selected-window)))
(= (window-height window)
(window-height (frame-root-window (window-frame window)))))
(defun one-window-p (&optional nomini all-frames)
"Return non-nil if the selected window is the only window.
Optional arg NOMINI non-nil means don't count the minibuffer