From 87631ef75db38259541da5f9f47fde3c8021e759 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 31 May 1997 00:43:47 +0000 Subject: [PATCH] (intern): Don't make a pure string here, since Fintern does that. --- src/lread.c | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) 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. */ -- 2.39.5