(Fcall_interactively): Prevent a compiler warning.

diff --git a/src/callint.c b/src/callint.c
index 5289bfa3853d028e4d33ae0b437c2b06df7e387c..df3ada4f04a5337ba1e718f2ad278b8688f817ec 100644 (file)
--- a/src/callint.c
+++ b/src/callint.c
@@ -1,5 +1,6 @@
 /* Call a Lisp function interactively.
-   Copyright (C) 1985, 86, 93, 94, 95, 1997 Free Software Foundation, Inc.
+   Copyright (C) 1985, 86, 93, 94, 95, 1997, 2000
+   Free Software Foundation, Inc.
 
 This file is part of GNU Emacs.
 
@@ -236,6 +237,8 @@ supply if the command inquires which events were used to invoke it.")
 
   if (SYMBOLP (function))
     enable = Fget (function, Qenable_recursive_minibuffers);
+  else
+    enable = Qnil;
 
   fun = indirect_function (function);