From: Ken Raeburn <raeburn@raeburn.org>
Date: Tue, 6 Dec 2005 07:39:57 +0000 (+0000)
Subject: (Fminibuffer_complete_and_exit): Avoid dangerous side effects in NILP argument.
X-Git-Tag: emacs-pretest-22.0.90~5486
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7723a3e52b00e7db534d576b5e3701a9defe63c4;p=emacs.git

(Fminibuffer_complete_and_exit): Avoid dangerous side effects in NILP argument.
---

diff --git a/src/minibuf.c b/src/minibuf.c
index e7df7bd0153..76529bf86e6 100644
--- a/src/minibuf.c
+++ b/src/minibuf.c
@@ -2116,16 +2116,17 @@ a repetition of this command will exit.  */)
      ()
 {
   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. */