1.3.144.mb1
============
* Fix ps specials to work together with \usepackage[french]{babel}
---
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
+--- ../lilypond-1.3.144/CHANGES Wed Mar 28 01:27:11 2001
+++ b/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
+ ============
+ 1.3.144.jcn3
============
* Bugfixes: refman, changed Ascii to ASCII.
============
* Bugfixes: refman, changed Ascii to ASCII.
MAJOR_VERSION=1
MINOR_VERSION=3
PATCH_LEVEL=144
MAJOR_VERSION=1
MINOR_VERSION=3
PATCH_LEVEL=144
# use the above to send patches: MY_PATCH_LEVEL is always empty for a
# released version.
# use the above to send patches: MY_PATCH_LEVEL is always empty for a
# released version.
(define (header-end)
(string-append
(define (header-end)
(string-append
;; URG: ly-gulp-file: now we can't use scm output without Lily
(if use-regex
;; URG: ly-gulp-file: now we can't use scm output without Lily
(if use-regex
(define (define-origin file line col)
(if (procedure? point-and-click)
(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)
"}" )
"")
(point-and-click line col file)
"}" )
"")
% header info (macros/defs, etc) should go into a \special{! ... },
% note the ! sign. See dvips.info for details.
%
% 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{%
\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}%
\lilypondpaperoutputscale\lilySpace
\lilypondpaperoutputscale\lilySpace scale
##1 @endspecial}%