New macro to iterate over live buffers similar to frames.

* buffer.h (FOR_EACH_LIVE_BUFFER): New macro.
(Vbuffer_alist, Qpriority, Qbefore_string, Qafter_string):
Declare buffer-related variables here to offload lisp.h.
* buffer.c (Vbuffer_alist): Adjust comment.
(Fget_file_buffer, get_truename_buffer, Fother_buffer)
(other_buffer_safely):
* data.c (store_symval_forwarding):
* dispnew.c (Fframe_or_buffer_changed_p):
* fileio.c (Fdo_auto_save):
* filelock.c (unlock_all_files):
* minibuf.c (read_minibuf): Use FOR_EACH_LIVE_BUFFER.

1 files changed, 10 insertions, 0 deletions

diff --git a/src/buffer.h b/src/buffer.h
index 641a561cafc..646f8f72232 100644
--- a/src/buffer.h
+++ b/src/buffer.h
@@ -1120,9 +1120,19 @@ record_unwind_current_buffer (void)
       }                                                                 \
   } while (0)
 
+extern Lisp_Object Vbuffer_alist;
 extern Lisp_Object Qbefore_change_functions;
 extern Lisp_Object Qafter_change_functions;
 extern Lisp_Object Qfirst_change_hook;
+extern Lisp_Object Qpriority, Qbefore_string, Qafter_string;
+
+/* FOR_EACH_LIVE_BUFFER (LIST_VAR, BUF_VAR) followed by a statement is
+   a `for' loop which iterates over the buffers from Vbuffer_alist.  */
+
+#define FOR_EACH_LIVE_BUFFER(list_var, buf_var)                         \
+  for (list_var = Vbuffer_alist;                                        \
+       (CONSP (list_var) && (buf_var = XCDR (XCAR (list_var)), 1));     \
+       list_var = XCDR (list_var))
 
 /* Get text properties of B.  */