* lisp.h (FOR_EACH_ALIST_VALUE): New macro

to do `for' loops over alist values.
* buffer.h (FOR_EACH_BUFFER):
* process.c (FOR_EACH_PROCESS): Use it.
(handle_child_signal, status_notify, Fget_buffer_process)
(kill_buffer_processes): Use FOR_EACH_PROCESS.

1 files changed, 6 insertions, 0 deletions

diff --git a/src/lisp.h b/src/lisp.h
index 6d79bb1d6a5..e6e90e1e968 100644
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -4342,6 +4342,12 @@ extern void *record_xmalloc (size_t);
       memory_full (SIZE_MAX);                                  \
   } while (0)
 
+/* Do a `for' loop over alist values.  */
+
+#define FOR_EACH_ALIST_VALUE(head_var, list_var, value_var)             \
+  for (list_var = head_var;                                             \
+       (CONSP (list_var) && (value_var = XCDR (XCAR (list_var)), 1));   \
+       list_var = XCDR (list_var))
 
 /* Check whether it's time for GC, and run it if so.  */