Mercurial > hg > xemacs-beta

comparison src/lisp.h @ 245:51092a27c943 r20-5b21

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b21
author cvs
date Mon, 13 Aug 2007 10:17:54 +0200
parents f220cc83d72e
children 677f6a0ee643
comparison
equal deleted inserted replaced
244:78d4f1140794 245:51092a27c943
1093 /* next symbol in this obarray bucket */ 1093 /* next symbol in this obarray bucket */
1094 struct Lisp_Symbol *next; 1094 struct Lisp_Symbol *next;
1095 struct Lisp_String *name; 1095 struct Lisp_String *name;
1096 Lisp_Object value; 1096 Lisp_Object value;
1097 Lisp_Object function; 1097 Lisp_Object function;
1098 Lisp_Object obarray;
1098 Lisp_Object plist; 1099 Lisp_Object plist;
1099 }; 1100 };
1100 1101
1101 #define SYMBOL_IS_KEYWORD(sym) (string_byte (XSYMBOL(sym)->name, 0) == ':') 1102 #define SYMBOL_IS_KEYWORD(sym) (string_byte (XSYMBOL(sym)->name, 0) == ':')
1102 #define KEYWORDP(obj) (SYMBOLP (obj) && SYMBOL_IS_KEYWORD (obj)) 1103 #define KEYWORDP(obj) (SYMBOLP (obj) && SYMBOL_IS_KEYWORD (obj))