branch: externals/orderless
commit d317ab78e437ebe27f65056ac68bc379e1f56ea3
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
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 a2dc9bef3b..0b92ef7f9c 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."
