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 |