diff src/eval.c @ 90180:62afea0771d8

Revision: [e-mail]--gnu-2005/emacs--unicode--0--patch-51 Merge from emacs--cvs-trunk--0 Patches applied: * emacs--cvs-trunk--0 (patch 289-301) - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 68) - Update from CVS

--- a/src/eval.c	Thu May 12 02:47:44 2005 +0000
+++ b/src/eval.c	Thu May 12 03:41:19 2005 +0000
@@ -725,7 +725,9 @@
        doc: /* Make SYMBOL a variable alias for symbol ALIASED.
 Setting the value of SYMBOL will subsequently set the value of ALIASED,
 and getting the value of SYMBOL will return the value ALIASED has.
-Third arg DOCSTRING, if non-nil, is documentation for SYMBOL.
+Third arg DOCSTRING, if non-nil, is documentation for SYMBOL.  If it is
+omitted or nil, SYMBOL gets the documentation string of ALIASED, or of the
+variable at the end of the chain of aliases, if ALIASED is itself an alias.
 The return value is ALIASED.  */)
      (symbol, aliased, docstring)
      Lisp_Object symbol, aliased, docstring;
@@ -745,6 +747,8 @@
   LOADHIST_ATTACH (symbol);
   if (!NILP (docstring))
     Fput (symbol, Qvariable_documentation, docstring);
+  else
+    Fput (symbol, Qvariable_documentation, Qnil);
 
   return aliased;
 }