Formatting

1 files changed, 7 insertions, 8 deletions

diff --git a/cape.el b/cape.el
index 0b256e4..edb7380 100644
--- a/cape.el
+++ b/cape.el
@@ -1130,23 +1130,22 @@ This function can be used as an advice around an existing Capf."
   "Create completion TABLE with PROPERTIES.
 The properties of the table must be overridden too, since they take
 precedence over the properties specified as part of the Capf result."
-  (let* ((dsort (plist-get properties :display-sort-function))
+  (let* ((cat (plist-get properties :category))
+         (dsort (plist-get properties :display-sort-function))
          (csort (plist-get properties :cycle-sort-function))
-         (cat (plist-get properties :category))
          (ann (plist-get properties :annotation-function))
          (aff (plist-get properties :affixation-function))
-         (alist (append (and dsort `((display-sort-function . ,dsort)))
+         (alist (append (and cat `((category . ,cat)))
+                        (and dsort `((display-sort-function . ,dsort)))
                         (and csort `((cycle-sort-function . ,csort)))
-                        (and cat `((category . ,cat)))
                         (and ann `((annotation-function . ,ann)))
                         (and aff `((affixation-function . ,aff))))))
     (if alist
         (lambda (str pred action)
           (if (eq action 'metadata)
-              `(metadata
-                ,@alist
-                ,@(and (functionp table)
-                       (cdr (funcall table str pred action))))
+              `(metadata ,@alist
+                         ,@(and (functionp table)
+                                (cdr (funcall table str pred action))))
             (complete-with-action action table str pred)))
       table)))