From: Werner Lemberg <wl@gnu.org>
Date: Mon, 2 Jul 2007 14:24:43 +0000 (+0200)
Subject: Avoid empty table in documentation of `Global' context.
X-Git-Tag: release/2.11.28-1~50
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=a3f254c202987779e42f547ebd919a1e63398a74;p=lilypond.git

Avoid empty table in documentation of `Global' context.
---

diff --git a/scm/document-translation.scm b/scm/document-translation.scm
index 1671171dd3..9db6bb4b88 100644
--- 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)