Mercurial > hg > xemacs-beta
diff src/specifier.c @ 169:15872534500d r20-3b11
Import from CVS: tag r20-3b11
author | cvs |
---|---|
date | Mon, 13 Aug 2007 09:46:53 +0200 |
parents | 43dd3413c7c7 |
children | 8eaf7971accc |
line wrap: on
line diff
--- a/src/specifier.c Mon Aug 13 09:45:48 2007 +0200 +++ b/src/specifier.c Mon Aug 13 09:46:53 2007 +0200 @@ -2886,16 +2886,16 @@ DEFINE_SPECIFIER_TYPE (display_table); -void -display_table_validate(instantiator) -Lisp_Object instantiator; +static void +display_table_validate (Lisp_Object instantiator) { if (!NILP(instantiator) && (!VECTORP (instantiator) || XVECTOR (instantiator)->size != DISP_TABLE_SIZE)) - dead_wrong_type_argument(display_table_specifier_methods->predicate_symbol, instantiator); - return; + dead_wrong_type_argument (display_table_specifier_methods->predicate_symbol, + instantiator); } + DEFUN ("display-table-specifier-p", Fdisplay_table_specifier_p, 1, 1, 0, /* Return non-nil if OBJECT is an display-table specifier. */