diff options
author | Richard M. Stallman <rms@gnu.org> | 1997-05-31 00:43:47 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1997-05-31 00:43:47 +0000 |
commit | 9b626c22b3a8ef488025ceb2216706847a4cd895 (patch) | |
tree | 35659294787886bfb129d68b74d9ebc20c33a8bc | |
parent | ea070a9dc18073695414f693063a0197e771acf1 (diff) | |
download | emacs-9b626c22b3a8ef488025ceb2216706847a4cd895.tar.gz |
(intern): Don't make a pure string here, since Fintern does that.
-rw-r--r-- | src/lread.c | 5 |
1 files changed, 1 insertions, 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. */ |