Fix arity of affe-orderless-regexp-compiler

This commit is contained in:
Case Duckworth 2022-04-02 13:55:59 -05:00
parent 191a223a1d
commit 755bd8b646
1 changed files with 2 additions and 2 deletions

View File

@ -841,11 +841,11 @@ They are completed by \"M-x TAB\" only in Tramp debug buffers."
(and (executable-find "find")
(executable-find "grep"))))
(:load-after consult orderless vertico)
(setq affe-regexp-compiler (defun affe-orderless-regexp-compiler (input _type)
(setq affe-regexp-compiler (defun affe-orderless-regexp-compiler (input &rest _)
(setq input (orderless-pattern-compiler input))
(cons input (lambda (str) (orderless--highlight input str)))))
(+with-eval-after-loads (affe vertico-multiform)
(setq affe-regexp-compiler (defun affe-orderless-regexp-compiler (input _type)
(setq affe-regexp-compiler (defun affe-orderless-regexp-compiler (input &rest _)
(setq input (orderless-pattern-compiler input))
(cons input (lambda (str) (orderless--highlight input str)))))
(setf (alist-get 'affe-grep vertico-multiform-commands) '(buffer)