From 31dc0986bd4b291d7cd74081f721ace329f25466 Mon Sep 17 00:00:00 2001 From: MORIOKA Tomohiko Date: Thu, 3 Sep 2020 21:27:24 +0900 Subject: [PATCH] Require `ids-find'. (ideographic-structure-compact): Moved to ids-find.el. --- ids-rw.el | 26 +++----------------------- 1 file changed, 3 insertions(+), 23 deletions(-) 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 ;; 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. -- 1.7.10.4