Mercurial > emacs
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 |