From 0524bed6419dd40ed49306925fd377f06aa01efa Mon Sep 17 00:00:00 2001
From: wlemb <wlemb>
Date: Sat, 3 May 2003 21:17:08 +0000
Subject: * tmac/doc-common (doc-header): Emit vertical space of 1v instead of
 `doc-header-space' after header line if register `cR' is set.

---
 ChangeLog       | 5 +++++
 tmac/doc-common | 5 ++++-
 2 files changed, 9 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index 96a6a79c..43cfe26a 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2003-05-03  Werner LEMBERG  <wl@gnu.org>
+
+	* tmac/doc-common (doc-header): Emit vertical space of 1v instead of
+	`doc-header-space' after header line if register `cR' is set.
+
 2003-05-02  Werner LEMBERG  <wl@gnu.org>
 
 	* TODO: Updated.
diff --git a/tmac/doc-common b/tmac/doc-common
index 6099d2ec..0069998f 100644
--- a/tmac/doc-common
+++ b/tmac/doc-common
@@ -554,7 +554,10 @@
 .    as doc-header-string "\|.\|.\|.
 .  \}
 .  tl \*[doc-caption-font]\*[doc-header-string]\f[]\*[doc-caption-font2]\*[doc-volume]\f[]\*[doc-caption-font]\*[doc-header-string]\f[]
-.  sp \n[doc-header-space]u
+.  ie !\n[cR] \
+.    sp \n[doc-header-space]u
+.  el \
+.    sp 1v
 .  ev
 .  ns
 ..
-- 
cgit v1.2.1