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 | 87631ef75db38259541da5f9f47fde3c8021e759 (patch) | |
| tree | 03d347bc14b568cfe2403d2722cf26389cd05900 | |
| parent | a7ec177595dcc6023234fbceb27b0acfde5899f4 (diff) | |
| download | emacs-87631ef75db38259541da5f9f47fde3c8021e759.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. */ |