Mercurial > emacs
diff lisp/subr.el @ 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 | b35134a0e47a |
children | ddcae263bb18 |
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)))))