# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1099389614 0
# Node ID d502896ff443c454a41df98fce30d2e2a8b3fcf5
# Parent  7f92b8204827feb0bf6912b3c3b8870b6ad484d6
(Fcalled_interactively_p): Rename from Fcall_interactive_p.
(syms_of_eval): Defsubr it.

diff -r 7f92b8204827 -r d502896ff443 src/eval.c
--- a/src/eval.c	Tue Nov 02 09:59:28 2004 +0000
+++ b/src/eval.c	Tue Nov 02 10:00:14 2004 +0000
@@ -562,7 +562,7 @@
 }
 
 
-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 @@
   defsubr (&Scondition_case);
   defsubr (&Ssignal);
   defsubr (&Sinteractive_p);
+  defsubr (&Scalled_interactively_p);
   defsubr (&Scommandp);
   defsubr (&Sautoload);
   defsubr (&Seval);