* (sweeprolog-rename-variable-allow-existing): refine custom type

diff --git a/sweeprolog.el b/sweeprolog.el
index fcb4c85dd39151ed76f2a0f5415d81cd2a6162b6..1041a4e9a3fdf9d125192ee72a884baeed6bfcd8 100644 (file)
--- a/sweeprolog.el
+++ b/sweeprolog.el
@@ -392,7 +392,9 @@ token via its `help-echo' text property."
 If it is the symbol `confirm', allow but ask for confirmation
 first."
   :package-version '((sweeprolog "0.15.1"))
-  :type 'symbol
+  :type '(choice (const :tag "Allow"   t)
+                 (const :tag "Confirm" confirm)
+                 (const :tag "Refuse"  nil))
   :group 'sweeprolog)
 
 ;;;; Keymaps