(define-generic-mode): Don't use custom-current-group.

Document default :group value.

diff --git a/lisp/generic.el b/lisp/generic.el
index e170d05e0f3bdaeec81018638f2c98e401034471..02dc2d461e83a0c86a7a0d03c7da002b7861db46 100644 (file)
--- a/lisp/generic.el
+++ b/lisp/generic.el
@@ -219,8 +219,10 @@ additional setup.
 
 The optional CUSTOM-KEYWORD-ARGS are pairs of keywords and
 values.  They will be passed to the generated `defcustom' form of
-the mode hook variable MODE-hook.  You can specify keyword
-arguments without specifying a docstring.
+the mode hook variable MODE-hook.  Defaults to MODE without the
+possible trailing \"-mode\".  (This default may not be a valid
+customization group defined with `defgroup'.  Make sure it is.)
+You can specify keyword arguments without specifying a docstring.
 
 See the file generic-x.el for some examples of `define-generic-mode'."
   (declare (debug (sexp def-form def-form def-form form def-form
@@ -245,9 +247,8 @@ See the file generic-x.el for some examples of `define-generic-mode'."
     (unless (plist-get custom-keyword-args :group)
       (setq custom-keyword-args
            (plist-put custom-keyword-args 
-                      :group `(or (custom-current-group)
-                                  ',(intern (replace-regexp-in-string
-                                             "-mode\\'" "" mode-name))))))
+                      :group `',(intern (replace-regexp-in-string
+                                         "-mode\\'" "" mode-name)))))
 
     `(progn
        ;; Add a new entry.