[groff] 45/45: [mdoc]: Make `Pa` macro use correct tilde glyph.

[G. Branden Robinson]

gbranden pushed a commit to branch master
in repository groff.

commit 5c22a4177cfe00cc6964e52b9740110a2d59defd
Author: G. Branden Robinson <g.branden.robinson@gmail.com>
AuthorDate: Fri Jan 21 00:55:42 2022 +1100

    [mdoc]: Make `Pa` macro use correct tilde glyph.
    
    That is, make `Pa` macro interpolate basic Latin tilde on all output
    devices.
    
    * tmac/doc.tmac (Pa): Do it.
---
 ChangeLog     | 7 +++++++
 tmac/doc.tmac | 6 +++---
 2 files changed, 10 insertions(+), 3 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 88b062dd..98fe7973 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2022-01-22  G. Branden Robinson <g.branden.robinson@gmail.com>
+
+       [mdoc]: Make `Pa` macro interpolate basic Latin tilde on all
+       output devices.
+
+       * tmac/doc.tmac (Pa): Do it.
+
 2022-01-21  G. Branden Robinson <g.branden.robinson@gmail.com>
 
        [tbl]: Fix incorrect line numbers in diagnostics.  Line numbers
diff --git a/tmac/doc.tmac b/tmac/doc.tmac
index 6c0a2aa4..17fa42f7 100644
--- a/tmac/doc.tmac
+++ b/tmac/doc.tmac
@@ -1071,7 +1071,7 @@
 .
 .    \" default value
 .    if !\n[.$] \
-.      nop \*[doc-Pa-font]~\f[]\s[0]
+.      nop \*[doc-Pa-font]\[ti]\f[]\s[0]
 .  \}
 .
 .  if !\n[doc-arg-limit] \
@@ -1086,7 +1086,7 @@
 .    if !(\n[doc-type\n[doc-arg-ptr]] == 2) \{\
 .      \" replace previous argument (Pa) with default value
 .      nr doc-arg-ptr -1
-.      ds doc-arg\n[doc-arg-ptr] ~
+.      ds doc-arg\n[doc-arg-ptr] \[ti]
 .      nr doc-type\n[doc-arg-ptr] 2
 .      ds doc-space\n[doc-arg-ptr] "\*[doc-space]
 .
@@ -1098,7 +1098,7 @@
 .    doc-print-recursive
 .  \}
 .  el \{\
-.    nop \*[doc-Pa-font]~\f[]\s[0]\c
+.    nop \*[doc-Pa-font]\[ti]\f[]\s[0]\c
 .    doc-print-and-reset
 .  \}
 ..