/[emacs]/emacs/lisp/window.el
ViewVC logotype

Diff of /emacs/lisp/window.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.108 by ttn, Sat Aug 6 22:13:43 2005 UTC revision 1.109 by rms, Sat Oct 22 15:35:06 2005 UTC
# Line 192  Anything else means restrict to the sele Line 192  Anything else means restrict to the sele
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)))

Legend:
Removed from v.1.108  
changed lines
  Added in v.1.109

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26