Mercurial > emacs
comparison src/data.c @ 65600:bd15c2b64526
(Fdefalias): Signal an error if SYMBOL is not a symbol.
| author | John Paul Wallington <jpw@pobox.com> |
|---|---|
| date | Sun, 18 Sep 2005 16:22:07 +0000 |
| parents | a0d1312ede66 |
| children | 7e10b1cb2a67 2a679c81f552 fa0da9b57058 |
comparison
equal
deleted
inserted
replaced
| 65599:39114a2ae201 | 65600:bd15c2b64526 |
|---|---|
| 717 for SYMBOL; if it is omitted or nil, SYMBOL uses the documentation string | 717 for SYMBOL; if it is omitted or nil, SYMBOL uses the documentation string |
| 718 determined by DEFINITION. */) | 718 determined by DEFINITION. */) |
| 719 (symbol, definition, docstring) | 719 (symbol, definition, docstring) |
| 720 register Lisp_Object symbol, definition, docstring; | 720 register Lisp_Object symbol, definition, docstring; |
| 721 { | 721 { |
| 722 CHECK_SYMBOL (symbol); | |
| 722 if (CONSP (XSYMBOL (symbol)->function) | 723 if (CONSP (XSYMBOL (symbol)->function) |
| 723 && EQ (XCAR (XSYMBOL (symbol)->function), Qautoload)) | 724 && EQ (XCAR (XSYMBOL (symbol)->function), Qautoload)) |
| 724 LOADHIST_ATTACH (Fcons (Qt, symbol)); | 725 LOADHIST_ATTACH (Fcons (Qt, symbol)); |
| 725 definition = Ffset (symbol, definition); | 726 definition = Ffset (symbol, definition); |
| 726 LOADHIST_ATTACH (Fcons (Qdefun, symbol)); | 727 LOADHIST_ATTACH (Fcons (Qdefun, symbol)); |