sawfish r4307 - in trunk: . lisp/sawfish/wm/ext

[chrisb svn gnome org]

Author: chrisb
Date: Fri Nov 21 15:18:48 2008
New Revision: 4307
URL: http://svn.gnome.org/viewvc/sawfish?rev=4307&view=rev

Log:
added error-handler "both"


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

Modified: trunk/lisp/sawfish/wm/ext/error-handler.jl
==============================================================================
--- trunk/lisp/sawfish/wm/ext/error-handler.jl	(original)
+++ trunk/lisp/sawfish/wm/ext/error-handler.jl	Fri Nov 21 15:18:48 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))