-
- for (c = 8; c < wide; c += 8) {
- /* Get to the right column. In BSD tset, this used to try a bunch
- * of half-clever things with cup and hpa, for an average saving of
- * somewhat less than two character times per tab stop, less than
- * .01 sec at 2400cps. We lost all this cruft because it seemed to
- * be introducing some odd bugs.
- * -----------12345678----------- */
- (void) fputs(" ", my_file);
- tputs(set_tab, 0, out_char);
+ if (init_tabs > 1) {
+ if (init_tabs > wide)
+ init_tabs = (short) wide;
+ for (c = init_tabs; c < wide; c += init_tabs) {
+ fprintf(my_file, "%*s", init_tabs, " ");
+ tputs(set_tab, 0, out_char);
+ }
+ to_left_margin();