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 /src/window.c | |
| 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 'src/window.c')
| -rw-r--r-- | src/window.c | 36 |
1 files changed, 0 insertions, 36 deletions
diff --git a/src/window.c b/src/window.c index 5b95db634a0..786619df755 100644 --- a/src/window.c +++ b/src/window.c | |||
| @@ -800,39 +800,6 @@ WINDOW's fringes or display margins either. */) | |||
| 800 | return make_number (window_body_cols (w)); | 800 | return make_number (window_body_cols (w)); |
| 801 | } | 801 | } |
| 802 | 802 | ||
| 803 | DEFUN ("window-height", Fwindow_height, Swindow_height, 0, 1, 0, | ||
| 804 | doc: /* Return the number of lines in WINDOW. | ||
| 805 | WINDOW defaults to the selected window. | ||
| 806 | |||
| 807 | The return value includes WINDOW's mode line and header line, if any. | ||
| 808 | |||
| 809 | Note: The function does not take into account the value of `line-spacing' | ||
| 810 | when calculating the number of lines in WINDOW. */) | ||
| 811 | (Lisp_Object window) | ||
| 812 | { | ||
| 813 | return decode_any_window (window)->total_lines; | ||
| 814 | } | ||
| 815 | |||
| 816 | DEFUN ("window-width", Fwindow_width, Swindow_width, 0, 1, 0, | ||
| 817 | doc: /* Return the number of display columns in WINDOW. | ||
| 818 | WINDOW defaults to the selected window. | ||
| 819 | |||
| 820 | Note: The return value is the number of columns available for text in | ||
| 821 | WINDOW. If you want to find out how many columns WINDOW takes up, use | ||
| 822 | (let ((edges (window-edges))) (- (nth 2 edges) (nth 0 edges))). */) | ||
| 823 | (Lisp_Object window) | ||
| 824 | { | ||
| 825 | return make_number (window_body_cols (decode_any_window (window))); | ||
| 826 | } | ||
| 827 | |||
| 828 | DEFUN ("window-full-width-p", Fwindow_full_width_p, Swindow_full_width_p, 0, 1, 0, | ||
| 829 | doc: /* Return t if WINDOW is as wide as its frame. | ||
| 830 | WINDOW defaults to the selected window. */) | ||
| 831 | (Lisp_Object window) | ||
| 832 | { | ||
| 833 | return WINDOW_FULL_WIDTH_P (decode_any_window (window)) ? Qt : Qnil; | ||
| 834 | } | ||
| 835 | |||
| 836 | DEFUN ("window-hscroll", Fwindow_hscroll, Swindow_hscroll, 0, 1, 0, | 803 | DEFUN ("window-hscroll", Fwindow_hscroll, Swindow_hscroll, 0, 1, 0, |
| 837 | doc: /* Return the number of columns by which WINDOW is scrolled from left margin. | 804 | doc: /* Return the number of columns by which WINDOW is scrolled from left margin. |
| 838 | WINDOW defaults to the selected window. */) | 805 | WINDOW defaults to the selected window. */) |
| @@ -7325,9 +7292,6 @@ frame to be redrawn only if it is a tty frame. */); | |||
| 7325 | defsubr (&Swindow_left_column); | 7292 | defsubr (&Swindow_left_column); |
| 7326 | defsubr (&Swindow_total_size); | 7293 | defsubr (&Swindow_total_size); |
| 7327 | defsubr (&Swindow_body_size); | 7294 | defsubr (&Swindow_body_size); |
| 7328 | defsubr (&Swindow_height); | ||
| 7329 | defsubr (&Swindow_width); | ||
| 7330 | defsubr (&Swindow_full_width_p); | ||
| 7331 | defsubr (&Swindow_hscroll); | 7295 | defsubr (&Swindow_hscroll); |
| 7332 | defsubr (&Sset_window_hscroll); | 7296 | defsubr (&Sset_window_hscroll); |
| 7333 | defsubr (&Swindow_redisplay_end_trigger); | 7297 | defsubr (&Swindow_redisplay_end_trigger); |