Commit 52b852c7 authored by Paul Eggert's avatar Paul Eggert

* buffer.h (FOR_EACH_BUFFER): Rename from 'for_each_buffer'.

(FOR_EACH_PER_BUFFER_OBJECT_AT): Rename from
'for_each_per_buffer_object_at'.
All uses changed.  It's better to use upper-case for macros that
cannot be implemented as functions, to give the reader a clue
that they're special.
parent 8a4e6db8
2012-07-19 Paul Eggert <eggert@cs.ucla.edu>
* buffer.h (FOR_EACH_BUFFER): Rename from 'for_each_buffer'.
(FOR_EACH_PER_BUFFER_OBJECT_AT): Rename from
'for_each_per_buffer_object_at'.
All uses changed. It's better to use upper-case for macros that
cannot be implemented as functions, to give the reader a clue
that they're special.
2012-07-19 Stefan Monnier <monnier@iro.umontreal.ca>
* alloc.c (Fgarbage_collect): Tweak docstring.
......
......@@ -5412,7 +5412,7 @@ See Info node `(elisp)Garbage Collection'. */)
/* Don't keep undo information around forever.
Do this early on, so it is no problem if the user quits. */
for_each_buffer (nextb)
FOR_EACH_BUFFER (nextb)
compact_buffer (nextb);
t1 = current_emacs_time ();
......@@ -5527,7 +5527,7 @@ See Info node `(elisp)Garbage Collection'. */)
Look thru every buffer's undo list
for elements that update markers that were not marked,
and delete them. */
for_each_buffer (nextb)
FOR_EACH_BUFFER (nextb)
{
/* If a buffer's undo list is Qt, that means that undo is
turned off in that buffer. Calling truncate_undo_list on
......@@ -5955,7 +5955,7 @@ mark_object (Lisp_Object arg)
if (po != &buffer_defaults && po != &buffer_local_symbols)
{
struct buffer *b;
for_each_buffer (b)
FOR_EACH_BUFFER (b)
if (b == po)
break;
if (b == NULL)
......
......@@ -460,7 +460,7 @@ clone_per_buffer_values (struct buffer *from, struct buffer *to)
{
int offset;
for_each_per_buffer_object_at (offset)
FOR_EACH_PER_BUFFER_OBJECT_AT (offset)
{
Lisp_Object obj;
......@@ -817,7 +817,7 @@ reset_buffer_local_variables (register struct buffer *b, int permanent_too)
SET_PER_BUFFER_VALUE_P (b, i, 0);
/* For each slot that has a default value, copy that into the slot. */
for_each_per_buffer_object_at (offset)
FOR_EACH_PER_BUFFER_OBJECT_AT (offset)
{
int idx = PER_BUFFER_IDX (offset);
if ((idx > 0
......@@ -1072,7 +1072,7 @@ No argument or nil as argument means use current buffer as BUFFER. */)
{
int offset, idx;
for_each_per_buffer_object_at (offset)
FOR_EACH_PER_BUFFER_OBJECT_AT (offset)
{
idx = PER_BUFFER_IDX (offset);
if ((idx == -1 || PER_BUFFER_VALUE_P (buf, idx))
......@@ -1577,7 +1577,7 @@ cleaning up all windows currently displaying the buffer to be killed. */)
GCPRO1 (buffer);
for_each_buffer (other)
FOR_EACH_BUFFER (other)
if (other->base_buffer == b)
{
Lisp_Object buf;
......@@ -2095,7 +2095,7 @@ DEFUN ("buffer-swap-text", Fbuffer_swap_text, Sbuffer_swap_text,
{ /* This is probably harder to make work. */
struct buffer *other;
for_each_buffer (other)
FOR_EACH_BUFFER (other)
if (other->base_buffer == other_buffer
|| other->base_buffer == current_buffer)
error ("One of the buffers to swap has indirect buffers");
......@@ -2472,7 +2472,7 @@ current buffer is cleared. */)
/* Copy this buffer's new multibyte status
into all of its indirect buffers. */
for_each_buffer (other)
FOR_EACH_BUFFER (other)
if (other->base_buffer == current_buffer && !NILP (BVAR (other, name)))
{
BVAR (other, enable_multibyte_characters)
......@@ -5078,7 +5078,7 @@ init_buffer (void)
Map new memory. */
struct buffer *b;
for_each_buffer (b)
FOR_EACH_BUFFER (b)
if (b->text->beg == NULL)
enlarge_buffer_text (b, 0);
}
......
......@@ -866,7 +866,7 @@ extern struct buffer *all_buffers;
/* Used to iterate over the chain above. */
#define for_each_buffer(b) \
#define FOR_EACH_BUFFER(b) \
for ((b) = all_buffers; (b); (b) = (b)->header.next.buffer)
/* This points to the current buffer. */
......@@ -1021,7 +1021,7 @@ extern int last_per_buffer_idx;
Lisp_Objects except undo_list). If you add, remove, or reorder
Lisp_Objects in a struct buffer, make sure that this is still correct. */
#define for_each_per_buffer_object_at(offset) \
#define FOR_EACH_PER_BUFFER_OBJECT_AT(offset) \
for (offset = PER_BUFFER_VAR_OFFSET (name); \
offset <= PER_BUFFER_VAR_OFFSET (cursor_in_non_selected_windows); \
offset += sizeof (Lisp_Object))
......
......@@ -1401,7 +1401,7 @@ for this variable. */)
{
struct buffer *b;
for_each_buffer (b)
FOR_EACH_BUFFER (b)
if (!PER_BUFFER_VALUE_P (b, idx))
PER_BUFFER_VALUE (b, offset) = value;
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment