# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 977431240 0
# Node ID c04a8de55245cdee46d19ac3ef3d55eeba1d9e93
# Parent  9794feac3a9d03eb4e63f9f73e3e620d69267c35
(Fcall_interactively): Prevent a compiler warning.

diff -r 9794feac3a9d -r c04a8de55245 src/callint.c
--- a/src/callint.c	Thu Dec 21 20:40:10 2000 +0000
+++ b/src/callint.c	Thu Dec 21 20:40:40 2000 +0000
@@ -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 @@
 
   if (SYMBOLP (function))
     enable = Fget (function, Qenable_recursive_minibuffers);
+  else
+    enable = Qnil;
 
   fun = indirect_function (function);