about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorCase Duckworth2022-03-12 11:21:50 -0600
committerCase Duckworth2022-03-12 11:22:32 -0600
commita11c0cdeb0b92778ba29e468337fcfa3e82bb75e (patch)
tree42a8d0d357874df558070398ef38be51c6ecdd6d
parentAdd larry.el (diff)
downloademacs-a11c0cdeb0b92778ba29e468337fcfa3e82bb75e.tar.gz
emacs-a11c0cdeb0b92778ba29e468337fcfa3e82bb75e.zip
Fix affe-regexp-compiler arguments
-rw-r--r--init.el7
1 files changed, 4 insertions, 3 deletions
diff --git a/init.el b/init.el index 42cac67..9f6cb41 100644 --- a/init.el +++ b/init.el
@@ -818,9 +818,10 @@ They are completed by \"M-x TAB\" only in Tramp debug buffers."
818 (and (executable-find "find") 818 (and (executable-find "find")
819 (executable-find "grep")))) 819 (executable-find "grep"))))
820 (:load-after consult orderless vertico) 820 (:load-after consult orderless vertico)
821 (setq affe-regexp-compiler (defun affe-orderless-regexp-compiler (input _type) 821 (setq affe-regexp-compiler
822 (setq input (orderless-pattern-compiler input)) 822 (defun affe-orderless-regexp-compiler (input &rest _)
823 (cons input (lambda (str) (orderless--highlight input str))))) 823 (setq input (orderless-pattern-compiler input))
824 (cons input (lambda (str) (orderless--highlight input str)))))
824 (with-eval-after-load 'affe 825 (with-eval-after-load 'affe
825 (setf (alist-get 'affe-grep vertico-multiform-commands) '(buffer) 826 (setf (alist-get 'affe-grep vertico-multiform-commands) '(buffer)
826 (alist-get 'affe-find vertico-multiform-commands) '(buffer)) 827 (alist-get 'affe-find vertico-multiform-commands) '(buffer))