294 |
{ |
{ |
295 |
if (NILP (frame)) |
if (NILP (frame)) |
296 |
frame = selected_frame; |
frame = selected_frame; |
297 |
CHECK_LIVE_FRAME (frame, 0); |
CHECK_LIVE_FRAME (frame); |
298 |
return FRAME_MINIBUF_WINDOW (XFRAME (frame)); |
return FRAME_MINIBUF_WINDOW (XFRAME (frame)); |
299 |
} |
} |
300 |
|
|
331 |
|
|
332 |
if (!NILP (pos)) |
if (!NILP (pos)) |
333 |
{ |
{ |
334 |
CHECK_NUMBER_COERCE_MARKER (pos, 0); |
CHECK_NUMBER_COERCE_MARKER (pos); |
335 |
posint = XINT (pos); |
posint = XINT (pos); |
336 |
} |
} |
337 |
else if (w == XWINDOW (selected_window)) |
else if (w == XWINDOW (selected_window)) |
382 |
if (NILP (window)) |
if (NILP (window)) |
383 |
return XWINDOW (selected_window); |
return XWINDOW (selected_window); |
384 |
|
|
385 |
CHECK_LIVE_WINDOW (window, 0); |
CHECK_LIVE_WINDOW (window); |
386 |
return XWINDOW (window); |
return XWINDOW (window); |
387 |
} |
} |
388 |
|
|
430 |
struct window *w = decode_window (window); |
struct window *w = decode_window (window); |
431 |
int hscroll; |
int hscroll; |
432 |
|
|
433 |
CHECK_NUMBER (ncol, 1); |
CHECK_NUMBER (ncol); |
434 |
hscroll = max (0, XINT (ncol)); |
hscroll = max (0, XINT (ncol)); |
435 |
|
|
436 |
/* Prevent redisplay shortcuts when changing the hscroll. */ |
/* Prevent redisplay shortcuts when changing the hscroll. */ |
678 |
int x, y; |
int x, y; |
679 |
Lisp_Object lx, ly; |
Lisp_Object lx, ly; |
680 |
|
|
681 |
CHECK_LIVE_WINDOW (window, 0); |
CHECK_LIVE_WINDOW (window); |
682 |
w = XWINDOW (window); |
w = XWINDOW (window); |
683 |
f = XFRAME (w->frame); |
f = XFRAME (w->frame); |
684 |
CHECK_CONS (coordinates, 1); |
CHECK_CONS (coordinates); |
685 |
lx = Fcar (coordinates); |
lx = Fcar (coordinates); |
686 |
ly = Fcdr (coordinates); |
ly = Fcdr (coordinates); |
687 |
CHECK_NUMBER_OR_FLOAT (lx, 1); |
CHECK_NUMBER_OR_FLOAT (lx); |
688 |
CHECK_NUMBER_OR_FLOAT (ly, 1); |
CHECK_NUMBER_OR_FLOAT (ly); |
689 |
x = PIXEL_X_FROM_CANON_X (f, lx); |
x = PIXEL_X_FROM_CANON_X (f, lx); |
690 |
y = PIXEL_Y_FROM_CANON_Y (f, ly); |
y = PIXEL_Y_FROM_CANON_Y (f, ly); |
691 |
|
|
816 |
|
|
817 |
if (NILP (frame)) |
if (NILP (frame)) |
818 |
frame = selected_frame; |
frame = selected_frame; |
819 |
CHECK_LIVE_FRAME (frame, 2); |
CHECK_LIVE_FRAME (frame); |
820 |
f = XFRAME (frame); |
f = XFRAME (frame); |
821 |
|
|
822 |
/* Check that arguments are integers or floats. */ |
/* Check that arguments are integers or floats. */ |
823 |
CHECK_NUMBER_OR_FLOAT (x, 0); |
CHECK_NUMBER_OR_FLOAT (x); |
824 |
CHECK_NUMBER_OR_FLOAT (y, 1); |
CHECK_NUMBER_OR_FLOAT (y); |
825 |
|
|
826 |
return window_from_coordinates (f, |
return window_from_coordinates (f, |
827 |
PIXEL_X_FROM_CANON_X (f, x), |
PIXEL_X_FROM_CANON_X (f, x), |
885 |
Lisp_Object buf; |
Lisp_Object buf; |
886 |
|
|
887 |
buf = w->buffer; |
buf = w->buffer; |
888 |
CHECK_BUFFER (buf, 0); |
CHECK_BUFFER (buf); |
889 |
|
|
890 |
#if 0 /* This change broke some things. We should make it later. */ |
#if 0 /* This change broke some things. We should make it later. */ |
891 |
/* If we don't know the end position, return nil. |
/* If we don't know the end position, return nil. |
946 |
{ |
{ |
947 |
register struct window *w = decode_window (window); |
register struct window *w = decode_window (window); |
948 |
|
|
949 |
CHECK_NUMBER_COERCE_MARKER (pos, 1); |
CHECK_NUMBER_COERCE_MARKER (pos); |
950 |
if (w == XWINDOW (selected_window) |
if (w == XWINDOW (selected_window) |
951 |
&& XBUFFER (w->buffer) == current_buffer) |
&& XBUFFER (w->buffer) == current_buffer) |
952 |
Fgoto_char (pos); |
Fgoto_char (pos); |
970 |
{ |
{ |
971 |
register struct window *w = decode_window (window); |
register struct window *w = decode_window (window); |
972 |
|
|
973 |
CHECK_NUMBER_COERCE_MARKER (pos, 1); |
CHECK_NUMBER_COERCE_MARKER (pos); |
974 |
set_marker_restricted (w->start, pos, w->buffer); |
set_marker_restricted (w->start, pos, w->buffer); |
975 |
/* this is not right, but much easier than doing what is right. */ |
/* this is not right, but much easier than doing what is right. */ |
976 |
w->start_at_line_beg = Qnil; |
w->start_at_line_beg = Qnil; |
1195 |
if (NILP (window)) |
if (NILP (window)) |
1196 |
window = selected_window; |
window = selected_window; |
1197 |
else |
else |
1198 |
CHECK_WINDOW (window, 0); |
CHECK_WINDOW (window); |
1199 |
p = XWINDOW (window); |
p = XWINDOW (window); |
1200 |
|
|
1201 |
/* It's okay to delete an already-deleted window. */ |
/* It's okay to delete an already-deleted window. */ |
1448 |
if (NILP (*window)) |
if (NILP (*window)) |
1449 |
*window = selected_window; |
*window = selected_window; |
1450 |
else |
else |
1451 |
CHECK_LIVE_WINDOW (*window, 0); |
CHECK_LIVE_WINDOW (*window); |
1452 |
|
|
1453 |
/* MINIBUF nil may or may not include minibuffers. Decide if it |
/* MINIBUF nil may or may not include minibuffers. Decide if it |
1454 |
does. */ |
does. */ |
1632 |
Lisp_Object window; |
Lisp_Object window; |
1633 |
int i; |
int i; |
1634 |
|
|
1635 |
CHECK_NUMBER (arg, 0); |
CHECK_NUMBER (arg); |
1636 |
window = selected_window; |
window = selected_window; |
1637 |
|
|
1638 |
for (i = XINT (arg); i > 0; --i) |
for (i = XINT (arg); i > 0; --i) |
1990 |
if (NILP (window)) |
if (NILP (window)) |
1991 |
window = selected_window; |
window = selected_window; |
1992 |
else |
else |
1993 |
CHECK_LIVE_WINDOW (window, 0); |
CHECK_LIVE_WINDOW (window); |
1994 |
w = XWINDOW (window); |
w = XWINDOW (window); |
1995 |
|
|
1996 |
startpos = marker_position (w->start); |
startpos = marker_position (w->start); |
2056 |
if (!NILP (buffer)) |
if (!NILP (buffer)) |
2057 |
{ |
{ |
2058 |
buffer = Fget_buffer (buffer); |
buffer = Fget_buffer (buffer); |
2059 |
CHECK_BUFFER (buffer, 0); |
CHECK_BUFFER (buffer); |
2060 |
window_loop (DELETE_BUFFER_WINDOWS, buffer, 0, frame); |
window_loop (DELETE_BUFFER_WINDOWS, buffer, 0, frame); |
2061 |
} |
} |
2062 |
|
|
2073 |
if (!NILP (buffer)) |
if (!NILP (buffer)) |
2074 |
{ |
{ |
2075 |
buffer = Fget_buffer (buffer); |
buffer = Fget_buffer (buffer); |
2076 |
CHECK_BUFFER (buffer, 0); |
CHECK_BUFFER (buffer); |
2077 |
window_loop (UNSHOW_BUFFER, buffer, 0, Qt); |
window_loop (UNSHOW_BUFFER, buffer, 0, Qt); |
2078 |
} |
} |
2079 |
return Qnil; |
return Qnil; |
2660 |
|
|
2661 |
XSETWINDOW (window, w); |
XSETWINDOW (window, w); |
2662 |
buffer = Fget_buffer (buffer); |
buffer = Fget_buffer (buffer); |
2663 |
CHECK_BUFFER (buffer, 1); |
CHECK_BUFFER (buffer); |
2664 |
|
|
2665 |
if (NILP (XBUFFER (buffer)->name)) |
if (NILP (XBUFFER (buffer)->name)) |
2666 |
error ("Attempt to display deleted buffer"); |
error ("Attempt to display deleted buffer"); |
2705 |
register struct window *ow; |
register struct window *ow; |
2706 |
struct frame *sf; |
struct frame *sf; |
2707 |
|
|
2708 |
CHECK_LIVE_WINDOW (window, 0); |
CHECK_LIVE_WINDOW (window); |
2709 |
|
|
2710 |
w = XWINDOW (window); |
w = XWINDOW (window); |
2711 |
w->frozen_window_start_p = 0; |
w->frozen_window_start_p = 0; |
2802 |
{ |
{ |
2803 |
Lisp_Object tem; |
Lisp_Object tem; |
2804 |
|
|
2805 |
CHECK_STRING (buffer_name, 1); |
CHECK_STRING (buffer_name); |
2806 |
|
|
2807 |
tem = Fmember (buffer_name, Vspecial_display_buffer_names); |
tem = Fmember (buffer_name, Vspecial_display_buffer_names); |
2808 |
if (!NILP (tem)) |
if (!NILP (tem)) |
2834 |
{ |
{ |
2835 |
Lisp_Object tem; |
Lisp_Object tem; |
2836 |
|
|
2837 |
CHECK_STRING (buffer_name, 1); |
CHECK_STRING (buffer_name); |
2838 |
|
|
2839 |
tem = Fmember (buffer_name, Vsame_window_buffer_names); |
tem = Fmember (buffer_name, Vsame_window_buffer_names); |
2840 |
if (!NILP (tem)) |
if (!NILP (tem)) |
2895 |
|
|
2896 |
swp = Qnil; |
swp = Qnil; |
2897 |
buffer = Fget_buffer (buffer); |
buffer = Fget_buffer (buffer); |
2898 |
CHECK_BUFFER (buffer, 0); |
CHECK_BUFFER (buffer); |
2899 |
|
|
2900 |
if (!NILP (Vdisplay_buffer_function)) |
if (!NILP (Vdisplay_buffer_function)) |
2901 |
return call2 (Vdisplay_buffer_function, buffer, not_this_window); |
return call2 (Vdisplay_buffer_function, buffer, not_this_window); |
3165 |
if (NILP (window)) |
if (NILP (window)) |
3166 |
window = selected_window; |
window = selected_window; |
3167 |
else |
else |
3168 |
CHECK_LIVE_WINDOW (window, 0); |
CHECK_LIVE_WINDOW (window); |
3169 |
|
|
3170 |
o = XWINDOW (window); |
o = XWINDOW (window); |
3171 |
fo = XFRAME (WINDOW_FRAME (o)); |
fo = XFRAME (WINDOW_FRAME (o)); |
3183 |
} |
} |
3184 |
else |
else |
3185 |
{ |
{ |
3186 |
CHECK_NUMBER (size, 1); |
CHECK_NUMBER (size); |
3187 |
size_int = XINT (size); |
size_int = XINT (size); |
3188 |
} |
} |
3189 |
|
|
3278 |
(arg, side) |
(arg, side) |
3279 |
register Lisp_Object arg, side; |
register Lisp_Object arg, side; |
3280 |
{ |
{ |
3281 |
CHECK_NUMBER (arg, 0); |
CHECK_NUMBER (arg); |
3282 |
enlarge_window (selected_window, XINT (arg), !NILP (side)); |
enlarge_window (selected_window, XINT (arg), !NILP (side)); |
3283 |
|
|
3284 |
if (! NILP (Vwindow_configuration_change_hook)) |
if (! NILP (Vwindow_configuration_change_hook)) |
3294 |
(arg, side) |
(arg, side) |
3295 |
register Lisp_Object arg, side; |
register Lisp_Object arg, side; |
3296 |
{ |
{ |
3297 |
CHECK_NUMBER (arg, 0); |
CHECK_NUMBER (arg); |
3298 |
enlarge_window (selected_window, -XINT (arg), !NILP (side)); |
enlarge_window (selected_window, -XINT (arg), !NILP (side)); |
3299 |
|
|
3300 |
if (! NILP (Vwindow_configuration_change_hook)) |
if (! NILP (Vwindow_configuration_change_hook)) |
4349 |
&& ! EQ (window, selected_window)); |
&& ! EQ (window, selected_window)); |
4350 |
} |
} |
4351 |
|
|
4352 |
CHECK_LIVE_WINDOW (window, 0); |
CHECK_LIVE_WINDOW (window); |
4353 |
|
|
4354 |
if (EQ (window, selected_window)) |
if (EQ (window, selected_window)) |
4355 |
error ("There is no other window"); |
error ("There is no other window"); |
4394 |
{ |
{ |
4395 |
if (CONSP (arg)) |
if (CONSP (arg)) |
4396 |
arg = Fcar (arg); |
arg = Fcar (arg); |
4397 |
CHECK_NUMBER (arg, 0); |
CHECK_NUMBER (arg); |
4398 |
window_scroll (window, XINT (arg), 0, 1); |
window_scroll (window, XINT (arg), 0, 1); |
4399 |
} |
} |
4400 |
|
|
4549 |
else |
else |
4550 |
{ |
{ |
4551 |
arg = Fprefix_numeric_value (arg); |
arg = Fprefix_numeric_value (arg); |
4552 |
CHECK_NUMBER (arg, 0); |
CHECK_NUMBER (arg); |
4553 |
} |
} |
4554 |
|
|
4555 |
set_buffer_internal (buf); |
set_buffer_internal (buf); |
5271 |
|
|
5272 |
if (NILP (frame)) |
if (NILP (frame)) |
5273 |
frame = selected_frame; |
frame = selected_frame; |
5274 |
CHECK_LIVE_FRAME (frame, 0); |
CHECK_LIVE_FRAME (frame); |
5275 |
f = XFRAME (frame); |
f = XFRAME (frame); |
5276 |
|
|
5277 |
n_windows = count_windows (XWINDOW (FRAME_ROOT_WINDOW (f))); |
n_windows = count_windows (XWINDOW (FRAME_ROOT_WINDOW (f))); |
5340 |
struct window *w = decode_window (window); |
struct window *w = decode_window (window); |
5341 |
|
|
5342 |
if (!NILP (left)) |
if (!NILP (left)) |
5343 |
CHECK_NUMBER_OR_FLOAT (left, 1); |
CHECK_NUMBER_OR_FLOAT (left); |
5344 |
if (!NILP (right)) |
if (!NILP (right)) |
5345 |
CHECK_NUMBER_OR_FLOAT (right, 2); |
CHECK_NUMBER_OR_FLOAT (right); |
5346 |
|
|
5347 |
/* Check widths < 0 and translate a zero width to nil. |
/* Check widths < 0 and translate a zero width to nil. |
5348 |
Margins that are too wide have to be checked elsewhere. */ |
Margins that are too wide have to be checked elsewhere. */ |
5401 |
if (NILP (window)) |
if (NILP (window)) |
5402 |
window = selected_window; |
window = selected_window; |
5403 |
else |
else |
5404 |
CHECK_WINDOW (window, 0); |
CHECK_WINDOW (window); |
5405 |
w = XWINDOW (window); |
w = XWINDOW (window); |
5406 |
f = XFRAME (w->frame); |
f = XFRAME (w->frame); |
5407 |
|
|
5427 |
if (NILP (window)) |
if (NILP (window)) |
5428 |
window = selected_window; |
window = selected_window; |
5429 |
else |
else |
5430 |
CHECK_WINDOW (window, 0); |
CHECK_WINDOW (window); |
5431 |
CHECK_NUMBER_OR_FLOAT (vscroll, 1); |
CHECK_NUMBER_OR_FLOAT (vscroll); |
5432 |
|
|
5433 |
w = XWINDOW (window); |
w = XWINDOW (window); |
5434 |
f = XFRAME (w->frame); |
f = XFRAME (w->frame); |