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 v1.2.3