# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1118246083 0
# Node ID c531a8daedc6a0bab78393342fd2dbc11af8363d
# Parent  bd94b75dbfe8e21a46bf78dc9f854e0a1b9404eb
(define-minor-mode): If BODY is empty, give the variable a doc string
that doesn't say don't set it directly.

diff -r bd94b75dbfe8 -r c531a8daedc6 lisp/emacs-lisp/easy-mmode.el
--- a/lisp/emacs-lisp/easy-mmode.el	Wed Jun 08 15:53:51 2005 +0000
+++ b/lisp/emacs-lisp/easy-mmode.el	Wed Jun 08 15:54:43 2005 +0000
@@ -183,13 +183,18 @@
 
 	  (let ((curfile (or (and (boundp 'byte-compile-current-file)
 				  byte-compile-current-file)
-			     load-file-name)))
-	    `(defcustom ,mode ,init-value
-	       ,(format "Non-nil if %s is enabled.
+			     load-file-name))
+		base-doc-string)
+	    (setq base-doc-string "Non-nil if %s is enabled.
 See the command `%s' for a description of this minor-mode.
 Setting this variable directly does not take effect;
-use either \\[customize] or the function `%s'."
-			pretty-name mode mode)
+use either \\[customize] or the function `%s'.")
+	    (if (null body)
+		(setq base-doc-string "Non-nil if %s is enabled.
+See the command `%s' for a description of this minor-mode."))
+
+	    `(defcustom ,mode ,init-value
+	       ,(format base-doc-string pretty-name mode mode)
 	       :set 'custom-set-minor-mode
 	       :initialize 'custom-initialize-default
 	       ,@group