From: Eshel Yaron <me@eshelyaron.com>
Date: Tue, 18 Jul 2023 13:37:21 +0000 (+0300)
Subject: ; Simplify list notation
X-Git-Tag: V9.1.11-sweep-0.22.0~5
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=31210d74f07920a99012cc5d0f61dcfcd1baa5e3;p=sweep.git

; 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 c60e967..e5c510b 100644
--- 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