changeset 57889:d502896ff443

(Fcalled_interactively_p): Rename from Fcall_interactive_p. (syms_of_eval): Defsubr it.
author Kim F. Storm <storm@cua.dk>
date Tue, 02 Nov 2004 10:00:14 +0000
parents 7f92b8204827
children 26a2c174fab4
files src/eval.c
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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);