Mercurial > hg > xemacs-beta

comparison src/specifier.c @ 169:15872534500d r20-3b11

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b11
author cvs
date Mon, 13 Aug 2007 09:46:53 +0200
parents 43dd3413c7c7
children 8eaf7971accc
comparison
equal deleted inserted replaced
168:9851d5c6556e 169:15872534500d
2884 /* Display table specifier type */ 2884 /* Display table specifier type */
2885 /************************************************************************/ 2885 /************************************************************************/
2886 2886
2887 DEFINE_SPECIFIER_TYPE (display_table); 2887 DEFINE_SPECIFIER_TYPE (display_table);
2888 2888
2889 void 2889 static void
2890 display_table_validate(instantiator) 2890 display_table_validate (Lisp_Object instantiator)
2891 Lisp_Object instantiator;
2892 { 2891 {
2893 if (!NILP(instantiator) && 2892 if (!NILP(instantiator) &&
2894 (!VECTORP (instantiator) || 2893 (!VECTORP (instantiator) ||
2895 XVECTOR (instantiator)->size != DISP_TABLE_SIZE)) 2894 XVECTOR (instantiator)->size != DISP_TABLE_SIZE))
2896 dead_wrong_type_argument(display_table_specifier_methods->predicate_symbol, instantiator); 2895 dead_wrong_type_argument (display_table_specifier_methods->predicate_symbol,
2897 return; 2896 instantiator);
2898 } 2897 }
2898
2899 DEFUN ("display-table-specifier-p", Fdisplay_table_specifier_p, 1, 1, 0, /* 2899 DEFUN ("display-table-specifier-p", Fdisplay_table_specifier_p, 1, 1, 0, /*
2900 Return non-nil if OBJECT is an display-table specifier. 2900 Return non-nil if OBJECT is an display-table specifier.
2901 */ 2901 */
2902 (object)) 2902 (object))
2903 { 2903 {