;;; ids.el --- Parser and utility for Ideographic Description Sequence.
-;; Copyright (C) 2001, 2002, 2003, 2005, 2020 MORIOKA Tomohiko
+;; Copyright (C) 2001, 2002, 2003, 2005, 2020, 2021 MORIOKA Tomohiko
;; Author: MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
;; Keywords: IDS, IDC, Ideographs, UCS, Unicode
(ucs (encode-char chr '=ucs 'defined-only))
big5)
(unless (or (and ucs (<= #x2FF0 ucs)(<= ucs #x2FFF))
+ (memq (encode-char chr '=ucs-var-001)
+ '(#x2FF0))
(memq (encode-char chr '=ucs-itaiji-001)
- '(#x2FF9 #x2FF6)))
+ '(#x2FF1 #x2FF9 #x2FF6 #x2FFB))
+ (memq (encode-char chr '=ucs-itaiji-002)
+ '(#x2FF1))
+ )
(if (and ucs (<= #xE000 ucs)(<= ucs #xF8FF)
(setq big5 (encode-char chr 'chinese-big5)))
(setq chr (decode-char '=big5-cdp big5)))
(or (eq ucs #x2FF0)
(eq ucs #x2FF1)
(and (<= #x2FF4 ucs)(<= ucs #x2FFB))))
+ (memq (encode-char chr '=ucs-var-001)
+ '(#x2FF0))
(memq (encode-char chr '=ucs-itaiji-001)
- '(#x2FF9 #x2FF6)))
+ '(#x2FF1 #x2FF9 #x2FF6 #x2FFB))
+ (memq (encode-char chr '=ucs-itaiji-002)
+ '(#x2FF1))
+ )
(cons chr
(substring string 1))))))