# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1156548824 0
# Node ID 71e0aa245bce83b52b75c241656d03eb36a5c0ac
# Parent  90bdf0a2ff4c2ae095a234bbd98c4602d25192b8
(Fset_buffer_multibyte): Simplify; use list3.

diff -r 90bdf0a2ff4c -r 71e0aa245bce src/buffer.c
--- a/src/buffer.c	Fri Aug 25 23:33:30 2006 +0000
+++ b/src/buffer.c	Fri Aug 25 23:33:44 2006 +0000
@@ -2345,11 +2345,10 @@
     {
       /* Represent all the above changes by a special undo entry.  */
       extern Lisp_Object Qapply;
-      Lisp_Object args[3];
-      args[0] = Qapply;
-      args[1] = intern ("set-buffer-multibyte");
-      args[2] = NILP (flag) ? Qt : Qnil;
-      current_buffer->undo_list = Fcons (Flist (3, args), old_undo);
+      current_buffer->undo_list = Fcons (list3 (Qapply,
+						intern ("set-buffer-multibyte"),
+						NILP (flag) ? Qt : Qnil),
+					 old_undo);
     }
 
   UNGCPRO;