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)

Reply via email to