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, 6 insertions, 7 deletions

diff --git a/src/filelock.c b/src/filelock.c
index 0f31b7d4deb..cb0bd5c7b96 100644
--- a/src/filelock.c
+++ b/src/filelock.c
@@ -745,16 +745,15 @@ unlock_file (Lisp_Object fn)
 void
 unlock_all_files (void)
 {
-  register Lisp_Object tail;
+  register Lisp_Object tail, buf;
   register struct buffer *b;
 
-  for (tail = Vbuffer_alist; CONSP (tail); tail = XCDR (tail))
+  FOR_EACH_LIVE_BUFFER (tail, buf)
     {
-      b = XBUFFER (XCDR (XCAR (tail)));
-      if (STRINGP (BVAR (b, file_truename)) && BUF_SAVE_MODIFF (b) < BUF_MODIFF (b))
-	{
-	  unlock_file (BVAR (b, file_truename));
-	}
+      b = XBUFFER (buf);
+      if (STRINGP (BVAR (b, file_truename))
+	  && BUF_SAVE_MODIFF (b) < BUF_MODIFF (b))
+	unlock_file (BVAR (b, file_truename));
     }
 }