diff options
Diffstat (limited to 'orderless-kwd.el')
| -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." |