Improvements to \offset

[lilypond.git] / scm / music-functions.scm

diff --git a/scm/music-functions.scm b/scm/music-functions.scm
index ccecf4b43d0cef88d43cce97b79d5a3b61449b28..383b7f3f6defb7e85373397b08b7b1000aaec08c 100644 (file)
--- a/scm/music-functions.scm
+++ b/scm/music-functions.scm
@@ -2086,8 +2086,9 @@ Broken measures are numbered in parentheses."
 ;; The following are used by the \offset function
 
 (define (find-value-to-offset prop self alist)
-  "Return the first value of the property @var{prop} in the property alist
-@var{alist} @em{after} having found @var{self}."
+  "Return the first value of the property @var{prop} in the property
+alist @var{alist} -- after having found @var{self}.  If @var{self} is
+not found, return the first value of @var{prop}."
   (let ((segment (member (cons prop self) alist)))
     (if (not segment)
         (assoc-get prop alist)