(ids-format-unit): Deleted.

(ids-format-list): Deleted.
(ids-format-list): Define as an alias for
`ideographic-structure-to-ids'.

diff --git a/ids.el b/ids.el
index 1ae8464..dc064be 100644 (file)
--- a/ids.el
+++ b/ids.el
@@ -98,27 +98,29 @@
     (if (= (length (cdr ret)) 0)
        (car ret))))
 
-(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 ""))
                     
+(define-obsolete-function-alias
+  'ids-format-list 'ideographic-structure-to-ids)
 
 ;;; @ End.
 ;;;