comparison src/doc.c @ 40139:0600331ddd52

(Vhelp_manyarg_func_alist): Variable removed. (Fdocumentation): Don't use it. (syms_of_doc): Don't initialize it.

40138:48875f4fda90

#ifdef HAVE_INDEX
extern char *index P_ ((const char *, int));
#endif

Lisp_Object Vdoc_file_name, Vhelp_manyarg_func_alist;

Lisp_Object Qfunction_documentation;

extern Lisp_Object Voverriding_local_map;

      else if ((EMACS_INT) XSUBR (fun)->doc >= 0)
	doc = build_string (XSUBR (fun)->doc);
      else
	doc = get_doc_string (make_number (- (EMACS_INT) XSUBR (fun)->doc),
			      0, 0);
      if (! NILP (tem = Fassq (function, Vhelp_manyarg_func_alist)))
	doc = concat3 (doc, build_string ("\n"), Fcdr (tem));
    }
  else if (COMPILEDP (fun))
    {
      if ((XVECTOR (fun)->size & PSEUDOVECTOR_SIZE_MASK) <= COMPILED_DOC_STRING)
	return Qnil;

  staticpro (&Qfunction_documentation);
  
  DEFVAR_LISP ("internal-doc-file-name", &Vdoc_file_name,
    "Name of file containing documentation strings of built-in symbols.");
  Vdoc_file_name = Qnil;
  DEFVAR_LISP ("help-manyarg-func-alist", &Vhelp_manyarg_func_alist,
    "Alist of primitive functions and descriptions of their arg lists.\n\
All special forms and primitives which effectively have &rest args\n\
should have an entry here so that `documentation' can provide their\n\
arg list.");
  Vhelp_manyarg_func_alist = Qnil;

  defsubr (&Sdocumentation);
  defsubr (&Sdocumentation_property);
  defsubr (&Ssnarf_documentation);
  defsubr (&Ssubstitute_command_keys);

40139:0600331ddd52

#ifdef HAVE_INDEX
extern char *index P_ ((const char *, int));
#endif

Lisp_Object Vdoc_file_name;

Lisp_Object Qfunction_documentation;

extern Lisp_Object Voverriding_local_map;

      else if ((EMACS_INT) XSUBR (fun)->doc >= 0)
	doc = build_string (XSUBR (fun)->doc);
      else
	doc = get_doc_string (make_number (- (EMACS_INT) XSUBR (fun)->doc),
			      0, 0);
    }
  else if (COMPILEDP (fun))
    {
      if ((XVECTOR (fun)->size & PSEUDOVECTOR_SIZE_MASK) <= COMPILED_DOC_STRING)
	return Qnil;

  staticpro (&Qfunction_documentation);
  
  DEFVAR_LISP ("internal-doc-file-name", &Vdoc_file_name,
    "Name of file containing documentation strings of built-in symbols.");
  Vdoc_file_name = Qnil;

  defsubr (&Sdocumentation);
  defsubr (&Sdocumentation_property);
  defsubr (&Ssnarf_documentation);
  defsubr (&Ssubstitute_command_keys);