Merge branch 'master' into xwidget

[gnu-emacs] / src / buffer.c

diff --git a/src/buffer.c b/src/buffer.c
index 6bff57fe12e1283b5649db21e4390af60936c6e8..223683db6f32c60f6d3bacf7b29562696dffec96 100644 (file)
--- a/src/buffer.c
+++ b/src/buffer.c
@@ -390,7 +390,6 @@ followed by the rest of the buffers.  */)
   if (FRAMEP (frame))
     {
       Lisp_Object framelist, prevlist, tail;
-      Lisp_Object args[3];
 
       framelist = Fcopy_sequence (XFRAME (frame)->buffer_list);
       prevlist = Fnreverse (Fcopy_sequence
@@ -411,10 +410,7 @@ followed by the rest of the buffers.  */)
          tail = XCDR (tail);
        }
 
-      args[0] = framelist;
-      args[1] = general;
-      args[2] = prevlist;
-      return Fnconc (3, args);
+      return CALLN (Fnconc, framelist, general, prevlist);
     }
   else
     return general;
@@ -1657,15 +1653,14 @@ cleaning up all windows currently displaying the buffer to be killed. */)
   /* Run hooks with the buffer to be killed the current buffer.  */
   {
     ptrdiff_t count = SPECPDL_INDEX ();
-    Lisp_Object arglist[1];
 
     record_unwind_protect (save_excursion_restore, save_excursion_save ());
     set_buffer_internal (b);
 
     /* First run the query functions; if any query is answered no,
        don't kill the buffer.  */
-    arglist[0] = Qkill_buffer_query_functions;
-    tem = Frun_hook_with_args_until_failure (1, arglist);
+    tem = CALLN (Frun_hook_with_args_until_failure,
+                Qkill_buffer_query_functions);
     if (NILP (tem))
       return unbind_to (count, Qnil);