[sawfish] lisp/sawfish/ui/widgets/frame-style.jl: also support tar.lzma and tar.xz here

[Christopher Bratusek <chrisb src gnome org>]

commit 484e6553322189ff35986c37ab40af51c00ac40c
Author: chrisb <zanghar freenet de>
Date:   Wed Sep 23 19:57:42 2009 +0200

    lisp/sawfish/ui/widgets/frame-style.jl: also support tar.lzma and tar.xz here

 ChangeLog                              |    4 +++-
 lisp/sawfish/ui/widgets/frame-style.jl |    3 ++-
 2 files changed, 5 insertions(+), 2 deletions(-)
---
diff --git a/ChangeLog b/ChangeLog
index 236640e..18b35c1 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,8 +1,10 @@
 2009-09-23  Christopher Bratusek <zanghar freenet de>
-	* man/news.texi: news items for 1.6.0 are partially rewritten.
+	* man/news.texi: news items for 1.6.0 are partially rewritten [Teika Kazura]
 
 	* lisp/sawfish/wm/ext/fdo-menu.jl: small fix in the exile function [Matthew Love]
 
+	* lisp/sawfish/ui/widgets/frame-style.jl: also support tar.lzma and tar.xz here
+
 2009-09-22  Christopher Bratusek <zanghar freenet de>
 	* lisp/sawfish/wm/viewport.jl: string-change
 
diff --git a/lisp/sawfish/ui/widgets/frame-style.jl b/lisp/sawfish/ui/widgets/frame-style.jl
index 5af0a4c..9344b95 100644
--- a/lisp/sawfish/ui/widgets/frame-style.jl
+++ b/lisp/sawfish/ui/widgets/frame-style.jl
@@ -114,7 +114,8 @@
 					  (throw 'out t))
 				      (error))))
 				'("%s" "%s.tar#tar/%s" "%s.tar.gz#tar/%s"
-				  "%s.tar.Z#tar/%s" "%s.tar.bz2#tar/%s"))
+				  "%s.tar.Z#tar/%s" "%s.tar.bz2#tar/%s"
+				  "%s.tar.lzma#tar/%s" "%s.tar.xz#tar/%s"))
 			  nil)
 		    (setq full (i18n-filename
 				(expand-file-name "README" full)))