summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Court`es2007-09-24 18:52:24 +0000
committerLudovic Court`es2007-09-24 18:52:24 +0000
commita6cecde2bb25647c7e017b58f89dd49ae2c0ce03 (patch)
tree4855520dfd7576c8cfb6304d767c472e4caec858
parent5cf99f818b4ab5dbdcdd7c3109ab7acd6d770925 (diff)
parentce4ef18ff7813828425eb65714d7ca7d4908831a (diff)
downloadskribilo-a6cecde2bb25647c7e017b58f89dd49ae2c0ce03.tar.gz
skribilo-a6cecde2bb25647c7e017b58f89dd49ae2c0ce03.tar.lz
skribilo-a6cecde2bb25647c7e017b58f89dd49ae2c0ce03.zip
Tolerate unresolved nodes in `first-paragraph?'.
* src/guile/skribilo/ast.scm (first-paragraph?): Check whether PARENT is a markup. git-archimport-id: skribilo@sv.gnu.org--2006/skribilo--devo--1.2--patch-168
-rw-r--r--ChangeLog17
-rw-r--r--src/guile/skribilo/ast.scm3
2 files changed, 19 insertions, 1 deletions
diff --git a/ChangeLog b/ChangeLog
index cf3a624..1443955 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -2,6 +2,23 @@
# arch-tag: automatic-ChangeLog--skribilo@sv.gnu.org--2006/skribilo--devo--1.2
#
+2007-09-24 18:52:24 GMT Ludovic Court`es <ludovic.courtes@laas.fr> patch-168
+
+ Summary:
+ Tolerate unresolved nodes in `first-paragraph?'.
+ Revision:
+ skribilo--devo--1.2--patch-168
+
+ * src/guile/skribilo/ast.scm (first-paragraph?): Check whether PARENT is
+ a markup.
+
+ modified files:
+ ChangeLog src/guile/skribilo/ast.scm
+
+ new patches:
+ lcourtes@laas.fr--2006-libre/skribilo--devo--1.2--patch-110
+
+
2007-09-20 17:20:55 GMT Ludovic Court`es <ludovic.courtes@laas.fr> patch-167
Summary:
diff --git a/src/guile/skribilo/ast.scm b/src/guile/skribilo/ast.scm
index 21df4f3..8dee4d8 100644
--- a/src/guile/skribilo/ast.scm
+++ b/src/guile/skribilo/ast.scm
@@ -624,7 +624,8 @@
;; Return true if N is the first paragraph in this container.
(and (is-markup? n 'paragraph)
(let* ((parent (ast-parent n))
- (siblings (markup-body parent)))
+ (siblings (and (markup? parent)
+ (markup-body parent))))
(and (pair? siblings)
(eq? n (find (lambda (n)
(is-markup? n 'paragraph))