changeset 34799:c04a8de55245

(Fcall_interactively): Prevent a compiler warning.
author Gerd Moellmann <gerd@gnu.org>
date Thu, 21 Dec 2000 20:40:40 +0000
parents 9794feac3a9d
children 075528550112
files src/callint.c
diffstat 1 files changed, 4 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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);