diff options
| author | Martin Rudalics | 2011-06-08 07:40:45 +0200 |
|---|---|---|
| committer | Martin Rudalics | 2011-06-08 07:40:45 +0200 |
| commit | f3d1777e719dce79af5b78950deeff9e30ce00b0 (patch) | |
| tree | 5784ceca0d5f094f05804d5075c045c25a299d8a /lisp | |
| parent | 18af70d0258153a042be9fd71d4eb090f7189a8f (diff) | |
| download | emacs-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/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/window.el | 6 |
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 @@ | |||
| 1 | 2011-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 | |||
| 1 | 2011-06-07 Chong Yidong <cyd@stupidchicken.com> | 6 | 2011-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 | |||
| 951 | display margins either." | 954 | display 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. |
| 956 | Optional arg NOMINI non-nil means don't count the minibuffer | 962 | Optional arg NOMINI non-nil means don't count the minibuffer |