From: Kim F. Storm <storm@cua.dk>
Date: Tue, 2 Nov 2004 10:00:14 +0000 (+0000)
Subject: (Fcalled_interactively_p): Rename from Fcall_interactive_p.
X-Git-Tag: ttn-vms-21-2-B4~4235
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4b664e76189829082fc6b947e8bb60356e62db33;p=emacs.git

(Fcalled_interactively_p): Rename from Fcall_interactive_p.
(syms_of_eval): Defsubr it.
---

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);