From: Kim F. Storm <storm@cua.dk>
Date: Fri, 25 Aug 2006 23:33:44 +0000 (+0000)
Subject: (Fset_buffer_multibyte): Simplify; use list3.
X-Git-Tag: emacs-pretest-22.0.90~872
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8929fd8784f3029494d04fef6896247385c9d6c0;p=emacs.git

(Fset_buffer_multibyte): Simplify; use list3.
---

diff --git a/src/buffer.c b/src/buffer.c
index 81ea51b357a..863b217d2b4 100644
--- a/src/buffer.c
+++ b/src/buffer.c
@@ -2345,11 +2345,10 @@ current buffer is cleared.  */)
     {
       /* 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;