Issue 4431 / 1: Delete duplicate and unused procedures in ps-to-png.scm

[lilypond.git] / scm / backend-library.scm

diff --git a/scm/backend-library.scm b/scm/backend-library.scm
index b1cc5f5c4b192a3351077f0f6d9333bc71ff1cf3..2d03394134eda3730b451feb6299a3cc2f298a8d 100644 (file)
--- a/scm/backend-library.scm
+++ b/scm/backend-library.scm
@@ -32,14 +32,6 @@
           ;; hmmm.  what's the best failure option?
           (throw 'ly-file-failed)))))
 
-(define-public (sanitize-command-option str)
-  "Kill dubious shell quoting."
-
-  (string-append
-   "\""
-   (regexp-substitute/global #f "[^-_ 0-9,.a-zA-Z'\"\\]" str 'pre 'post)
-   "\""))
-
 (define-public (search-executable names)
   (define (helper path lst)
     (if (null? (cdr lst))