Mercurial > emacs
comparison src/lread.c @ 18051:b985b9739beb
(intern): Don't make a pure string here, since Fintern does that.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sat, 31 May 1997 00:43:47 +0000 |
parents | 72aec83491a2 |
children | 6f264bb70b49 |
comparison
equal
deleted
inserted
replaced
18050:506b35a4537e | 18051:b985b9739beb |
---|---|
2031 if (!VECTORP (obarray) || XVECTOR (obarray)->size == 0) | 2031 if (!VECTORP (obarray) || XVECTOR (obarray)->size == 0) |
2032 obarray = check_obarray (obarray); | 2032 obarray = check_obarray (obarray); |
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. */ |
2043 | 2040 |
2044 Lisp_Object | 2041 Lisp_Object |