-(defun ids-format-unit (ids-char)
- (let (ret)
- (cond ((characterp ids-char)
- (char-to-string ids-char))
- ((integerp ids-char)
- (char-to-string (decode-char 'ucs ids-char)))
- ((setq ret (find-char ids-char))
- (char-to-string ret))
- ((setq ret (assq 'ideographic-structure ids-char))
- (ids-format-list (cdr ret))))))
-
-;;;###autoload
-(defun ids-format-list (ids-list)
- "Format ideographic-structure IDS-LIST as an IDS-string."
- (mapconcat (lambda (cell)
- (ids-format-unit
- (if (char-ref-p cell)
- (plist-get cell :char)
- cell)))
- ids-list ""))
+;; (defun ids-format-unit (ids-char)
+;; (let (ret)
+;; (cond ((characterp ids-char)
+;; (char-to-string ids-char))
+;; ((integerp ids-char)
+;; (char-to-string (decode-char 'ucs ids-char)))
+;; ((setq ret (find-char ids-char))
+;; (char-to-string ret))
+;; ((setq ret (assq 'ideographic-structure ids-char))
+;; (ids-format-list (cdr ret))))))
+
+;; ;;;###autoload
+;; (defun ids-format-list (ids-list)
+;; "Format ideographic-structure IDS-LIST as an IDS-string."
+;; (mapconcat (lambda (cell)
+;; (ids-format-unit
+;; (if (char-ref-p cell)
+;; (plist-get cell :char)
+;; cell)))
+;; ids-list ""))