From a05498320f78fabc7805d43244ec418267424b51 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 22 May 1997 06:21:22 +0000 Subject: [PATCH] (Fintern): Give keywords a value when interned. --- src/lread.c | 3 +++ 1 file changed, 3 insertions(+) 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); -- 2.39.5