# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 999862188 0
# Node ID 9ba7895e6ad28fa41175b52623fe021343557bee
# Parent  9955e741f70f766d789aa50e1dce869d092f041a
(get-window-with-predicate): Renamed from some-window.
(some-window): Make it an alias.

diff -r 9955e741f70f -r 9ba7895e6ad2 lisp/window.el
--- a/lisp/window.el	Fri Sep 07 11:19:02 2001 +0000
+++ b/lisp/window.el	Fri Sep 07 11:29:48 2001 +0000
@@ -84,7 +84,8 @@
 	      (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 @@
 		  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)))