diff options
| author | Stefan Monnier | 2002-08-26 16:40:49 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2002-08-26 16:40:49 +0000 |
| commit | d99d3266b0dcf56f3f050dc9be2bdd3320b5e72c (patch) | |
| tree | cfb7b0756f0a629d2b55f9b9061c8f3d422e40a2 | |
| parent | 098ba983220689662e04b2baf4c5acd8bf602f95 (diff) | |
| download | emacs-d99d3266b0dcf56f3f050dc9be2bdd3320b5e72c.tar.gz emacs-d99d3266b0dcf56f3f050dc9be2bdd3320b5e72c.zip | |
(define-minor-mode): Use customize-mark-as-set for global minor modes.
| -rw-r--r-- | lisp/emacs-lisp/easy-mmode.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/easy-mmode.el b/lisp/emacs-lisp/easy-mmode.el index 50b0f76c338..8f89d92a057 100644 --- a/lisp/emacs-lisp/easy-mmode.el +++ b/lisp/emacs-lisp/easy-mmode.el | |||
| @@ -190,11 +190,13 @@ With zero or negative ARG turn mode off. | |||
| 190 | ,@body | 190 | ,@body |
| 191 | ;; The on/off hooks are here for backward compatibility only. | 191 | ;; The on/off hooks are here for backward compatibility only. |
| 192 | (run-hooks ',hook (if ,mode ',hook-on ',hook-off)) | 192 | (run-hooks ',hook (if ,mode ',hook-on ',hook-off)) |
| 193 | ;; Return the new setting. | ||
| 194 | (if (interactive-p) | 193 | (if (interactive-p) |
| 195 | (message ,(format "%s %%sabled" pretty-name) | 194 | (progn |
| 196 | (if ,mode "en" "dis"))) | 195 | ,(if globalp `(customize-mark-as-set ',mode)) |
| 196 | (message ,(format "%s %%sabled" pretty-name) | ||
| 197 | (if ,mode "en" "dis")))) | ||
| 197 | (force-mode-line-update) | 198 | (force-mode-line-update) |
| 199 | ;; Return the new setting. | ||
| 198 | ,mode) | 200 | ,mode) |
| 199 | 201 | ||
| 200 | ;; Autoloading an easy-mmode-define-minor-mode autoloads | 202 | ;; Autoloading an easy-mmode-define-minor-mode autoloads |