Avoid empty table in documentation of `Global' context.

diff --git a/scm/document-translation.scm b/scm/document-translation.scm
index 1671171dd3b2fbe55f2a333c98a2436700560e88..9db6bb4b882e31dff0ab0946657473eb60f648fa 100644 (file)
--- a/scm/document-translation.scm
+++ b/scm/document-translation.scm
@@ -171,11 +171,15 @@
        "."
 
        (if (and (pair? props) (not (null? props)))
-          (string-append
-           "\n\nThis context sets the following properties:\n\n"
-           "@itemize @bullet\n"
-           (apply string-append (map document-property-operation props))
-           "@end itemize\n")
+          (let ((str (apply string-append (map document-property-operation
+                                               props))))
+            (if (string-null? str)
+                ""
+                (string-append
+                 "\n\nThis context sets the following properties:\n\n"
+                 "@itemize @bullet\n"
+                 str
+                 "@end itemize\n")))
           "")
        
        (if (null? accepts)