diff options
author | Sergey Poznyakoff <gray@gnu.org.ua> | 2005-02-13 23:09:25 +0000 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2005-02-13 23:09:25 +0000 |
commit | 5d0d7beaa6f24addcbcec047a25a9b51b0507a41 (patch) | |
tree | 5151bc4dc917f38663c3cf3794465edaf1fae50a | |
parent | 1cafa94b03dc3d2d86935688d103e0e6ac4bb9b2 (diff) | |
download | ellinika-5d0d7beaa6f24addcbcec047a25a9b51b0507a41.tar.gz ellinika-5d0d7beaa6f24addcbcec047a25a9b51b0507a41.tar.bz2 |
(current-article-set): Handle case when p-article is #f, i.e. after <P ID="">..</P>.
git-svn-id: file:///home/puszcza/svnroot/ellinika/trunk@304 941c8c0f-9102-463b-b60b-cd22ce0e6858
-rw-r--r-- | scm/dictrans.scm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/scm/dictrans.scm b/scm/dictrans.scm index 5250368..8c872c4 100644 --- a/scm/dictrans.scm +++ b/scm/dictrans.scm @@ -283,7 +283,12 @@ (define-syntax current-article-set (syntax-rules () ((current-article-set key val) - (p-article-set key p-article val)))) + (if p-article + (p-article-set key p-article val) + (for-each + (lambda (x) + (p-article-set key x val)) + (current-node-get #:p-list)))))) ;;; Node list (define node-list '()) |