Mercurial > emacs
comparison lisp/emacs-lisp/easy-mmode.el @ 61168:ef30a398bcbe
(easy-mmode-define-global-mode, define-minor-mode): Call
custom-current-group at load-time.
| author | Lute Kamstra <lute@gnu.org> |
|---|---|
| date | Thu, 31 Mar 2005 14:49:09 +0000 |
| parents | 15493a81cb78 |
| children | ef26a481327e |
comparison
equal
deleted
inserted
replaced
| 61167:bdeef980c30b | 61168:ef30a398bcbe |
|---|---|
| 1 ;;; easy-mmode.el --- easy definition for major and minor modes | 1 ;;; easy-mmode.el --- easy definition for major and minor modes |
| 2 | 2 |
| 3 ;; Copyright (C) 1997,2000,01,02,03,2004 Free Software Foundation, Inc. | 3 ;; Copyright (C) 1997, 2000, 2001, 2002, 2003, 2004, 2005 |
| 4 ;; Free Software Foundation, Inc. | |
| 4 | 5 |
| 5 ;; Author: Georges Brun-Cottan <Georges.Brun-Cottan@inria.fr> | 6 ;; Author: Georges Brun-Cottan <Georges.Brun-Cottan@inria.fr> |
| 6 ;; Maintainer: Stefan Monnier <monnier@gnu.org> | 7 ;; Maintainer: Stefan Monnier <monnier@gnu.org> |
| 7 | 8 |
| 8 ;; Keywords: extensions lisp | 9 ;; Keywords: extensions lisp |
| 150 (intern (concat mode-name "-map")))) | 151 (intern (concat mode-name "-map")))) |
| 151 | 152 |
| 152 (unless group | 153 (unless group |
| 153 ;; We might as well provide a best-guess default group. | 154 ;; We might as well provide a best-guess default group. |
| 154 (setq group | 155 (setq group |
| 155 `(:group ',(or (custom-current-group) | 156 `(:group (or (custom-current-group) |
| 156 (intern (replace-regexp-in-string | 157 ',(intern (replace-regexp-in-string |
| 157 "-mode\\'" "" mode-name)))))) | 158 "-mode\\'" "" mode-name)))))) |
| 158 | 159 |
| 159 `(progn | 160 `(progn |
| 160 ;; Define the variable to enable or disable the mode. | 161 ;; Define the variable to enable or disable the mode. |
| 161 ,(if (not globalp) | 162 ,(if (not globalp) |
| 276 (t (setq keys (cdr keys))))) | 277 (t (setq keys (cdr keys))))) |
| 277 | 278 |
| 278 (unless group | 279 (unless group |
| 279 ;; We might as well provide a best-guess default group. | 280 ;; We might as well provide a best-guess default group. |
| 280 (setq group | 281 (setq group |
| 281 `(:group ',(or (custom-current-group) | 282 `(:group (or (custom-current-group) |
| 282 (intern (replace-regexp-in-string | 283 ',(intern (replace-regexp-in-string |
| 283 "-mode\\'" "" (symbol-name mode))))))) | 284 "-mode\\'" "" (symbol-name mode))))))) |
| 284 | 285 |
| 285 `(progn | 286 `(progn |
| 286 ;; The actual global minor-mode | 287 ;; The actual global minor-mode |
| 287 (define-minor-mode ,global-mode | 288 (define-minor-mode ,global-mode |