[groff] 05/18: [ms]: Add nroff mode fallback for `UL` macro.

[G. Branden Robinson]

gbranden pushed a commit to branch master
in repository groff.

commit 735b34e8590ccba3fd5d2f1a621d40ec037eaceb
Author: G. Branden Robinson <g.branden.robinson@gmail.com>
AuthorDate: Thu Apr 7 11:12:07 2022 +1000

    [ms]: Add nroff mode fallback for `UL` macro.
    
    * tmac/s.tmac (UL): On nroff devices, bracket the first argument with
      \(ul (underline rule) special character escape sequences.  (In plain
      language, '.UL "like this"' renders "_like this_".)  See corresponding
      12 February change to "tmac/e.tmac".
---
 ChangeLog   | 9 +++++++++
 tmac/s.tmac | 3 ++-
 2 files changed, 11 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index 683d6228..7613ec99 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,12 @@
+2022-04-06  G. Branden Robinson <g.branden.robinson@gmail.com>
+
+       [ms]: Add nroff mode fallback for `UL` macro.
+
+       * tmac/s.tmac (UL): On nroff devices, bracket the first argument
+       with \(ul (underline rule) special character escape sequences.
+       {In plain language, '.UL "like this"' renders "_like this_".}
+       See corresponding 12 February change to "tmac/e.tmac".
+
 2022-04-06  G. Branden Robinson <g.branden.robinson@gmail.com>
 
        * doc/doc.am: Drop unnecessary `-I` options to groff.
diff --git a/tmac/s.tmac b/tmac/s.tmac
index fae28711..2317b8ee 100644
--- a/tmac/s.tmac
+++ b/tmac/s.tmac
@@ -1568,7 +1568,8 @@ along with this program.  If not, see 
<http://www.gnu.org/licenses/>.
 .\" underline a word
 .de UL
 .if \En[.$]>2 .@warning excess arguments to .UL ignored
-\Z'\\$1'\v'.25m'\D'l \w'\\$1'u 0'\v'-.25m'\\$2
+.      ie t .do nop \Z'\\$1'\v'.25m'\D'l \w'\\$1'u 0'\v'-.25m'\\$2
+.      el \(ul\\$1\(ul\\$2
 ..
 .\" box a word
 .de BX