(try_window_id) <all changes below window end>: Don't

[gnu-emacs] / src / mocklisp.c

diff --git a/src/mocklisp.c b/src/mocklisp.c
index 97b19dc580529c2fe1ed51f3013ef98d205c160b..00329b8038ed23f672819836d0462591e2c4a9f2 100644 (file)
--- a/src/mocklisp.c
+++ b/src/mocklisp.c
@@ -50,6 +50,7 @@ DEFUN ("ml-if", Fml_if, Sml_if, 0, UNEVALLED, 0, "Mocklisp version of `if'.")
   register Lisp_Object val;
   struct gcpro gcpro1;
 
+  val = Qnil;
   GCPRO1 (args);
   while (!NILP (args))
     {
@@ -227,6 +228,7 @@ is converted into a string by expressing it in decimal.")
 }
 
 \f
+void
 syms_of_mocklisp ()
 {
   Qmocklisp = intern ("mocklisp");