(Fdefvaralias): Remove any pre-existing variable-documentation

property of the alias.

diff --git a/src/eval.c b/src/eval.c
index 8b6c188572727c6fe533f35e4f1936810f2b5c18..7f043daa5551150b7ee37b7a069ccc3862adf466 100644 (file)
--- a/src/eval.c
+++ b/src/eval.c
@@ -747,6 +747,8 @@ The return value is ALIASED.  */)
   LOADHIST_ATTACH (symbol);
   if (!NILP (docstring))
     Fput (symbol, Qvariable_documentation, docstring);
+  else
+    Fput (symbol, Qvariable_documentation, Qnil);
 
   return aliased;
 }