summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorCase Duckworth2022-04-02 13:55:59 -0500
committerCase Duckworth2022-04-02 13:55:59 -0500
commit755bd8b646896b1ffd2c90a1d1842bd08bf425c1 (patch)
tree4b8b132cf3a4f915cc2f6363331a283e5cc7debf
parentAdd $INFOPATH to Info-additional-directory-list (diff)
downloademacs-755bd8b646896b1ffd2c90a1d1842bd08bf425c1.tar.gz
emacs-755bd8b646896b1ffd2c90a1d1842bd08bf425c1.zip
Fix arity of affe-orderless-regexp-compiler
-rw-r--r--init.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/init.el b/init.el index 8762175..2fcc51d 100644 --- a/init.el +++ b/init.el
@@ -841,11 +841,11 @@ They are completed by \"M-x TAB\" only in Tramp debug buffers."
841 (and (executable-find "find") 841 (and (executable-find "find")
842 (executable-find "grep")))) 842 (executable-find "grep"))))
843 (:load-after consult orderless vertico) 843 (:load-after consult orderless vertico)
844 (setq affe-regexp-compiler (defun affe-orderless-regexp-compiler (input _type) 844 (setq affe-regexp-compiler (defun affe-orderless-regexp-compiler (input &rest _)
845 (setq input (orderless-pattern-compiler input)) 845 (setq input (orderless-pattern-compiler input))
846 (cons input (lambda (str) (orderless--highlight input str))))) 846 (cons input (lambda (str) (orderless--highlight input str)))))
847 (+with-eval-after-loads (affe vertico-multiform) 847 (+with-eval-after-loads (affe vertico-multiform)
848 (setq affe-regexp-compiler (defun affe-orderless-regexp-compiler (input _type) 848 (setq affe-regexp-compiler (defun affe-orderless-regexp-compiler (input &rest _)
849 (setq input (orderless-pattern-compiler input)) 849 (setq input (orderless-pattern-compiler input))
850 (cons input (lambda (str) (orderless--highlight input str))))) 850 (cons input (lambda (str) (orderless--highlight input str)))))
851 (setf (alist-get 'affe-grep vertico-multiform-commands) '(buffer) 851 (setf (alist-get 'affe-grep vertico-multiform-commands) '(buffer)