From: Eshel Yaron <me@eshelyaron.com>
Date: Fri, 28 Oct 2022 16:00:16 +0000 (+0300)
Subject: Fixed defcustom type for sweeprolog-top-level-display-action
X-Git-Tag: V8.5.20-sweep-0.8.2~4
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e9256e3d3b83034624fc12b94483d8f3c7f89659;p=sweep.git

Fixed defcustom type for sweeprolog-top-level-display-action
---

diff --git a/sweeprolog.el b/sweeprolog.el
index 389cef1..51c4c44 100644
--- a/sweeprolog.el
+++ b/sweeprolog.el
@@ -234,7 +234,11 @@ the value of this option is used as its path."
 (defcustom sweeprolog-top-level-display-action nil
   "Display action used for displaying the `sweeprolog-top-level' buffer."
   :package-version '((sweeprolog . "0.1.0"))
-  :type 'function
+  :type '(choice (const :tag "Default" nil)
+                 (cons  :tag "Action"
+                        (choice (function :tag "Display Function")
+                                (repeat :tag "Display Functions" function))
+                        alist))
   :group 'sweeprolog)
 
 (defcustom sweeprolog-top-level-min-history-length 3