From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 22 May 1997 06:21:22 +0000 (+0000)
Subject: (Fintern): Give keywords a value when interned.
X-Git-Tag: emacs-20.1~2027
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a05498320f78fabc7805d43244ec418267424b51;p=emacs.git

(Fintern): Give keywords a value when interned.
---

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);