mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(define-minor-mode): Use `custom-current-group'.

Browse Source 
Pass all groups to the hook.
(easy-mmode-define-global-mode): Use `custom-current-group'.
This commit is contained in:
Markus Rost 2002-12-13 23:54:45 +00:00
parent 990a41084b
commit dce88ea679
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lisp/emacs-lisp/easy-mmode.el
View File

@ -140,8 +140,9 @@ For example, you could write
(unless group
;; We might as well provide a best-guess default group.
(setq group
`(:group ',(intern (replace-regexp-in-string "-mode\\'" ""
mode-name)))))
`(:group ',(or (custom-current-group)
(intern (replace-regexp-in-string
"-mode\\'" "" mode-name))))))
`(progn
;; Define the variable to enable or disable the mode.
@ -211,7 +212,7 @@ With zero or negative ARG turn mode off.
;; The toggle's hook.
(defcustom ,hook nil
,(format "Hook run at the end of function `%s'." mode-name)
:group ,(cadr group)
,@group
:type 'hook)
;; Define the minor-mode keymap.
@ -263,8 +264,10 @@ KEYS is a list of CL-style keyword arguments:
(unless group
;; We might as well provide a best-guess default group.
(setq group
`(:group ',(intern (replace-regexp-in-string "-mode\\'" ""
(symbol-name mode))))))
`(:group ',(or (custom-current-group)
(intern (replace-regexp-in-string
"-mode\\'" "" (symbol-name mode)))))))
`(progn
;; The actual global minor-mode
(define-minor-mode ,global-mode