871 |
enum symbol_interned. */ |
enum symbol_interned. */ |
872 |
unsigned interned : 2; |
unsigned interned : 2; |
873 |
|
|
874 |
/* The symbol's name. This should become a Lisp_Object |
/* The symbol's name, as a Lisp string. |
875 |
some day; there's no need for the Lisp_String pointer nowadays. */ |
|
876 |
struct Lisp_String *name; |
The name "xname" is used to intentionally break code referring to |
877 |
|
the old field "name" of type pointer to struct Lisp_String. */ |
878 |
|
Lisp_Object xname; |
879 |
|
|
880 |
/* Value of the symbol or Qunbound if unbound. If this symbol is a |
/* Value of the symbol or Qunbound if unbound. If this symbol is a |
881 |
defvaralias, `value' contains the symbol for which it is an |
defvaralias, `value' contains the symbol for which it is an |
893 |
struct Lisp_Symbol *next; |
struct Lisp_Symbol *next; |
894 |
}; |
}; |
895 |
|
|
896 |
|
/* Value is name of symbol. */ |
897 |
|
|
898 |
|
#define SYMBOL_NAME(sym) \ |
899 |
|
LISP_MAKE_RVALUE (XSYMBOL (sym)->xname) |
900 |
|
|
901 |
/* Value is non-zero if SYM is an interned symbol. */ |
/* Value is non-zero if SYM is an interned symbol. */ |
902 |
|
|
903 |
#define SYMBOL_INTERNED_P(sym) \ |
#define SYMBOL_INTERNED_P(sym) \ |