mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-18 10:16:51 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Richard M. Stallman 1997-05-31 00:43:47 +00:00
parent a7ec177595
commit 87631ef75d
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/lread.c
View File

@ -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. */