(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

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 '())