# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 770503062 0
# Node ID 688637ba31c5cea124bf5bb3cf3901dfdec3abe9
# Parent  fad00b057e50382f2c678fa417abd7256cb8bb93
(defvar_bool, defvar_int, defvar_lisp, defvar_lisp_nopro):
Delete third arg DOC.

diff -r fad00b057e50 -r 688637ba31c5 src/lread.c
--- a/src/lread.c	Wed Jun 01 20:36:08 1994 +0000
+++ b/src/lread.c	Wed Jun 01 20:37:42 1994 +0000
@@ -1752,17 +1752,14 @@
 }
 #endif /* NOTDEF */
 
-/* New replacement for DefIntVar; it ignores the doc string argument
-   on the assumption that make-docfile will handle that.  */
 /* Define an "integer variable"; a symbol whose value is forwarded
  to a C variable of type int.  Sample call: */
   /* DEFVARINT ("indent-tabs-mode", &indent_tabs_mode, "Documentation");  */
 
 void
-defvar_int (namestring, address, doc)
+defvar_int (namestring, address)
      char *namestring;
      int *address;
-     char *doc;
 {
   Lisp_Object sym;
   sym = intern (namestring);
@@ -1773,10 +1770,9 @@
  NIL if address contains 0 */
 
 void
-defvar_bool (namestring, address, doc)
+defvar_bool (namestring, address)
      char *namestring;
      int *address;
-     char *doc;
 {
   Lisp_Object sym;
   sym = intern (namestring);
@@ -1786,10 +1782,9 @@
 /* Similar but define a variable whose value is the Lisp Object stored at address. */
 
 void
-defvar_lisp (namestring, address, doc)
+defvar_lisp (namestring, address)
      char *namestring;
      Lisp_Object *address;
-     char *doc;
 {
   Lisp_Object sym;
   sym = intern (namestring);
@@ -1802,10 +1797,9 @@
    since marking the same slot twice can cause trouble with strings.  */
 
 void
-defvar_lisp_nopro (namestring, address, doc)
+defvar_lisp_nopro (namestring, address)
      char *namestring;
      Lisp_Object *address;
-     char *doc;
 {
   Lisp_Object sym;
   sym = intern (namestring);