Hi. Carsten Kunze <carsten.ku...@arcor.de> wrote: |Can we agree to commit this? (The patch is also added as a .gz file.) | |diff --git a/tmac/s.tmac b/tmac/s.tmac |index cf0eca8..190ee11 100644 |--- a/tmac/s.tmac |+++ b/tmac/s.tmac |@@ -1298,6 +1298,10 @@ along with this program. If not, see <http://w\ |ww.gnu.org/licenses/>. | .\} | .el .@error unbalanced \\$0 | .par@reset |+.if '\\$0'QE' \{\ |+. sp \\n[\\n[.ev]:PD]u |+. ne \\n[PORPHANS]v+\\n(.Vu |+.\} | .. | .de @QS | .br |@@ -1311,6 +1315,8 @@ along with this program. If not, see <http://ww\ |w.gnu.org/licenses/>. | .nr \\n[.ev]:ri +\\n[QI] | .nr \\n[.ev]:ai \\n[\\n[.ev]:PI] | .par@reset |+.sp \\n[\\n[.ev]:PD]u |+.ne \\n[PORPHANS]v+\\n(.Vu | .. | .als @QE @RE | .\" start boxed text
Disclaimer: i never have used ms nor have i ever looked into the macros. But of course i was interested in this and while i fully trust you (i haven't even tried it) i think a better approach would be to avoid the repititions. I saw you've copied+pasted the .sp / .ne sequence from a par*start, so wouldn't it be better as attached? What do you mean? --steffen
diff --git a/tmac/s.tmac b/tmac/s.tmac index cf0eca8..0749eba 100644 --- a/tmac/s.tmac +++ b/tmac/s.tmac @@ -1188,6 +1188,10 @@ along with this program. If not, see <http://www.gnu.org/licenses/>. .nr \\n[.ev]:pri 0 .par@reset .. +.de par@adjspace +.sp \\n[\\n[.ev]:PD]u +.ne \\n[PORPHANS]v+\\n(.Vu +.. .\" This can be redefined by the user. .de TA .ta T 5n @@ -1202,14 +1206,9 @@ along with this program. If not, see <http://www.gnu.org/licenses/>. .nr \\n[.ev]:pli \\$1 .nr \\n[.ev]:pri \\$2 .par@reset -.sp \\n[\\n[.ev]:PD]u -.ne \\n[PORPHANS]v+\\n(.Vu -.. -.de par@finish -.nr \\n[.ev]:pli 0 -.nr \\n[.ev]:pri 0 -.par@reset +.par@adjspace .. +.als par@finish @RT .\" normal LP .de @LP .par*start 0 0 @@ -1298,6 +1297,7 @@ along with this program. If not, see <http://www.gnu.org/licenses/>. .\} .el .@error unbalanced \\$0 .par@reset +.if '\\$0'QE' .par@adjspace .. .de @QS .br @@ -1311,6 +1311,7 @@ along with this program. If not, see <http://www.gnu.org/licenses/>. .nr \\n[.ev]:ri +\\n[QI] .nr \\n[.ev]:ai \\n[\\n[.ev]:PI] .par@reset +.par@adjspace .. .als @QE @RE .\" start boxed text
