summaryrefslogtreecommitdiffabout
path: root/scm/dictrans.scm
authorSergey Poznyakoff <gray@gnu.org.ua>2005-02-13 23:09:25 (GMT)
committer Sergey Poznyakoff <gray@gnu.org.ua>2005-02-13 23:09:25 (GMT)
commit5d0d7beaa6f24addcbcec047a25a9b51b0507a41 (patch) (side-by-side diff)
tree5151bc4dc917f38663c3cf3794465edaf1fae50a /scm/dictrans.scm
parent1cafa94b03dc3d2d86935688d103e0e6ac4bb9b2 (diff)
downloadellinika-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
Diffstat (limited to 'scm/dictrans.scm') (more/less context) (ignore whitespace changes)
-rw-r--r--scm/dictrans.scm7
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 '())

Return to:

Send suggestions and report system problems to the System administrator.