diff options
author | Richard M. Stallman <rms@gnu.org> | 1995-10-11 17:15:10 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1995-10-11 17:15:10 +0000 |
commit | c7629cfc000ed617083f1f8029953036224a4cec (patch) | |
tree | 8a602b0f4dab9ce605f5272c657162b03ede645f /src | |
parent | a1bf74a7309068576ea57d869014b0e39cbae1a3 (diff) | |
download | emacs-c7629cfc000ed617083f1f8029953036224a4cec.tar.gz |
(window_display_table): Use DISP_TABLE_P. Return type
struct Lisp_Char_Table * since display tables are now char-tables.
Diffstat (limited to 'src')
-rw-r--r-- | src/window.c | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/src/window.c b/src/window.c index 3ea58035fa8..2b3e88b55d6 100644 --- a/src/window.c +++ b/src/window.c @@ -620,20 +620,20 @@ DEFUN ("window-display-table", Fwindow_display_table, Swindow_display_table, Ignore the specified tables if they are not valid; if no valid table is specified, return 0. */ -struct Lisp_Vector * +struct Lisp_Char_Table * window_display_table (w) struct window *w; { Lisp_Object tem; tem = w->display_table; - if (VECTORP (tem) && XVECTOR (tem)->size == DISP_TABLE_SIZE) - return XVECTOR (tem); + if (DISP_TABLE_P (tem)) + return XCHAR_TABLE (tem); tem = XBUFFER (w->buffer)->display_table; - if (VECTORP (tem) && XVECTOR (tem)->size == DISP_TABLE_SIZE) - return XVECTOR (tem); + if (DISP_TABLE_P (tem)) + return XCHAR_TABLE (tem); tem = Vstandard_display_table; - if (VECTORP (tem) && XVECTOR (tem)->size == DISP_TABLE_SIZE) - return XVECTOR (tem); + if (DISP_TABLE_P (tem)) + return XCHAR_TABLE (tem); return 0; } |