diff options
| -rw-r--r-- | orderless-kwd.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/orderless-kwd.el b/orderless-kwd.el index 686afa1..f6c1c72 100644 --- a/orderless-kwd.el +++ b/orderless-kwd.el @@ -114,7 +114,7 @@ (defun orderless-kwd-key (pred regexp) "Match command key binding against PRED and REGEXP." - (let ((buf (or (window-buffer (minibuffer-selected-window))))) + (let ((buf (or (window-buffer (minibuffer-selected-window)) (current-buffer)))) (lambda (str) (when-let ((sym (intern-soft str)) ((fboundp sym)) @@ -124,7 +124,7 @@ (defun orderless-kwd-value (pred regexp) "Match variable value against PRED and REGEXP." - (let ((buf (or (window-buffer (minibuffer-selected-window))))) + (let ((buf (or (window-buffer (minibuffer-selected-window)) (current-buffer)))) (lambda (str) (when-let ((sym (intern-soft str)) ((boundp sym))) @@ -135,7 +135,7 @@ (defun orderless-kwd-off (_) "Match disabled minor modes." - (let ((buf (or (window-buffer (minibuffer-selected-window))))) + (let ((buf (or (window-buffer (minibuffer-selected-window)) (current-buffer)))) (lambda (str) (when-let ((sym (intern-soft str))) (and (boundp sym) @@ -144,7 +144,7 @@ (defun orderless-kwd-on (_) "Match enabled minor modes." - (let ((buf (or (window-buffer (minibuffer-selected-window))))) + (let ((buf (or (window-buffer (minibuffer-selected-window)) (current-buffer)))) (lambda (str) (when-let ((sym (intern-soft str))) (and (boundp sym) |