[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/consult 4ff45b3782 2/2: Rename the functions (incompati
From: |
ELPA Syncer |
Subject: |
[elpa] externals/consult 4ff45b3782 2/2: Rename the functions (incompatible calling convention) |
Date: |
Tue, 20 Dec 2022 16:57:24 -0500 (EST) |
branch: externals/consult
commit 4ff45b378210ce4bc942eb366011ee647f575506
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>
Rename the functions (incompatible calling convention)
---
consult.el | 12 ++++++------
1 file changed, 6 insertions(+), 6 deletions(-)
diff --git a/consult.el b/consult.el
index 64a3294be0..a2174fb039 100644
--- a/consult.el
+++ b/consult.el
@@ -4667,7 +4667,7 @@ INITIAL is inital input."
(eq 0 (apply #'call-process-region (point-min) (point-max)
(car cmd) nil nil nil `(,@(cdr cmd) "^(?=.*b)(?=.*a)")))))
-(defun consult--grep-builder ()
+(defun consult--grep-make-builder ()
"Create grep command line builder."
(let* ((cmd (consult--build-args consult-grep-args))
(type (if (consult--grep-lookahead-p (car cmd) "-P") 'pcre
'extended)))
@@ -4727,7 +4727,7 @@ the directory to search in. By default the project
directory is used
if `consult-project-function' is defined and returns non-nil.
Otherwise the `default-directory' is searched."
(interactive "P")
- (consult--grep "Grep" (consult--grep-builder) dir initial))
+ (consult--grep "Grep" (consult--grep-make-builder) dir initial))
;;;;; Command: consult-git-grep
@@ -4757,7 +4757,7 @@ for more details."
;;;;; Command: consult-ripgrep
-(defun consult--ripgrep-builder ()
+(defun consult--ripgrep-make-builder ()
"Create ripgrep command line builder."
(let* ((cmd (consult--build-args consult-ripgrep-args))
(type (if (consult--grep-lookahead-p (car cmd) "-P") 'pcre
'extended)))
@@ -4787,7 +4787,7 @@ for more details."
The initial input is given by the INITIAL argument. See `consult-grep'
for more details."
(interactive "P")
- (consult--grep "Ripgrep" (consult--ripgrep-builder) dir initial))
+ (consult--grep "Ripgrep" (consult--ripgrep-make-builder) dir initial))
;;;;; Command: consult-find
@@ -4813,7 +4813,7 @@ INITIAL is inital input."
:category 'file
:history '(:input consult--find-history)))
-(defun consult--find-builder ()
+(defun consult--find-make-builder ()
"Create find command line builder."
(let* ((cmd (consult--build-args consult-find-args))
(type (if (eq 0 (call-process-shell-command
@@ -4847,7 +4847,7 @@ See `consult-grep' for more details regarding the
asynchronous search."
(interactive "P")
(let* ((prompt-dir (consult--directory-prompt "Find" dir))
(default-directory (cdr prompt-dir)))
- (find-file (consult--find (car prompt-dir) (consult--find-builder)
initial))))
+ (find-file (consult--find (car prompt-dir) (consult--find-make-builder)
initial))))
;;;;; Command: consult-locate