Mercurial > hg > xemacs-beta
comparison src/symeval.h @ 16:0293115a14e9 r19-15b91
Import from CVS: tag r19-15b91
author | cvs |
---|---|
date | Mon, 13 Aug 2007 08:49:20 +0200 |
parents | 376386a54a3c |
children | 3d6bfa290dbd |
comparison
equal
deleted
inserted
replaced
15:ad457d5f7d04 | 16:0293115a14e9 |
---|---|
283 (SYMBOL_VALUE_MAGIC_P (v) && \ | 283 (SYMBOL_VALUE_MAGIC_P (v) && \ |
284 XSYMBOL_VALUE_MAGIC_TYPE (v) == SYMVAL_VARALIAS) | 284 XSYMBOL_VALUE_MAGIC_TYPE (v) == SYMVAL_VARALIAS) |
285 #define symbol_value_varalias_aliasee(m) ((m)->aliasee) | 285 #define symbol_value_varalias_aliasee(m) ((m)->aliasee) |
286 #define symbol_value_varalias_shadowed(m) ((m)->shadowed) | 286 #define symbol_value_varalias_shadowed(m) ((m)->shadowed) |
287 | 287 |
288 /* defsubr (Sname); | 288 /* DEFSUBR (Fname); |
289 is how we define the symbol for function `name' at start-up time. */ | 289 is how we define the symbol for function `Fname' at start-up time. */ |
290 #define DEFSUBR(Fname) defsubr (&S##Fname) | |
290 extern void defsubr (struct Lisp_Subr *); | 291 extern void defsubr (struct Lisp_Subr *); |
291 | 292 |
292 extern void defsymbol (Lisp_Object *location, CONST char *name); | 293 extern void defsymbol (Lisp_Object *location, CONST char *name); |
293 | 294 |
294 extern void defkeyword (Lisp_Object *location, CONST char *name); | 295 extern void defkeyword (Lisp_Object *location, CONST char *name); |