(jka-compr-compression-info-list): Doc fix.

lisp/jka-compr.el

@@ -125,8 +125,8 @@ for `jka-compr-compression-info-list').")
 ;;; compress format; and .gz files, in gzip format.
 (defvar jka-compr-compression-info-list
   ;;[regexp
-  ;; compr-message  compr-prog  compr-discard  compr-args
-  ;; uncomp-message uncomp-prog uncomp-discard uncomp-args
+  ;; compr-message  compr-prog  compr-args
+  ;; uncomp-message uncomp-prog uncomp-args
   ;; can-append auto-mode-flag]
   '(["\\.Z~?\\'"
      "compressing"    "compress"     ("-c")
@@ -139,20 +139,22 @@ for `jka-compr-compression-info-list').")
 
   "List of vectors that describe available compression techniques.
 Each element, which describes a compression technique, is a vector of
-the form [regexp magic compress-name compress-program compress-discard-err
-compress-args uncompress-name uncompress-program uncompress-discard-err
-uncompress-args append-flag extension] where:
+the form [REGEXP COMPRESS-MSG COMPRESS-PROGRAM COMPRESS-ARGS
+UNCOMPRESS-MSG UNCOMPRESS-PROGRAM UNCOMPRESS-ARGS
+APPEND-FLAG EXTENSION], where:
 
    regexp                is a regexp that matches filenames that are
                          compressed with this format
 
+   compress-msg          is the message to issue to the user when doing this
+                         type of compression (nil means no message)
+
    compress-program      is a program that performs this compression
 
    compress-args         is a list of args to pass to the compress program
 
-   uncompress-message    is the message to issue to the user when this
-                         type of uncompression is taking place (nil
-                         means don't issue any message)
+   uncompress-msg        is the message to issue to the user when doing this
+                         type of uncompression (nil means no message)
 
    uncompress-program    is a program that performs this compression