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."

Reply via email to