# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 1003677642 0
# Node ID 0600331ddd522b5df0d492f6a9c0c26077badaa6
# Parent  48875f4fda908d2c00a26f46698a40367c99be6c
(Vhelp_manyarg_func_alist): Variable removed.
(Fdocumentation): Don't use it.
(syms_of_doc): Don't initialize it.

diff -r 48875f4fda90 -r 0600331ddd52 src/doc.c
--- a/src/doc.c	Sun Oct 21 15:20:20 2001 +0000
+++ b/src/doc.c	Sun Oct 21 15:20:42 2001 +0000
@@ -46,7 +46,7 @@
 extern char *index P_ ((const char *, int));
 #endif
 
-Lisp_Object Vdoc_file_name, Vhelp_manyarg_func_alist;
+Lisp_Object Vdoc_file_name;
 
 Lisp_Object Qfunction_documentation;
 
@@ -331,8 +331,6 @@
       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))
     {
@@ -819,12 +817,6 @@
   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);