[groff] 33/38: [mdoc]: Kill Inline Courier (3/3).

[G. Branden Robinson]

gbranden pushed a commit to branch master
in repository groff.

commit 440a3b5c212f73efe9eb8c57a11c2c53c272d3ac
Author: G. Branden Robinson <g.branden.robinson@gmail.com>
AuthorDate: Sun Mar 24 01:43:41 2024 -0500

    [mdoc]: Kill Inline Courier (3/3).
    
    [mdoc]: Refactor.
    
    * tmac/doc.tmac: Move `Dl` macro definition from here...
    * tmac/mdoc/doc-ditroff:
    * tmac/mdoc/doc-nroff: ...to these files to prepare for changes to the
      "ditroff" version.
---
 ChangeLog             |  9 +++++++++
 tmac/doc.tmac         | 39 ---------------------------------------
 tmac/mdoc/doc-ditroff | 39 +++++++++++++++++++++++++++++++++++++++
 tmac/mdoc/doc-nroff   | 39 +++++++++++++++++++++++++++++++++++++++
 4 files changed, 87 insertions(+), 39 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 07f6c424d..f351760b1 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,12 @@
+2024-03-24  G. Branden Robinson <g.branden.robinson@gmail.com>
+
+       [mdoc]: Refactor.
+
+       * tmac/doc.tmac: Move `Dl` macro definition from here...
+       * tmac/mdoc/doc-ditroff:
+       * tmac/mdoc/doc-nroff: ...to these files to prepare for changes
+       to the "ditroff" version.
+
 2024-03-24  G. Branden Robinson <g.branden.robinson@gmail.com>
 
        * tmac/mdoc/doc-ditroff: Align typesetting font defaults with
diff --git a/tmac/doc.tmac b/tmac/doc.tmac
index 7b4f175fa..54fcaa36e 100644
--- a/tmac/doc.tmac
+++ b/tmac/doc.tmac
@@ -4910,45 +4910,6 @@ arguments
 .ec
 .
 .
-.\" NS Dl user macro
-.\" NS   display (one line) literal
-.\" NS
-.\" NS   this function uses the 'Li' font
-.\" NS
-.\" NS modifies:
-.\" NS   doc-arg-ptr
-.\" NS   doc-curr-font
-.\" NS   doc-macro-name
-.\" NS
-.\" NS width register 'Dl' set in doc-common
-.
-.eo
-.de Dl
-.  ta T .5i
-.  in +\n[doc-display-indent]u
-.
-.  ie \n[doc-arg-count] \{\
-.    doc-report-usage .Dl not callable by other macros
-.    doc-reset-args
-.  \}
-.  el \{\
-.    ie \n[.$] \{\
-.      ds doc-macro-name Dl
-.      doc-parse-args \$@
-.      nr doc-arg-ptr 1
-.      nr doc-curr-font \n[.f]
-.      nop \*[doc-Li-font]\c
-.      doc-print-recursive
-.    \}
-.    el \
-.      doc-report-usage .Dl argument ...
-.  \}
-.
-.  in -\n[doc-display-indent]u
-..
-.ec
-.
-.
 .\" NS D1 user macro
 .\" NS   display (one line)
 .\" NS
diff --git a/tmac/mdoc/doc-ditroff b/tmac/mdoc/doc-ditroff
index 879be110b..c4f12f36f 100644
--- a/tmac/mdoc/doc-ditroff
+++ b/tmac/mdoc/doc-ditroff
@@ -189,6 +189,45 @@
 .ec
 .
 .
+.\" NS Dl user macro
+.\" NS   display (one line) literal
+.\" NS
+.\" NS   this function uses the 'Li' font
+.\" NS
+.\" NS modifies:
+.\" NS   doc-arg-ptr
+.\" NS   doc-curr-font
+.\" NS   doc-macro-name
+.\" NS
+.\" NS width register 'Dl' set in doc-common
+.
+.eo
+.de Dl
+.  ta T .5i
+.  in +\n[doc-display-indent]u
+.
+.  ie \n[doc-arg-count] \{\
+.    doc-report-usage .Dl not callable by other macros
+.    doc-reset-args
+.  \}
+.  el \{\
+.    ie \n[.$] \{\
+.      ds doc-macro-name Dl
+.      doc-parse-args \$@
+.      nr doc-arg-ptr 1
+.      nr doc-curr-font \n[.f]
+.      nop \*[doc-Li-font]\c
+.      doc-print-recursive
+.    \}
+.    el \
+.      doc-report-usage .Dl argument ...
+.  \}
+.
+.  in -\n[doc-display-indent]u
+..
+.ec
+.
+.
 .\" NS Ql user macro
 .\" NS   quoted literal define
 .\" NS
diff --git a/tmac/mdoc/doc-nroff b/tmac/mdoc/doc-nroff
index addff8db4..159effebc 100644
--- a/tmac/mdoc/doc-nroff
+++ b/tmac/mdoc/doc-nroff
@@ -181,6 +181,45 @@
 .ec
 .
 .
+.\" NS Dl user macro
+.\" NS   display (one line) literal
+.\" NS
+.\" NS   this function uses the 'Li' font
+.\" NS
+.\" NS modifies:
+.\" NS   doc-arg-ptr
+.\" NS   doc-curr-font
+.\" NS   doc-macro-name
+.\" NS
+.\" NS width register 'Dl' set in doc-common
+.
+.eo
+.de Dl
+.  ta T .5i
+.  in +\n[doc-display-indent]u
+.
+.  ie \n[doc-arg-count] \{\
+.    doc-report-usage .Dl not callable by other macros
+.    doc-reset-args
+.  \}
+.  el \{\
+.    ie \n[.$] \{\
+.      ds doc-macro-name Dl
+.      doc-parse-args \$@
+.      nr doc-arg-ptr 1
+.      nr doc-curr-font \n[.f]
+.      nop \*[doc-Li-font]\c
+.      doc-print-recursive
+.    \}
+.    el \
+.      doc-report-usage .Dl argument ...
+.  \}
+.
+.  in -\n[doc-display-indent]u
+..
+.ec
+.
+.
 .\" NS Ql user macro
 .\" NS   quoted literal define
 .\" NS