Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-17 18:37:33 +00:00
Code Issues Projects Releases Packages Wiki Activity

Cope if get-buffer-window-list is given a buffer name (like get-buffer-window does).

Browse source
This commit is contained in:
Simon Marshall 1996-02-08 10:27:24 +00:00
parent a465832f09
commit 43c5ac8cbe
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/subr.el
View file

@ -701,7 +701,7 @@ On other systems, this variable is normally always nil.")
(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)
(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)))))