Parent Directory | Revision Log | Patch
revision 1.237 by teirllm, Thu May 5 22:40:56 2005 UTC | revision 1.238 by teirllm, Sun May 8 16:30:13 2005 UTC | |
---|---|---|
# | Line 747 The return value is ALIASED. */) | Line 747 The return value is ALIASED. */) |
747 | LOADHIST_ATTACH (symbol); | LOADHIST_ATTACH (symbol); |
748 | if (!NILP (docstring)) | if (!NILP (docstring)) |
749 | Fput (symbol, Qvariable_documentation, docstring); | Fput (symbol, Qvariable_documentation, docstring); |
750 | else | |
751 | Fput (symbol, Qvariable_documentation, Qnil); | |
752 | ||
753 | return aliased; | return aliased; |
754 | } | } |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |