From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 17 Apr 2005 16:00:48 +0000 (+0000)
Subject: (jka-compr-compression-info-list): Fix custom type.
X-Git-Tag: ttn-vms-21-2-B4~948
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e21c148e2ccd96cfceeecde86d6d91782fa7bae2;p=emacs.git

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

diff --git a/lisp/jka-compr.el b/lisp/jka-compr.el
index 59c6de846c2..5bda4349288 100644
--- 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")