Mercurial > emacs
comparison lisp/emacs-lisp/easy-mmode.el @ 57882:15493a81cb78
(define-minor-mode): Use called-interactively-p.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 02 Nov 2004 09:23:34 +0000 |
| parents | d5f680b60b41 |
| children | ef30a398bcbe e24e2e78deda |
comparison
equal
deleted
inserted
replaced
| 57881:f57a9010e865 | 57882:15493a81cb78 |
|---|---|
| 207 ',mode) | 207 ',mode) |
| 208 nil)))) | 208 nil)))) |
| 209 ,@body | 209 ,@body |
| 210 ;; The on/off hooks are here for backward compatibility only. | 210 ;; The on/off hooks are here for backward compatibility only. |
| 211 (run-hooks ',hook (if ,mode ',hook-on ',hook-off)) | 211 (run-hooks ',hook (if ,mode ',hook-on ',hook-off)) |
| 212 (if (interactive-p) | 212 (if (called-interactively-p) |
| 213 (progn | 213 (progn |
| 214 ,(if globalp `(customize-mark-as-set ',mode)) | 214 ,(if globalp `(customize-mark-as-set ',mode)) |
| 215 (unless (current-message) | 215 (unless (current-message) |
| 216 (message ,(format "%s %%sabled" pretty-name) | 216 (message ,(format "%s %%sabled" pretty-name) |
| 217 (if ,mode "en" "dis"))))) | 217 (if ,mode "en" "dis"))))) |