From c90a265bbcf3158a0252b15f5f70083b3fdae1b3 Mon Sep 17 00:00:00 2001
From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Mon, 9 Feb 2004 22:25:31 +0000
Subject: [PATCH] Add some lost `relative' ly-options.

---
 ChangeLog                         |  2 ++
 Documentation/user/tutorial.itely |  6 +-----
 scm/output-tex.scm                | 27 +++++++++++++++------------
 3 files changed, 18 insertions(+), 17 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index bf1559661b..3bc9fe4746 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,7 @@
 2004-02-09  Jan Nieuwenhuizen  <janneke@gnu.org>
 
+	* scripts/lilypond-book.py (compose_ly): Add kludge for relative.
+
 	* Documentation/user/refman.itely: Run texinfo-all-menus-update
 	(fixes make web).
 
diff --git a/Documentation/user/tutorial.itely b/Documentation/user/tutorial.itely
index 4ed041f12c..d3eb2c11e5 100644
--- a/Documentation/user/tutorial.itely
+++ b/Documentation/user/tutorial.itely
@@ -87,11 +87,7 @@ c d e f g a b
 @noindent
 then the result looks like this:
 
-@c ?
-@c \transpose c c' { c d e f g a b }
-@c @lily pond[notime]
-@c \property Score.timing = ##f
-@lilypond[notime,relative=2]
+@lilypond[notime,relative]
 c d e f g a b
 @end lilypond
 
diff --git a/scm/output-tex.scm b/scm/output-tex.scm
index 4e43277a6d..759173122e 100644
--- a/scm/output-tex.scm
+++ b/scm/output-tex.scm
@@ -1,4 +1,3 @@
-
 ;;; tex.scm -- implement Scheme output routines for TeX
 ;;;
 ;;;  source file of the GNU LilyPond music typesetter
@@ -67,20 +66,24 @@
 
     (if (eq? c #f)
 	(begin
-	  (display "FAILED\n")
-	  (display (object-type (car name-mag-pair)))
-	  (display (object-type (caaar font-name-alist)))
-
 	  (ly:warn (string-append
 		    "Programming error: No such font known "
 		    (car name-mag-pair) " "
-		    (ly:number->string (cdr name-mag-pair))
-		    ))
-	  "") ; issue no command
-	(string-append "\\" (cddr c)))
-    
-    
-    ))
+		    (ly:number->string (cdr name-mag-pair))))
+	  
+	  (display "FAILED\n" (current-error-port))
+	  (if #f ;(pair? name-mag-pair))
+	      (display (object-type (car name-mag-pair)) (current-error-port))
+	      (write name-mag-pair (current-error-port)))
+	  (if #f ;  (pair? font-name-alist)
+	      (display
+	       (object-type (caaar font-name-alist)) (current-error-port))
+	      (write font-name-alist (current-error-port)))
+
+	  ;; (format #f "\n%FAILED: (select-font ~S)\n" name-mag-pair))
+	  "")
+	
+	(string-append "\\" (cddr c)))))
 
 (define (blank)
   "")
-- 
2.39.5