From 8282c1c361322f3395f7a0cb0244d362b333e344 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès
Date: Sat, 13 Dec 2008 19:35:19 +0100
Subject: info: Handle references to marks.
* src/guile/skribilo/engine/info.scm (ref): Handle references to marks.
---
src/guile/skribilo/engine/info.scm | 5 +++++
1 file changed, 5 insertions(+)
(limited to 'src')
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")
--
cgit 1.4.1