Commit 43c5ac8c authored by Simon Marshall's avatar Simon Marshall
Browse files

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

parent a465832f
......@@ -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)))))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment