From bc677481b78427fc93a29f41236d32a51d929e14 Mon Sep 17 00:00:00 2001 From: tomo Date: Sat, 24 Mar 2012 08:03:31 +0000 Subject: [PATCH] (char-db-feature-domains): Add `r030' and `r140'. --- lisp/utf-2000/chise-subr.el | 17 +++++++++++++++-- 1 file changed, 15 insertions(+), 2 deletions(-) diff --git a/lisp/utf-2000/chise-subr.el b/lisp/utf-2000/chise-subr.el index 79484cd..c62e042 100644 --- a/lisp/utf-2000/chise-subr.el +++ b/lisp/utf-2000/chise-subr.el @@ -1,7 +1,7 @@ ;;; chise-subr.el --- basic lisp subroutines for XEmacs CHISE ;; Copyright (C) 1999, 2001, 2002, 2003, 2004, 2005, 2007, 2008, 2009, -;; 2010, 2011 MORIOKA Tomohiko. +;; 2010, 2011, 2012 MORIOKA Tomohiko. ;; Author: MORIOKA Tomohiko ;; Keywords: CHISE, Character Database, ISO/IEC 10646, UCS, Unicode, MULE. @@ -26,8 +26,21 @@ ;;; Code: (defvar char-db-feature-domains + ;; (let (dest str len ret domain) + ;; (dolist (fn (char-attribute-list)) + ;; (setq str (symbol-name fn)) + ;; (when (string-match "^ideographic-radical@\\([^*]+\\)$" str) + ;; (setq domain (substring str (match-beginning 1))) + ;; (when (> (setq len (length domain)) 0) + ;; (setq ret (read-from-string domain)) + ;; (when (= (cdr ret) len) + ;; (setq domain (car ret)) + ;; (unless (memq domain dest) + ;; (push domain dest)))))) + ;; (sort dest #'string<)) '(ucs ucs/compat daikanwa cns gt jis jis/alt jis/a jis/b - jis-x0212 jis-x0213 cdp shinjigen misc unknown)) + jis-x0212 jis-x0213 cdp shinjigen + r030 r140 misc unknown)) ;;; @ feature name -- 1.7.10.4