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

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

Browse source 
(define-minor-mode): Ditto.  Document default :group value.
This commit is contained in:
Lute Kamstra 2005-04-05 14:46:29 +00:00
parent a22315a8bb
commit ab7bc2908b
2 changed files with 18 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/ChangeLog
View file

@ -1,3 +1,10 @@
2005-04-05 Lute Kamstra <lute@gnu.org>
* generic.el (define-generic-mode): Don't use custom-current-group.
Document default :group value.
* emacs-lisp/easy-mmode.el (define-minor-mode): Ditto.
(define-global-minor-mode): Don't use custom-current-group.
2005-04-05 Glenn Morris <gmorris@ast.cam.ac.uk>
* progmodes/sh-script.el (sh-builtins) <bash>: Add `caller'.

21
lisp/emacs-lisp/easy-mmode.el
View file

@ -94,8 +94,11 @@ BODY contains code that will be executed each time the mode is (dis)activated.
These following keyword arguments are supported (other keywords
will be passed to `defcustom' if the minor mode is global):
:group GROUP Custom group name to use in all generated `defcustom' forms.
Defaults to MODE without the possible trailing \"-mode\".
(This default may not be a valid customization group defined
with `defgroup'. Make sure it is.)
:global GLOBAL If non-nil specifies that the minor mode is not meant to be
buffer-local, so don't make the variable MODE buffer-local.
buffer-local, so don't make the variable MODE buffer-local.
By default, the mode is buffer-local.
:init-value VAL Same as the INIT-VALUE argument.
:lighter SPEC Same as the LIGHTER argument.
@ -153,10 +156,9 @@ For example, you could write
(unless group
;; We might as well provide a best-guess default group.
(setq group
`(:group (or (custom-current-group)
',(intern (replace-regexp-in-string
"-mode\\'" "" mode-name))))))
`(:group ',(intern (replace-regexp-in-string
"-mode\\'" "" mode-name)))))
`(progn
;; Define the variable to enable or disable the mode.
,(if (not globalp)
@ -220,8 +222,8 @@ With zero or negative ARG turn mode off.
;; Return the new setting.
,mode)
;; Autoloading an easy-mmode-define-minor-mode autoloads
;; everything up-to-here.
;; Autoloading a define-minor-mode autoloads everything
;; up-to-here.
:autoload-end
;; The toggle's hook.
@ -280,9 +282,8 @@ KEYS is a list of CL-style keyword arguments:
(unless group
;; We might as well provide a best-guess default group.
(setq group
`(:group (or (custom-current-group)
',(intern (replace-regexp-in-string
"-mode\\'" "" (symbol-name mode)))))))
`(:group ',(intern (replace-regexp-in-string
"-mode\\'" "" (symbol-name mode))))))
`(progn
;; The actual global minor-mode