Formatting

1 files changed, 11 insertions, 11 deletions

diff --git a/cape.el b/cape.el
index 607e87d..b0c6326 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'.")