From 6ebed198ff82e661e7c99d2740d442e95ab8b8ec Mon Sep 17 00:00:00 2001
From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Mon, 21 Oct 2002 07:44:41 +0000
Subject: [PATCH] (string-append): add macro definitions.

---
 ChangeLog                      |  5 +++++
 scm/generate-documentation.scm | 33 ++++++++++++++++++++++++++++++++-
 2 files changed, 37 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index 0773decb21..c355b0c501 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2002-10-21  Han-Wen Nienhuys  <hanwen@cs.uu.nl>
 
+	* scm/generate-documentation.scm (string-append): add macro
+	definitions.
+
 	* lily/text-item.cc (lookup_text): don't use virtual fonts for
 	normal texts.
 
@@ -127,6 +130,8 @@
 	* lily/parser.yy: remove arpeggio keyword; use identifier. Idem
 	for \penalty, \glissando.
 
+	* VERSION: release 1.7.3
+	
 2002-10-13  Rune Zedeler  <rune@zedeler.dk>
 
 	* lily/accidental-engraver.cc: Fix
diff --git a/scm/generate-documentation.scm b/scm/generate-documentation.scm
index a33dd48494..016d77af7a 100644
--- a/scm/generate-documentation.scm
+++ b/scm/generate-documentation.scm
@@ -42,7 +42,38 @@
 (display
  (string-append
   "@c -*-texinfo-*-"
-  (texi-file-head "LilyPond internals" outname "(lilypond.info)")) out-port)
+  (texi-file-head "LilyPond internals" outname "(lilypond.info)")
+  "
+
+@ifhtml
+@macro usermanref{NAME}
+@uref{../lilypond/\\NAME\\.html,\\NAME\\}
+@cindex \\NAME\\
+@end macro
+@end ifhtml
+
+@ifinfo
+@macro usermanref{NAME}
+@inforef{\\NAME\\,,lilypond}
+@cindex \\NAME\\
+@end macro
+@end ifinfo
+
+@ifhtml
+@macro glossaryref{NAME}
+@uref{../music-glossary/\\NAME\\.html,\\NAME\\}
+@cindex \\NAME\\
+@end macro
+@end ifhtml
+
+@ifinfo
+@macro glossaryref{NAME}
+@inforef{\\NAME\\,,music-glossary}
+@cindex \\NAME\\
+@end macro
+@end ifinfo
+
+") out-port)
 
 (define top-node
   (make <texi-node>
-- 
2.39.5