From: Lute Kamstra <lute@gnu.org>
Date: Tue, 5 Apr 2005 14:44:34 +0000 (+0000)
Subject: (define-generic-mode): Don't use custom-current-group.
X-Git-Tag: ttn-vms-21-2-B4~1198
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a22315a8bb25fdc14649b14f7392613f388b1e23;p=emacs.git

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

diff --git a/lisp/generic.el b/lisp/generic.el
index e170d05e0f3..02dc2d461e8 100644
--- 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.