Mercurial > emacs
comparison src/lread.c @ 106133:5e6998ac1a2e
(Funintern): Comment out last change.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Thu, 19 Nov 2009 22:10:40 +0000 |
| parents | 0fba14676688 |
| children | f2cea199b0c4 |
comparison
equal
deleted
inserted
replaced
| 106132:57f23ca20a76 | 106133:5e6998ac1a2e |
|---|---|
| 3763 return Qnil; | 3763 return Qnil; |
| 3764 /* If arg was a symbol, don't delete anything but that symbol itself. */ | 3764 /* If arg was a symbol, don't delete anything but that symbol itself. */ |
| 3765 if (SYMBOLP (name) && !EQ (name, tem)) | 3765 if (SYMBOLP (name) && !EQ (name, tem)) |
| 3766 return Qnil; | 3766 return Qnil; |
| 3767 | 3767 |
| 3768 if (EQ (tem, Qnil) || EQ (tem, Qt)) | 3768 /* There are plenty of other symbols which will screw up the Emacs |
| 3769 error ("Attempt to unintern t or nil"); | 3769 session if we unintern them, as well as even more ways to use |
| 3770 `setq' or `fset' or whatnot to make the Emacs session | |
| 3771 unusable. Let's not go down this silly road. --Stef */ | |
| 3772 /* if (EQ (tem, Qnil) || EQ (tem, Qt)) | |
| 3773 error ("Attempt to unintern t or nil"); */ | |
| 3770 | 3774 |
| 3771 XSYMBOL (tem)->interned = SYMBOL_UNINTERNED; | 3775 XSYMBOL (tem)->interned = SYMBOL_UNINTERNED; |
| 3772 XSYMBOL (tem)->constant = 0; | 3776 XSYMBOL (tem)->constant = 0; |
| 3773 XSYMBOL (tem)->indirect_variable = 0; | 3777 XSYMBOL (tem)->indirect_variable = 0; |
| 3774 | 3778 |