martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases 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
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)))))