Mercurial > emacs
changeset 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 | 2a41f677885f |
| children | eb712b69e495 |
| files | src/lread.c |
| diffstat | 1 files changed, 3 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/src/lread.c Thu May 22 06:20:42 1997 +0000 +++ b/src/lread.c Thu May 22 06:21:22 1997 +0000 @@ -2076,6 +2076,9 @@ sym = Fmake_symbol (string); XSYMBOL (sym)->obarray = obarray; + if (XSTRING (string)->data[0] == ':') + XSYMBOL (sym)->value = sym; + ptr = &XVECTOR (obarray)->contents[XINT (tem)]; if (SYMBOLP (*ptr)) XSYMBOL (sym)->next = XSYMBOL (*ptr);