diff options
author | Simon Marshall <simon@gnu.org> | 1996-02-28 09:22:11 +0000 |
---|---|---|
committer | Simon Marshall <simon@gnu.org> | 1996-02-28 09:22:11 +0000 |
commit | 63503b24ca7f855d043608e6b93b6704273d60e2 (patch) | |
tree | e86be68199a0431dd3ca59884c9864bb5a7e3084 /lisp/subr.el | |
parent | 673cc3c51d87926c7a320557022f82ae6c6a2778 (diff) | |
download | emacs-63503b24ca7f855d043608e6b93b6704273d60e2.tar.gz |
Make get-buffer-window-list take MINIBUF arg.
Diffstat (limited to 'lisp/subr.el')
-rw-r--r-- | lisp/subr.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/subr.el b/lisp/subr.el index 71566b2250d..f5087fc6851 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -698,14 +698,14 @@ 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) +(defun get-buffer-window-list (buffer &optional minibuf frame) "Return windows currently displaying BUFFER, or nil if none. -See `get-buffer-window' for the meaning of FRAME." +See `walk-windows' for the meaning of MINIBUF and FRAME." (let ((buffer (if (bufferp buffer) buffer (get-buffer buffer))) windows) (walk-windows (function (lambda (window) (if (eq (window-buffer window) buffer) (setq windows (cons window windows))))) - nil frame) + minibuf frame) windows)) (defun ignore (&rest ignore) |