# HG changeset patch
# User Simon Marshall <simon@gnu.org>
# Date 823773895 0
# Node ID b35134a0e47a879093ae7fa4daf070f5a7dda215
# Parent  2f15f316326d59879f0a623118e8fe6bb9afb293
Added get-buffer-window-list.

diff -r 2f15f316326d -r b35134a0e47a lisp/subr.el
--- a/lisp/subr.el	Thu Feb 08 06:36:57 1996 +0000
+++ b/lisp/subr.el	Thu Feb 08 10:04:55 1996 +0000
@@ -697,6 +697,17 @@
 On those systems, it is automatically local in every buffer.
 On other systems, this variable is normally always nil.")
 
+;; This should probably be written in C (i.e., without using `walk-windows').
+(defun get-buffer-window-list (buffer &optional frame)
+  "Return windows currently displaying BUFFER, or nil if none.
+See `get-buffer-window' for the meaning of FRAME."
+  (let (windows)
+    (walk-windows (function (lambda (window)
+			      (if (eq (window-buffer window) buffer)
+				  (setq windows (cons window windows)))))
+		  nil frame)
+    windows))
+
 (defun ignore (&rest ignore)
   "Do nothing and return nil.
 This function accepts any number of arguments, but ignores them."