diff --git lisp sawfish ui slot jl lisp sawfish ui slot jl index 68fad

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
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)