URL:
<http://savannah.gnu.org/bugs/?53541>
Summary: [PATCH] tmac/an-old.tmac: move or add an italic
correction to the right place
Project: GNU troff
Submitted by: bjarniig
Submitted on: Sun 01 Apr 2018 02:53:56 PM UTC
Category: Macro - man
Severity: 3 - Normal
Item Group: None
Status: None
Privacy: Public
Assigned to: None
Open/Closed: Open
Discussion Lock: Any
Planned Release: None
_______________________________________________________
Details:
>From 253f4fe3004d569def78e09d870ecfdf6c0ac2a1 Mon Sep 17 00:00:00 2001
From: Bjarni Ingi Gislason <[email protected]>
Date: Sun, 1 Apr 2018 14:14:53 +0000
Subject: [PATCH] tmac/an-old.tmac: move or add an italic correction
to the right place
Each argument to be italic must have the corrections '\,' and '\/'
around it.
Add the string "\\*[empty]" to "an-result" in the macro "IR" to be
consistent with the other macros.
Signed-off-by: Bjarni Ingi Gislason <[email protected]>
---
tmac/an-old.tmac | 16 ++++++++--------
1 file changed, 8 insertions(+), 8 deletions(-)
diff --git a/tmac/an-old.tmac b/tmac/an-old.tmac
index 01da3167..95f3ff8f 100644
--- a/tmac/an-old.tmac
+++ b/tmac/an-old.tmac
@@ -527,7 +527,7 @@
. as an-result \,\f[I]\\$1\f[R]\/\\$2\\*[an-empty]\"
. shift 2
. \}
-. if \\n[.$] .as an-result \,\f[I]\\$1\"
+. if \\n[.$] .as an-result \,\f[I]\\$1\/\"
\\*[an-result]
. ft R
. \}
@@ -537,13 +537,13 @@
. an-inputcheck \\$0 \\n[.$]
.
. if \\n[.$] \{\
-. ds an-result \&\f[I]\,\\$1\f[R]\"
+. ds an-result \&\f[I]\,\\$1\f[R]\/\"
. shift
. while (\\n[.$] >= 2) \{\
-. as an-result \/\\$1\f[I]\,\\$2\f[R]\"
+. 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
. \}
@@ -553,13 +553,13 @@
. an-inputcheck \\$0 \\n[.$]
.
. if \\n[.$] \{\
-. ds an-result \&\f[I]\,\\$1\"
+. ds an-result \&\f[I]\,\\$1\/\"
. shift
. while (\\n[.$] >= 2) \{\
-. as an-result \/\f[B]\\$1\f[I]\,\\$2\\*[an-empty]\"
+. as an-result \f[B]\\$1\f[I]\,\\$2\/\\*[an-empty]\"
. shift 2
. \}
-. if \\n[.$] .as an-result \/\f[B]\\$1\"
+. if \\n[.$] .as an-result \f[B]\\$1\"
\\*[an-result]
. ft R
. \}
@@ -575,7 +575,7 @@
. as an-result \,\f[I]\\$1\f[B]\/\\$2\\*[an-empty]\"
. shift 2
. \}
-. if \\n[.$] .as an-result \,\f[I]\\$1\"
+. if \\n[.$] .as an-result \,\f[I]\\$1\/\"
\\*[an-result]
. ft R
. \}
--
2.16.2
_______________________________________________________
Reply to this item at:
<http://savannah.gnu.org/bugs/?53541>
_______________________________________________
Message sent via/by Savannah
http://savannah.gnu.org/
_______________________________________________
bug-groff mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/bug-groff
