(est-format-unit): For conversion of `feature-name' unit, enclose '(a

(:href ...) ...) with (span (:class "feature-name") ...)

diff --git a/est-format.el b/est-format.el
index b9278ab..1b2703d 100644 (file)
--- 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