aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Monnier2002-08-26 16:40:49 +0000
committerStefan Monnier2002-08-26 16:40:49 +0000
commitd99d3266b0dcf56f3f050dc9be2bdd3320b5e72c (patch)
treecfb7b0756f0a629d2b55f9b9061c8f3d422e40a2
parent098ba983220689662e04b2baf4c5acd8bf602f95 (diff)
downloademacs-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.el8
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