diff options
| author | Richard M. Stallman | 1997-05-31 00:43:47 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-05-31 00:43:47 +0000 |
| commit | 87631ef75db38259541da5f9f47fde3c8021e759 (patch) | |
| tree | 03d347bc14b568cfe2403d2722cf26389cd05900 /src | |
| parent | a7ec177595dcc6023234fbceb27b0acfde5899f4 (diff) | |
| download | emacs-87631ef75db38259541da5f9f47fde3c8021e759.tar.gz emacs-87631ef75db38259541da5f9f47fde3c8021e759.zip | |
(intern): Don't make a pure string here, since Fintern does that.
Diffstat (limited to 'src')
| -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) | |||
| 2033 | tem = oblookup (obarray, str, len); | 2033 | tem = oblookup (obarray, str, len); |
| 2034 | if (SYMBOLP (tem)) | 2034 | if (SYMBOLP (tem)) |
| 2035 | return tem; | 2035 | return tem; |
| 2036 | return Fintern ((!NILP (Vpurify_flag) | 2036 | return Fintern (make_string (str, len), obarray); |
| 2037 | ? make_pure_string (str, len) | ||
| 2038 | : make_string (str, len)), | ||
| 2039 | obarray); | ||
| 2040 | } | 2037 | } |
| 2041 | 2038 | ||
| 2042 | /* Create an uninterned symbol with name STR. */ | 2039 | /* Create an uninterned symbol with name STR. */ |