diff options
author | Richard M. Stallman <rms@gnu.org> | 1997-05-22 06:21:22 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1997-05-22 06:21:22 +0000 |
commit | 4a5b15c8515d700a3d0de93cac1b96811e9da6a4 (patch) | |
tree | d18056bf618874b7f6bfecb54cf5b898f9dc8e81 /src/lread.c | |
parent | ede8876c82a46fd3c8ea89cc30169c7e4859b4e7 (diff) | |
download | emacs-4a5b15c8515d700a3d0de93cac1b96811e9da6a4.tar.gz |
(Fintern): Give keywords a value when interned.
Diffstat (limited to 'src/lread.c')
-rw-r--r-- | src/lread.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/lread.c b/src/lread.c index f46fa1717a2..c6b5f89c755 100644 --- a/src/lread.c +++ b/src/lread.c @@ -2076,6 +2076,9 @@ it defaults to the value of `obarray'.") 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); |