diff options
| author | Simon Marshall <simon@gnu.org> | 1996-02-08 10:27:24 +0000 |
|---|---|---|
| committer | Simon Marshall <simon@gnu.org> | 1996-02-08 10:27:24 +0000 |
| commit | d91f15d45569bf6a20d2774cdb434c09134c47eb (patch) | |
| tree | 98ea6edc0ddbe6d36e28820032e28be86fa773e6 | |
| parent | 4668e66ab1c76e95c3b7183ee414cd05591a274f (diff) | |
| download | emacs-d91f15d45569bf6a20d2774cdb434c09134c47eb.tar.gz | |
Cope if get-buffer-window-list is given a buffer name (like get-buffer-window does).
| -rw-r--r-- | lisp/subr.el | 2 |
1 files changed, 1 insertions, 1 deletions
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))))) |