- (string-append
- (define-font plain fontname scaling)
- (if (equal? input-encoding font-encoding)
- ""
- (reencode-font fontname input-encoding scaling command)))))
-
- (define (font-load-encoding encoding)
- (let ((file-name (get-coding-file-name encoding)))
- (ly:gulp-file (ly:kpathsea-find-file file-name))))
-
- (let* ((encoding-list (map (lambda (x)
- (assoc-get 'input-name
- (ly:font-encoding-alist x)))
- font-list))
- (encodings (uniq-list (sort-list (filter string? encoding-list)
- string<?))))
-
- (pdebug "encodings:~S\n" encodings)
- (string-append
- (apply string-append (map font-load-encoding encodings))
- (apply string-append
- (map (lambda (x) (font-load-command x)) font-list)))))
+ (define-font plain fontname scaling)))
+
+ (apply string-append
+ (map (lambda (x) (font-load-command x))
+ (filter (lambda (x) (not (ly:pango-font? x)))
+ font-list))))