diff options
| author | Lute Kamstra <[email protected]> | 2005-04-05 14:44:34 +0000 |
|---|---|---|
| committer | Lute Kamstra <[email protected]> | 2005-04-05 14:44:34 +0000 |
| commit | a22315a8bb25fdc14649b14f7392613f388b1e23 (patch) | |
| tree | bcbeaf83b262b516fb5a4244ff259f87548520df | |
| parent | 450a39ffe2d5332b904151fa642b5e91d67785d9 (diff) | |
(define-generic-mode): Don't use custom-current-group.
Document default :group value.
| -rw-r--r-- | lisp/generic.el | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/lisp/generic.el b/lisp/generic.el index e170d05e0f..02dc2d461e 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. |