Chris Moore <christopher.ian.moore at gmail.com>

(jka-compr-compression-info-list): Handle .svgz files, and backup files of same.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c4cfe013835557264d698ef4bee5bc325d2034c6..89f150f3ab21417b4f133ed31f02e3d8fade1aab 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2008-02-11  Chris Moore  <christopher.ian.moore@gmail.com>
+
+       * jka-cmpr-hook.el (jka-compr-compression-info-list): Handle .svgz
+       files, and backup files of same.
+
 2008-02-11  Kevin Ryde  <user42@zip.com.au>
 
        * info.el (Info-next-reference, Info-prev-reference)

diff --git a/lisp/jka-cmpr-hook.el b/lisp/jka-cmpr-hook.el
index 79df9cfe25eb81a2607f2bdd678fb11ea61e3cad..599d1c11f6949e10ed2eec6884523505d08ee1a2 100644 (file)
--- a/lisp/jka-cmpr-hook.el
+++ b/lisp/jka-cmpr-hook.el
@@ -200,7 +200,7 @@ options through Custom does this automatically."
      "bzip2ing"        "bzip2"         nil
      "bunzip2ing"      "bzip2"         ("-d")
      nil nil "BZh"]
-    ["\\.\\(?:tgz\\|svgz\\)\\'"
+    ["\\.\\(?:tgz\\|svgz\\|sifz\\)\\(~\\|\\.~[0-9]+~\\)?\\'"
      "compressing"        "gzip"         ("-c" "-q")
      "uncompressing"      "gzip"         ("-c" "-q" "-d")
      t nil "\037\213"]