; Simplify list notation

* sweeprolog.el (sweeprolog-module-completion-table): Simplify list
notation of completion 'metadata' list.

diff --git a/sweeprolog.el b/sweeprolog.el
index c60e96756fd6d67692c2abfe544a85029034c1e3..e5c510b4349f64017f02265221e35428eef31320 100644 (file)
--- a/sweeprolog.el
+++ b/sweeprolog.el
@@ -1249,11 +1249,10 @@ STRING, PREDICATE and ACTION."
              (funcall predicate string))))
    ((eq action 'metadata)
     '(metadata
-      .
-      ((category            . sweeprolog-module)
-       (annotation-function . sweeprolog-module-minibuffer-annotation)
-       (affixation-function . sweeprolog-module-minibuffer-affixation)
-       (group-function      . sweeprolog-module-minibuffer-group))))
+      (category            . sweeprolog-module)
+      (annotation-function . sweeprolog-module-minibuffer-annotation)
+      (affixation-function . sweeprolog-module-minibuffer-affixation)
+      (group-function      . sweeprolog-module-minibuffer-group)))
    (t (complete-with-action action
                             (sweeprolog-modules-collection string)
                             string