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

1 files changed, 5 insertions, 1 deletions

diff --git a/lisp/comint.el b/lisp/comint.el
index b0ae6d081bb..f43387cac32 100644
--- 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