Re: Patch! Re: lilypond book still don't print beams and slurs

[Mats Bengtsson]

It seems that my previous patch only worked for a simple scaled-down
version of your example. Here comes an improved version of the patch
that should handle all PS specials correctly with french babel.

  /Mats

Generated by (address unknown),
>From = lilypond-1.3.144, To = lilypond-1.3.144.mb1

usage 

    cd lilypond-source-dir; patch -E -p1 < lilypond-1.3.144.mb1.diff

Patches do not contain automatically generated files 
or (urg) empty directories, 
i.e., you should rerun autoconf, configure

diff -urN ../lilypond-1.3.144/CHANGES ./CHANGES
--- ../lilypond-1.3.144/CHANGES Wed Mar 28 01:27:11 2001
+++ ./CHANGES   Thu Mar 29 21:17:09 2001
@@ -1,3 +1,8 @@
+1.3.144.mb1
+============
+
+* Fix ps specials to work together with \usepackage[french]{babel}
+
 1.3.143.jcn3
 ============
 
diff -urN ../lilypond-1.3.144/VERSION ./VERSION
--- ../lilypond-1.3.144/VERSION Wed Mar 28 09:48:43 2001
+++ ./VERSION   Thu Mar 29 21:16:12 2001
@@ -2,7 +2,7 @@
 MAJOR_VERSION=1
 MINOR_VERSION=3
 PATCH_LEVEL=144
-MY_PATCH_LEVEL=
+MY_PATCH_LEVEL=mb1
 
 # use the above to send patches: MY_PATCH_LEVEL is always empty for a
 # released version.
diff -urN ../lilypond-1.3.144/scm/tex.scm ./scm/tex.scm
--- ../lilypond-1.3.144/scm/tex.scm     Sat Mar 24 01:28:01 2001
+++ ./scm/tex.scm       Thu Mar 29 21:18:41 2001
@@ -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 -urN ../lilypond-1.3.144/tex/lily-ps-defs.tex ./tex/lily-ps-defs.tex
--- ../lilypond-1.3.144/tex/lily-ps-defs.tex    Tue Nov 21 18:24:45 2000
+++ ./tex/lily-ps-defs.tex      Thu Mar 29 00:24:03 2001
@@ -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}%