mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-25 10:47:00 +00:00
Code Issues Releases Activity

Make get-buffer-window-list take MINIBUF arg.

Browse Source
This commit is contained in:
Simon Marshall 1996-02-28 09:22:11 +00:00
parent 673cc3c51d
commit 63503b24ca
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/subr.el
View File

@ -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)