diff options
| author | Richard M. Stallman | 1995-10-11 17:17:32 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1995-10-11 17:17:32 +0000 |
| commit | f908610f0a254cc8317a21277af9636b11a28c67 (patch) | |
| tree | 852b14c83dfc4302e366d28b7427788b3a878f44 | |
| parent | 319315f1c503413d1c3ba15e4e56500ea435b868 (diff) | |
| download | emacs-f908610f0a254cc8317a21277af9636b11a28c67.tar.gz emacs-f908610f0a254cc8317a21277af9636b11a28c67.zip | |
(redisplay_window, redisplay_window, display_text_line):
Fix up calls to window_display_table. Access display tables as char-tables.
| -rw-r--r-- | src/xdisp.c | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/src/xdisp.c b/src/xdisp.c index 9fec2ee6c31..c47f3087335 100644 --- a/src/xdisp.c +++ b/src/xdisp.c | |||
| @@ -1368,7 +1368,7 @@ redisplay_window (window, just_this_one) | |||
| 1368 | int opoint = PT; | 1368 | int opoint = PT; |
| 1369 | int tem; | 1369 | int tem; |
| 1370 | int update_mode_line; | 1370 | int update_mode_line; |
| 1371 | struct Lisp_Vector *dp = window_display_table (w); | 1371 | struct Lisp_Char_Table *dp = window_display_table (w); |
| 1372 | 1372 | ||
| 1373 | if (FRAME_HEIGHT (f) == 0) abort (); /* Some bug zeros some core */ | 1373 | if (FRAME_HEIGHT (f) == 0) abort (); /* Some bug zeros some core */ |
| 1374 | 1374 | ||
| @@ -1475,7 +1475,7 @@ redisplay_window (window, just_this_one) | |||
| 1475 | changed, so why should we worry about doing any better? */ | 1475 | changed, so why should we worry about doing any better? */ |
| 1476 | if (current_buffer->width_run_cache) | 1476 | if (current_buffer->width_run_cache) |
| 1477 | { | 1477 | { |
| 1478 | struct Lisp_Vector *disptab = buffer_display_table (); | 1478 | struct Lisp_Char_Table *disptab = buffer_display_table (); |
| 1479 | 1479 | ||
| 1480 | if (! disptab_matches_widthtab (disptab, | 1480 | if (! disptab_matches_widthtab (disptab, |
| 1481 | XVECTOR (current_buffer->width_table))) | 1481 | XVECTOR (current_buffer->width_table))) |
| @@ -2471,7 +2471,7 @@ display_text_line (w, start, vpos, hpos, taboffset) | |||
| 2471 | ? XINT (current_buffer->selective_display) | 2471 | ? XINT (current_buffer->selective_display) |
| 2472 | : !NILP (current_buffer->selective_display) ? -1 : 0); | 2472 | : !NILP (current_buffer->selective_display) ? -1 : 0); |
| 2473 | register struct frame_glyphs *desired_glyphs = FRAME_DESIRED_GLYPHS (f); | 2473 | register struct frame_glyphs *desired_glyphs = FRAME_DESIRED_GLYPHS (f); |
| 2474 | register struct Lisp_Vector *dp = window_display_table (w); | 2474 | register struct Lisp_Char_Table *dp = window_display_table (w); |
| 2475 | 2475 | ||
| 2476 | Lisp_Object default_invis_vector[3]; | 2476 | Lisp_Object default_invis_vector[3]; |
| 2477 | /* Number of characters of ellipsis to display after an invisible line | 2477 | /* Number of characters of ellipsis to display after an invisible line |
| @@ -3979,12 +3979,11 @@ display_string (w, vpos, string, length, hpos, truncate, | |||
| 3979 | 3979 | ||
| 3980 | /* Use the standard display table, not the window's display table. | 3980 | /* Use the standard display table, not the window's display table. |
| 3981 | We don't want the mode line in rot13. */ | 3981 | We don't want the mode line in rot13. */ |
| 3982 | register struct Lisp_Vector *dp = 0; | 3982 | register struct Lisp_Char_Table *dp = 0; |
| 3983 | int i; | 3983 | int i; |
| 3984 | 3984 | ||
| 3985 | if (VECTORP (Vstandard_display_table) | 3985 | if (DISP_TABLE_P (Vstandard_display_table)) |
| 3986 | && XVECTOR (Vstandard_display_table)->size == DISP_TABLE_SIZE) | 3986 | dp = XCHAR_TABLE (Vstandard_display_table); |
| 3987 | dp = XVECTOR (Vstandard_display_table); | ||
| 3988 | 3987 | ||
| 3989 | if (tab_width <= 0 || tab_width > 1000) tab_width = 8; | 3988 | if (tab_width <= 0 || tab_width > 1000) tab_width = 8; |
| 3990 | 3989 | ||
| @@ -4290,7 +4289,7 @@ all the functions in the list are called, with the frame as argument."); | |||
| 4290 | Vwindow_size_change_functions = Qnil; | 4289 | Vwindow_size_change_functions = Qnil; |
| 4291 | 4290 | ||
| 4292 | DEFVAR_LISP ("window-scroll-functions", &Vwindow_scroll_functions, | 4291 | DEFVAR_LISP ("window-scroll-functions", &Vwindow_scroll_functions, |
| 4293 | "Functions to call when a window is redisplayed with scrolling.\n\ | 4292 | "List of Functions to call before redisplaying a window with scrolling.\n\ |
| 4294 | Each function is called with two arguments, the window\n\ | 4293 | Each function is called with two arguments, the window\n\ |
| 4295 | and its new display-start position."); | 4294 | and its new display-start position."); |
| 4296 | Vwindow_scroll_functions = Qnil; | 4295 | Vwindow_scroll_functions = Qnil; |