diff options
| author | Case Duckworth | 2022-04-02 13:55:59 -0500 |
|---|---|---|
| committer | Case Duckworth | 2022-04-02 13:55:59 -0500 |
| commit | 755bd8b646896b1ffd2c90a1d1842bd08bf425c1 (patch) | |
| tree | 4b8b132cf3a4f915cc2f6363331a283e5cc7debf | |
| parent | Add $INFOPATH to Info-additional-directory-list (diff) | |
| download | emacs-755bd8b646896b1ffd2c90a1d1842bd08bf425c1.tar.gz emacs-755bd8b646896b1ffd2c90a1d1842bd08bf425c1.zip | |
Fix arity of affe-orderless-regexp-compiler
| -rw-r--r-- | init.el | 4 |
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) |