internal update

2 files changed, 9 insertions, 22 deletions

diff --git a/tmac/doc-common.new b/tmac/doc-common.new
index 958140ce..e44845d6 100755
--- a/tmac/doc-common.new
+++ b/tmac/doc-common.new
@@ -151,6 +151,13 @@
 .nr Xo 1
 .nr Xr 10n
 .
+.\" identification strings for argument types (used for debugging)
+.ds doc-debug-1 macro
+.ds doc-debug-2 string
+.ds doc-debug-3 closing punctuation or suffix
+.ds doc-debug-4 opening punctuation or suffix
+.
+.
 .\" requests which must be processed after the closing delimiter of `Op'
 .\" and friends
 .ds doc-after-Ao
diff --git a/tmac/tmac.doc.new b/tmac/tmac.doc.new
index 9e7fe934..6b1c28b8 100755
--- a/tmac/tmac.doc.new
+++ b/tmac/tmac.doc.new
@@ -207,17 +207,7 @@
 .    doc-set-spacing-\n[doc-arg-type]
 .
 .    if \n[doc-debug] \{\
-.      ie (\n[doc-arg-type] == 1) \
-.        ds doc-str-dpa macro
-.      el \{\
-.        ie (\n[doc-arg-type] == 2) \
-.          ds doc-str-dpa string
-.        el \{\
-.          ie (\n[doc-arg-type] == 3) \
-.            ds doc-str-dpa closing punctuation or suffix
-.          el \
-.            ds doc-str-dpa opening punctuation or prefix
-.      \}\}
+.      ds doc-str-dpa \*[doc-debug-\n[doc-arg-type]]
 .
 .      ie \n[doc-inline-debug] \{\
 .        br
@@ -315,17 +305,7 @@
 .  doc-set-spacing-\n[doc-arg-type]
 .
 .  if \n[doc-debug] \{\
-.    ie (\n[doc-arg-type] == 1) \
-.      ds doc-str-dpav macro
-.    el \{\
-.      ie (\n[doc-arg-type] == 2) \
-.        ds doc-str-dpav string
-.      el \{\
-.        ie (\n[doc-arg-type] == 3) \
-.          ds doc-str-dpav closing punctuation or suffix
-.        el \
-.          ds doc-str-dpav opening punctuation or prefix
-.    \}\}
+.    ds doc-str-dpav \*[doc-debug-\n[doc-arg-type]]
 .
 .    ie \n[doc-inline-debug] \{\
 .      br