mdocml: In flush-left mode of both man(7) and mdoc(7), when an output

mdocml: In flush-left mode of both man(7) and mdoc(7), when an output

[schwarze]

Log Message:
-----------
In flush-left mode of both man(7) and mdoc(7), when an output line is broken 
at the position of a literal tab, the tab indents the following line.
Fixes the perl(1) SYNOPSIS; reminded by deraadt@; OpenBSD rev. 1.66.

Modified Files:
--------------
    mdocml:
        TODO
        term.c

Revision Data
-------------
Index: term.c
===================================================================
RCS file: /usr/vhosts/mdocml.bsd.lv/cvs/mdocml/term.c,v
retrieving revision 1.204
retrieving revision 1.205
diff -Lterm.c -Lterm.c -u -p -r1.204 -r1.205
--- term.c
+++ term.c
@@ -106,6 +106,7 @@ void
 term_flushln(struct termp *p)
 {
 	int		 i;     /* current input position in p->buf */
+	int		 ntab;	/* number of tabs to prepend */
 	size_t		 vis;   /* current visual position on output */
 	size_t		 vbl;   /* number of blanks to prepend to output */
 	size_t		 vend;	/* end of word visual position on output */
@@ -144,10 +145,12 @@ term_flushln(struct termp *p)
 		 * Handle literal tab characters: collapse all
 		 * subsequent tabs into a single huge set of spaces.
 		 */
+		ntab = 0;
 		while (i < p->col && '\t' == p->buf[i]) {
 			vend = (vis / p->tabwidth + 1) * p->tabwidth;
 			vbl += vend - vis;
 			vis = vend;
+			ntab++;
 			i++;
 		}
 
@@ -191,6 +194,11 @@ term_flushln(struct termp *p)
 				vend += p->rmargin - p->offset;
 			} else
 				vbl = p->offset;
+
+			/* use pending tabs on the new line */
+
+			if (0 < ntab)
+				vbl += ntab * p->tabwidth;
 
 			/* Remove the p->overstep width. */
 
Index: TODO
===================================================================
RCS file: /usr/vhosts/mdocml.bsd.lv/cvs/mdocml/TODO,v
retrieving revision 1.136
retrieving revision 1.137
diff -LTODO -LTODO -u -p -r1.136 -r1.137
--- TODO
+++ TODO
@@ -169,9 +169,6 @@
   so far, we only have it in roff(7) and man(7)
   reminded by millert@  Thu, 09 Dec 2010 17:29:52 -0500
 
-- perl(1) SYNOPSIS looks bad; reported by deraadt@
-  1) man(7) seems to need SYNOPSIS .Nm blocks, too
-
 - In .Bl -column,
   .It Em Authentication<tab>Key Length
   ought to render "Key Length" with emphasis, too,
--
 To unsubscribe send an email to source+unsubscribe@mdocml.bsd.lv