[bug #53834] [PATCH] an-old.tmac: Macro "IR", conserve space at the beginning of an argument

[Bjarni Ingi Gislason]

URL:
  <http://savannah.gnu.org/bugs/?53834>

                 Summary: [PATCH] an-old.tmac: Macro "IR", conserve space at
the  beginning of an argument
                 Project: GNU troff
            Submitted by: bjarniig
            Submitted on: Fri 04 May 2018 03:56:55 PM UTC
                Category: Macro - man
                Severity: 3 - Normal
              Item Group: Incorrect behaviour
                  Status: None
                 Privacy: Public
             Assigned to: None
             Open/Closed: Open
         Discussion Lock: Any
         Planned Release: None

    _______________________________________________________

Details:


>From 823f05d4c3e244bc39c9e0f456bb11da4b208f4b Mon Sep 17 00:00:00 2001
From: Bjarni Ingi Gislason <address@hidden>
Date: Fri, 4 May 2018 15:32:35 +0000
Subject: [PATCH] an-old.tmac: Macro "IR", conserve space at the
 beginning of an argument

  The protection of a space, that is the first character of a roman
argument, is missing

Signed-off-by: Bjarni Ingi Gislason <address@hidden>
---

  A test example:

.TH testman 1 "2018-MM-DD"
.SH NAME
testman \(en test IR
.pl 20
.PP
.IR italic " roman"

  result is:

testman(1)                  General Commands Manual                
testman(1)

NAME
       testman - test IR

       italicroman

                                  2018-MM-DD                       
testman(1)
###

 tmac/an-old.tmac | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/tmac/an-old.tmac b/tmac/an-old.tmac
index b99dc2ce..71da9c96 100644
--- a/tmac/an-old.tmac
+++ b/tmac/an-old.tmac
@@ -546,10 +546,10 @@
 .    ds an-result \&\f[I]\,\\$1\f[R]\/\"
 .    shift
 .    while (\\n[.$] >= 2) \{\
-.      as an-result \\$1\f[I]\,\\$2\f[R]\/\\*[an-empty]\"
+.      as an-result \&\\$1\f[I]\,\\$2\f[R]\/\\*[an-empty]\"
 .      shift 2
 .    \}
-.    if \\n[.$] .as an-result \\$1\"
+.    if \\n[.$] .as an-result \&\\$1\"
 \\*[an-result]
 .    ft R
 .  \}
-- 
2.17.0






    _______________________________________________________

Reply to this item at:

  <http://savannah.gnu.org/bugs/?53834>

_______________________________________________
  Message sent via Savannah
  https://savannah.gnu.org/