use guile conses

[bpt/emacs.git] / src / eval.c

diff --git a/src/eval.c b/src/eval.c
index c31d9e3..985abce 100644 (file)
--- a/src/eval.c
+++ b/src/eval.c
@@ -1878,12 +1878,6 @@ this does nothing and returns nil.  */)
       && !AUTOLOADP (XSYMBOL (function)->function))
     return Qnil;
 
-  if (!NILP (Vpurify_flag) && EQ (docstring, make_number (0)))
-    /* `read1' in lread.c has found the docstring starting with "\
-       and assumed the docstring will be provided by Snarf-documentation, so it
-       passed us 0 instead.  But that leads to accidental sharing in purecopy's
-       hash-consing, so we use a (hopefully) unique integer instead.  */
-    docstring = make_number (XHASH (function));
   return Fdefalias (function,
                    list5 (Qautoload, file, docstring, interactive, type),
                    Qnil);