typo

[lilypond.git] / scm / framework-ps.scm

diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm
index 4f79352a2aab1ccad0f5339c7a1a7293e1a876c5..5ea57cc7fc570e56d643082ae86ebf1bc0733c53 100644 (file)
--- a/scm/framework-ps.scm
+++ b/scm/framework-ps.scm
@@ -276,7 +276,7 @@
            ((string? bare-file-name)
             (ps-load-file file-name))
            (else
-            (ly:warning (_ cannot embed ~S=~S") name file-name)
+            (ly:warning (_ "cannot embed ~S=~S") name file-name)
             "")))
 
          )))
@@ -329,7 +329,7 @@
       (if (not embed)
          (begin
            (set! embed "% failed \n")
-           (ly:warning (_ cannot extract file matching ~a from ~a") name filename)))
+           (ly:warning (_ "cannot extract file matching ~a from ~a") name filename)))
       embed))
 
     (define (font-file-as-ps-string name file-name)
@@ -487,7 +487,10 @@
   (let*
       ((xext (ly:stencil-extent dump-me X))
        (yext (ly:stencil-extent dump-me Y))
-       (left-overshoot (ly:get-option 'eps-box-padding))
+       (padding (ly:get-option 'eps-box-padding))
+       (left-overshoot (if (number? padding)
+                          (* -1 padding (ly:output-def-lookup paper 'mm))
+                          #f))
        (bbox
        (map
         (lambda (x)
@@ -726,7 +729,7 @@
         )
 
     (if (equal? (basename name ".ps") "-")
-       (ly:warning (_ cannot convert <stdout> to ~S" "PDF"))
+       (ly:warning (_ "cannot convert <stdout> to ~S" "PDF"))
        (postscript->pdf w h name))))
 
 (define-public (convert-to-png book name)
@@ -745,10 +748,10 @@
                     name)))
 
 (define-public (convert-to-dvi book name)
-  (ly:warning (_ cannot generate ~S using the postscript back-end") "DVI"))
+  (ly:warning (_ "cannot generate ~S using the postscript back-end") "DVI"))
 
 (define-public (convert-to-tex book name)
-  (ly:warning (_ cannot generate ~S using the postscript back-end") "TeX"))
+  (ly:warning (_ "cannot generate ~S using the postscript back-end") "TeX"))
 
 (define-public (convert-to-ps book name)
   #t)