procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
Document default :group value.
This commit is contained in:
Lute Kamstra 2005-04-05 14:44:34 +00:00
parent 450a39ffe2
commit a22315a8bb
1 changed files with 6 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lisp/generic.el
View file

@ -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.