# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1099387414 0
# Node ID 15493a81cb7850792c79fd1531310b14fcbf4212
# Parent  f57a9010e8657bf8e81aeea77bfc93acb15a450e
(define-minor-mode): Use called-interactively-p.

diff -r f57a9010e865 -r 15493a81cb78 lisp/emacs-lisp/easy-mmode.el
--- a/lisp/emacs-lisp/easy-mmode.el	Tue Nov 02 09:22:16 2004 +0000
+++ b/lisp/emacs-lisp/easy-mmode.el	Tue Nov 02 09:23:34 2004 +0000
@@ -209,7 +209,7 @@
 	 ,@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)