branch: externals/orderless
commit 2f8573f3adca5cd45ea899389b31b8bb77acdd4d
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
orderless-kwd--buffer: Check category=buffer
---
orderless-kwd.el | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/orderless-kwd.el b/orderless-kwd.el
index 0b92ef7f9c..686afa19b6 100644
--- a/orderless-kwd.el
+++ b/orderless-kwd.el
@@ -72,7 +72,9 @@
(defsubst orderless-kwd--buffer (str)
"Return buffer from candidate STR."
- (get-buffer (or (cdr (get-text-property 0 'multi-category str)) str)))
+ (when-let ((cat (get-text-property 0 'multi-category str)))
+ (setq str (and (eq (car cat) 'buffer) (cdr cat))))
+ (and str (get-buffer str)))
(defun orderless-kwd-category (pred regexp)
"Match candidate category against PRED and REGEXP."
