X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fclip-region.scm;h=8718f56104c5288939183b9b02d0cecc27cd6e2c;hb=16e626a8524421eda692cb19be6d0ec5bff723b7;hp=1c0a6409ba65d5bc0ceb57c91d04082d7c35c597;hpb=8c3d2ec5a1823689049fbdaa0bd26e32caf307fb;p=lilypond.git

diff --git a/scm/clip-region.scm b/scm/clip-region.scm
index 1c0a6409ba..8718f56104 100644
--- a/scm/clip-region.scm
+++ b/scm/clip-region.scm
@@ -1,6 +1,6 @@
 ;;;; This file is part of LilyPond, the GNU music typesetter.
 ;;;;
-;;;; Copyright (C) 2006--2010 Han-Wen Nienhuys <hanwen@lilypond.org>
+;;;; Copyright (C) 2006--2011 Han-Wen Nienhuys <hanwen@lilypond.org>
 ;;;;
 ;;;; LilyPond is free software: you can redistribute it and/or modify
 ;;;; it under the terms of the GNU General Public License as published by
@@ -50,8 +50,8 @@
 ;; but let's leave that for future extensions.
 ;;
 (define-public (system-clipped-x-extent system-grob clip-region)
-  "Return the X-extent of the SYSTEM-GROB when clipped with
-CLIP-REGION. Return #f if not appropriate."
+  "Return the X-extent of @var{system-grob} when clipped with
+@var{clip-region}.  Return @code{#f} if not appropriate."
   
   (let*
       ((region-start (car clip-region))