merge from trunk

[gnu-emacs] / src / lisp.h

diff --git a/src/lisp.h b/src/lisp.h
index 52110fbbaf441d983ee737b0e916c6c55d33405a..c672b5f31923d145bf871ac4c0f11bcf50f4355f 100644 (file)
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -4347,6 +4347,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.  */