diff options
| -rw-r--r-- | ChangeLog | 17 | ||||
| -rw-r--r-- | src/guile/skribilo/ast.scm | 3 |
2 files changed, 19 insertions, 1 deletions
@@ -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)) |