Revert "New alist to replace special characters."

[lilypond.git] / scm / output-lib.scm

diff --git a/scm/output-lib.scm b/scm/output-lib.scm
index 0b453a3838a1c537ab6f21c0f45201f7c5a6cff9..025590e5bae0e001db8f089a96b811485faa1198 100644 (file)
--- a/scm/output-lib.scm
+++ b/scm/output-lib.scm
@@ -968,17 +968,3 @@ between the two text elements."
 (define-public (laissez-vibrer::print grob)
  (ly:tie::print grob))
 
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;; text replacements
-
-(define-public default-string-replacement-alist
-         '(; Whitespaces
-           ("\t" . " ")
-           ("\n" . " ")
-           ("\v" . " ")))
-
-(define-public (internal-add-text-replacements props alist)
-  (let* ((dummy-replacements (chain-assoc-get 'replacement-alist props '()))
-         (new-replacements
-             (append dummy-replacements alist)))
-        (prepend-alist-chain 'replacement-alist new-replacements props)))