mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-07 04:10:27 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
(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.
This commit is contained in:
Paul Eggert 2012-07-19 15:35:58 -07:00
parent 8a4e6db81a
commit 52b852c77d
5 changed files with 24 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/ChangeLog
View file

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

6
src/alloc.c
View file

@ -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)

18
src/buffer.c
View file

@ -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);
}

4
src/buffer.h
View file

@ -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))

2
src/data.c
View file

@ -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;
}