Mercurial > emacs
comparison src/data.c @ 59110:5feed0f86f52
(Fdefalias): Use (defun . FN_NAME) in LOADHIST_ATTACH.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 27 Dec 2004 16:03:49 +0000 |
| parents | 59945307b86b |
| children | 896e880eab56 95879cc1ed20 |
comparison
equal
deleted
inserted
replaced
| 59109:0b61bbccc6e1 | 59110:5feed0f86f52 |
|---|---|
| 721 { | 721 { |
| 722 if (CONSP (XSYMBOL (symbol)->function) | 722 if (CONSP (XSYMBOL (symbol)->function) |
| 723 && EQ (XCAR (XSYMBOL (symbol)->function), Qautoload)) | 723 && EQ (XCAR (XSYMBOL (symbol)->function), Qautoload)) |
| 724 LOADHIST_ATTACH (Fcons (Qt, symbol)); | 724 LOADHIST_ATTACH (Fcons (Qt, symbol)); |
| 725 definition = Ffset (symbol, definition); | 725 definition = Ffset (symbol, definition); |
| 726 LOADHIST_ATTACH (symbol); | 726 LOADHIST_ATTACH (Fcons (Qdefun, symbol)); |
| 727 if (!NILP (docstring)) | 727 if (!NILP (docstring)) |
| 728 Fput (symbol, Qfunction_documentation, docstring); | 728 Fput (symbol, Qfunction_documentation, docstring); |
| 729 return definition; | 729 return definition; |
| 730 } | 730 } |
| 731 | 731 |