Mercurial > emacs
changeset 14517:8b88e5c2a6d5
Cope if get-buffer-window-list is given a buffer name (like get-buffer-window does).
| author | Simon Marshall <simon@gnu.org> |
|---|---|
| date | Thu, 08 Feb 1996 10:27:24 +0000 |
| parents | 9360c3107669 |
| children | 5b2bc060c90d |
| files | lisp/subr.el |
| diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/subr.el Thu Feb 08 10:08:08 1996 +0000 +++ b/lisp/subr.el Thu Feb 08 10:27:24 1996 +0000 @@ -701,7 +701,7 @@ (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)))))