aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
authorMartin Rudalics2011-06-08 07:40:45 +0200
committerMartin Rudalics2011-06-08 07:40:45 +0200
commitf3d1777e719dce79af5b78950deeff9e30ce00b0 (patch)
tree5784ceca0d5f094f05804d5075c045c25a299d8a /lisp
parent18af70d0258153a042be9fd71d4eb090f7189a8f (diff)
downloademacs-f3d1777e719dce79af5b78950deeff9e30ce00b0.tar.gz
emacs-f3d1777e719dce79af5b78950deeff9e30ce00b0.zip
window-height, window-width, and window-full-width-p are now in window.el.
* window.c (Fwindow_height, Fwindow_width, Fwindow_full_width_p): Remove. * window.el (window-height): Defalias to window-total-height. (window-width): Defalias to window-body-width.
Diffstat (limited to 'lisp')
-rw-r--r--lisp/ChangeLog5
-rw-r--r--lisp/window.el6
2 files changed, 11 insertions, 0 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e5911a35db2..5838d198d9b 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
12011-06-08 Martin Rudalics <rudalics@gmx.at>
2
3 * window.el (window-height): Defalias to window-total-height.
4 (window-width): Defalias to window-body-width.
5
12011-06-07 Chong Yidong <cyd@stupidchicken.com> 62011-06-07 Chong Yidong <cyd@stupidchicken.com>
2 7
3 * image-mode.el (image-toggle-animation): New command. 8 * image-mode.el (image-toggle-animation): New command.
diff --git a/lisp/window.el b/lisp/window.el
index 856ec66a005..98c49faaf28 100644
--- a/lisp/window.el
+++ b/lisp/window.el
@@ -900,6 +900,9 @@ Note: This function does not take into account the value of
900`line-spacing' when calculating the number of lines in WINDOW." 900`line-spacing' when calculating the number of lines in WINDOW."
901 (window-total-size window)) 901 (window-total-size window))
902 902
903;; Eventually we should make `window-height' obsolete.
904(defalias 'window-height 'window-total-height)
905
903;; See discussion in bug#4543. 906;; See discussion in bug#4543.
904(defsubst window-full-height-p (&optional window) 907(defsubst window-full-height-p (&optional window)
905 "Return t if WINDOW is as high as the containing frame. 908 "Return t if WINDOW is as high as the containing frame.
@@ -951,6 +954,9 @@ not include the number of columns used for WINDOW's fringes or
951display margins either." 954display margins either."
952 (window-body-size window t)) 955 (window-body-size window t))
953 956
957;; Eventually we should make `window-height' obsolete.
958(defalias 'window-width 'window-body-width)
959
954(defun one-window-p (&optional nomini all-frames) 960(defun one-window-p (&optional nomini all-frames)
955 "Return non-nil if the selected window is the only window. 961 "Return non-nil if the selected window is the only window.
956Optional arg NOMINI non-nil means don't count the minibuffer 962Optional arg NOMINI non-nil means don't count the minibuffer