From ca0ee468bb1a3c2c6973188deb61517bd79c7822 Mon Sep 17 00:00:00 2001 From: MORIOKA Tomohiko Date: Fri, 19 Mar 2010 13:04:29 +0900 Subject: [PATCH] (www-xml-to-stext-unit): Support ....... --- cwiki-set.el | 14 +++++++++----- 1 file changed, 9 insertions(+), 5 deletions(-) diff --git a/cwiki-set.el b/cwiki-set.el index 2b552c3..1337b15 100644 --- a/cwiki-set.el +++ b/cwiki-set.el @@ -37,16 +37,20 @@ (setq name (car unit)) (if (stringp name) nil - (setq props (nth 1 unit) + (setq props (www-xml-to-stext-props (nth 1 unit)) children (nthcdr 2 unit)) (if children (setq children (www-xml-to-stext-list children))) + (when (and (eq name 'link) + (consp (car children)) + (eq (caar children) 'ref)) + (setq props (list* :ref (nthcdr 2 (car children)) + props) + children (cdr children))) (if children - (list* name - (www-xml-to-stext-props props) - children) + (list* name props children) (if props - (list name (www-xml-to-stext-props props)) + (list name props) (list name)))) ) (t -- 1.7.10.4