[sawfish] Print stack trace on error during ~/.sawfish/rc execution.

[Christopher Bratusek <chrisb src gnome org>]

commit c6f3e9a0f79f0ee75bba822a2172735f9e1b69d1
Author: Teika kazura <teika lavabit com>
Date:   Wed Sep 15 22:12:55 2010 +0900

    Print stack trace on error during ~/.sawfish/rc execution.

 lisp/sawfish/wm/user.jl |    5 ++++-
 1 files changed, 4 insertions(+), 1 deletions(-)
---
diff --git a/lisp/sawfish/wm/user.jl b/lisp/sawfish/wm/user.jl
index b7d0e44..7f75ee1 100644
--- a/lisp/sawfish/wm/user.jl
+++ b/lisp/sawfish/wm/user.jl
@@ -109,7 +109,10 @@
 	    (let loop ((rest rc-files))
 		 (when rest
 		   (if (file-exists-p (car rest))
-		       (safe-load (car rest) t t t)
+		       ;; Print stack trace on error during exeuction
+		       ;; of ~/.sawfish/rc
+		       (let ((%in-condition-case nil))
+			 (safe-load (car rest) t t t))
 		     (loop (cdr rest)))))))
       (error
        (format (stderr-file) "error in local config--> %S\n" error-data))))