From 05ffd00f104110357b6674700ad56a8e4af2ee26 Mon Sep 17 00:00:00 2001 From: MORIOKA Tomohiko Date: Thu, 17 Mar 2016 00:07:40 +0900 Subject: [PATCH] (est-format-unit): For conversion of `feature-name' unit, enclose '(a (:href ...) ...) with (span (:class "feature-name") ...) --- est-format.el | 16 +++++++++------- 1 file changed, 9 insertions(+), 7 deletions(-) diff --git a/est-format.el b/est-format.el index b9278ab..1b2703d 100644 --- a/est-format.el +++ b/est-format.el @@ -159,13 +159,15 @@ (setq feature (plist-get props :feature))) (setq children (list - (list* 'a - (list :href - (www-uri-make-feature-name-url - (est-object-genre object) - (www-uri-encode-feature-name feature) - (www-uri-encode-object object))) - children))))) + (list 'span + '(:class "feature-name") + (list* 'a + (list :href + (www-uri-make-feature-name-url + (est-object-genre object) + (www-uri-encode-feature-name feature) + (www-uri-encode-object object))) + children)))))) ) ((eq name 'value) (cond -- 1.7.10.4