Mercurial > emacs
comparison src/lread.c @ 17918:72aec83491a2
(Fintern): Give keywords a value when interned.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 22 May 1997 06:21:22 +0000 |
| parents | 83850481ae70 |
| children | b985b9739beb |
comparison
equal
deleted
inserted
replaced
| 17917:2a41f677885f | 17918:72aec83491a2 |
|---|---|
| 2074 if (!NILP (Vpurify_flag)) | 2074 if (!NILP (Vpurify_flag)) |
| 2075 string = Fpurecopy (string); | 2075 string = Fpurecopy (string); |
| 2076 sym = Fmake_symbol (string); | 2076 sym = Fmake_symbol (string); |
| 2077 XSYMBOL (sym)->obarray = obarray; | 2077 XSYMBOL (sym)->obarray = obarray; |
| 2078 | 2078 |
| 2079 if (XSTRING (string)->data[0] == ':') | |
| 2080 XSYMBOL (sym)->value = sym; | |
| 2081 | |
| 2079 ptr = &XVECTOR (obarray)->contents[XINT (tem)]; | 2082 ptr = &XVECTOR (obarray)->contents[XINT (tem)]; |
| 2080 if (SYMBOLP (*ptr)) | 2083 if (SYMBOLP (*ptr)) |
| 2081 XSYMBOL (sym)->next = XSYMBOL (*ptr); | 2084 XSYMBOL (sym)->next = XSYMBOL (*ptr); |
| 2082 else | 2085 else |
| 2083 XSYMBOL (sym)->next = 0; | 2086 XSYMBOL (sym)->next = 0; |