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)))