From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 31 May 1997 00:43:47 +0000 (+0000)
Subject: (intern): Don't make a pure string here, since Fintern does that.
X-Git-Tag: emacs-20.1~1895
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=87631ef75db38259541da5f9f47fde3c8021e759;p=emacs.git

(intern): Don't make a pure string here, since Fintern does that.
---

diff --git a/src/lread.c b/src/lread.c
index c6b5f89c755..147114743b6 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -2033,10 +2033,7 @@ intern (str)
   tem = oblookup (obarray, str, len);
   if (SYMBOLP (tem))
     return tem;
-  return Fintern ((!NILP (Vpurify_flag)
-		   ? make_pure_string (str, len)
-		   : make_string (str, len)),
-		  obarray);
+  return Fintern (make_string (str, len), obarray);
 }
 
 /* Create an uninterned symbol with name STR.  */