From 8dd6082cb4771efc4977f79e9692d6f70e671507 Mon Sep 17 00:00:00 2001 From: MORIOKA Tomohiko Date: Fri, 19 Mar 2010 13:02:48 +0900 Subject: [PATCH] (www-xml-format-unit): Support tag style `ref' in `link'. --- cwiki-common.el | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/cwiki-common.el b/cwiki-common.el index 4ca601c..4f62691 100644 --- a/cwiki-common.el +++ b/cwiki-common.el @@ -725,7 +725,7 @@ dest)) (defun www-xml-format-unit (format-unit) - (let (name props children) + (let (name props children ret) (cond ((stringp format-unit) format-unit) @@ -733,6 +733,13 @@ (setq name (car format-unit) props (nth 1 format-unit) children (nthcdr 2 format-unit)) + (when (eq name 'link) + (setq ret (plist-get props :ref)) + (unless (stringp ret) + (setq props (plist-remprop (copy-list props) :ref)) + (setq children + (cons (list* 'ref nil ret) + children)))) (if children (format "<%s%s>%s" name -- 1.7.10.4