[groff] 02/09: tmac/s.tmac: Permit document to start with .PS.

[G. Branden Robinson]

gbranden pushed a commit to branch master
in repository groff.

commit d4425c5610dcbf59472e82b3257012dd39516b72
Author: G. Branden Robinson <g.branden.robinson@gmail.com>
AuthorDate: Mon Jun 14 20:51:30 2021 +1000

    tmac/s.tmac: Permit document to start with .PS.
    
    * tmac/s.tmac: Permit document to start with .PS.
      (cov*ab-init): Alias PS to @PS.
    
      (PS): Call LP, then re-execute (aliased) self as TS does.
    
      (TS): Update comment to parallel the one in PS.
    
    It would have been nice to be able to do this for .EQ as well, but we
    can't; eqnrc calls EQ and EN, and this prevents us from initializing a
    post-cover-page environment as .TS and (now) .PS do.
---
 ChangeLog   |  7 +++++++
 tmac/s.tmac | 11 +++++++++--
 2 files changed, 16 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 687be07..ff09150 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2021-06-14  G. Branden Robinson <g.branden.robinson@gmail.com>
+
+       * tmac/s.tmac: Permit document to start with .PS.
+       (cov*ab-init): Alias PS to @PS.
+       (PS): Call LP, then re-execute (aliased) self as TS does.
+       (TS): Update comment to parallel the one in PS.
+
 2021-06-11  Tadziu Hoffmann <hoffmann@usm.uni-muenchen.de>
 
        Fix Savannah #59604.  Indent an IP paragraph based on the type
diff --git a/tmac/s.tmac b/tmac/s.tmac
index d89623d..857df76 100644
--- a/tmac/s.tmac
+++ b/tmac/s.tmac
@@ -287,6 +287,7 @@ along with this program.  If not, see 
<http://www.gnu.org/licenses/>.
 .als MC @MC
 .als EQ @EQ
 .als EN @EN
+.als PS @PS
 .als TS @TS
 .als AB cov*err-not-after-ab
 .als AU par@AU
@@ -1857,7 +1858,7 @@ along with this program.  If not, see 
<http://www.gnu.org/licenses/>.
 .\" This gets called if TS occurs before the first paragraph.
 .de TS
 .LP
-.\" cov*ab-init aliases TS to @TS
+.\" cov*ab-init, called by LP, aliases TS to @TS.
 \\*[TS]\\
 ..
 .de @TS
@@ -1936,8 +1937,14 @@ along with this program.  If not, see 
<http://www.gnu.org/licenses/>.
 .\" ******** module pic ********
 .\" ****************************
 .\" Pic support.
-.\" PS height width
+.\" This gets called if PS occurs before the first paragraph.
 .de PS
+.LP
+.\" cov*ab-init, called by LP, aliases PS to @PS.
+\\*[PS]\\
+..
+.\" @PS height width
+.de @PS
 .br
 .sp \\n[DD]u
 .ie \\n[.$]<2 .@error bad arguments to .PS (not preprocessed with pic?)