From 4b664e76189829082fc6b947e8bb60356e62db33 Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Tue, 2 Nov 2004 10:00:14 +0000 Subject: [PATCH] (Fcalled_interactively_p): Rename from Fcall_interactive_p. (syms_of_eval): Defsubr it. --- src/eval.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/eval.c b/src/eval.c index 6d37d43c79c..5fb35cee58b 100644 --- a/src/eval.c +++ b/src/eval.c @@ -562,7 +562,7 @@ unconditionally for that argument. (`p' is a good way to do this.) */) } -DEFUN ("called-interactively-p", Fcall_interactive_p, Scall_interactive_p, 0, 0, 0, +DEFUN ("called-interactively-p", Fcalled_interactively_p, Scalled_interactively_p, 0, 0, 0, doc: /* Return t if the function using this was called with call-interactively. This is used for implementing advice and other function-modifying features of Emacs. @@ -3470,6 +3470,7 @@ The value the function returns is not used. */); defsubr (&Scondition_case); defsubr (&Ssignal); defsubr (&Sinteractive_p); + defsubr (&Scalled_interactively_p); defsubr (&Scommandp); defsubr (&Sautoload); defsubr (&Seval); -- 2.39.5