From: Peter Verthez <Peter.Verthez@advalvas.be>
Date: Mon, 27 Jan 2003 17:54:57 +0000 (+0000)
Subject: Don't break for CONC on a space boundary.
X-Git-Url: https://git.dlugolecki.net.pl/?a=commitdiff_plain;h=a549f1db4f3cd24e46cacf05cb4bec6eecce6570;p=gedcom-parse.git

Don't break for CONC on a space boundary.
---

diff --git a/gedcom/write.c b/gedcom/write.c
index ed17f13..6e186b7 100644
--- a/gedcom/write.c
+++ b/gedcom/write.c
@@ -154,8 +154,13 @@ int write_long(Gedcom_write_hndl hndl, int elt_or_rec,
 
 	if (prefix_len + line_len + term_len > MAXWRITELEN) {
 	  line_len = MAXWRITELEN - prefix_len - term_len;
-	  if (!cont_as_conc)
+	  if (!cont_as_conc) {
 	    cont_tag = "CONC";
+	    while (value_ptr[line_len] == ' '
+		   || value_ptr[line_len-1] == ' ') {
+	      line_len--;
+	    }
+	  }
 	}
 	
 	memset(value_part, 0, sizeof(value_part));