From 5d0d7beaa6f24addcbcec047a25a9b51b0507a41 Mon Sep 17 00:00:00 2001
From: Sergey Poznyakoff <gray@gnu.org.ua>
Date: Sun, 13 Feb 2005 23:09:25 +0000
Subject: (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
---
 scm/dictrans.scm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

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 '())
-- 
cgit v1.2.1