Mercurial > emacs
changeset 99122:6fff8b7a31ca
(get-buffer-window-list): Rename buffer argument to
buffer-or-name and make it optional.
| author | Martin Rudalics <rudalics@gmx.at> |
|---|---|
| date | Sat, 25 Oct 2008 08:07:42 +0000 |
| parents | cb50c1c2666b |
| children | b86c228e54c9 |
| files | lisp/window.el |
| diffstat | 1 files changed, 9 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/window.el Sat Oct 25 07:57:37 2008 +0000 +++ b/lisp/window.el Sat Oct 25 08:07:42 2008 +0000 @@ -193,11 +193,16 @@ (defalias 'some-window 'get-window-with-predicate) ;; This should probably be written in C (i.e., without using `walk-windows'). -(defun get-buffer-window-list (buffer &optional minibuf all-frames) - "Return list of all windows displaying BUFFER, or nil if none. -BUFFER can be a buffer or a buffer name. +(defun get-buffer-window-list (&optional buffer-or-name minibuf all-frames) + "Return list of all windows displaying BUFFER-OR-NAME, or nil if none. +BUFFER-OR-NAME may be a buffer or the name of an existing buffer +and defaults to nil. See `walk-windows' for the meaning of MINIBUF and ALL-FRAMES." - (let ((buffer (if (bufferp buffer) buffer (get-buffer buffer))) windows) + (let ((buffer (cond + ((not buffer-or-name) (current-buffer)) + ((bufferp buffer-or-name) buffer-or-name) + (t (get-buffer buffer-or-name)))) + windows) (walk-windows (function (lambda (window) (if (eq (window-buffer window) buffer) (setq windows (cons window windows)))))