Mercurial > emacs
comparison src/lread.c @ 20773:6c655dc99321
(Funintern): Clear the symbol's obarray field.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 26 Jan 1998 03:11:22 +0000 |
| parents | d43ba5d91281 |
| children | d5ae7491d2b0 |
comparison
equal
deleted
inserted
replaced
| 20772:a75bd4b8183d | 20773:6c655dc99321 |
|---|---|
| 2301 return Qnil; | 2301 return Qnil; |
| 2302 /* If arg was a symbol, don't delete anything but that symbol itself. */ | 2302 /* If arg was a symbol, don't delete anything but that symbol itself. */ |
| 2303 if (SYMBOLP (name) && !EQ (name, tem)) | 2303 if (SYMBOLP (name) && !EQ (name, tem)) |
| 2304 return Qnil; | 2304 return Qnil; |
| 2305 | 2305 |
| 2306 XSYMBOL (tem)->obarray = Qnil; | |
| 2307 | |
| 2306 hash = oblookup_last_bucket_number; | 2308 hash = oblookup_last_bucket_number; |
| 2307 | 2309 |
| 2308 if (EQ (XVECTOR (obarray)->contents[hash], tem)) | 2310 if (EQ (XVECTOR (obarray)->contents[hash], tem)) |
| 2309 { | 2311 { |
| 2310 if (XSYMBOL (tem)->next) | 2312 if (XSYMBOL (tem)->next) |