Mercurial > emacs

diff src/lread.c @ 17918:72aec83491a2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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
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);