--- emacs-22.1/lisp/jka-cmpr-hook.el.pix	2007-02-17 13:30:09.000000000 +0100
+++ emacs-22.1/lisp/jka-cmpr-hook.el	2007-08-10 16:50:13.000000000 +0200
@@ -195,6 +195,10 @@ options through Custom does this automat
      "bzip2ing"        "bzip2"         nil
      "bunzip2ing"      "bzip2"         ("-d")
      nil t "BZh"]
+    ["\\.lzma\\(~\\|\\.~[0-9]+~\\)?\\'"
+     "lzma-ing"        "lzma"         nil
+     "lzmadecompressing"      "lzma"         ("-d")
+     nil t nil]
     ["\\.tbz\\'"
      "bzip2ing"        "bzip2"         nil
      "bunzip2ing"      "bzip2"         ("-d")
--- emacs-22.1/lisp/info.el.pix	2007-08-08 23:44:42.000000000 +0200
+++ emacs-22.1/lisp/info.el	2007-08-10 16:55:04.000000000 +0200
@@ -346,11 +346,13 @@ If number, the point is moved to the cor
        (".info.gz".   "gunzip")
        (".info.z".    "gunzip")
        (".info.bz2" . ("bzip2" "-dc"))
+       (".info.lzma" . ("lzma" "-dc"))
        (".info".      nil)
        ("-info.Z".   "uncompress")
        ("-info.Y".   "unyabba")
        ("-info.gz".  "gunzip")
        ("-info.bz2" . ("bzip2" "-dc"))
+       ("-info.lzma" . ("lzma" "-dc"))
        ("-info.z".   "gunzip")
        ("-info".     nil)
        ("/index.Z".   "uncompress")
@@ -358,12 +360,14 @@ If number, the point is moved to the cor
        ("/index.gz".  "gunzip")
        ("/index.z".   "gunzip")
        ("/index.bz2". ("bzip2" "-dc"))
+       ("/index.lzma". ("lzma" "-dc"))
        ("/index".     nil)
        (".Z".         "uncompress")
        (".Y".         "unyabba")
        (".gz".        "gunzip")
        (".z".         "gunzip")
        (".bz2" .      ("bzip2" "-dc"))
+       (".lzma" .      ("lzma" "-dc"))
        ("".           nil)))
   "List of file name suffixes and associated decoding commands.
 Each entry should be (SUFFIX . STRING); the file is given to