diff options
| author | Daniel Mendler <mail@daniel-mendler.de> | 2024-03-05 18:25:17 +0100 |
|---|---|---|
| committer | Daniel Mendler <mail@daniel-mendler.de> | 2024-03-05 18:25:17 +0100 |
| commit | d317ab78e437ebe27f65056ac68bc379e1f56ea3 (patch) | |
| tree | ae8205c6adc948925857af2f7b1d9b2ad1a39d78 | |
| parent | 9a6a9b7dfd08231123d6df18a1cf86899742e932 (diff) | |
orderless-kwd-key: Perform lookup in minibuffer-selected-window
| -rw-r--r-- | orderless-kwd.el | 13 |
1 files 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." |