# HG changeset patch
# User Ken Raeburn <raeburn@raeburn.org>
# Date 1133854797 0
# Node ID ea1fabf8e347c517ea8010f3120b24f9bb49918a
# Parent  2fdf240a514dcddeedf034e7f23e7c3e80083b2a
(Fminibuffer_complete_and_exit): Avoid dangerous side effects in NILP argument.

diff -r 2fdf240a514d -r ea1fabf8e347 src/minibuf.c
--- a/src/minibuf.c	Tue Dec 06 07:39:37 2005 +0000
+++ b/src/minibuf.c	Tue Dec 06 07:39:57 2005 +0000
@@ -2116,16 +2116,17 @@
      ()
 {
   register int i;
-  Lisp_Object val;
+  Lisp_Object val, tem;
 
   /* Allow user to specify null string */
   if (XINT (Fminibuffer_prompt_end ()) == ZV)
     goto exit;
 
   val = Fminibuffer_contents ();
-  if (!NILP (Ftest_completion (val,
-			       Vminibuffer_completion_table,
-			       Vminibuffer_completion_predicate)))
+  tem = Ftest_completion (val,
+			  Vminibuffer_completion_table,
+			  Vminibuffer_completion_predicate);
+  if (!NILP (tem))
     {
       if (completion_ignore_case)
 	{ /* Fixup case of the field, if necessary. */