(Fcall_interactively): Prevent a compiler warning.

1 files changed, 4 insertions, 1 deletions

diff --git a/src/callint.c b/src/callint.c
index 5289bfa3853..df3ada4f04a 100644
--- 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);