From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Thu, 3 Sep 2020 12:27:24 +0000 (+0900)
Subject: Require `ids-find'.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=31dc0986bd4b291d7cd74081f721ace329f25466;p=chise%2Fids.git

Require `ids-find'.
(ideographic-structure-compact): Moved to ids-find.el.
---

diff --git a/ids-rw.el b/ids-rw.el
index 0886949..0af6d84 100644
--- a/ids-rw.el
+++ b/ids-rw.el
@@ -1,6 +1,6 @@
 ;;; ids-rw.el --- Rewriting utility for ideographic-structure.
 
-;; Copyright (C) 2006 MORIOKA Tomohiko
+;; Copyright (C) 2006, 2020 MORIOKA Tomohiko
 
 ;; Author: MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
 ;; Keywords: IDS, TRS, IDC, Ideographs, UCS, Unicode
@@ -24,6 +24,8 @@
 
 ;;; Code:
 
+(require 'ids-find)
+
 (defun ideographic-structure-unify-char (structure pattern &optional env)
   (if (char-ref-p structure)
       (setq structure (plist-get structure :char)))
@@ -144,28 +146,6 @@
 		(setq structure ret)))))
     structure))
 
-;;;###autoload
-(defun ideographic-structure-compact (structure)
-  (let ((rest structure)
-	cell
-	ret dest sub)
-    (while rest
-      (setq cell (car rest))
-      (cond
-       ((and (consp cell)
-	     (cond ((setq ret (assq 'ideographic-structure cell))
-		    (setq sub (cdr ret))
-		    )
-		   ((atom (car cell))
-		    (setq sub cell)
-		    )))
-	(setq cell
-	      (if (setq ret (ideographic-structure-find-char sub))
-		  ret
-		(list (cons 'ideographic-structure sub))))
-	))
-      (setq dest (cons cell dest)))
-    (nreverse dest)))
 					       
 
 ;;; @ End.