From: Luc Teirlinck <teirllm@auburn.edu>
Date: Sun, 8 May 2005 16:30:13 +0000 (+0000)
Subject: (Fdefvaralias): Remove any pre-existing variable-documentation
X-Git-Tag: ttn-vms-21-2-B4~441
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bd81fcf8dbeddcacf8efcdc8ea47ec2375b19001;p=emacs.git

(Fdefvaralias): Remove any pre-existing variable-documentation
property of the alias.
---

diff --git a/src/eval.c b/src/eval.c
index 8b6c1885727..7f043daa555 100644
--- 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;
 }