(est-format-object): New function.

diff --git a/cwiki-common.el b/cwiki-common.el
index 4e07923..d814406 100644 (file)
--- a/cwiki-common.el
+++ b/cwiki-common.el
@@ -429,6 +429,11 @@
                     (encode-char char 'system-char-id))
             )))))
 
                     (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
 ;;;
 
 ;;; @ Feature name presentation
 ;;;