diff options
| author | Stefan Monnier | 2019-03-26 11:45:07 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2019-03-26 11:45:07 -0400 |
| commit | c8ec3108a3d0bd1955d21f40b3c0c3b36d55b20d (patch) | |
| tree | 35da066bd1acee8af3fa5a0c9e951abdf7ae5b70 /lisp | |
| parent | ae68fad033261eb63e3d2221c946f9b03b5464ac (diff) | |
| download | emacs-c8ec3108a3d0bd1955d21f40b3c0c3b36d55b20d.tar.gz emacs-c8ec3108a3d0bd1955d21f40b3c0c3b36d55b20d.zip | |
* easy-mmode.el: simplify via custom-current-group
* lisp/emacs-lisp/easy-mmode.el (define-globalized-minor-mode):
Don't try and guess a default :group, defcustom does it better anyway.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/emacs-lisp/easy-mmode.el | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/lisp/emacs-lisp/easy-mmode.el b/lisp/emacs-lisp/easy-mmode.el index 8ac0a1d5938..be531aab849 100644 --- a/lisp/emacs-lisp/easy-mmode.el +++ b/lisp/emacs-lisp/easy-mmode.el | |||
| @@ -411,12 +411,6 @@ on if the hook has explicitly disabled it." | |||
| 411 | (:global (setq keys (cdr keys))) | 411 | (:global (setq keys (cdr keys))) |
| 412 | (_ (push keyw extra-keywords) (push (pop keys) extra-keywords)))) | 412 | (_ (push keyw extra-keywords) (push (pop keys) extra-keywords)))) |
| 413 | 413 | ||
| 414 | (unless group | ||
| 415 | ;; We might as well provide a best-guess default group. | ||
| 416 | (setq group | ||
| 417 | `(:group ',(intern (replace-regexp-in-string | ||
| 418 | "-mode\\'" "" (symbol-name mode)))))) | ||
| 419 | |||
| 420 | `(progn | 414 | `(progn |
| 421 | (progn | 415 | (progn |
| 422 | :autoload-end | 416 | :autoload-end |