Mercurial > emacs

changeset 13187:1a4cee562d33

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(window_display_table): Use DISP_TABLE_P. Return type struct Lisp_Char_Table * since display tables are now char-tables.
author Richard M. Stallman <rms@gnu.org>
date Wed, 11 Oct 1995 17:15:10 +0000
parents 6d3d7b32c519
children dc0909e788bd
files src/window.c
diffstat 1 files changed, 7 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- a/src/window.c	Wed Oct 11 17:14:08 1995 +0000
+++ b/src/window.c	Wed Oct 11 17:15:10 1995 +0000
@@ -620,20 +620,20 @@
    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;
 }