# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1113753648 0
# Node ID aaa0bead8bc5dd67aac127e8a55e024fb23f059d
# Parent  3a5e293553a1ee9bfb79b4c78ad57a3c7537dcd5
(jka-compr-compression-info-list): Fix custom type.

diff -r 3a5e293553a1 -r aaa0bead8bc5 lisp/jka-compr.el
--- a/lisp/jka-compr.el	Sun Apr 17 16:00:20 2005 +0000
+++ b/lisp/jka-compr.el	Sun Apr 17 16:00:48 2005 +0000
@@ -198,12 +198,16 @@
 			 (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")