From: Patrick McCarty <pnorcks@gmail.com>
Date: Fri, 26 Feb 2010 20:00:07 +0000 (-0800)
Subject: Add code comments regarding the fix for #1020.
X-Git-Tag: release/2.13.14-1~2
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=9dbbfcfe515c0aa34d6512dc48cf67f18ddaf091;p=lilypond.git

Add code comments regarding the fix for #1020.
---

diff --git a/scm/font.scm b/scm/font.scm
index e5a5183c92..d4c119b405 100644
--- 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 3a8644ecdc..6223e5392e 100644
--- 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)