sawfish r4283 - in branches/sawfish-experimental: . lisp/sawfish/wm/ext

[jkozicki svn gnome org]

Author: jkozicki
Date: Wed Sep 17 16:07:42 2008
New Revision: 4283
URL: http://svn.gnome.org/viewvc/sawfish?rev=4283&view=rev

Log:
Add error-handler both by Christopher Bratusek. Allows to print errors both on the screen and the standard-error.



Modified:
   branches/sawfish-experimental/ChangeLog
   branches/sawfish-experimental/lisp/sawfish/wm/ext/error-handler.jl

Modified: branches/sawfish-experimental/lisp/sawfish/wm/ext/error-handler.jl
==============================================================================
--- branches/sawfish-experimental/lisp/sawfish/wm/ext/error-handler.jl	(original)
+++ branches/sawfish-experimental/lisp/sawfish/wm/ext/error-handler.jl	Wed Sep 17 16:07:42 2008
@@ -43,7 +43,7 @@
 
   (defcustom error-destination 'standard-error
     "Display error messages to: \\w"
-    :type (choice nowhere screen standard-error)
+    :type (choice nowhere screen standard-error both)
     :group (misc error-handling))
 
   ;; ring buffer for containing error messages
@@ -69,6 +69,10 @@
 	 (display-message text))
 	((standard-error)
 	 (write standard-error text)
+	 (write standard-error #\newline))
+	((both)
+	 (display-message text)
+	 (write standard-error text)
 	 (write standard-error #\newline)))))
 
   (define (retrieve-errors) (ring->list error-ring))