branch: externals/beframe
commit 484a4d1031fdcf6e2bc9bb8c9a4c12c5fb326781
Merge: 773473f174 963b5271e7
Author: Protesilaos <[email protected]>
Commit: GitHub <[email protected]>
Merge pull request #18 from drusso/read-buffer-predicate
Use the predicate in beframe-read-buffer
---
beframe.el | 8 +++++---
1 file changed, 5 insertions(+), 3 deletions(-)
diff --git a/beframe.el b/beframe.el
index e6f82d4ad4..98f759ad43 100644
--- a/beframe.el
+++ b/beframe.el
@@ -313,10 +313,10 @@ CANDIDATES is a list of strings. METADATA is described in
(complete-with-action action candidates string pred))))
;;;###autoload
-(defun beframe-read-buffer (prompt &optional def require-match _predicate)
+(defun beframe-read-buffer (prompt &optional def require-match predicate)
"The `read-buffer-function' that limits buffers to frames.
PROMPT, DEF, REQUIRE-MATCH, and PREDICATE are the same as
-`read-buffer'. The PREDICATE is ignored, however, to apply the
+`read-buffer'. The PREDICATE is applied in addition to the
per-frame filter."
(let* ((buffers (beframe-buffer-names))
(table (beframe-get-completion-table buffers '(category . buffer))))
@@ -324,7 +324,9 @@ per-frame filter."
(format "%s%s" (beframe--propertize-prompt-prefix) prompt)
table
(lambda (buffer)
- (beframe--read-buffer-p buffer buffers))
+ (and (beframe--read-buffer-p buffer buffers)
+ (or (not predicate)
+ (funcall predicate buffer))))
require-match
nil
'beframe-history
