[elpa] externals/beframe fddefd2263 1/4: Rename private function; make it accept optional FRAME

[ELPA Syncer]

branch: externals/beframe
commit fddefd2263b8437f8df7e21a7f972dce711fba79
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>

    Rename private function; make it accept optional FRAME
---
 beframe.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/beframe.el b/beframe.el
index a84d8f2348..4c77fa496e 100644
--- a/beframe.el
+++ b/beframe.el
@@ -415,15 +415,15 @@ NAME is either a string or a frame object (per `framep')."
     (t
      default-directory))))
 
-(defun beframe--frame-parameter-p (buf)
+(defun beframe--frame-buffer-p (buf &optional frame)
   "Return non-nil if BUF belongs to the current frame.
-BUF is a buffer object among `beframe--buffer-list'."
-  (memq buf (beframe--buffer-list)))
+Use optional FRAME to test if BUF belongs to it."
+  (memq buf (beframe--buffer-list frame)))
 
 (defun beframe--frame-predicate (&optional frame)
   "Set FRAME `buffer-predicate' parameter.
 If FRAME is nil, use the current frame."
-  (set-frame-parameter frame 'buffer-predicate #'beframe--frame-parameter-p))
+  (set-frame-parameter frame 'buffer-predicate #'beframe--frame-buffer-p))
 
 (defun beframe--with-other-frame (&rest app)
   "Apply APP with `other-frame-prefix'.