1 |
;;; easy-mmode.el --- easy definition for major and minor modes |
;;; easy-mmode.el --- easy definition for major and minor modes |
2 |
|
|
3 |
;; Copyright (C) 1997,2000,01,02,03,2004 Free Software Foundation, Inc. |
;; Copyright (C) 1997, 2000, 2001, 2002, 2003, 2004, 2005 |
4 |
|
;; Free Software Foundation, Inc. |
5 |
|
|
6 |
;; Author: Georges Brun-Cottan <Georges.Brun-Cottan@inria.fr> |
;; Author: Georges Brun-Cottan <Georges.Brun-Cottan@inria.fr> |
7 |
;; Maintainer: Stefan Monnier <monnier@gnu.org> |
;; Maintainer: Stefan Monnier <monnier@gnu.org> |
153 |
(unless group |
(unless group |
154 |
;; We might as well provide a best-guess default group. |
;; We might as well provide a best-guess default group. |
155 |
(setq group |
(setq group |
156 |
`(:group ',(or (custom-current-group) |
`(:group (or (custom-current-group) |
157 |
(intern (replace-regexp-in-string |
',(intern (replace-regexp-in-string |
158 |
"-mode\\'" "" mode-name)))))) |
"-mode\\'" "" mode-name)))))) |
159 |
|
|
160 |
`(progn |
`(progn |
279 |
(unless group |
(unless group |
280 |
;; We might as well provide a best-guess default group. |
;; We might as well provide a best-guess default group. |
281 |
(setq group |
(setq group |
282 |
`(:group ',(or (custom-current-group) |
`(:group (or (custom-current-group) |
283 |
(intern (replace-regexp-in-string |
',(intern (replace-regexp-in-string |
284 |
"-mode\\'" "" (symbol-name mode))))))) |
"-mode\\'" "" (symbol-name mode))))))) |
285 |
|
|
286 |
`(progn |
`(progn |