branch: externals/beframe
commit bcc94f539ca5e4dc87798e59feea256fadf90beb
Author: Protesilaos Stavrou <[email protected]>
Commit: Protesilaos Stavrou <[email protected]>
Set the completion category in beframe-read-buffer
---
beframe.el | 17 +++++++++--------
1 file changed, 9 insertions(+), 8 deletions(-)
diff --git a/beframe.el b/beframe.el
index 396c112c2a..a79cce6faf 100644
--- a/beframe.el
+++ b/beframe.el
@@ -312,14 +312,15 @@ empty string."
PROMPT, DEF, REQUIRE-MATCH, and PREDICATE are the same as
`read-buffer'. The PREDICATE is ignored, however, to apply the
per-frame filter."
- (completing-read
- (format "%s%s" (beframe--propertize-prompt-prefix) prompt)
- (beframe-buffer-names)
- #'beframe--read-buffer-p
- require-match
- nil
- 'beframe-history
- def))
+ (let ((completion-extra-properties (list :category 'buffer)))
+ (completing-read
+ (format "%s%s" (beframe--propertize-prompt-prefix) prompt)
+ (beframe-buffer-names)
+ #'beframe--read-buffer-p
+ require-match
+ nil
+ 'beframe-history
+ def)))
(defun beframe--buffer-prompt (&optional frame)
"Prompt for buffer among `beframe-buffer-names'.
