[sawfish] Make Sawfish-UIs strings translatable [Alexey I. Froloff]

[Christopher Bratusek <chrisb src gnome org>]

commit cddd4751d37677b6a514da87eadda8aff54a62d6
Author: chrisb <zanghar freenet de>
Date:   Sun May 3 22:39:04 2009 +0200

    Make Sawfish-UIs strings translatable [Alexey I. Froloff]
---
 ChangeLog               |    3 +++
 lisp/sawfish/ui/slot.jl |    5 ++++-
 man/news.texi           |    2 ++
 3 files changed, 9 insertions(+), 1 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index a7d2b28..7d502ca 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,6 @@
+2009-05-03  Christopher Bratusek <zanghar freenet de>
+	* lisp/sawfish/ui/slot.jl: make defcustoms strings translatable [Alexey I. Froloff]
+
 2009-04-20  Christopher Bratusek <zanghar freenet de>
 	* src/keys.c: - AltGR is not always Mod5
 
diff --git a/lisp/sawfish/ui/slot.jl b/lisp/sawfish/ui/slot.jl
index 68fade0..76d972d 100644
--- a/lisp/sawfish/ui/slot.jl
+++ b/lisp/sawfish/ui/slot.jl
@@ -100,7 +100,10 @@
 		   (cons slot (table-ref dependence-table depends))))
 
       ;; create the widget
-      (let* ((callback (lambda () (slot-changed slot))))
+      (let* ((callback (lambda () (slot-changed slot)))
+	     (doc (if (or (null doc) (string= doc ""))
+		      doc
+		    (_ doc))))
 	(if (widget-accepts-doc-string-p (or (car type) type))
 	    (slot-widget-set slot (make-widget type callback doc))
 	  (slot-doc-set slot doc)
diff --git a/man/news.texi b/man/news.texi
index 74f77f5..1cabdae 100644
--- a/man/news.texi
+++ b/man/news.texi
@@ -49,6 +49,8 @@ To use the old style, put @code{(define-special-variable customize-program "sawf
 
 @item Fixed an "unknown remote error" that might appear [Alexey I. Froloff]
 
+ item Make Sawfish-UIs strings translatable [Alexey I. Froloff]
+
 @item Make "make uninstall" work again [Christopher Bratusek]
 
 @item Fixed the issue that apps did not start iconified, even if requested [Ian Zimmerman, Teika Kazura]