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

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

diff --git a/src/buffer.c b/src/buffer.c
index a20f6a2d683..d52a710573e 100644
--- a/src/buffer.c
+++ b/src/buffer.c
@@ -1359,7 +1359,8 @@ with SIGHUP.  */)
     /* First run the query functions; if any query is answered no,
        don't kill the buffer.  */
     arglist[0] = Qkill_buffer_query_functions;
-    if (NILP (Frun_hook_with_args_until_failure (1, arglist)))
+    tem = Frun_hook_with_args_until_failure (1, arglist);
+    if (NILP (tem))
       return unbind_to (count, Qnil);
 
     /* Then run the hooks.  */