From: tomo <tomo>
Date: Wed, 21 Aug 2002 10:02:04 +0000 (+0000)
Subject: (ids-format-unit): Deleted.
X-Git-Tag: ids-0_0-1~212
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=06880fbab729fc80806f6ca4e3fed4201c44f0cf;p=chise%2Fids.git

(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
--- 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.
 ;;;