From a3f254c202987779e42f547ebd919a1e63398a74 Mon Sep 17 00:00:00 2001 From: Werner Lemberg Date: Mon, 2 Jul 2007 16:24:43 +0200 Subject: [PATCH] Avoid empty table in documentation of `Global' context. --- scm/document-translation.scm | 14 +++++++++----- 1 file changed, 9 insertions(+), 5 deletions(-) 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) -- 2.39.2