# HG changeset patch # User Richard M. Stallman # Date 769593450 0 # Node ID b0098553bafe216c08874c1125851b6c30ffde53 # Parent 49176059d04042a06927ea78c412857a0b5ac878 (jka-compr-compression-info-list): Doc fix. diff -r 49176059d040 -r b0098553bafe lisp/jka-compr.el --- a/lisp/jka-compr.el Sun May 22 07:09:32 1994 +0000 +++ b/lisp/jka-compr.el Sun May 22 07:57:30 1994 +0000 @@ -125,8 +125,8 @@ ;;; 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 @@ "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