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