* lib-src/make-docfile.c (scan_lisp_file): Treat defcustom like defvar.

* lisp/paths.el (rmail-file-name): Format doc-string for make-docfile.

diff --git a/lib-src/ChangeLog b/lib-src/ChangeLog
index 983754eb1c30db0368f01836efb2848296983b4f..5ff9b5bb6bc51c259ce3a5906a648c337b6d5fc7 100644 (file)
--- a/lib-src/ChangeLog
+++ b/lib-src/ChangeLog
@@ -1,3 +1,7 @@
+2011-11-24  Glenn Morris  <rgm@gnu.org>
+
+       * make-docfile.c (scan_lisp_file): Treat defcustom like defvar.
+
 2011-11-14  Dan Nicolaescu  <dann@ics.uci.edu>
 
        * Makefile.in (all): Make sure "all" is the first target.

diff --git a/lib-src/make-docfile.c b/lib-src/make-docfile.c
index ba54202954b09e9ecd3e2e6292cf12389cd973cb..1ec365f344682f224560ab7912e1cd091084a710 100644 (file)
--- a/lib-src/make-docfile.c
+++ b/lib-src/make-docfile.c
@@ -1149,8 +1149,10 @@ scan_lisp_file (const char *filename, const char *mode)
            }
        }
 
+      /* defcustom can only occur in uncompiled Lisp files.  */
       else if (! strcmp (buffer, "defvar")
-              || ! strcmp (buffer, "defconst"))
+              || ! strcmp (buffer, "defconst")
+              || ! strcmp (buffer, "defcustom"))
        {
          char c1 = 0, c2 = 0;
          type = 'V';

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6bfdf627e7e7a5ed183450a0c75ca53de7922b2b..ef5fdc60838fb876b8c718070dbc84c71f475ef9 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2011-11-24  Glenn Morris  <rgm@gnu.org>
 
+       * paths.el (rmail-file-name): Format doc-string for make-docfile.
+
        * version.el (emacs-build-system): Give it a doc-string.
 
 2011-11-24  Juri Linkov  <juri@jurta.org>

diff --git a/lisp/paths.el b/lisp/paths.el
index c608fd98993b447fec9f155aa0d2776ad55c29e0..161caf9cb8c440d536fa35815223605297d144cf 100644 (file)
--- a/lisp/paths.el
+++ b/lisp/paths.el
@@ -132,12 +132,8 @@ should be set to `(system-name)'.")
 *The name of your organization, as a string.
 The `ORGANIZATION' environment variable is used instead if defined.")
 
-;; This is a defcustom, which make-docfile does not recognize in
-;; uncompiled Lisp code.  If we use the "\ method of writing the doc,
-;; it does not get a doc string.  Somehow if we write it in the "wrong"
-;; (ie normal) way (as below), it does...  See also remote-shell-program.
-(defcustom rmail-file-name (purecopy "~/RMAIL")
-  "Name of user's primary mail file."
+(defcustom rmail-file-name (purecopy "~/RMAIL") "\
+Name of user's primary mail file."
   :type 'string
   :group 'rmail
   :version "21.1")