comparison src/buffer.c @ 72532:71e0aa245bce

(Fset_buffer_multibyte): Simplify; use list3.
author Kim F. Storm <storm@cua.dk>
date Fri, 25 Aug 2006 23:33:44 +0000
parents 49a6e184d20a
children f6de516bbb4b 694bbb62a75d 6823a91487f2
comparison
equal deleted inserted replaced
72531:90bdf0a2ff4c 72532:71e0aa245bce
2343 2343
2344 if (!EQ (old_undo, Qt)) 2344 if (!EQ (old_undo, Qt))
2345 { 2345 {
2346 /* Represent all the above changes by a special undo entry. */ 2346 /* Represent all the above changes by a special undo entry. */
2347 extern Lisp_Object Qapply; 2347 extern Lisp_Object Qapply;
2348 Lisp_Object args[3]; 2348 current_buffer->undo_list = Fcons (list3 (Qapply,
2349 args[0] = Qapply; 2349 intern ("set-buffer-multibyte"),
2350 args[1] = intern ("set-buffer-multibyte"); 2350 NILP (flag) ? Qt : Qnil),
2351 args[2] = NILP (flag) ? Qt : Qnil; 2351 old_undo);
2352 current_buffer->undo_list = Fcons (Flist (3, args), old_undo);
2353 } 2352 }
2354 2353
2355 UNGCPRO; 2354 UNGCPRO;
2356 2355
2357 /* Changing the multibyteness of a buffer means that all windows 2356 /* Changing the multibyteness of a buffer means that all windows