diff options
Diffstat (limited to 'src/buffer.c')
| -rw-r--r-- | src/buffer.c | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/src/buffer.c b/src/buffer.c index 0fc5dd0b9c3..04d83d76945 100644 --- a/src/buffer.c +++ b/src/buffer.c | |||
| @@ -460,7 +460,7 @@ clone_per_buffer_values (struct buffer *from, struct buffer *to) | |||
| 460 | { | 460 | { |
| 461 | int offset; | 461 | int offset; |
| 462 | 462 | ||
| 463 | for_each_per_buffer_object_at (offset) | 463 | FOR_EACH_PER_BUFFER_OBJECT_AT (offset) |
| 464 | { | 464 | { |
| 465 | Lisp_Object obj; | 465 | Lisp_Object obj; |
| 466 | 466 | ||
| @@ -612,7 +612,7 @@ CLONE nil means the indirect buffer's state is reset to default values. */) | |||
| 612 | eassert (NILP (BVAR (b->base_buffer, begv_marker))); | 612 | eassert (NILP (BVAR (b->base_buffer, begv_marker))); |
| 613 | eassert (NILP (BVAR (b->base_buffer, zv_marker))); | 613 | eassert (NILP (BVAR (b->base_buffer, zv_marker))); |
| 614 | 614 | ||
| 615 | BVAR (b->base_buffer, pt_marker) | 615 | BVAR (b->base_buffer, pt_marker) |
| 616 | = build_marker (b->base_buffer, b->base_buffer->pt, b->base_buffer->pt_byte); | 616 | = build_marker (b->base_buffer, b->base_buffer->pt, b->base_buffer->pt_byte); |
| 617 | 617 | ||
| 618 | BVAR (b->base_buffer, begv_marker) | 618 | BVAR (b->base_buffer, begv_marker) |
| @@ -817,7 +817,7 @@ reset_buffer_local_variables (register struct buffer *b, int permanent_too) | |||
| 817 | SET_PER_BUFFER_VALUE_P (b, i, 0); | 817 | SET_PER_BUFFER_VALUE_P (b, i, 0); |
| 818 | 818 | ||
| 819 | /* For each slot that has a default value, copy that into the slot. */ | 819 | /* For each slot that has a default value, copy that into the slot. */ |
| 820 | for_each_per_buffer_object_at (offset) | 820 | FOR_EACH_PER_BUFFER_OBJECT_AT (offset) |
| 821 | { | 821 | { |
| 822 | int idx = PER_BUFFER_IDX (offset); | 822 | int idx = PER_BUFFER_IDX (offset); |
| 823 | if ((idx > 0 | 823 | if ((idx > 0 |
| @@ -862,7 +862,7 @@ is first appended to NAME, to speed up finding a non-existent buffer. */) | |||
| 862 | { | 862 | { |
| 863 | /* Note fileio.c:make_temp_name does random differently. */ | 863 | /* Note fileio.c:make_temp_name does random differently. */ |
| 864 | tem2 = concat2 (name, make_formatted_string | 864 | tem2 = concat2 (name, make_formatted_string |
| 865 | (number, "-%"pI"d", | 865 | (number, "-%"pI"d", |
| 866 | XFASTINT (Frandom (make_number (999999))))); | 866 | XFASTINT (Frandom (make_number (999999))))); |
| 867 | tem = Fget_buffer (tem2); | 867 | tem = Fget_buffer (tem2); |
| 868 | if (NILP (tem)) | 868 | if (NILP (tem)) |
| @@ -1072,7 +1072,7 @@ No argument or nil as argument means use current buffer as BUFFER. */) | |||
| 1072 | { | 1072 | { |
| 1073 | int offset, idx; | 1073 | int offset, idx; |
| 1074 | 1074 | ||
| 1075 | for_each_per_buffer_object_at (offset) | 1075 | FOR_EACH_PER_BUFFER_OBJECT_AT (offset) |
| 1076 | { | 1076 | { |
| 1077 | idx = PER_BUFFER_IDX (offset); | 1077 | idx = PER_BUFFER_IDX (offset); |
| 1078 | if ((idx == -1 || PER_BUFFER_VALUE_P (buf, idx)) | 1078 | if ((idx == -1 || PER_BUFFER_VALUE_P (buf, idx)) |
| @@ -1577,7 +1577,7 @@ cleaning up all windows currently displaying the buffer to be killed. */) | |||
| 1577 | 1577 | ||
| 1578 | GCPRO1 (buffer); | 1578 | GCPRO1 (buffer); |
| 1579 | 1579 | ||
| 1580 | for_each_buffer (other) | 1580 | FOR_EACH_BUFFER (other) |
| 1581 | if (other->base_buffer == b) | 1581 | if (other->base_buffer == b) |
| 1582 | { | 1582 | { |
| 1583 | Lisp_Object buf; | 1583 | Lisp_Object buf; |
| @@ -2095,7 +2095,7 @@ DEFUN ("buffer-swap-text", Fbuffer_swap_text, Sbuffer_swap_text, | |||
| 2095 | 2095 | ||
| 2096 | { /* This is probably harder to make work. */ | 2096 | { /* This is probably harder to make work. */ |
| 2097 | struct buffer *other; | 2097 | struct buffer *other; |
| 2098 | for_each_buffer (other) | 2098 | FOR_EACH_BUFFER (other) |
| 2099 | if (other->base_buffer == other_buffer | 2099 | if (other->base_buffer == other_buffer |
| 2100 | || other->base_buffer == current_buffer) | 2100 | || other->base_buffer == current_buffer) |
| 2101 | error ("One of the buffers to swap has indirect buffers"); | 2101 | error ("One of the buffers to swap has indirect buffers"); |
| @@ -2472,7 +2472,7 @@ current buffer is cleared. */) | |||
| 2472 | 2472 | ||
| 2473 | /* Copy this buffer's new multibyte status | 2473 | /* Copy this buffer's new multibyte status |
| 2474 | into all of its indirect buffers. */ | 2474 | into all of its indirect buffers. */ |
| 2475 | for_each_buffer (other) | 2475 | FOR_EACH_BUFFER (other) |
| 2476 | if (other->base_buffer == current_buffer && !NILP (BVAR (other, name))) | 2476 | if (other->base_buffer == current_buffer && !NILP (BVAR (other, name))) |
| 2477 | { | 2477 | { |
| 2478 | BVAR (other, enable_multibyte_characters) | 2478 | BVAR (other, enable_multibyte_characters) |
| @@ -5078,7 +5078,7 @@ init_buffer (void) | |||
| 5078 | Map new memory. */ | 5078 | Map new memory. */ |
| 5079 | struct buffer *b; | 5079 | struct buffer *b; |
| 5080 | 5080 | ||
| 5081 | for_each_buffer (b) | 5081 | FOR_EACH_BUFFER (b) |
| 5082 | if (b->text->beg == NULL) | 5082 | if (b->text->beg == NULL) |
| 5083 | enlarge_buffer_text (b, 0); | 5083 | enlarge_buffer_text (b, 0); |
| 5084 | } | 5084 | } |