(jka-compr-compression-info-list): Fix custom type.

diff --git a/lisp/jka-compr.el b/lisp/jka-compr.el
index 59c6de846c2d527319b9e904d2ae81158ae69e51..5bda43492882302af83b668281a8c64937c99bc6 100644 (file)
--- a/lisp/jka-compr.el
+++ b/lisp/jka-compr.el
@@ -198,12 +198,16 @@ invoked."
                         (choice :tag "Compress Message"
                                 (string :format "%v")
                                 (const :tag "No Message" nil))
-                        (string :tag "Compress Program")
+                        (choice :tag "Compress Program"
+                                (string)
+                                (const :tag "None" nil))
                         (repeat :tag "Compress Arguments" string)
                         (choice :tag "Uncompress Message"
                                 (string :format "%v")
                                 (const :tag "No Message" nil))
-                        (string :tag "Uncompress Program")
+                        (choice :tag "Uncompress Program"
+                                (string)
+                                (const :tag "None" nil))
                         (repeat :tag "Uncompress Arguments" string)
                         (boolean :tag "Append")
                         (boolean :tag "Strip Extension")