===================================================================
RCS file: /cvs/mandoc/mdoc.c,v
retrieving revision 1.125
retrieving revision 1.126
diff -u -p -r1.125 -r1.126
--- mandoc/mdoc.c	2010/05/08 07:30:19	1.125
+++ mandoc/mdoc.c	2010/05/08 08:36:44	1.126
@@ -1,4 +1,4 @@
-/*	$Id: mdoc.c,v 1.125 2010/05/08 07:30:19 kristaps Exp $ */
+/*	$Id: mdoc.c,v 1.126 2010/05/08 08:36:44 kristaps Exp $ */
 /*
  * Copyright (c) 2008, 2009 Kristaps Dzonsons <kristaps@kth.se>
  *
@@ -665,15 +665,29 @@ mdoc_ptext(struct mdoc *m, int line, char *buf)
 		return(1);
 	}
 
-	/* Warn if the last un-escaped character is whitespace. */
+	/* 
+	 * Warn if the last un-escaped character is whitespace. Then
+	 * strip away the remaining spaces (tabs stay!).   
+	 */
 
 	i = (int)strlen(buf);
 	assert(i);
 
-	if (' ' == buf[i - 1] || '\t' == buf[i - 1])
-		if (1 == i || ('\\' != buf[i - 2]))
+	if (' ' == buf[i - 1] || '\t' == buf[i - 1]) {
+		assert(i > 1);
+		if ('\\' != buf[i - 2])
 			if ( ! mdoc_pwarn(m, line, i - 1, ETAILWS))
 				return(0);
+
+		for (--i; i && ' ' == buf[i]; i--)
+			/* Spin back to non-space. */ ;
+
+		/* Jump ahead of escaped whitespace. */
+		assert(i);
+		i += '\\' == buf[i] ? 2 : 1;
+
+		buf[i] = '\0';
+	}
 
 	/* Allocate the whole word. */