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 |