192 |
|
|
193 |
(defalias 'some-window 'get-window-with-predicate) |
(defalias 'some-window 'get-window-with-predicate) |
194 |
|
|
195 |
|
;; This should probably be written in C (i.e., without using `walk-windows'). |
196 |
|
(defun get-buffer-window-list (buffer &optional minibuf frame) |
197 |
|
"Return list of all windows displaying BUFFER, or nil if none. |
198 |
|
BUFFER can be a buffer or a buffer name. |
199 |
|
See `walk-windows' for the meaning of MINIBUF and FRAME." |
200 |
|
(let ((buffer (if (bufferp buffer) buffer (get-buffer buffer))) windows) |
201 |
|
(walk-windows (function (lambda (window) |
202 |
|
(if (eq (window-buffer window) buffer) |
203 |
|
(setq windows (cons window windows))))) |
204 |
|
minibuf frame) |
205 |
|
windows)) |
206 |
|
|
207 |
(defun minibuffer-window-active-p (window) |
(defun minibuffer-window-active-p (window) |
208 |
"Return t if WINDOW (a minibuffer window) is now active." |
"Return t if WINDOW (a minibuffer window) is now active." |
209 |
(eq window (active-minibuffer-window))) |
(eq window (active-minibuffer-window))) |