From a412bc099a209f461ea3b5e9d6847383da7f9afd Mon Sep 17 00:00:00 2001
From: wlemb <wlemb>
Date: Sat, 22 Dec 2001 23:45:44 +0000
Subject: Adding an `itc' request (input line trap accepting \c).

* src/roff/troff/env.h (environment): New member
`continued_input_trap'.
Make `do_input_trap' a friend function instead of `input_trap'.
* src/roff/troff/env.cc (environment::environment,
environment::copy): Updated.
(environment::newline): Implement it.
(do_input_trap): New function.
(input_trap): Call `do_input_trap'.
(input_trap_continued): New function.
(init_env_requests): Updated.
* src/roff/troff/TODO: Updated.

* tmac/an-old.tmac (SH, SS, B, I, SM, SB, TP): Use `.itc' instead of
`.it'.

* src/preproc/grn/hdb.cc (DBRead): Really chop after 127 characters.
---
 tmac/an-old.tmac | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

(limited to 'tmac/an-old.tmac')

diff --git a/tmac/an-old.tmac b/tmac/an-old.tmac
index 357d88c3..e662eb51 100644
--- a/tmac/an-old.tmac
+++ b/tmac/an-old.tmac
@@ -250,7 +250,7 @@
 .  in \\n[an-margin]u
 .  ti 0
 .  HTML-TAG ".NH \\n[an-level]"
-.  it 1 an-trap
+.  itc 1 an-trap
 .  nr an-no-space-flag 1
 .  nr an-break-flag 1
 .  ps \\n[PS-SH]u
@@ -267,7 +267,7 @@
 .  fi
 .  in \\n[IN]u
 .  ti \\n[SN]u
-.  it 1 an-trap
+.  itc 1 an-trap
 .  nr an-no-space-flag 1
 .  nr an-break-flag 1
 .  ps \\n[PS-SS]u
@@ -277,25 +277,25 @@
 ..
 .
 .de1 B
-.  it 1 an-trap
+.  itc 1 an-trap
 .  ft B
 .  if \\n[.$] \&\\$*
 ..
 .
 .de1 I
-.  it 1 an-trap
+.  itc 1 an-trap
 .  ft I
 .  if \\n[.$] \&\\$*
 ..
 .
 .de1 SM
-.  it 1 an-trap
+.  itc 1 an-trap
 .  ps -1
 .  if \\n[.$] \&\\$*
 ..
 .
 .de1 SB
-.  it 1 an-trap
+.  itc 1 an-trap
 .  ps -1
 .  ft B
 .  if \\n[.$] \&\\$*
@@ -304,7 +304,7 @@
 .de1 TP
 .  sp \\n[PD]u
 .  if \\n[.$] .nr an-prevailing-indent (n;\\$1)
-.  it 1 an-trap
+.  itc 1 an-trap
 .  if !\\n[an-div?] .di an-div
 .  ie \\n[an-html] .in \\n[an-margin]u
 .  el \{\
-- 
cgit v1.2.1