* 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.

diff --git a/src/ChangeLog b/src/ChangeLog
index 8a60e0bdabeaa7046eb75e7d66924d1d7de48c4d..bed8e25ab77bef3c266c5891556ece4313fa30fd 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,12 @@
+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.

diff --git a/src/alloc.c b/src/alloc.c
index d24787576e978357fd7381ca93653168b00e4904..7158b45a340488e3f766f1aaa5c547bc947dc340 100644 (file)
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -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)

diff --git a/src/buffer.c b/src/buffer.c
index 0fc5dd0b9c3d0cc442aac7319df7ce5c9a38ce79..04d83d769456d1bedd2891a489acbb12a5009eed 100644 (file)
--- a/src/buffer.c
+++ b/src/buffer.c
@@ -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;
 
@@ -612,7 +612,7 @@ CLONE nil means the indirect buffer's state is reset to default values.  */)
       eassert (NILP (BVAR (b->base_buffer, begv_marker)));
       eassert (NILP (BVAR (b->base_buffer, zv_marker)));
 
-      BVAR (b->base_buffer, pt_marker) 
+      BVAR (b->base_buffer, pt_marker)
        = build_marker (b->base_buffer, b->base_buffer->pt, b->base_buffer->pt_byte);
 
       BVAR (b->base_buffer, begv_marker)
@@ -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
@@ -862,7 +862,7 @@ is first appended to NAME, to speed up finding a non-existent buffer.  */)
     {
       /* Note fileio.c:make_temp_name does random differently.  */
       tem2 = concat2 (name, make_formatted_string
-                     (number, "-%"pI"d", 
+                     (number, "-%"pI"d",
                       XFASTINT (Frandom (make_number (999999)))));
       tem = Fget_buffer (tem2);
       if (NILP (tem))
@@ -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);
  }

diff --git a/src/buffer.h b/src/buffer.h
index 6f090479a244d043b9dce992f433a5fa966807ba..a97cc13705b539fed5f302bd40588d303eb3f120 100644 (file)
--- a/src/buffer.h
+++ b/src/buffer.h
@@ -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))

diff --git a/src/data.c b/src/data.c
index 84bd347b13692c352252732f44ad1081fa573dc1..110e8ae41ab8f8d80952a6e4149f2d340ba8a0ac 100644 (file)
--- a/src/data.c
+++ b/src/data.c
@@ -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;
              }