diff options
author | Gerd Moellmann <gerd@gnu.org> | 2001-09-07 11:29:48 +0000 |
---|---|---|
committer | Gerd Moellmann <gerd@gnu.org> | 2001-09-07 11:29:48 +0000 |
commit | 443d3c497d7ae6b1892258eb66ed28718d3ca54c (patch) | |
tree | aab938a726f2fbd633b9fa059cfb0427dafa732f /lisp/window.el | |
parent | b374f8397fc285699ecc4786bc410e64929e6dd8 (diff) | |
download | emacs-443d3c497d7ae6b1892258eb66ed28718d3ca54c.tar.gz |
(get-window-with-predicate): Renamed from some-window.
(some-window): Make it an alias.
Diffstat (limited to 'lisp/window.el')
-rw-r--r-- | lisp/window.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/window.el b/lisp/window.el index 19c3fa71c30..4d97117a4eb 100644 --- a/lisp/window.el +++ b/lisp/window.el @@ -84,7 +84,8 @@ Anything else means restrict to the selected frame." (cons walk-windows-current walk-windows-already-seen)) (funcall proc walk-windows-current))))) -(defun some-window (predicate &optional minibuf all-frames default) +(defun get-window-with-predicate (predicate &optional minibuf + all-frames default) "Return a window satisfying PREDICATE. This function cycles through all visible windows using `walk-windows', @@ -119,6 +120,8 @@ Anything else means restrict to the selected frame." minibuf all-frames) default)) +(defalias 'some-window 'get-window-with-predicate) + (defun minibuffer-window-active-p (window) "Return t if WINDOW (a minibuffer window) is now active." (eq window (active-minibuffer-window))) |