# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 867359362 0
# Node ID 9f56267273517e6b66c94ebcd528a6a0b0c110aa
# Parent  b44129078db3e313e7c390f9545ac8ba1dfb1f4e
(Fbuffer_list): New optional argument FRAME.

diff -r b44129078db3 -r 9f5626727351 src/buffer.c
--- a/src/buffer.c	Thu Jun 26 21:08:49 1997 +0000
+++ b/src/buffer.c	Thu Jun 26 21:09:22 1997 +0000
@@ -39,6 +39,7 @@
 #include "region-cache.h"
 #include "indent.h"
 #include "blockinput.h"
+#include "frame.h"
 
 struct buffer *current_buffer;		/* the current buffer */
 
@@ -179,11 +180,34 @@
 	  ? Qt : Qnil);
 }
 
-DEFUN ("buffer-list", Fbuffer_list, Sbuffer_list, 0, 0, 0,
-  "Return a list of all existing live buffers.")
-  ()
+DEFUN ("buffer-list", Fbuffer_list, Sbuffer_list, 0, 1, 0,
+  "Return a list of all existing live buffers.\n\
+If the optional arg FRAME is a frame, we return that frame's buffer list.")
+  (frame)
+     Lisp_Object frame;
 {
-  return Fmapcar (Qcdr, Vbuffer_alist);
+  Lisp_Object framelist, general;
+  general = Fmapcar (Qcdr, Vbuffer_alist);
+
+  if (FRAMEP (frame))
+    {
+      Lisp_Object tail;
+
+      CHECK_FRAME (frame, 1);
+
+      framelist = Fcopy_sequence (XFRAME (frame)->buffer_list);
+
+      /* Remove from GENERAL any buffer that duplicates one in FRAMELIST.  */
+      tail = framelist;
+      while (! NILP (tail))
+	{
+	  general = Fdelq (XCONS (tail)->car, general);
+	  tail = XCONS (tail)->cdr;
+	}
+      return nconc2 (framelist, general);
+    }
+
+  return general;
 }
 
 /* Like Fassoc, but use Fstring_equal to compare