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

diff --git a/sweeprolog.el b/sweeprolog.el
index 389cef1b3c3ad69b52a13b46f19c0523e0203a87..51c4c44f5f4d62ffa59c98059f9a514c0e69a623 100644 (file)
--- 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