From 512ca171d4d3bef1c35fd85eba3b85dac3c9a8b3 Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Sun, 21 Oct 2001 15:20:42 +0000 Subject: [PATCH] (Vhelp_manyarg_func_alist): Variable removed. (Fdocumentation): Don't use it. (syms_of_doc): Don't initialize it. --- src/doc.c | 10 +--------- 1 file changed, 1 insertion(+), 9 deletions(-) diff --git a/src/doc.c b/src/doc.c index 39cffee19c..0dd4fbbc39 100644 --- a/src/doc.c +++ b/src/doc.c @@ -46,7 +46,7 @@ Boston, MA 02111-1307, USA. */ 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 @@ string is passed through `substitute-command-keys'.") 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 @@ syms_of_doc () 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); -- 2.20.1