(comint-completion-addsuffix): Fix custom type.

diff --git a/lisp/comint.el b/lisp/comint.el
index b0ae6d081bbd74350cb27ebed4f20be8e64b43fd..f43387cac32a2c922cb7d566ac35e800c102e187 100644 (file)
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -2334,7 +2334,11 @@ This mirrors the optional behavior of tcsh."
 If a cons pair, it should be of the form (DIRSUFFIX . FILESUFFIX) where
 DIRSUFFIX and FILESUFFIX are strings added on unambiguous or exact completion.
 This mirrors the optional behavior of tcsh."
-  :type 'boolean
+  :type '(choice (const :tag "None" nil)
+                (const :tag "add /" t)
+                (cons :tag "Suffix pair"
+                      (string :tag "Directory suffix")
+                      (string :tag "File suffix")))
   :group 'comint-completion)
 
 (defcustom comint-completion-recexact nil