From a860d25f73df4dc12b52e74359ff4d6d05feb653 Mon Sep 17 00:00:00 2001 From: Simon Marshall Date: Thu, 8 Feb 1996 10:04:55 +0000 Subject: [PATCH] Added get-buffer-window-list. --- lisp/subr.el | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/lisp/subr.el b/lisp/subr.el index 11d22bb8f8f..df91d84efc0 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -697,6 +697,17 @@ This variable is meaningful on MS-DOG and Windows NT. 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." -- 2.39.2