;;; char-db-util.el --- Character Database utility -*- coding: utf-8-er; -*-
;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006,
-;; 2007, 2008, 2009 MORIOKA Tomohiko.
+;; 2007, 2008, 2009, 2010 MORIOKA Tomohiko.
;; Author: MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
;; Keywords: CHISE, Character Database, ISO/IEC 10646, UCS, Unicode, MULE.
(setq i (1+ i)))
v))
+;;;###autoload
(defun ideographic-radical (number)
+ "Return character corresponding with Kangxi-radical number."
(aref ideographic-radicals number))
(defconst shuowen-radicals
ethiopic-ucs
=big5-cdp
=gt
+ =>>gt
+ =>gt
ideograph-daikanwa-2
ideograph-daikanwa
=cbeta
=gt-k
=ucs@iso
=ucs@unicode
- <=>jis-x0208
- <=>jis-x0208@1997
- <=>jis-x0213-1
- <=>jis-x0213-1@2000
- <=>jis-x0213-1@2004
+ =>>jis-x0208
+ =>>jis-x0213-1
+ =>>jis-x0213-1@2000
+ =>>jis-x0213-1@2004
+ =>>jis-x0213-2
+ =>>jis-x0208@1978
+ =>jis-x0208
+ =>jis-x0208@1997
+ =>jis-x0213-1
+ =>jis-x0213-1@2000
+ =>jis-x0213-1@2004
+ =>jis-x0213-2
=big5
=big5-eten
=zinbun-oracle
+ =>zinbun-oracle
=ruimoku-v6
- =jef-china3))
+ =jef-china3
+ =shinjigen))
(defun char-db-make-char-spec (char)
(let (ret char-spec)
"(%-18s . %04d)\t; %c")
((or (memq name '(=daikanwa
=daikanwa@rev1 =daikanwa@rev2
- =gt =>>gt =>gt =gt-k =cbeta =zinbun-oracle))
+ =gt =>>gt =>gt =gt-k =cbeta
+ =zinbun-oracle =>zinbun-oracle))
(string-match "^=adobe-" (symbol-name name)))
"(%-18s . %05d)\t; %c")
((eq name 'mojikyo)