branch: externals/orderless commit 52b533329d39c1d4f520a47e477d7bc0242325b2 Author: Daniel Mendler <m...@daniel-mendler.de> Commit: Daniel Mendler <m...@daniel-mendler.de>
Use window-buffer or current-buffer --- orderless-kwd.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/orderless-kwd.el b/orderless-kwd.el index 686afa19b6..f6c1c72f17 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)