diff options
Diffstat (limited to 'src/window.c')
| -rw-r--r-- | src/window.c | 68 |
1 files changed, 34 insertions, 34 deletions
diff --git a/src/window.c b/src/window.c index 4d700cfad5e..7965269f0e7 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_ (b, display_table))) | 1362 | if (DISP_TABLE_P (BVAR (b, display_table))) |
| 1363 | dp = XCHAR_TABLE (B_ (b, display_table)); | 1363 | dp = XCHAR_TABLE (BVAR (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_ (b, last_selected_window)) | 1417 | && !(WINDOWP (BVAR (b, last_selected_window)) |
| 1418 | && w != XWINDOW (B_ (b, last_selected_window)) | 1418 | && w != XWINDOW (BVAR (b, last_selected_window)) |
| 1419 | && EQ (buf, XWINDOW (B_ (b, last_selected_window))->buffer))) | 1419 | && EQ (buf, XWINDOW (BVAR (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_ (b, last_selected_window)) | 1428 | if (WINDOWP (BVAR (b, last_selected_window)) |
| 1429 | && w == XWINDOW (B_ (b, last_selected_window))) | 1429 | && w == XWINDOW (BVAR (b, last_selected_window))) |
| 1430 | B_ (b, last_selected_window) = Qnil; | 1430 | BVAR (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 (B_ (XBUFFER (w->buffer), name))) | 2328 | && NILP (BVAR (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 (B_ (XBUFFER (w->buffer), mode_line_format))) | 2732 | && !NILP (BVAR (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_ (b, last_selected_window) = window; | 3363 | BVAR (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_ (b, display_count))) | 3369 | if (INTEGERP (BVAR (b, display_count))) |
| 3370 | XSETINT (B_ (b, display_count), XINT (B_ (b, display_count)) + 1); | 3370 | XSETINT (BVAR (b, display_count), XINT (BVAR (b, display_count)) + 1); |
| 3371 | B_ (b, display_time) = Fcurrent_time (); | 3371 | BVAR (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_ (b, left_fringe_width), B_ (b, right_fringe_width), | 3424 | BVAR (b, left_fringe_width), BVAR (b, right_fringe_width), |
| 3425 | B_ (b, fringes_outside_margins)); | 3425 | BVAR (b, fringes_outside_margins)); |
| 3426 | 3426 | ||
| 3427 | Fset_window_scroll_bars (window, | 3427 | Fset_window_scroll_bars (window, |
| 3428 | B_ (b, scroll_bar_width), | 3428 | BVAR (b, scroll_bar_width), |
| 3429 | B_ (b, vertical_scroll_bar_type), Qnil); | 3429 | BVAR (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_ (b, left_margin_cols), B_ (b, right_margin_cols)); | 3435 | BVAR (b, left_margin_cols), BVAR (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 (B_ (XBUFFER (buffer), name))) | 3472 | if (NILP (BVAR (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 (B_ (XBUFFER (tem), name))); | 3484 | error ("Window is dedicated to `%s'", SDATA (BVAR (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 | B_ (XBUFFER (w->buffer), last_selected_window) = window; | 3555 | BVAR (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 (B_ (XBUFFER (object), name))) | 3643 | if (BUFFERP (object) && !NILP (BVAR (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 | B_ (XBUFFER (buf), directory) = B_ (current_buffer, directory); | 3666 | BVAR (XBUFFER (buf), directory) = BVAR (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; |
| @@ -4834,8 +4834,8 @@ window_scroll_pixel_based (Lisp_Object window, int n, int whole, int noerror) | |||
| 4834 | possibility of point becoming "stuck" on a tall line when | 4834 | possibility of point becoming "stuck" on a tall line when |
| 4835 | scrolling by one line. */ | 4835 | scrolling by one line. */ |
| 4836 | if (window_scroll_pixel_based_preserve_y < 0 | 4836 | if (window_scroll_pixel_based_preserve_y < 0 |
| 4837 | || !SYMBOLP (current_kboard->Vlast_command) | 4837 | || !SYMBOLP (KVAR (current_kboard, Vlast_command)) |
| 4838 | || NILP (Fget (current_kboard->Vlast_command, Qscroll_command))) | 4838 | || NILP (Fget (KVAR (current_kboard, Vlast_command), Qscroll_command))) |
| 4839 | { | 4839 | { |
| 4840 | start_display (&it, w, start); | 4840 | start_display (&it, w, start); |
| 4841 | move_it_to (&it, PT, -1, -1, -1, MOVE_TO_POS); | 4841 | move_it_to (&it, PT, -1, -1, -1, MOVE_TO_POS); |
| @@ -5091,8 +5091,8 @@ window_scroll_line_based (Lisp_Object window, int n, int whole, int noerror) | |||
| 5091 | if (!NILP (Vscroll_preserve_screen_position)) | 5091 | if (!NILP (Vscroll_preserve_screen_position)) |
| 5092 | { | 5092 | { |
| 5093 | if (window_scroll_preserve_vpos <= 0 | 5093 | if (window_scroll_preserve_vpos <= 0 |
| 5094 | || !SYMBOLP (current_kboard->Vlast_command) | 5094 | || !SYMBOLP (KVAR (current_kboard, Vlast_command)) |
| 5095 | || NILP (Fget (current_kboard->Vlast_command, Qscroll_command))) | 5095 | || NILP (Fget (KVAR (current_kboard, Vlast_command), Qscroll_command))) |
| 5096 | { | 5096 | { |
| 5097 | struct position posit | 5097 | struct position posit |
| 5098 | = *compute_motion (startpos, 0, 0, 0, | 5098 | = *compute_motion (startpos, 0, 0, 0, |
| @@ -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 (B_ (XBUFFER (new_current_buffer), name))) | 5881 | if (NILP (BVAR (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 (B_ (XBUFFER (p->buffer), name))) | 6066 | if (!NILP (BVAR (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 (B_ (XBUFFER (w->buffer), mark), | 6073 | Fset_marker (BVAR (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 (B_ (XBUFFER (w->buffer), name))) | 6083 | else if (NILP (w->buffer) || NILP (BVAR (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 | B_ (XBUFFER (XWINDOW (selected_window)->buffer), last_selected_window) | 6124 | BVAR (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 = B_ (XBUFFER (w->buffer), mark); | 6325 | tem = BVAR (XBUFFER (w->buffer), mark); |
| 6326 | p->mark = Fcopy_marker (tem, Qnil); | 6326 | p->mark = Fcopy_marker (tem, Qnil); |
| 6327 | } | 6327 | } |
| 6328 | else | 6328 | else |