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 |