Add code comments regarding the fix for #1020.

diff --git a/scm/font.scm b/scm/font.scm
index e5a5183c92c573538185a7f9f4e997ecf32eef10..d4c119b405ac3ca4e24ddbbe2d442567de5c2e07 100644 (file)
--- a/scm/font.scm
+++ b/scm/font.scm
@@ -181,7 +181,10 @@
                            )))))))
 
 (define-public (add-pango-fonts node lily-family family factor)
+  ;; Synchronized with the `text-font-size' variable in
+  ;; layout-set-absolute-staff-size-in-module (see paper.scm).
   (define text-font-size (ly:pt (* factor 11.0)))
+
   (define (add-node shape series)
     (add-font node
              `((font-family . ,lily-family)

diff --git a/scm/paper.scm b/scm/paper.scm
index 3a8644ecdc5cbaec30ed9394196d33dd9143f9cf..6223e5392ecdb0cfd05b0f1179925650b5dfee05 100644 (file)
--- a/scm/paper.scm
+++ b/scm/paper.scm
@@ -69,6 +69,8 @@
        (setm! (lambda (sym val)
                (module-define! module sym val))))
 
+    ;; Synchronized with the `text-font-size'
+    ;; binding in add-pango-fonts (see font.scm).
     (setm! 'text-font-size (* 11 factor))
 
     (setm! 'output-scale ss)