From ebe6277ed52adc79865ac22cc2e8ceaf5d21fd9e Mon Sep 17 00:00:00 2001
From: fred <fred>
Date: Wed, 27 Mar 2002 00:59:50 +0000
Subject: [PATCH] lilypond-1.3.145
---
scm/tex.scm | 4 ++--
tex/lily-ps-defs.tex | 4 +++-
2 files changed, 5 insertions(+), 3 deletions(-)
diff --git a/scm/tex.scm b/scm/tex.scm
index 5e358449f9..4ba31ff8b4 100644
--- a/scm/tex.scm
+++ b/scm/tex.scm
@@ -96,7 +96,7 @@
(define (header-end)
(string-append
- "\\special{! "
+ "\\special{\\string! "
;; URG: ly-gulp-file: now we can't use scm output without Lily
(if use-regex
@@ -182,7 +182,7 @@
(define (define-origin file line col)
(if (procedure? point-and-click)
- (string-append "\\special{src:"
+ (string-append "\\special{src\\string:"
(point-and-click line col file)
"}" )
"")
diff --git a/tex/lily-ps-defs.tex b/tex/lily-ps-defs.tex
index bf93221761..c1ff2b18ed 100644
--- a/tex/lily-ps-defs.tex
+++ b/tex/lily-ps-defs.tex
@@ -7,12 +7,14 @@
% header info (macros/defs, etc) should go into a \special{! ... },
% note the ! sign. See dvips.info for details.
%
+% escape the colon with \string to avoid problems with french babel
+%
\def\lilySpace{ }
\def\turnOnPostScript{%
% This sets CTM so that you get to the currentpoint
% by executing a 0 0 moveto
\def\embeddedps##1{%
- \special{ps: @beginspecial @setspecial
+ \special{ps\string: @beginspecial @setspecial
\lilypondpaperoutputscale\lilySpace
\lilypondpaperoutputscale\lilySpace scale
##1 @endspecial}%
--
2.39.5