From d317ab78e437ebe27f65056ac68bc379e1f56ea3 Mon Sep 17 00:00:00 2001 From: Daniel Mendler Date: Tue, 5 Mar 2024 18:25:17 +0100 Subject: orderless-kwd-key: Perform lookup in minibuffer-selected-window --- orderless-kwd.el | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/orderless-kwd.el b/orderless-kwd.el index a2dc9be..0b92ef7 100644 --- a/orderless-kwd.el +++ b/orderless-kwd.el @@ -112,12 +112,13 @@ (defun orderless-kwd-key (pred regexp) "Match command key binding against PRED and REGEXP." - (lambda (str) - (when-let ((sym (intern-soft str)) - ((fboundp sym)) - (keys (where-is-internal sym))) - (cl-loop for key in keys - thereis (orderless--match-p pred regexp (key-description key)))))) + (let ((buf (or (window-buffer (minibuffer-selected-window))))) + (lambda (str) + (when-let ((sym (intern-soft str)) + ((fboundp sym)) + (keys (with-current-buffer buf (where-is-internal sym)))) + (cl-loop for key in keys + thereis (orderless--match-p pred regexp (key-description key))))))) (defun orderless-kwd-value (pred regexp) "Match variable value against PRED and REGEXP." -- cgit v1.0