diff options
| author | Daniel Mendler <mail@daniel-mendler.de> | 2024-03-05 18:33:22 +0100 |
|---|---|---|
| committer | Daniel Mendler <mail@daniel-mendler.de> | 2024-03-05 18:34:47 +0100 |
| commit | 52b533329d39c1d4f520a47e477d7bc0242325b2 (patch) | |
| tree | 77004a825a75bd2e3a6dd106e325ab26cbbd2587 | |
| parent | 2f8573f3adca5cd45ea899389b31b8bb77acdd4d (diff) | |
Use window-buffer or current-buffer
| -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) |