diff options
| author | Kim F. Storm <storm@cua.dk> | 2006-08-25 23:33:44 +0000 |
|---|---|---|
| committer | Kim F. Storm <storm@cua.dk> | 2006-08-25 23:33:44 +0000 |
| commit | 8929fd8784f3029494d04fef6896247385c9d6c0 (patch) | |
| tree | a1501f2146593ffc1e3cedb1776f9f82635d78cf /src/buffer.c | |
| parent | 799734b06388430cca13e5933fa57d782b7b1435 (diff) | |
| download | emacs-8929fd8784f3029494d04fef6896247385c9d6c0.tar.gz | |
(Fset_buffer_multibyte): Simplify; use list3.
Diffstat (limited to 'src/buffer.c')
| -rw-r--r-- | src/buffer.c | 9 |
1 files changed, 4 insertions, 5 deletions
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; |