From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 2 Nov 2004 09:23:34 +0000 (+0000)
Subject: (define-minor-mode): Use called-interactively-p.
X-Git-Tag: ttn-vms-21-2-B4~4242
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a27235b3b5a9a6a31a8f33410186bd35328531e2;p=emacs.git

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

diff --git a/lisp/emacs-lisp/easy-mmode.el b/lisp/emacs-lisp/easy-mmode.el
index 2439fdd4de6..b6b91710ed4 100644
--- 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)