X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=est-format.el;h=b9278abcfe55a8240b2ae2cd23e1a09b4483a867;hb=c85a026c09f8382792ee30992b6ace022cdd516a;hp=bd507be1b3ab67d03ab166de8f3b235d76d80af5;hpb=34bf1a43990028de6b04ab768e18cbf2c2745744;p=chise%2Fest.git

diff --git a/est-format.el b/est-format.el
index bd507be..b9278ab 100644
--- a/est-format.el
+++ b/est-format.el
@@ -132,6 +132,26 @@
 			children)))
 	  ))
 	)
+       ((eq name 'omitted)
+	(cond
+	 ((eq output-format 'wiki-text)
+	  (setq output-string "{{...}}")
+	  )
+	 ((and (eq output-format 'html)
+	       (setq object (plist-get props :object))
+	       (setq feature (plist-get props :feature)))
+	  (setq children
+		(list
+		 (list* 'a
+			(list :href
+			      (concat (www-uri-make-object-url object)
+				      (if est-hide-cgi-mode
+					  "/feature="
+					"&feature=")
+				      (www-uri-encode-feature-name feature)))
+			children)))
+	  ))
+	)
        ((eq name 'feature-name)
 	(setq name 'span)
 	(when (eq output-format 'html)
@@ -285,7 +305,7 @@
    (t
     (mapconcat (lambda (unit)
 		 (est-format-unit
-		  unit output-format without-edit as-property separator))
+		  unit output-format without-edit as-property))
 	       format-list separator)
     )))