changeset 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 f57a9010e865
children 4e4baf7bbf77
files lisp/emacs-lisp/easy-mmode.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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)