branch: externals/cape
commit 9210e998c945378153235eeee8b7e5bb8dd7e784
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
Formatting
---
cape.el | 22 +++++++++++-----------
1 file changed, 11 insertions(+), 11 deletions(-)
diff --git a/cape.el b/cape.el
index 607e87dcfd..b0c632660e 100644
--- a/cape.el
+++ b/cape.el
@@ -250,24 +250,24 @@ BODY is the wrapping expression."
Some metadata properties of the table must be overridden, since they
take precedence over the properties specified as part of the Capf
result. This function is used by `cape-wrap-properties'."
- (if-let* ((alist (cl-loop
- for (x . y) in
- '((:category . category)
- (:display-sort-function . display-sort-function)
- (:cycle-sort-function . cycle-sort-function)
- (:annotation-function . annotation-function)
- (:affixation-function . affixation-function))
- if (plist-member properties x)
- collect `(,y . ,(plist-get properties x)))))
+ (if-let* ((md (cl-loop
+ for (x . y) in
+ '((:category . category)
+ (:display-sort-function . display-sort-function)
+ (:cycle-sort-function . cycle-sort-function)
+ (:annotation-function . annotation-function)
+ (:affixation-function . affixation-function))
+ if (plist-member properties x)
+ collect `(,y . ,(plist-get properties x)))))
(lambda (str pred action)
;; We cannot use `completion-table-with-metadata' since the new
;; metadata should be merged with the one of the underlying table.
(if (eq action 'metadata)
- `(metadata ,@alist
+ `(metadata ,@md
,@(and (functionp table)
(cdr (funcall table str pred action))))
(complete-with-action action table str pred)))
- table))
+ table))
(defvar cape--debug-length 5
"Length of printed lists in `cape--debug-print'.")
