From: MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
Date: Mon, 18 Oct 2010 01:33:35 +0000 (+0900)
Subject: (est-format-object): New function.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=9e5f4ce89f3647cbb5436b146ac16f04a7354d04;p=chise%2Fest.git

(est-format-object): New function.
---

diff --git a/cwiki-common.el b/cwiki-common.el
index 4e07923..d814406 100644
--- a/cwiki-common.el
+++ b/cwiki-common.el
@@ -429,6 +429,11 @@
 		     (encode-char char 'system-char-id))
 	     )))))
 
+(defun est-format-object (object)
+  (if (characterp object)
+      (char-to-string object)
+    (format "%s" (concord-object-id object))))
+
 
 ;;; @ Feature name presentation
 ;;;