From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 11 Oct 1995 17:15:10 +0000 (+0000)
Subject: (window_display_table): Use DISP_TABLE_P.  Return type
X-Git-Tag: emacs-19.34~2673
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=319315f1c503413d1c3ba15e4e56500ea435b868;p=emacs.git

(window_display_table): Use DISP_TABLE_P.  Return type
struct Lisp_Char_Table * since display tables are now char-tables.
---

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;
 }