comparison src/eval.c @ 108161:514ebf69b289

Fix wrong-docstring problem introduced with hash-consing. * eval.c (Fautoload): Set doc to a unique number rather than to 0. Remove unused var `args'. * lisp.h (XSETCARFASTINT, XSETCDRFASTINT): Remove. (LOADHIST_ATTACH): Wrap with do...while to avoid surprises for callers. * doc.c (store_function_docstring): Use XSETCAR.

108160:7fc92f732328

If FUNCTION is already defined other than as an autoload,
this does nothing and returns nil.  */)
     (function, file, docstring, interactive, type)
     Lisp_Object function, file, docstring, interactive, type;
{
  Lisp_Object args[4];

  CHECK_SYMBOL (function);
  CHECK_STRING (file);

  /* If function is defined and not as an autoload, don't override */
  if (!EQ (XSYMBOL (function)->function, Qunbound)

    /* Only add entries after dumping, because the ones before are
       not useful and else we get loads of them from the loaddefs.el.  */
    LOADHIST_ATTACH (Fcons (Qautoload, function));
  else
    /* We don't want the docstring in purespace (instead,
       Snarf-documentation should (hopefully) overwrite it).  */
    docstring = make_number (0);
  return Ffset (function,
		Fpurecopy (list5 (Qautoload, file, docstring,
				  interactive, type)));
}

108161:514ebf69b289

If FUNCTION is already defined other than as an autoload,
this does nothing and returns nil.  */)
     (function, file, docstring, interactive, type)
     Lisp_Object function, file, docstring, interactive, type;
{
  CHECK_SYMBOL (function);
  CHECK_STRING (file);

  /* If function is defined and not as an autoload, don't override */
  if (!EQ (XSYMBOL (function)->function, Qunbound)

    /* Only add entries after dumping, because the ones before are
       not useful and else we get loads of them from the loaddefs.el.  */
    LOADHIST_ATTACH (Fcons (Qautoload, function));
  else
    /* We don't want the docstring in purespace (instead,
       Snarf-documentation should (hopefully) overwrite it).
       We used to use 0 here, 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 Ffset (function,
		Fpurecopy (list5 (Qautoload, file, docstring,
				  interactive, type)));
}