(define-minor-mode): Use called-interactively-p.

diff --git a/lisp/emacs-lisp/easy-mmode.el b/lisp/emacs-lisp/easy-mmode.el
index 2439fdd4de6a8438d801d60fd7ecbb9fd4b503a5..b6b91710ed426cd5187d5936bb633c52c35e9318 100644 (file)
--- a/lisp/emacs-lisp/easy-mmode.el
+++ b/lisp/emacs-lisp/easy-mmode.el
@@ -209,7 +209,7 @@ With zero or negative ARG turn mode off.
         ,@body
         ;; The on/off hooks are here for backward compatibility only.
         (run-hooks ',hook (if ,mode ',hook-on ',hook-off))
-        (if (interactive-p)
+        (if (called-interactively-p)
             (progn
               ,(if globalp `(customize-mark-as-set ',mode))
               (unless (current-message)