[sawfish] Prints backtrace for sawfish-client, too. This makes sense if you're using librep >= 0.90.7. Harmles

[Christopher Bratusek <chrisb src gnome org>]

commit d37eaea362f74b9be34c129886af7daf93b41be4
Author: Teika kazura <teika lavabit com>
Date:   Sun Jun 20 21:46:57 2010 +0900

    Prints backtrace for sawfish-client, too.
    This makes sense if you're using librep >= 0.90.7. Harmless anyway.

 lisp/sawfish/wm/server.jl |    3 ++-
 man/news.texi             |    2 ++
 2 files changed, 4 insertions(+), 1 deletions(-)
---
diff --git a/lisp/sawfish/wm/server.jl b/lisp/sawfish/wm/server.jl
index f6c9aa7..d5f9e7c 100644
--- a/lisp/sawfish/wm/server.jl
+++ b/lisp/sawfish/wm/server.jl
@@ -58,7 +58,8 @@
   (define (server-eval form)
     (let ((print-escape t))
       (condition-case error-data
-	  (progn
+	  ;; This enables backtrace printing inside of sawfish-client
+	  (let ((%in-condition-case nil))
 	    (setq form (read-from-string form))
 	    (format nil "\001%S" (user-eval form)))
 	(error
diff --git a/man/news.texi b/man/news.texi
index d7f6f7a..b2a8b5f 100644
--- a/man/news.texi
+++ b/man/news.texi
@@ -29,6 +29,8 @@ Function @code{x-atom-name} now accepts all 32 bits. Previously only
 A ``border'' of a window surrounds the window and all other frame
 parts. (@pxref{Frame Part Definition})
 
+ item If you're using librep >= 0.90.7, then the backtrace is printed for
+sawfish-client, too. [Teika Kazura]
 @end itemize
 
 @item Miscellaneous Changes