diff options
| author | Ludovic Courtès | 2008-12-13 19:35:19 +0100 |
|---|---|---|
| committer | Ludovic Courtès | 2008-12-13 19:35:19 +0100 |
| commit | 8282c1c361322f3395f7a0cb0244d362b333e344 (patch) | |
| tree | 3f3605a23acaa387be321b7f51e51227623a5b24 /src/guile/skribilo/engine | |
| parent | f67298fa097c92d0ad127f8b480e481b825b10d1 (diff) | |
| download | skribilo-8282c1c361322f3395f7a0cb0244d362b333e344.tar.gz skribilo-8282c1c361322f3395f7a0cb0244d362b333e344.tar.lz skribilo-8282c1c361322f3395f7a0cb0244d362b333e344.zip | |
info: Handle references to marks.
* src/guile/skribilo/engine/info.scm (ref): Handle references to marks.
Diffstat (limited to 'src/guile/skribilo/engine')
| -rw-r--r-- | src/guile/skribilo/engine/info.scm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/guile/skribilo/engine/info.scm b/src/guile/skribilo/engine/info.scm index 8b1b049..811017b 100644 --- a/src/guile/skribilo/engine/info.scm +++ b/src/guile/skribilo/engine/info.scm @@ -418,6 +418,11 @@ (info-subsection-ref target e)) ((subsubsection) (info-subsubsection-ref target e)) + ((mark) + ;; We can't refer directly to marks, so refer to the + ;; enclosing section as an approximation. + (let ((parent (find1-up %block? target))) + (info-chapter-ref parent e))) (else (skribe-warning/ast 1 target "ref: don't know how to refer to target") |