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 |
