From: Simon Marshall Date: Thu, 8 Feb 1996 10:27:24 +0000 (+0000) Subject: Cope if get-buffer-window-list is given a buffer name (like get-buffer-window does). X-Git-Tag: emacs-19.34~1343 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=43c5ac8cbeefe03996401ea7d472e040ca0e62f2;p=emacs.git Cope if get-buffer-window-list is given a buffer name (like get-buffer-window does). --- diff --git a/lisp/subr.el b/lisp/subr.el index df91d84efc0..71566b2250d 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -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)))))