diff options
Diffstat (limited to 'src/window.c')
| -rw-r--r-- | src/window.c | 60 |
1 files changed, 30 insertions, 30 deletions
diff --git a/src/window.c b/src/window.c index b158073a3db..4d700cfad5e 100644 --- a/src/window.c +++ b/src/window.c | |||
| @@ -1359,8 +1359,8 @@ window_display_table (struct window *w) | |||
| 1359 | { | 1359 | { |
| 1360 | struct buffer *b = XBUFFER (w->buffer); | 1360 | struct buffer *b = XBUFFER (w->buffer); |
| 1361 | 1361 | ||
| 1362 | if (DISP_TABLE_P (b->display_table)) | 1362 | if (DISP_TABLE_P (B_ (b, display_table))) |
| 1363 | dp = XCHAR_TABLE (b->display_table); | 1363 | dp = XCHAR_TABLE (B_ (b, display_table)); |
| 1364 | else if (DISP_TABLE_P (Vstandard_display_table)) | 1364 | else if (DISP_TABLE_P (Vstandard_display_table)) |
| 1365 | dp = XCHAR_TABLE (Vstandard_display_table); | 1365 | dp = XCHAR_TABLE (Vstandard_display_table); |
| 1366 | } | 1366 | } |
| @@ -1414,9 +1414,9 @@ unshow_buffer (register struct window *w) | |||
| 1414 | So don't clobber point in that buffer. */ | 1414 | So don't clobber point in that buffer. */ |
| 1415 | if (! EQ (buf, XWINDOW (selected_window)->buffer) | 1415 | if (! EQ (buf, XWINDOW (selected_window)->buffer) |
| 1416 | /* This line helps to fix Horsley's testbug.el bug. */ | 1416 | /* This line helps to fix Horsley's testbug.el bug. */ |
| 1417 | && !(WINDOWP (b->last_selected_window) | 1417 | && !(WINDOWP (B_ (b, last_selected_window)) |
| 1418 | && w != XWINDOW (b->last_selected_window) | 1418 | && w != XWINDOW (B_ (b, last_selected_window)) |
| 1419 | && EQ (buf, XWINDOW (b->last_selected_window)->buffer))) | 1419 | && EQ (buf, XWINDOW (B_ (b, last_selected_window))->buffer))) |
| 1420 | temp_set_point_both (b, | 1420 | temp_set_point_both (b, |
| 1421 | clip_to_bounds (BUF_BEGV (b), | 1421 | clip_to_bounds (BUF_BEGV (b), |
| 1422 | XMARKER (w->pointm)->charpos, | 1422 | XMARKER (w->pointm)->charpos, |
| @@ -1425,9 +1425,9 @@ unshow_buffer (register struct window *w) | |||
| 1425 | marker_byte_position (w->pointm), | 1425 | marker_byte_position (w->pointm), |
| 1426 | BUF_ZV_BYTE (b))); | 1426 | BUF_ZV_BYTE (b))); |
| 1427 | 1427 | ||
| 1428 | if (WINDOWP (b->last_selected_window) | 1428 | if (WINDOWP (B_ (b, last_selected_window)) |
| 1429 | && w == XWINDOW (b->last_selected_window)) | 1429 | && w == XWINDOW (B_ (b, last_selected_window))) |
| 1430 | b->last_selected_window = Qnil; | 1430 | B_ (b, last_selected_window) = Qnil; |
| 1431 | } | 1431 | } |
| 1432 | 1432 | ||
| 1433 | /* Put replacement into the window structure in place of old. */ | 1433 | /* Put replacement into the window structure in place of old. */ |
| @@ -2325,7 +2325,7 @@ window_loop (enum window_loop type, Lisp_Object obj, int mini, Lisp_Object frame | |||
| 2325 | /* Check for a window that has a killed buffer. */ | 2325 | /* Check for a window that has a killed buffer. */ |
| 2326 | case CHECK_ALL_WINDOWS: | 2326 | case CHECK_ALL_WINDOWS: |
| 2327 | if (! NILP (w->buffer) | 2327 | if (! NILP (w->buffer) |
| 2328 | && NILP (XBUFFER (w->buffer)->name)) | 2328 | && NILP (B_ (XBUFFER (w->buffer), name))) |
| 2329 | abort (); | 2329 | abort (); |
| 2330 | break; | 2330 | break; |
| 2331 | 2331 | ||
| @@ -2729,7 +2729,7 @@ window_min_size_2 (struct window *w, int width_p, int safe_p) | |||
| 2729 | { | 2729 | { |
| 2730 | int safe_size = (MIN_SAFE_WINDOW_HEIGHT | 2730 | int safe_size = (MIN_SAFE_WINDOW_HEIGHT |
| 2731 | + ((BUFFERP (w->buffer) | 2731 | + ((BUFFERP (w->buffer) |
| 2732 | && !NILP (XBUFFER (w->buffer)->mode_line_format)) | 2732 | && !NILP (B_ (XBUFFER (w->buffer), mode_line_format))) |
| 2733 | ? 1 : 0)); | 2733 | ? 1 : 0)); |
| 2734 | 2734 | ||
| 2735 | return safe_p ? safe_size : max (window_min_height, safe_size); | 2735 | return safe_p ? safe_size : max (window_min_height, safe_size); |
| @@ -3360,15 +3360,15 @@ set_window_buffer (Lisp_Object window, Lisp_Object buffer, int run_hooks_p, int | |||
| 3360 | w->buffer = buffer; | 3360 | w->buffer = buffer; |
| 3361 | 3361 | ||
| 3362 | if (EQ (window, selected_window)) | 3362 | if (EQ (window, selected_window)) |
| 3363 | b->last_selected_window = window; | 3363 | B_ (b, last_selected_window) = window; |
| 3364 | 3364 | ||
| 3365 | /* Let redisplay errors through. */ | 3365 | /* Let redisplay errors through. */ |
| 3366 | b->display_error_modiff = 0; | 3366 | b->display_error_modiff = 0; |
| 3367 | 3367 | ||
| 3368 | /* Update time stamps of buffer display. */ | 3368 | /* Update time stamps of buffer display. */ |
| 3369 | if (INTEGERP (b->display_count)) | 3369 | if (INTEGERP (B_ (b, display_count))) |
| 3370 | XSETINT (b->display_count, XINT (b->display_count) + 1); | 3370 | XSETINT (B_ (b, display_count), XINT (B_ (b, display_count)) + 1); |
| 3371 | b->display_time = Fcurrent_time (); | 3371 | B_ (b, display_time) = Fcurrent_time (); |
| 3372 | 3372 | ||
| 3373 | XSETFASTINT (w->window_end_pos, 0); | 3373 | XSETFASTINT (w->window_end_pos, 0); |
| 3374 | XSETFASTINT (w->window_end_vpos, 0); | 3374 | XSETFASTINT (w->window_end_vpos, 0); |
| @@ -3421,18 +3421,18 @@ set_window_buffer (Lisp_Object window, Lisp_Object buffer, int run_hooks_p, int | |||
| 3421 | w->left_margin_cols = w->right_margin_cols = Qnil; | 3421 | w->left_margin_cols = w->right_margin_cols = Qnil; |
| 3422 | 3422 | ||
| 3423 | Fset_window_fringes (window, | 3423 | Fset_window_fringes (window, |
| 3424 | b->left_fringe_width, b->right_fringe_width, | 3424 | B_ (b, left_fringe_width), B_ (b, right_fringe_width), |
| 3425 | b->fringes_outside_margins); | 3425 | B_ (b, fringes_outside_margins)); |
| 3426 | 3426 | ||
| 3427 | Fset_window_scroll_bars (window, | 3427 | Fset_window_scroll_bars (window, |
| 3428 | b->scroll_bar_width, | 3428 | B_ (b, scroll_bar_width), |
| 3429 | b->vertical_scroll_bar_type, Qnil); | 3429 | B_ (b, vertical_scroll_bar_type), Qnil); |
| 3430 | 3430 | ||
| 3431 | w->left_margin_cols = save_left; | 3431 | w->left_margin_cols = save_left; |
| 3432 | w->right_margin_cols = save_right; | 3432 | w->right_margin_cols = save_right; |
| 3433 | 3433 | ||
| 3434 | Fset_window_margins (window, | 3434 | Fset_window_margins (window, |
| 3435 | b->left_margin_cols, b->right_margin_cols); | 3435 | B_ (b, left_margin_cols), B_ (b, right_margin_cols)); |
| 3436 | } | 3436 | } |
| 3437 | 3437 | ||
| 3438 | if (run_hooks_p) | 3438 | if (run_hooks_p) |
| @@ -3469,7 +3469,7 @@ This function runs `window-scroll-functions' before running | |||
| 3469 | XSETWINDOW (window, w); | 3469 | XSETWINDOW (window, w); |
| 3470 | buffer = Fget_buffer (buffer_or_name); | 3470 | buffer = Fget_buffer (buffer_or_name); |
| 3471 | CHECK_BUFFER (buffer); | 3471 | CHECK_BUFFER (buffer); |
| 3472 | if (NILP (XBUFFER (buffer)->name)) | 3472 | if (NILP (B_ (XBUFFER (buffer), name))) |
| 3473 | error ("Attempt to display deleted buffer"); | 3473 | error ("Attempt to display deleted buffer"); |
| 3474 | 3474 | ||
| 3475 | tem = w->buffer; | 3475 | tem = w->buffer; |
| @@ -3481,7 +3481,7 @@ This function runs `window-scroll-functions' before running | |||
| 3481 | if (EQ (tem, buffer)) | 3481 | if (EQ (tem, buffer)) |
| 3482 | return Qnil; | 3482 | return Qnil; |
| 3483 | else if (EQ (w->dedicated, Qt)) | 3483 | else if (EQ (w->dedicated, Qt)) |
| 3484 | error ("Window is dedicated to `%s'", SDATA (XBUFFER (tem)->name)); | 3484 | error ("Window is dedicated to `%s'", SDATA (B_ (XBUFFER (tem), name))); |
| 3485 | else | 3485 | else |
| 3486 | w->dedicated = Qnil; | 3486 | w->dedicated = Qnil; |
| 3487 | 3487 | ||
| @@ -3552,7 +3552,7 @@ select_window (Lisp_Object window, Lisp_Object norecord, int inhibit_point_swap) | |||
| 3552 | 3552 | ||
| 3553 | Fset_buffer (w->buffer); | 3553 | Fset_buffer (w->buffer); |
| 3554 | 3554 | ||
| 3555 | XBUFFER (w->buffer)->last_selected_window = window; | 3555 | B_ (XBUFFER (w->buffer), last_selected_window) = window; |
| 3556 | 3556 | ||
| 3557 | /* Go to the point recorded in the window. | 3557 | /* Go to the point recorded in the window. |
| 3558 | This is important when the buffer is in more | 3558 | This is important when the buffer is in more |
| @@ -3640,7 +3640,7 @@ displaying that buffer. */) | |||
| 3640 | 3640 | ||
| 3641 | if (STRINGP (object)) | 3641 | if (STRINGP (object)) |
| 3642 | object = Fget_buffer (object); | 3642 | object = Fget_buffer (object); |
| 3643 | if (BUFFERP (object) && !NILP (XBUFFER (object)->name)) | 3643 | if (BUFFERP (object) && !NILP (B_ (XBUFFER (object), name))) |
| 3644 | { | 3644 | { |
| 3645 | /* Walk all windows looking for buffer, and force update | 3645 | /* Walk all windows looking for buffer, and force update |
| 3646 | of each of those windows. */ | 3646 | of each of those windows. */ |
| @@ -3663,7 +3663,7 @@ temp_output_buffer_show (register Lisp_Object buf) | |||
| 3663 | register Lisp_Object window; | 3663 | register Lisp_Object window; |
| 3664 | register struct window *w; | 3664 | register struct window *w; |
| 3665 | 3665 | ||
| 3666 | XBUFFER (buf)->directory = current_buffer->directory; | 3666 | B_ (XBUFFER (buf), directory) = B_ (current_buffer, directory); |
| 3667 | 3667 | ||
| 3668 | Fset_buffer (buf); | 3668 | Fset_buffer (buf); |
| 3669 | BUF_SAVE_MODIFF (XBUFFER (buf)) = MODIFF; | 3669 | BUF_SAVE_MODIFF (XBUFFER (buf)) = MODIFF; |
| @@ -5878,7 +5878,7 @@ the return value is nil. Otherwise the value is t. */) | |||
| 5878 | saved_windows = XVECTOR (data->saved_windows); | 5878 | saved_windows = XVECTOR (data->saved_windows); |
| 5879 | 5879 | ||
| 5880 | new_current_buffer = data->current_buffer; | 5880 | new_current_buffer = data->current_buffer; |
| 5881 | if (NILP (XBUFFER (new_current_buffer)->name)) | 5881 | if (NILP (B_ (XBUFFER (new_current_buffer), name))) |
| 5882 | new_current_buffer = Qnil; | 5882 | new_current_buffer = Qnil; |
| 5883 | else | 5883 | else |
| 5884 | { | 5884 | { |
| @@ -6063,14 +6063,14 @@ the return value is nil. Otherwise the value is t. */) | |||
| 6063 | w->buffer = p->buffer; | 6063 | w->buffer = p->buffer; |
| 6064 | else | 6064 | else |
| 6065 | { | 6065 | { |
| 6066 | if (!NILP (XBUFFER (p->buffer)->name)) | 6066 | if (!NILP (B_ (XBUFFER (p->buffer), name))) |
| 6067 | /* If saved buffer is alive, install it. */ | 6067 | /* If saved buffer is alive, install it. */ |
| 6068 | { | 6068 | { |
| 6069 | w->buffer = p->buffer; | 6069 | w->buffer = p->buffer; |
| 6070 | w->start_at_line_beg = p->start_at_line_beg; | 6070 | w->start_at_line_beg = p->start_at_line_beg; |
| 6071 | set_marker_restricted (w->start, p->start, w->buffer); | 6071 | set_marker_restricted (w->start, p->start, w->buffer); |
| 6072 | set_marker_restricted (w->pointm, p->pointm, w->buffer); | 6072 | set_marker_restricted (w->pointm, p->pointm, w->buffer); |
| 6073 | Fset_marker (XBUFFER (w->buffer)->mark, | 6073 | Fset_marker (B_ (XBUFFER (w->buffer), mark), |
| 6074 | p->mark, w->buffer); | 6074 | p->mark, w->buffer); |
| 6075 | 6075 | ||
| 6076 | /* As documented in Fcurrent_window_configuration, don't | 6076 | /* As documented in Fcurrent_window_configuration, don't |
| @@ -6080,7 +6080,7 @@ the return value is nil. Otherwise the value is t. */) | |||
| 6080 | && XBUFFER (p->buffer) == current_buffer) | 6080 | && XBUFFER (p->buffer) == current_buffer) |
| 6081 | Fgoto_char (w->pointm); | 6081 | Fgoto_char (w->pointm); |
| 6082 | } | 6082 | } |
| 6083 | else if (NILP (w->buffer) || NILP (XBUFFER (w->buffer)->name)) | 6083 | else if (NILP (w->buffer) || NILP (B_ (XBUFFER (w->buffer), name))) |
| 6084 | /* Else unless window has a live buffer, get one. */ | 6084 | /* Else unless window has a live buffer, get one. */ |
| 6085 | { | 6085 | { |
| 6086 | w->buffer = Fcdr (Fcar (Vbuffer_alist)); | 6086 | w->buffer = Fcdr (Fcar (Vbuffer_alist)); |
| @@ -6121,7 +6121,7 @@ the return value is nil. Otherwise the value is t. */) | |||
| 6121 | has been restored into it. We already swapped out that point | 6121 | has been restored into it. We already swapped out that point |
| 6122 | from that window's old buffer. */ | 6122 | from that window's old buffer. */ |
| 6123 | select_window (data->current_window, Qnil, 1); | 6123 | select_window (data->current_window, Qnil, 1); |
| 6124 | XBUFFER (XWINDOW (selected_window)->buffer)->last_selected_window | 6124 | B_ (XBUFFER (XWINDOW (selected_window)->buffer), last_selected_window) |
| 6125 | = selected_window; | 6125 | = selected_window; |
| 6126 | 6126 | ||
| 6127 | if (NILP (data->focus_frame) | 6127 | if (NILP (data->focus_frame) |
| @@ -6322,7 +6322,7 @@ save_window_save (Lisp_Object window, struct Lisp_Vector *vector, int i) | |||
| 6322 | p->start = Fcopy_marker (w->start, Qnil); | 6322 | p->start = Fcopy_marker (w->start, Qnil); |
| 6323 | p->start_at_line_beg = w->start_at_line_beg; | 6323 | p->start_at_line_beg = w->start_at_line_beg; |
| 6324 | 6324 | ||
| 6325 | tem = XBUFFER (w->buffer)->mark; | 6325 | tem = B_ (XBUFFER (w->buffer), mark); |
| 6326 | p->mark = Fcopy_marker (tem, Qnil); | 6326 | p->mark = Fcopy_marker (tem, Qnil); |
| 6327 | } | 6327 | } |
| 6328 | else | 6328 | else |