From 43c5ac8cbeefe03996401ea7d472e040ca0e62f2 Mon Sep 17 00:00:00 2001 From: Simon Marshall Date: Thu, 8 Feb 1996 10:27:24 +0000 Subject: [PATCH] Cope if get-buffer-window-list is given a buffer name (like get-buffer-window does). --- lisp/subr.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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))))) -- 2.39.2