[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/consult b76f7fb085: consult--split-*: Change callconv
From: |
ELPA Syncer |
Subject: |
[elpa] externals/consult b76f7fb085: consult--split-*: Change callconv |
Date: |
Wed, 1 Jun 2022 11:57:22 -0400 (EDT) |
branch: externals/consult
commit b76f7fb0856ecf03a6f539ccb4d4a0fd627acd87
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>
consult--split-*: Change callconv
Ensure that we don't break affe.
---
consult.el | 11 ++++++-----
1 file changed, 6 insertions(+), 5 deletions(-)
diff --git a/consult.el b/consult.el
index bbd37ed52e..77c0ffe3bd 100644
--- a/consult.el
+++ b/consult.el
@@ -1586,7 +1586,7 @@ to make it available for commands with narrowing."
;;;; Splitting completion style
-(defun consult--split-perl (_plist str point)
+(defun consult--split-perl (str point &optional _plist)
"Split input STR in async input and filtering part.
The function returns a list with four elements: The async string, the
@@ -1607,11 +1607,11 @@ separator. Examples: \"/async/filter\",
\"#async#filter\"."
,@(and (match-end 2) `((,(match-beginning 2) . ,(match-end 2)))))))
`(,str "" 0)))
-(defun consult--split-nil (_plist str _point)
+(defun consult--split-nil (str _point &optional _plist)
"Treat the complete input STR as async input."
`(,str "" 0))
-(defun consult--split-separator (plist str point)
+(defun consult--split-separator (str point plist)
"Split input STR in async input and filtering part at first separator.
POINT is the point position.
PLIST is the splitter configuration, including the separator."
@@ -1746,8 +1746,9 @@ INITIAL is the additional initial string."
ASYNC is the async sink.
SPLIT is the splitting function."
(unless split
- (let ((style (consult--async-split-style)))
- (setq split (apply-partially (plist-get style :function) style))))
+ (let* ((style (consult--async-split-style))
+ (fn (plist-get style :function)))
+ (setq split (lambda (str pt) (funcall fn str pt style)))))
(lambda (action)
(pcase action
('setup
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/consult b76f7fb085: consult--split-*: Change callconv,
ELPA Syncer <=