Mercurial > hg > xemacs-beta

comparison src/specifier.c @ 175:2d532a89d707 r20-3b14

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b14
author cvs
date Mon, 13 Aug 2007 09:50:14 +0200
parents 8eaf7971accc
children 3d6bfa290dbd
comparison
equal deleted inserted replaced
174:bb3568571b84 175:2d532a89d707
2887 dead_wrong_type_argument (display_table_specifier_methods->predicate_symbol, 2887 dead_wrong_type_argument (display_table_specifier_methods->predicate_symbol,
2888 instantiator); 2888 instantiator);
2889 } 2889 }
2890 2890
2891 DEFUN ("display-table-specifier-p", Fdisplay_table_specifier_p, 1, 1, 0, /* 2891 DEFUN ("display-table-specifier-p", Fdisplay_table_specifier_p, 1, 1, 0, /*
2892 Return non-nil if OBJECT is an display-table specifier. 2892 Return non-nil if OBJECT is a display-table specifier.
2893 */ 2893 */
2894 (object)) 2894 (object))
2895 { 2895 {
2896 return DISPLAYTABLE_SPECIFIERP (object) ? Qt : Qnil; 2896 return DISPLAYTABLE_SPECIFIERP (object) ? Qt : Qnil;
2897 } 2897 }
2956 2956
2957 DEFSUBR (Fgeneric_specifier_p); 2957 DEFSUBR (Fgeneric_specifier_p);
2958 DEFSUBR (Finteger_specifier_p); 2958 DEFSUBR (Finteger_specifier_p);
2959 DEFSUBR (Fnatnum_specifier_p); 2959 DEFSUBR (Fnatnum_specifier_p);
2960 DEFSUBR (Fboolean_specifier_p); 2960 DEFSUBR (Fboolean_specifier_p);
2961 DEFSUBR (Fdisplay_table_specifier_p);
2961 2962
2962 /* Symbols pertaining to specifier creation. Specifiers are created 2963 /* Symbols pertaining to specifier creation. Specifiers are created
2963 in the syms_of() functions. */ 2964 in the syms_of() functions. */
2964 2965
2965 /* locales are defined in general.c. */ 2966 /* locales are defined in general.c. */
2995 2996
2996 INITIALIZE_SPECIFIER_TYPE (boolean, "boolean", "boolean-specifier-p"); 2997 INITIALIZE_SPECIFIER_TYPE (boolean, "boolean", "boolean-specifier-p");
2997 2998
2998 SPECIFIER_HAS_METHOD (boolean, validate); 2999 SPECIFIER_HAS_METHOD (boolean, validate);
2999 3000
3000 INITIALIZE_SPECIFIER_TYPE (display_table, "display-table", 3001 INITIALIZE_SPECIFIER_TYPE (display_table, "display-table", "display-table-p");
3001 "display-table-p");
3002 3002
3003 SPECIFIER_HAS_METHOD (display_table, validate); 3003 SPECIFIER_HAS_METHOD (display_table, validate);
3004 } 3004 }
3005 3005
3006 void 3006 void